diff options
Diffstat (limited to 'src/backenddb/pg_lookup_transfers.c')
| -rw-r--r-- | src/backenddb/pg_lookup_transfers.c | 453 |
1 files changed, 453 insertions, 0 deletions
diff --git a/src/backenddb/pg_lookup_transfers.c b/src/backenddb/pg_lookup_transfers.c new file mode 100644 index 00000000..02faca2b --- /dev/null +++ b/src/backenddb/pg_lookup_transfers.c @@ -0,0 +1,453 @@ +/* + This file is part of TALER + Copyright (C) 2022 Taler Systems SA + + TALER is free software; you can redistribute it and/or modify it under the + terms of the GNU General Public License as published by the Free Software + Foundation; either version 3, or (at your option) any later version. + + TALER is distributed in the hope that it will be useful, but WITHOUT ANY + WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR + A PARTICULAR PURPOSE. See the GNU General Public License for more details. + + You should have received a copy of the GNU General Public License along with + TALER; see the file COPYING. If not, see <http://www.gnu.org/licenses/> + */ +/** + * @file backenddb/pg_lookup_transfers.c + * @brief Implementation of the lookup_transfers function for Postgres + * @author Christian Grothoff + */ +#include "platform.h" +#include <taler/taler_error_codes.h> +#include <taler/taler_dbevents.h> +#include <taler/taler_pq_lib.h> +#include "pg_lookup_transfers.h" +#include "pg_helper.h" + + +/** + * Closure for #lookup_transfers_cb(). + */ +struct LookupTransfersContext +{ + /** + * Function to call on results. + */ + TALER_MERCHANTDB_TransferCallback cb; + + /** + * Closure for @e cb. + */ + void *cb_cls; + + /** + * Postgres context. + */ + struct PostgresClosure *pg; + + /** + * Transaction status (set). + */ + enum GNUNET_DB_QueryStatus qs; + + /** + * Filter to apply by verification status. + */ + enum TALER_EXCHANGE_YesNoAll verified; +}; + + +/** + * Function to be called with the results of a SELECT statement + * that has returned @a num_results results. + * + * @param cls of type `struct LookupTransfersContext *` + * @param result the postgres result + * @param num_results the number of results in @a result + */ +static void +lookup_transfers_cb (void *cls, + PGresult *result, + unsigned int num_results) +{ + struct LookupTransfersContext *ltc = cls; + struct PostgresClosure *pg = ltc->pg; + + for (unsigned int i = 0; i<num_results; i++) + { + struct TALER_Amount credit_amount; + struct TALER_WireTransferIdentifierRawP wtid; + char *payto_uri; + char *exchange_url; + uint64_t transfer_serial_id; + struct GNUNET_TIME_Timestamp execution_time; + enum TALER_EXCHANGE_YesNoAll verified; + uint8_t verified8; + uint8_t confirmed8; + struct GNUNET_PQ_ResultSpec rs[] = { + TALER_PQ_RESULT_SPEC_AMOUNT ("credit_amount", + &credit_amount), + GNUNET_PQ_result_spec_auto_from_type ("wtid", + &wtid), + GNUNET_PQ_result_spec_string ("payto_uri", + &payto_uri), + GNUNET_PQ_result_spec_string ("exchange_url", + &exchange_url), + GNUNET_PQ_result_spec_uint64 ("credit_serial", + &transfer_serial_id), + GNUNET_PQ_result_spec_timestamp ("execution_time", + &execution_time), + GNUNET_PQ_result_spec_auto_from_type ("verified", + &verified8), + GNUNET_PQ_result_spec_auto_from_type ("confirmed", + &confirmed8), + GNUNET_PQ_result_spec_end + }; + + if (GNUNET_OK != + GNUNET_PQ_extract_result (result, + rs, + i)) + { + GNUNET_break (0); + ltc->qs = GNUNET_DB_STATUS_HARD_ERROR; + return; + } + if (0 == verified8) + verified = TALER_EXCHANGE_YNA_NO; + else + verified = TALER_EXCHANGE_YNA_YES; + if ( (ltc->verified == TALER_EXCHANGE_YNA_ALL) || + (ltc->verified == verified) ) + { + ltc->cb (ltc->cb_cls, + &credit_amount, + &wtid, + payto_uri, + exchange_url, + transfer_serial_id, + execution_time, + TALER_EXCHANGE_YNA_YES == verified, + 0 != confirmed8); + } + GNUNET_PQ_cleanup_result (rs); + } + ltc->qs = num_results; +} + + +enum GNUNET_DB_QueryStatus +TMH_PG_lookup_transfers (void *cls, + const char *instance_id, + const char *payto_uri, + struct GNUNET_TIME_Timestamp before, + struct GNUNET_TIME_Timestamp after, + int64_t limit, + uint64_t offset, + enum TALER_EXCHANGE_YesNoAll verified, + TALER_MERCHANTDB_TransferCallback cb, + void *cb_cls) +{ + struct PostgresClosure *pg = cls; + uint64_t plimit = (uint64_t) ((limit < 0) ? -limit : limit); + struct LookupTransfersContext ltc = { + .cb = cb, + .cb_cls = cb_cls, + .pg = pg, + .verified = verified + }; + enum GNUNET_DB_QueryStatus qs; + bool by_time; + + by_time = ( (! GNUNET_TIME_absolute_is_never (before.abs_time)) || + (! GNUNET_TIME_absolute_is_zero (after.abs_time)) ); + check_connection (pg); + if (by_time) + { + if (NULL != payto_uri) + { + struct GNUNET_PQ_QueryParam params[] = { + GNUNET_PQ_query_param_string (instance_id), + GNUNET_PQ_query_param_timestamp (&before), + GNUNET_PQ_query_param_timestamp (&after), + GNUNET_PQ_query_param_uint64 (&offset), + GNUNET_PQ_query_param_uint64 (&plimit), + GNUNET_PQ_query_param_string (payto_uri), + GNUNET_PQ_query_param_end + }; + + PREPARE (pg, + "lookup_transfers_time_payto_asc", + "SELECT" + " mt.credit_amount_val" + ",mt.credit_amount_frac" + ",wtid" + ",merchant_accounts.payto_uri" + ",exchange_url" + ",credit_serial" + ",merchant_transfer_signatures.execution_time" + ",verified" + ",confirmed" + " FROM merchant_transfers mt" + " JOIN merchant_accounts USING (account_serial)" + " JOIN merchant_transfer_signatures USING (credit_serial)" + " WHERE execution_time < $2" + " AND execution_time >= $3" + " AND credit_serial > $4" + " AND payto_uri = $6" + " AND merchant_serial =" + " (SELECT merchant_serial" + " FROM merchant_instances" + " WHERE merchant_id=$1)" + " ORDER BY credit_serial ASC" + " LIMIT $5"); + PREPARE (pg, + "lookup_transfers_time_payto_desc", + "SELECT" + " mt.credit_amount_val" + ",mt.credit_amount_frac" + ",wtid" + ",merchant_accounts.payto_uri" + ",exchange_url" + ",credit_serial" + ",merchant_transfer_signatures.execution_time" + ",verified" + ",confirmed" + " FROM merchant_transfers mt" + " JOIN merchant_accounts USING (account_serial)" + " JOIN merchant_transfer_signatures USING (credit_serial)" + " WHERE execution_time < $2" + " AND execution_time >= $3" + " AND credit_serial < $4" + " AND payto_uri = $6" + " AND merchant_serial =" + " (SELECT merchant_serial" + " FROM merchant_instances" + " WHERE merchant_id=$1)" + " ORDER BY credit_serial DESC" + " LIMIT $5"); + qs = GNUNET_PQ_eval_prepared_multi_select ( + pg->conn, + (limit > 0) + ? "lookup_transfers_time_payto_asc" + : "lookup_transfers_time_payto_desc", + params, + &lookup_transfers_cb, + <c); + } + else + { + struct GNUNET_PQ_QueryParam params[] = { + GNUNET_PQ_query_param_string (instance_id), + GNUNET_PQ_query_param_timestamp (&before), + GNUNET_PQ_query_param_timestamp (&after), + GNUNET_PQ_query_param_uint64 (&offset), + GNUNET_PQ_query_param_uint64 (&plimit), + GNUNET_PQ_query_param_end + }; + + PREPARE (pg, + "lookup_transfers_time_asc", + "SELECT" + " mt.credit_amount_val" + ",mt.credit_amount_frac" + ",wtid" + ",merchant_accounts.payto_uri" + ",exchange_url" + ",credit_serial" + ",merchant_transfer_signatures.execution_time" + ",verified" + ",confirmed" + " FROM merchant_transfers mt" + " JOIN merchant_accounts USING (account_serial)" + " JOIN merchant_transfer_signatures USING (credit_serial)" + " WHERE execution_time < $2" + " AND execution_time >= $3" + " AND credit_serial > $4" + " AND merchant_serial =" + " (SELECT merchant_serial" + " FROM merchant_instances" + " WHERE merchant_id=$1)" + " ORDER BY credit_serial ASC" + " LIMIT $5"); + PREPARE (pg, + "lookup_transfers_time_desc", + "SELECT" + " mt.credit_amount_val" + ",mt.credit_amount_frac" + ",wtid" + ",merchant_accounts.payto_uri" + ",exchange_url" + ",credit_serial" + ",merchant_transfer_signatures.execution_time" + ",verified" + ",confirmed" + " FROM merchant_transfers mt" + " JOIN merchant_accounts USING (account_serial)" + " JOIN merchant_transfer_signatures USING (credit_serial)" + " WHERE execution_time < $2" + " AND execution_time >= $3" + " AND credit_serial < $4" + " AND merchant_serial =" + " (SELECT merchant_serial" + " FROM merchant_instances" + " WHERE merchant_id=$1)" + " ORDER BY credit_serial DESC" + " LIMIT $5"); + qs = GNUNET_PQ_eval_prepared_multi_select ( + pg->conn, + (limit > 0) + ? "lookup_transfers_time_asc" + : "lookup_transfers_time_desc", + params, + &lookup_transfers_cb, + <c); + } + } + else + { + if (NULL != payto_uri) + { + struct GNUNET_PQ_QueryParam params[] = { + GNUNET_PQ_query_param_string (instance_id), + GNUNET_PQ_query_param_uint64 (&offset), + GNUNET_PQ_query_param_uint64 (&plimit), + GNUNET_PQ_query_param_string (payto_uri), + GNUNET_PQ_query_param_end + }; + + PREPARE (pg, + "lookup_transfers_payto_asc", + "SELECT" + " mt.credit_amount_val" + ",mt.credit_amount_frac" + ",wtid" + ",merchant_accounts.payto_uri" + ",exchange_url" + ",credit_serial" + ",CASE WHEN (merchant_transfer_signatures.execution_time) IS NULL" + " THEN 9223372036854775807" /* largest BIGINT possible */ + " ELSE merchant_transfer_signatures.execution_time" + " END AS execution_time" + ",verified" + ",confirmed" + " FROM merchant_transfers mt" + " JOIN merchant_accounts USING (account_serial)" + " LEFT JOIN merchant_transfer_signatures USING (credit_serial)" + " WHERE credit_serial > $2" + " AND payto_uri = $4" + " AND merchant_serial =" + " (SELECT merchant_serial" + " FROM merchant_instances" + " WHERE merchant_id=$1)" + " ORDER BY credit_serial ASC" + " LIMIT $3"); + PREPARE (pg, + "lookup_transfers_payto_desc", + "SELECT" + " mt.credit_amount_val" + ",mt.credit_amount_frac" + ",wtid" + ",merchant_accounts.payto_uri" + ",exchange_url" + ",credit_serial" + ",CASE WHEN (merchant_transfer_signatures.execution_time) IS NULL" + " THEN 9223372036854775807" /* largest BIGINT possible */ + " ELSE merchant_transfer_signatures.execution_time" + " END AS execution_time" + ",verified" + ",confirmed" + " FROM merchant_transfers mt" + " JOIN merchant_accounts USING (account_serial)" + " LEFT JOIN merchant_transfer_signatures USING (credit_serial)" + " WHERE credit_serial < $2" + " AND payto_uri = $4" + " AND merchant_serial =" + " (SELECT merchant_serial" + " FROM merchant_instances" + " WHERE merchant_id=$1)" + " ORDER BY credit_serial DESC" + " LIMIT $3"); + qs = GNUNET_PQ_eval_prepared_multi_select ( + pg->conn, + (limit > 0) + ? "lookup_transfers_payto_asc" + : "lookup_transfers_payto_desc", + params, + &lookup_transfers_cb, + <c); + } + else + { + struct GNUNET_PQ_QueryParam params[] = { + GNUNET_PQ_query_param_string (instance_id), + GNUNET_PQ_query_param_uint64 (&offset), + GNUNET_PQ_query_param_uint64 (&plimit), + GNUNET_PQ_query_param_end + }; + + PREPARE (pg, + "lookup_transfers_desc", + "SELECT" + " mt.credit_amount_val" + ",mt.credit_amount_frac" + ",wtid" + ",merchant_accounts.payto_uri" + ",exchange_url" + ",credit_serial" + ",CASE WHEN (merchant_transfer_signatures.execution_time) IS NULL" + " THEN 9223372036854775807" /* largest BIGINT possible */ + " ELSE merchant_transfer_signatures.execution_time" + " END AS execution_time" + ",verified" + ",confirmed" + " FROM merchant_transfers mt" + " JOIN merchant_accounts USING (account_serial)" + " LEFT JOIN merchant_transfer_signatures USING (credit_serial)" + " WHERE credit_serial < $2" + " AND merchant_serial =" + " (SELECT merchant_serial" + " FROM merchant_instances" + " WHERE merchant_id=$1)" + " ORDER BY credit_serial DESC" + " LIMIT $3"); + PREPARE (pg, + "lookup_transfers_asc", + "SELECT" + " mt.credit_amount_val" + ",mt.credit_amount_frac" + ",wtid" + ",merchant_accounts.payto_uri" + ",exchange_url" + ",credit_serial" + ",CASE WHEN (merchant_transfer_signatures.execution_time) IS NULL" + " THEN 9223372036854775807" /* largest BIGINT possible */ + " ELSE merchant_transfer_signatures.execution_time" + " END AS execution_time" + ",verified" + ",confirmed" + " FROM merchant_transfers mt" + " JOIN merchant_accounts USING (account_serial)" + " LEFT JOIN merchant_transfer_signatures USING (credit_serial)" + " WHERE credit_serial > $2" + " AND merchant_serial =" + " (SELECT merchant_serial" + " FROM merchant_instances" + " WHERE merchant_id=$1)" + " ORDER BY credit_serial ASC" + " LIMIT $3"); + qs = GNUNET_PQ_eval_prepared_multi_select ( + pg->conn, + (limit > 0) + ? "lookup_transfers_asc" + : "lookup_transfers_desc", + params, + &lookup_transfers_cb, + <c); + } + } + if (0 >= qs) + return qs; + return ltc.qs; +} |