anastasis-db_check_truth_upload_paid.c (2401B)
1 /* 2 This file is part of Anastasis 3 Copyright (C) 2020-2022 Anastasis SARL 4 5 Anastasis is free software; you can redistribute it and/or modify it under the 6 terms of the GNU Affero General Public License as published by the Free Software 7 Foundation; either version 3, or (at your option) any later version. 8 9 Anastasis 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 Affero General Public License for more details. 12 13 You should have received a copy of the GNU Affero General Public License along with 14 Anastasis; see the file COPYING.GPL. If not, see <http://www.gnu.org/licenses/> 15 */ 16 /** 17 * @file stasis/anastasis-db_check_truth_upload_paid.c 18 * @brief Anastasis database: check truth upload paid 19 * @author Christian Grothoff 20 */ 21 #include "platform.h" 22 #include "anastasis-db_pg.h" 23 #include "anastasis/anastasis-database/check_truth_upload_paid.h" 24 #include "anastasis/anastasis-database/transaction.h" 25 #include "anastasis/anastasis-database/preflight.h" 26 #include <taler/taler_pq_lib.h> 27 28 29 /** 30 * Inquire whether truth upload payment was made. 31 * 32 * @param uuid the truth's UUID 33 * @param[out] paid_until set for how long this truth is paid for 34 * @return transaction status 35 */ 36 enum GNUNET_DB_QueryStatus 37 ANASTASIS_DB_check_truth_upload_paid ( 38 const struct ANASTASIS_CRYPTO_TruthUUIDP *uuid, 39 struct GNUNET_TIME_Timestamp *paid_until) 40 { 41 struct GNUNET_TIME_Timestamp now = GNUNET_TIME_timestamp_get (); 42 struct GNUNET_PQ_QueryParam params[] = { 43 GNUNET_PQ_query_param_auto_from_type (uuid), 44 GNUNET_PQ_query_param_timestamp (&now), 45 GNUNET_PQ_query_param_end 46 }; 47 struct GNUNET_PQ_ResultSpec rs[] = { 48 GNUNET_PQ_result_spec_timestamp ("expiration", 49 paid_until), 50 GNUNET_PQ_result_spec_end 51 }; 52 53 PREPARE ("truth_payment_select", 54 "SELECT" 55 " expiration" 56 " FROM anastasis_truth_payment" 57 " WHERE truth_uuid=$1" 58 " AND expiration>$2;"); 59 return GNUNET_PQ_eval_prepared_singleton_select (pg->conn, 60 "truth_payment_select", 61 params, 62 rs); 63 } 64 65 66 /* end of anastasis-db_check_truth_upload_paid.c */