mark_contract_paid.c (4641B)
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 src/backenddb/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_pq_lib.h> 23 #include "merchant-database/mark_contract_paid.h" 24 #include "helper.h" 25 26 27 enum GNUNET_DB_QueryStatus 28 TALER_MERCHANTDB_mark_contract_paid ( 29 struct TALER_MERCHANTDB_PostgresContext *pg, 30 const char *instance_id, 31 const struct TALER_PrivateContractHashP *h_contract_terms, 32 const char *session_id, 33 int16_t choice_index) 34 { 35 struct GNUNET_PQ_QueryParam params[] = { 36 GNUNET_PQ_query_param_auto_from_type (h_contract_terms), 37 GNUNET_PQ_query_param_string (session_id), 38 (choice_index >= 0) 39 ? GNUNET_PQ_query_param_int16 (&choice_index) 40 : GNUNET_PQ_query_param_null (), 41 GNUNET_PQ_query_param_end 42 }; 43 struct GNUNET_PQ_QueryParam uparams[] = { 44 GNUNET_PQ_query_param_auto_from_type (h_contract_terms), 45 GNUNET_PQ_query_param_end 46 }; 47 enum GNUNET_DB_QueryStatus qs; 48 49 /* Session ID must always be given by the caller. */ 50 GNUNET_assert (NULL != session_id); 51 GNUNET_assert (NULL != pg->current_merchant_id); 52 GNUNET_assert (0 == strcmp (instance_id, 53 pg->current_merchant_id)); 54 55 /* FIXME: combine the 3 individual statements into a stored procedure! */ 56 /* no preflight check here, run in transaction by caller! */ 57 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 TMH_PQ_prepare_anon (pg, 63 "UPDATE merchant_contract_terms SET" 64 " paid=TRUE" 65 ",session_id=$2" 66 ",choice_index=$3" 67 " WHERE h_contract_terms=$1"); 68 qs = GNUNET_PQ_eval_prepared_non_select (pg->conn, 69 "", 70 params); 71 if (qs <= 0) 72 return qs; 73 TMH_PQ_prepare_anon (pg, 74 "UPDATE merchant_inventory SET" 75 " total_sold = total_sold" 76 " + order_locks.total_locked" 77 " + ((merchant_inventory.total_sold_frac::BIGINT" 78 " + order_locks.total_locked_frac::BIGINT) / 1000000)" 79 " ,total_sold_frac =" 80 " ((merchant_inventory.total_sold_frac::BIGINT" 81 " + order_locks.total_locked_frac::BIGINT) % 1000000)::INT4" 82 " FROM (SELECT total_locked,total_locked_frac,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=$1)" 88 " ) AS order_locks" 89 " WHERE merchant_inventory.product_serial" 90 " =order_locks.product_serial"); 91 qs = GNUNET_PQ_eval_prepared_non_select (pg->conn, 92 "", 93 uparams); 94 if (qs < 0) 95 return qs; /* 0: no inventory management, that's OK! */ 96 /* ON DELETE CASCADE deletes from merchant_order_locks */ 97 TMH_PQ_prepare_anon (pg, 98 "DELETE" 99 " FROM merchant_orders" 100 " WHERE order_serial=" 101 " (SELECT order_serial" 102 " FROM merchant_contract_terms" 103 " WHERE h_contract_terms=$1)"); 104 return GNUNET_PQ_eval_prepared_non_select (pg->conn, 105 "", 106 uparams); 107 }