Line data    Source code

       1              : /*
       2              :    This file is part of TALER
       3              :    Copyright (C) 2022 Taler Systems SA
       4              : 
       5              :    TALER is free software; you can redistribute it and/or modify it under the
       6              :    terms of the GNU General Public License as published by the Free Software
       7              :    Foundation; either version 3, or (at your option) any later version.
       8              : 
       9              :    TALER is distributed in the hope that it will be useful, but WITHOUT ANY
      10              :    WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
      11              :    A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
      12              : 
      13              :    You should have received a copy of the GNU General Public License along with
      14              :    TALER; see the file COPYING.  If not, see <http://www.gnu.org/licenses/>
      15              :  */
      16              : /**
      17              :  * @file backenddb/pg_mark_contract_paid.c
      18              :  * @brief Implementation of the mark_contract_paid function for Postgres
      19              :  * @author Iván Ávalos
      20              :  */
      21              : #include "platform.h"
      22              : #include <taler/taler_error_codes.h>
      23              : #include <taler/taler_dbevents.h>
      24              : #include <taler/taler_pq_lib.h>
      25              : #include "pg_mark_contract_paid.h"
      26              : #include "pg_helper.h"
      27              : 
      28              : enum GNUNET_DB_QueryStatus
      29           33 : TMH_PG_mark_contract_paid (
      30              :   void *cls,
      31              :   const char *instance_id,
      32              :   const struct TALER_PrivateContractHashP *h_contract_terms,
      33              :   const char *session_id,
      34              :   int16_t choice_index)
      35              : {
      36           33 :   struct PostgresClosure *pg = cls;
      37           33 :   struct GNUNET_PQ_QueryParam params[] = {
      38           33 :     GNUNET_PQ_query_param_string (instance_id),
      39           33 :     GNUNET_PQ_query_param_auto_from_type (h_contract_terms),
      40           33 :     GNUNET_PQ_query_param_string (session_id),
      41           33 :     (choice_index >= 0)
      42            4 :       ? GNUNET_PQ_query_param_int16 (&choice_index)
      43           33 :       : GNUNET_PQ_query_param_null (),
      44              :     GNUNET_PQ_query_param_end
      45              :   };
      46           33 :   struct GNUNET_PQ_QueryParam uparams[] = {
      47           33 :     GNUNET_PQ_query_param_string (instance_id),
      48           33 :     GNUNET_PQ_query_param_auto_from_type (h_contract_terms),
      49              :     GNUNET_PQ_query_param_end
      50              :   };
      51              :   enum GNUNET_DB_QueryStatus qs;
      52              : 
      53              :   /* Session ID must always be given by the caller. */
      54           33 :   GNUNET_assert (NULL != session_id);
      55              : 
      56              :   /* no preflight check here, run in transaction by caller! */
      57           33 :   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
      58              :               "Marking h_contract_terms '%s' of %s as paid for session `%s'\n",
      59              :               GNUNET_h2s (&h_contract_terms->hash),
      60              :               instance_id,
      61              :               session_id);
      62           33 :   PREPARE (pg,
      63              :            "mark_contract_paid",
      64              :            "UPDATE merchant_contract_terms SET"
      65              :            " paid=TRUE"
      66              :            ",session_id=$3"
      67              :            ",choice_index=$4"
      68              :            " WHERE h_contract_terms=$2"
      69              :            "   AND merchant_serial="
      70              :            "     (SELECT merchant_serial"
      71              :            "        FROM merchant_instances"
      72              :            "       WHERE merchant_id=$1)");
      73           33 :   qs = GNUNET_PQ_eval_prepared_non_select (pg->conn,
      74              :                                            "mark_contract_paid",
      75              :                                            params);
      76           33 :   if (qs <= 0)
      77            0 :     return qs;
      78           33 :   PREPARE (pg,
      79              :            "mark_inventory_sold",
      80              :            "UPDATE merchant_inventory SET"
      81              :            " total_sold=total_sold + order_locks.total_locked"
      82              :            " FROM (SELECT total_locked,product_serial"
      83              :            "       FROM merchant_order_locks"
      84              :            "       WHERE order_serial="
      85              :            "       (SELECT order_serial"
      86              :            "          FROM merchant_contract_terms"
      87              :            "         WHERE h_contract_terms=$2"
      88              :            "           AND merchant_serial="
      89              :            "           (SELECT merchant_serial"
      90              :            "              FROM merchant_instances"
      91              :            "             WHERE merchant_id=$1))"
      92              :            "       ) AS order_locks"
      93              :            " WHERE merchant_inventory.product_serial"
      94              :            "             =order_locks.product_serial");
      95           33 :   qs = GNUNET_PQ_eval_prepared_non_select (pg->conn,
      96              :                                            "mark_inventory_sold",
      97              :                                            uparams);
      98           33 :   if (qs < 0)
      99            0 :     return qs; /* 0: no inventory management, that's OK! */
     100              :   /* ON DELETE CASCADE deletes from merchant_order_locks */
     101           33 :   PREPARE (pg,
     102              :            "delete_completed_order",
     103              :            "WITH md AS"
     104              :            "  (SELECT merchant_serial"
     105              :            "     FROM merchant_instances"
     106              :            "    WHERE merchant_id=$1) "
     107              :            "DELETE"
     108              :            " FROM merchant_orders"
     109              :            " WHERE order_serial="
     110              :            "       (SELECT order_serial"
     111              :            "          FROM merchant_contract_terms"
     112              :            "          JOIN md USING (merchant_serial)"
     113              :            "         WHERE h_contract_terms=$2)");
     114           33 :   return GNUNET_PQ_eval_prepared_non_select (pg->conn,
     115              :                                              "delete_completed_order",
     116              :                                              uparams);
     117              : }