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