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_delete_order.c
      18              :  * @brief Implementation of the delete_order 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_delete_order.h"
      26              : #include "pg_helper.h"
      27              : 
      28              : enum GNUNET_DB_QueryStatus
      29            6 : TMH_PG_delete_order (void *cls,
      30              :                      const char *instance_id,
      31              :                      const char *order_id,
      32              :                      bool force)
      33              : {
      34            6 :   struct PostgresClosure *pg = cls;
      35            6 :   struct GNUNET_TIME_Absolute now = GNUNET_TIME_absolute_get ();
      36            6 :   struct GNUNET_PQ_QueryParam params[] = {
      37            6 :     GNUNET_PQ_query_param_string (instance_id),
      38            6 :     GNUNET_PQ_query_param_string (order_id),
      39            6 :     GNUNET_PQ_query_param_absolute_time (&now),
      40            6 :     GNUNET_PQ_query_param_bool (force),
      41              :     GNUNET_PQ_query_param_end
      42              :   };
      43            6 :   struct GNUNET_PQ_QueryParam params2[] = {
      44            6 :     GNUNET_PQ_query_param_string (instance_id),
      45            6 :     GNUNET_PQ_query_param_string (order_id),
      46              :     GNUNET_PQ_query_param_end
      47              :   };
      48              :   enum GNUNET_DB_QueryStatus qs;
      49              :   enum GNUNET_DB_QueryStatus qs2;
      50              : 
      51            6 :   check_connection (pg);
      52            6 :   PREPARE (pg,
      53              :            "delete_order",
      54              :            "WITH ms AS"
      55              :            "(SELECT merchant_serial "
      56              :            "   FROM merchant_instances"
      57              :            "  WHERE merchant_id=$1)"
      58              :            ", mc AS"
      59              :            "(SELECT paid"
      60              :            "   FROM merchant_contract_terms"
      61              :            "   JOIN ms USING (merchant_serial)"
      62              :            "  WHERE order_id=$2) "
      63              :            "DELETE"
      64              :            " FROM merchant_orders mo"
      65              :            " WHERE order_id=$2"
      66              :            "   AND merchant_serial=(SELECT merchant_serial FROM ms)"
      67              :            "   AND (  (pay_deadline < $3)"
      68              :            "       OR (NOT EXISTS (SELECT paid FROM mc))"
      69              :            "       OR ($4 AND (FALSE=(SELECT paid FROM mc))) );");
      70            6 :   qs = GNUNET_PQ_eval_prepared_non_select (pg->conn,
      71              :                                            "delete_order",
      72              :                                            params);
      73            6 :   if ( (qs < 0) || (! force) )
      74            6 :     return qs;
      75            0 :   PREPARE (pg,
      76              :            "delete_contract",
      77              :            "DELETE"
      78              :            " FROM merchant_contract_terms"
      79              :            " WHERE order_id=$2 AND"
      80              :            "   merchant_serial="
      81              :            "     (SELECT merchant_serial "
      82              :            "        FROM merchant_instances"
      83              :            "        WHERE merchant_id=$1)"
      84              :            "   AND NOT paid;");
      85            0 :   qs2 = GNUNET_PQ_eval_prepared_non_select (pg->conn,
      86              :                                             "delete_contract",
      87              :                                             params2);
      88            0 :   if (qs2 < 0)
      89            0 :     return qs2;
      90            0 :   if (qs2 > 0)
      91            0 :     return qs2;
      92            0 :   return qs;
      93              : }