/*
   This file is part of TALER
   Copyright (C) 2023 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 src/donaudb/insert_receipts_submitted.c
 * @brief Implementation of the insert_receipts_submitted function for Postgres
 * @author Johannes Casaburi
 */
#include <donau_config.h>
#include <taler/taler_error_codes.h>
#include <taler/taler_dbevents.h>
#include <taler/taler_pq_lib.h>
#include "insert_receipts_submitted.h"
#include "helper.h"
#include "donau_service.h"
#include "donau_pq_lib.h"


enum GNUNET_DB_QueryStatus
DONAUDB_insert_receipts_submitted (
  struct DONAUDB_PostgresContext *ctx,
  struct DONAU_HashDonorTaxId *h_donor_tax_id,
  size_t num_dr,
  const struct DONAU_DonationReceipt donation_receipts[static num_dr],
  uint64_t donation_year,
  size_t *conflict_index,
  size_t *unknown_du_index)
{
  struct GNUNET_HashCode h_donation_unit_pubs[GNUNET_NZL (num_dr)];
  struct DONAU_UniqueDonorIdentifierNonce nonces[GNUNET_NZL (num_dr)];
  struct DONAU_DonationUnitSignature donation_unit_sigs[GNUNET_NZL (num_dr)];
  struct GNUNET_PQ_QueryParam params[] = {
    GNUNET_PQ_query_param_auto_from_type (h_donor_tax_id),
    GNUNET_PQ_query_param_array_auto_from_type (num_dr,
                                                h_donation_unit_pubs,
                                                ctx->conn),
    GNUNET_PQ_query_param_array_auto_from_type (num_dr,
                                                nonces,
                                                ctx->conn),
    DONAU_PQ_query_param_array_donation_unit_sig (num_dr,
                                                  donation_unit_sigs,
                                                  ctx->conn),
    GNUNET_PQ_query_param_uint64 (&donation_year),
    GNUNET_PQ_query_param_end
  };
  bool *conflicted = NULL;
  size_t num_conflicted = num_dr;
  uint32_t unknown_du;
  struct GNUNET_PQ_ResultSpec rs[] = {
    GNUNET_PQ_result_spec_array_bool (ctx->conn,
                                      "conflicted",
                                      &num_conflicted,
                                      &conflicted),
    GNUNET_PQ_result_spec_uint32 ("unknown_du",
                                  &unknown_du),
    GNUNET_PQ_result_spec_end
  };
  enum GNUNET_DB_QueryStatus qs;

  *conflict_index = num_dr;
  *unknown_du_index = num_dr;
  for (unsigned int i = 0; i < num_dr; i++)
  {
    const struct DONAU_DonationReceipt *dr = &donation_receipts[i];

    h_donation_unit_pubs[i] = dr->h_donation_unit_pub.hash;
    nonces[i] = dr->nonce;
    donation_unit_sigs[i] = dr->donation_unit_sig;
    GNUNET_log (GNUNET_ERROR_TYPE_INFO,
                "Do insert submitted receipt\n");
  }

  PREPARE (ctx,
           "insert_receipts_submitted",
           "SELECT "
           " out_conflict AS conflicted"
           ",out_unknown_du AS unknown_du"
           " FROM do_insert_submitted_receipts"
           "($1,$2,$3,$4,$5);");
  qs = GNUNET_PQ_eval_prepared_singleton_select (ctx->conn,
                                                 "insert_receipts_submitted",
                                                 params,
                                                 rs);
  GNUNET_PQ_cleanup_query_params_closures (params);
  if (qs > 0)
  {
    if (0 != unknown_du)
    {
      /* Nothing was written; the batch names a donation unit we do not
         know.  Report it instead of letting the foreign key violation
         escape as a hard error. */
      *unknown_du_index = (size_t) (unknown_du - 1);
      GNUNET_free (conflicted);
      GNUNET_PQ_cleanup_result (rs);
      return qs;
    }
    for (size_t i = 0; i < num_conflicted; i++)
    {
      /* NOTE: `conflicted[i]' is TRUE only for the *non*-idempotent case,
         i.e. the row was not inserted AND the stored row is not this
         donor's.  That receipt was dropped and the caller must be told. */
      if (conflicted[i])
      {
        GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
                    "Submitted donation receipt at index %llu conflicts with an existing entry!\n",
                    (unsigned long long) i);
        if (num_dr == *conflict_index)
          *conflict_index = i;
      }
    }
  }
  GNUNET_free (conflicted);
  GNUNET_PQ_cleanup_result (rs);
  return qs;
}
