122 lines
3.5 KiB
PL/PgSQL
122 lines
3.5 KiB
PL/PgSQL
--
|
|
-- This file is part of TALER
|
|
-- Copyright (C) 2024 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/>
|
|
--
|
|
|
|
DROP FUNCTION IF EXISTS exchange_do_check_deposit_idempotent;
|
|
CREATE FUNCTION exchange_do_check_deposit_idempotent(
|
|
-- For batch_deposits
|
|
IN in_shard INT8,
|
|
IN in_merchant_pub BYTEA,
|
|
IN in_wallet_timestamp INT8,
|
|
IN in_exchange_timestamp INT8,
|
|
IN in_refund_deadline INT8,
|
|
IN in_wire_deadline INT8,
|
|
IN in_h_contract_terms BYTEA,
|
|
IN in_wallet_data_hash BYTEA, -- can be NULL
|
|
IN in_wire_salt BYTEA,
|
|
IN in_wire_target_h_payto BYTEA,
|
|
IN in_policy_details_serial_id INT8, -- can be NULL
|
|
IN in_policy_blocked BOOLEAN,
|
|
-- For coin_deposits
|
|
IN ina_coin_pub BYTEA[],
|
|
IN ina_coin_sig BYTEA[],
|
|
IN ina_amount_with_fee taler_amount[],
|
|
OUT out_exchange_timestamp INT8,
|
|
OUT out_is_idempotent BOOL
|
|
)
|
|
LANGUAGE plpgsql
|
|
AS $$
|
|
DECLARE
|
|
wtsi INT8; -- wire target serial id
|
|
bdsi INT8; -- batch_deposits serial id
|
|
i INT4;
|
|
ini_amount_with_fee taler_amount;
|
|
ini_coin_pub BYTEA;
|
|
ini_coin_sig BYTEA;
|
|
BEGIN
|
|
-- Shards:
|
|
-- SELECT wire_targets (by h_payto);
|
|
-- INSERT batch_deposits (by shard, merchant_pub), ON CONFLICT idempotency check;
|
|
-- PERFORM[] coin_deposits (by coin_pub), ON CONFLICT idempotency check;
|
|
|
|
out_exchange_timestamp = in_exchange_timestamp;
|
|
|
|
-- First, get the 'wtsi'
|
|
SELECT wire_target_serial_id
|
|
INTO wtsi
|
|
FROM wire_targets
|
|
WHERE wire_target_h_payto=in_wire_target_h_payto;
|
|
|
|
IF NOT FOUND
|
|
THEN
|
|
out_is_idempotent = FALSE;
|
|
RETURN;
|
|
END IF;
|
|
|
|
|
|
-- Idempotency check: see if an identical record exists.
|
|
-- We do select over merchant_pub, h_contract_terms and wire_target_h_payto
|
|
-- first to maximally increase the chance of using the existing index.
|
|
SELECT
|
|
exchange_timestamp
|
|
,batch_deposit_serial_id
|
|
INTO
|
|
out_exchange_timestamp
|
|
,bdsi
|
|
FROM batch_deposits
|
|
WHERE shard=in_shard
|
|
AND merchant_pub=in_merchant_pub
|
|
AND h_contract_terms=in_h_contract_terms
|
|
AND wire_target_h_payto=in_wire_target_h_payto
|
|
-- now check the rest, too
|
|
AND ( (wallet_data_hash=in_wallet_data_hash) OR
|
|
(wallet_data_hash IS NULL AND in_wallet_data_hash IS NULL) )
|
|
AND wire_salt=in_wire_salt
|
|
AND wallet_timestamp=in_wallet_timestamp
|
|
AND refund_deadline=in_refund_deadline
|
|
AND wire_deadline=in_wire_deadline
|
|
AND ( (policy_details_serial_id=in_policy_details_serial_id) OR
|
|
(policy_details_serial_id IS NULL AND in_policy_details_serial_id IS NULL) );
|
|
|
|
IF NOT FOUND
|
|
THEN
|
|
out_is_idempotent=FALSE;
|
|
RETURN;
|
|
END IF;
|
|
|
|
|
|
-- Check each coin
|
|
|
|
FOR i IN 1..array_length(ina_coin_pub,1)
|
|
LOOP
|
|
ini_coin_pub = ina_coin_pub[i];
|
|
ini_coin_sig = ina_coin_sig[i];
|
|
ini_amount_with_fee = ina_amount_with_fee[i];
|
|
|
|
PERFORM FROM coin_deposits
|
|
WHERE batch_deposit_serial_id=bdsi
|
|
AND coin_pub=ini_coin_pub
|
|
AND coin_sig=ini_coin_sig
|
|
AND amount_with_fee=ini_amount_with_fee;
|
|
IF NOT FOUND
|
|
THEN
|
|
out_is_idempotent=FALSE;
|
|
RETURN;
|
|
END IF;
|
|
END LOOP; -- end FOR all coins
|
|
|
|
out_is_idempotent=TRUE;
|
|
|
|
END $$;
|