exchange

Base system with REST service to issue digital coins, run by the payment service provider
Log | Files | Refs | Submodules | README | LICENSE

pg_set_aml_lock.c (2551B)

      1 /*
      2    This file is part of TALER
      3    Copyright (C) 2024 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 exchangedb/pg_set_aml_lock.c
     18  * @brief Implementation of the set_aml_lock function for Postgres
     19  * @author Christian Grothoff
     20  */
     21 #include "taler/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_set_aml_lock.h"
     26 #include "pg_helper.h"
     27 
     28 
     29 enum GNUNET_DB_QueryStatus
     30 TEH_PG_set_aml_lock (
     31   void *cls,
     32   const struct TALER_NormalizedPaytoHashP *h_payto,
     33   struct GNUNET_TIME_Relative lock_duration,
     34   struct GNUNET_TIME_Absolute *existing_lock)
     35 {
     36 
     37   struct PostgresClosure *pg = cls;
     38   struct GNUNET_TIME_Absolute expires
     39     = GNUNET_TIME_relative_to_absolute (lock_duration);
     40   struct GNUNET_TIME_Absolute now
     41     = GNUNET_TIME_absolute_get ();
     42   struct GNUNET_PQ_QueryParam params[] = {
     43     GNUNET_PQ_query_param_auto_from_type (h_payto),
     44     GNUNET_PQ_query_param_absolute_time (&now),
     45     GNUNET_PQ_query_param_absolute_time (&expires),
     46     GNUNET_PQ_query_param_end
     47   };
     48   bool nx; /* true if the *account* is not known */
     49   struct GNUNET_PQ_ResultSpec rs[] = {
     50     GNUNET_PQ_result_spec_allow_null (
     51       GNUNET_PQ_result_spec_absolute_time ("out_aml_program_lock_timeout",
     52                                            existing_lock),
     53       &nx),
     54     GNUNET_PQ_result_spec_end
     55   };
     56   enum GNUNET_DB_QueryStatus qs;
     57 
     58   PREPARE (pg,
     59            "set_aml_lock",
     60            "SELECT out_aml_program_lock_timeout"
     61            "  FROM exchange_do_set_aml_lock($1,$2,$3);");
     62   qs = GNUNET_PQ_eval_prepared_singleton_select (pg->conn,
     63                                                  "set_aml_lock",
     64                                                  params,
     65                                                  rs);
     66   if (qs <= 0)
     67     return qs;
     68   if (nx)
     69   {
     70     *existing_lock = GNUNET_TIME_UNIT_ZERO_ABS;
     71     return GNUNET_DB_STATUS_SUCCESS_NO_RESULTS;
     72   }
     73   return qs;
     74 }