126 lines
3.1 KiB
PL/PgSQL
126 lines
3.1 KiB
PL/PgSQL
--
|
|
-- This file is part of TALER
|
|
-- Copyright (C) 2014--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/>
|
|
--
|
|
|
|
|
|
|
|
|
|
CREATE OR REPLACE FUNCTION exchange_do_batch_withdraw_insert(
|
|
IN cs_nonce BYTEA,
|
|
IN amount_val INT8,
|
|
IN amount_frac INT4,
|
|
IN h_denom_pub BYTEA,
|
|
IN ruuid INT8,
|
|
IN reserve_sig BYTEA,
|
|
IN h_coin_envelope BYTEA,
|
|
IN denom_sig BYTEA,
|
|
IN now INT8,
|
|
OUT out_denom_unknown BOOLEAN,
|
|
OUT out_nonce_reuse BOOLEAN,
|
|
OUT out_conflict BOOLEAN)
|
|
LANGUAGE plpgsql
|
|
AS $$
|
|
DECLARE
|
|
denom_serial INT8;
|
|
BEGIN
|
|
-- Shards: reserves by reserve_pub (SELECT)
|
|
-- reserves_out (INSERT, with CONFLICT detection) by wih
|
|
-- reserves by reserve_pub (UPDATE)
|
|
-- reserves_in by reserve_pub (SELECT)
|
|
-- wire_targets by wire_target_h_payto
|
|
|
|
out_denom_unknown=TRUE;
|
|
out_conflict=TRUE;
|
|
out_nonce_reuse=TRUE;
|
|
|
|
SELECT denominations_serial
|
|
INTO denom_serial
|
|
FROM exchange.denominations
|
|
WHERE denom_pub_hash=h_denom_pub;
|
|
|
|
IF NOT FOUND
|
|
THEN
|
|
-- denomination unknown, should be impossible!
|
|
out_denom_unknown=TRUE;
|
|
ASSERT false, 'denomination unknown';
|
|
RETURN;
|
|
END IF;
|
|
out_denom_unknown=FALSE;
|
|
|
|
INSERT INTO exchange.reserves_out
|
|
(h_blind_ev
|
|
,denominations_serial
|
|
,denom_sig
|
|
,reserve_uuid
|
|
,reserve_sig
|
|
,execution_date
|
|
,amount_with_fee_val
|
|
,amount_with_fee_frac)
|
|
VALUES
|
|
(h_coin_envelope
|
|
,denom_serial
|
|
,denom_sig
|
|
,ruuid
|
|
,reserve_sig
|
|
,now
|
|
,amount_val
|
|
,amount_frac)
|
|
ON CONFLICT DO NOTHING;
|
|
|
|
IF NOT FOUND
|
|
THEN
|
|
out_conflict=TRUE;
|
|
RETURN;
|
|
END IF;
|
|
out_conflict=FALSE;
|
|
|
|
-- Special actions needed for a CS withdraw?
|
|
out_nonce_reuse=FALSE;
|
|
IF NOT NULL cs_nonce
|
|
THEN
|
|
-- Cache CS signature to prevent replays in the future
|
|
-- (and check if cached signature exists at the same time).
|
|
INSERT INTO exchange.cs_nonce_locks
|
|
(nonce
|
|
,max_denomination_serial
|
|
,op_hash)
|
|
VALUES
|
|
(cs_nonce
|
|
,denom_serial
|
|
,h_coin_envelope)
|
|
ON CONFLICT DO NOTHING;
|
|
|
|
IF NOT FOUND
|
|
THEN
|
|
-- See if the existing entry is identical.
|
|
SELECT 1
|
|
FROM exchange.cs_nonce_locks
|
|
WHERE nonce=cs_nonce
|
|
AND op_hash=h_coin_envelope;
|
|
IF NOT FOUND
|
|
THEN
|
|
out_nonce_reuse=TRUE;
|
|
ASSERT false, 'nonce reuse attempted by client';
|
|
RETURN;
|
|
END IF;
|
|
END IF;
|
|
END IF;
|
|
|
|
END $$;
|
|
|
|
COMMENT ON FUNCTION exchange_do_batch_withdraw_insert(BYTEA, INT8, INT4, BYTEA, INT8, BYTEA, BYTEA, BYTEA, INT8)
|
|
IS 'Stores information about a planchet for a batch withdraw operation. Checks if the planchet already exists, and in that case indicates a conflict';
|
|
|