379 lines
10 KiB
C
379 lines
10 KiB
C
/*
|
|
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 lib/exchange_api_lookup_aml_decisions.c
|
|
* @brief Implementation of the /aml/$OFFICER_PUB/decisions request
|
|
* @author Christian Grothoff
|
|
*/
|
|
#include "platform.h"
|
|
#include <microhttpd.h> /* just for HTTP status codes */
|
|
#include <gnunet/gnunet_util_lib.h>
|
|
#include <gnunet/gnunet_curl_lib.h>
|
|
#include "taler_exchange_service.h"
|
|
#include "taler_json_lib.h"
|
|
#include "exchange_api_handle.h"
|
|
#include "taler_signatures.h"
|
|
#include "exchange_api_curl_defaults.h"
|
|
|
|
|
|
/**
|
|
* @brief A /coins/$COIN_PUB/link Handle
|
|
*/
|
|
struct TALER_EXCHANGE_LookupAmlDecisions
|
|
{
|
|
|
|
/**
|
|
* The url for this request.
|
|
*/
|
|
char *url;
|
|
|
|
/**
|
|
* Handle for the request.
|
|
*/
|
|
struct GNUNET_CURL_Job *job;
|
|
|
|
/**
|
|
* Function to call with the result.
|
|
*/
|
|
TALER_EXCHANGE_LookupAmlDecisionsCallback decisions_cb;
|
|
|
|
/**
|
|
* Closure for @e cb.
|
|
*/
|
|
void *decisions_cb_cls;
|
|
|
|
/**
|
|
* HTTP headers for the job.
|
|
*/
|
|
struct curl_slist *job_headers;
|
|
};
|
|
|
|
|
|
/**
|
|
* Parse AML decision summary array.
|
|
*
|
|
* @param decisions JSON array with AML decision summaries
|
|
* @param[out] decision_ar where to write the result
|
|
* @return #GNUNET_OK on success
|
|
*/
|
|
static enum GNUNET_GenericReturnValue
|
|
parse_aml_decisions (const json_t *decisions,
|
|
struct TALER_EXCHANGE_AmlDecisionSummary *decision_ar)
|
|
{
|
|
json_t *obj;
|
|
size_t idx;
|
|
|
|
json_array_foreach (decisions, idx, obj)
|
|
{
|
|
struct TALER_EXCHANGE_AmlDecisionSummary *decision = &decision_ar[idx];
|
|
uint32_t state32;
|
|
struct GNUNET_JSON_Specification spec[] = {
|
|
GNUNET_JSON_spec_fixed_auto ("h_payto",
|
|
&decision->h_payto),
|
|
GNUNET_JSON_spec_uint32 ("current_state",
|
|
&state32),
|
|
TALER_JSON_spec_amount_any ("threshold",
|
|
&decision->threshold),
|
|
GNUNET_JSON_spec_uint64 ("rowid",
|
|
&decision->rowid),
|
|
GNUNET_JSON_spec_end ()
|
|
};
|
|
|
|
if (GNUNET_OK !=
|
|
GNUNET_JSON_parse (obj,
|
|
spec,
|
|
NULL,
|
|
NULL))
|
|
{
|
|
GNUNET_break_op (0);
|
|
return GNUNET_SYSERR;
|
|
}
|
|
decision->current_state = (enum TALER_AmlDecisionState) state32;
|
|
}
|
|
return GNUNET_OK;
|
|
}
|
|
|
|
|
|
/**
|
|
* Parse the provided decision data from the "200 OK" response.
|
|
*
|
|
* @param[in,out] lh handle (callback may be zero'ed out)
|
|
* @param json json reply with the data for one coin
|
|
* @return #GNUNET_OK on success, #GNUNET_SYSERR on error
|
|
*/
|
|
static enum GNUNET_GenericReturnValue
|
|
parse_decisions_ok (struct TALER_EXCHANGE_LookupAmlDecisions *lh,
|
|
const json_t *json)
|
|
{
|
|
struct TALER_EXCHANGE_AmlDecisionsResponse lr = {
|
|
.hr.reply = json,
|
|
.hr.http_status = MHD_HTTP_OK
|
|
};
|
|
const json_t *records;
|
|
struct GNUNET_JSON_Specification spec[] = {
|
|
GNUNET_JSON_spec_array_const ("records",
|
|
&records),
|
|
GNUNET_JSON_spec_end ()
|
|
};
|
|
|
|
if (GNUNET_OK !=
|
|
GNUNET_JSON_parse (json,
|
|
spec,
|
|
NULL,
|
|
NULL))
|
|
{
|
|
GNUNET_break_op (0);
|
|
return GNUNET_SYSERR;
|
|
}
|
|
lr.details.ok.decisions_length = json_array_size (records);
|
|
{
|
|
struct TALER_EXCHANGE_AmlDecisionSummary decisions[
|
|
GNUNET_NZL (lr.details.ok.decisions_length)];
|
|
enum GNUNET_GenericReturnValue ret = GNUNET_SYSERR;
|
|
|
|
lr.details.ok.decisions = decisions;
|
|
ret = parse_aml_decisions (records,
|
|
decisions);
|
|
if (GNUNET_OK == ret)
|
|
{
|
|
lh->decisions_cb (lh->decisions_cb_cls,
|
|
&lr);
|
|
lh->decisions_cb = NULL;
|
|
}
|
|
return ret;
|
|
}
|
|
}
|
|
|
|
|
|
/**
|
|
* Function called when we're done processing the
|
|
* HTTP /aml/$OFFICER_PUB/decisions request.
|
|
*
|
|
* @param cls the `struct TALER_EXCHANGE_LookupAmlDecisions`
|
|
* @param response_code HTTP response code, 0 on error
|
|
* @param response parsed JSON result, NULL on error
|
|
*/
|
|
static void
|
|
handle_lookup_finished (void *cls,
|
|
long response_code,
|
|
const void *response)
|
|
{
|
|
struct TALER_EXCHANGE_LookupAmlDecisions *lh = cls;
|
|
const json_t *j = response;
|
|
struct TALER_EXCHANGE_AmlDecisionsResponse lr = {
|
|
.hr.reply = j,
|
|
.hr.http_status = (unsigned int) response_code
|
|
};
|
|
|
|
lh->job = NULL;
|
|
switch (response_code)
|
|
{
|
|
case 0:
|
|
lr.hr.ec = TALER_EC_GENERIC_INVALID_RESPONSE;
|
|
break;
|
|
case MHD_HTTP_OK:
|
|
if (GNUNET_OK !=
|
|
parse_decisions_ok (lh,
|
|
j))
|
|
{
|
|
GNUNET_break_op (0);
|
|
lr.hr.http_status = 0;
|
|
lr.hr.ec = TALER_EC_GENERIC_REPLY_MALFORMED;
|
|
break;
|
|
}
|
|
GNUNET_assert (NULL == lh->decisions_cb);
|
|
TALER_EXCHANGE_lookup_aml_decisions_cancel (lh);
|
|
return;
|
|
case MHD_HTTP_NO_CONTENT:
|
|
break;
|
|
case MHD_HTTP_BAD_REQUEST:
|
|
lr.hr.ec = TALER_JSON_get_error_code (j);
|
|
lr.hr.hint = TALER_JSON_get_error_hint (j);
|
|
/* This should never happen, either us or the exchange is buggy
|
|
(or API version conflict); just pass JSON reply to the application */
|
|
break;
|
|
case MHD_HTTP_FORBIDDEN:
|
|
lr.hr.ec = TALER_JSON_get_error_code (j);
|
|
lr.hr.hint = TALER_JSON_get_error_hint (j);
|
|
/* Nothing really to verify, exchange says this coin was not melted; we
|
|
should pass the JSON reply to the application */
|
|
break;
|
|
case MHD_HTTP_NOT_FOUND:
|
|
lr.hr.ec = TALER_JSON_get_error_code (j);
|
|
lr.hr.hint = TALER_JSON_get_error_hint (j);
|
|
/* Nothing really to verify, exchange says this coin was not melted; we
|
|
should pass the JSON reply to the application */
|
|
break;
|
|
case MHD_HTTP_INTERNAL_SERVER_ERROR:
|
|
lr.hr.ec = TALER_JSON_get_error_code (j);
|
|
lr.hr.hint = TALER_JSON_get_error_hint (j);
|
|
/* Server had an internal issue; we should retry, but this API
|
|
leaves this to the application */
|
|
break;
|
|
default:
|
|
/* unexpected response code */
|
|
GNUNET_break_op (0);
|
|
lr.hr.ec = TALER_JSON_get_error_code (j);
|
|
lr.hr.hint = TALER_JSON_get_error_hint (j);
|
|
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
|
|
"Unexpected response code %u/%d for lookup AML decisions\n",
|
|
(unsigned int) response_code,
|
|
(int) lr.hr.ec);
|
|
break;
|
|
}
|
|
if (NULL != lh->decisions_cb)
|
|
lh->decisions_cb (lh->decisions_cb_cls,
|
|
&lr);
|
|
TALER_EXCHANGE_lookup_aml_decisions_cancel (lh);
|
|
}
|
|
|
|
|
|
struct TALER_EXCHANGE_LookupAmlDecisions *
|
|
TALER_EXCHANGE_lookup_aml_decisions (
|
|
struct GNUNET_CURL_Context *ctx,
|
|
const char *exchange_url,
|
|
uint64_t start,
|
|
int delta,
|
|
enum TALER_AmlDecisionState state,
|
|
const struct TALER_AmlOfficerPrivateKeyP *officer_priv,
|
|
TALER_EXCHANGE_LookupAmlDecisionsCallback cb,
|
|
void *cb_cls)
|
|
{
|
|
struct TALER_EXCHANGE_LookupAmlDecisions *lh;
|
|
CURL *eh;
|
|
struct TALER_AmlOfficerPublicKeyP officer_pub;
|
|
struct TALER_AmlOfficerSignatureP officer_sig;
|
|
char arg_str[sizeof (struct TALER_AmlOfficerPublicKeyP) * 2 + 32];
|
|
const char *state_str = NULL;
|
|
|
|
switch (state)
|
|
{
|
|
case TALER_AML_NORMAL:
|
|
state_str = "normal";
|
|
break;
|
|
case TALER_AML_PENDING:
|
|
state_str = "pending";
|
|
break;
|
|
case TALER_AML_FROZEN:
|
|
state_str = "frozen";
|
|
break;
|
|
}
|
|
GNUNET_assert (NULL != state_str);
|
|
GNUNET_CRYPTO_eddsa_key_get_public (&officer_priv->eddsa_priv,
|
|
&officer_pub.eddsa_pub);
|
|
TALER_officer_aml_query_sign (officer_priv,
|
|
&officer_sig);
|
|
{
|
|
char pub_str[sizeof (officer_pub) * 2];
|
|
char *end;
|
|
|
|
end = GNUNET_STRINGS_data_to_string (
|
|
&officer_pub,
|
|
sizeof (officer_pub),
|
|
pub_str,
|
|
sizeof (pub_str));
|
|
*end = '\0';
|
|
GNUNET_snprintf (arg_str,
|
|
sizeof (arg_str),
|
|
"aml/%s/decisions/%s",
|
|
pub_str,
|
|
state_str);
|
|
}
|
|
lh = GNUNET_new (struct TALER_EXCHANGE_LookupAmlDecisions);
|
|
lh->decisions_cb = cb;
|
|
lh->decisions_cb_cls = cb_cls;
|
|
{
|
|
char delta_s[24];
|
|
char start_s[24];
|
|
|
|
GNUNET_snprintf (delta_s,
|
|
sizeof (delta_s),
|
|
"%d",
|
|
delta);
|
|
GNUNET_snprintf (start_s,
|
|
sizeof (start_s),
|
|
"%llu",
|
|
(unsigned long long) start);
|
|
lh->url = TALER_url_join (exchange_url,
|
|
arg_str,
|
|
"delta",
|
|
delta_s,
|
|
"start",
|
|
start_s,
|
|
NULL);
|
|
}
|
|
if (NULL == lh->url)
|
|
{
|
|
GNUNET_free (lh);
|
|
return NULL;
|
|
}
|
|
eh = TALER_EXCHANGE_curl_easy_get_ (lh->url);
|
|
if (NULL == eh)
|
|
{
|
|
GNUNET_break (0);
|
|
GNUNET_free (lh->url);
|
|
GNUNET_free (lh);
|
|
return NULL;
|
|
}
|
|
{
|
|
char *hdr;
|
|
char sig_str[sizeof (officer_sig) * 2];
|
|
char *end;
|
|
|
|
end = GNUNET_STRINGS_data_to_string (
|
|
&officer_sig,
|
|
sizeof (officer_sig),
|
|
sig_str,
|
|
sizeof (sig_str));
|
|
*end = '\0';
|
|
|
|
GNUNET_asprintf (&hdr,
|
|
"%s: %s",
|
|
TALER_AML_OFFICER_SIGNATURE_HEADER,
|
|
sig_str);
|
|
lh->job_headers = curl_slist_append (NULL,
|
|
hdr);
|
|
GNUNET_free (hdr);
|
|
lh->job_headers = curl_slist_append (lh->job_headers,
|
|
"Content-type: application/json");
|
|
lh->job = GNUNET_CURL_job_add2 (ctx,
|
|
eh,
|
|
lh->job_headers,
|
|
&handle_lookup_finished,
|
|
lh);
|
|
}
|
|
return lh;
|
|
}
|
|
|
|
|
|
void
|
|
TALER_EXCHANGE_lookup_aml_decisions_cancel (
|
|
struct TALER_EXCHANGE_LookupAmlDecisions *lh)
|
|
{
|
|
if (NULL != lh->job)
|
|
{
|
|
GNUNET_CURL_job_cancel (lh->job);
|
|
lh->job = NULL;
|
|
}
|
|
curl_slist_free_all (lh->job_headers);
|
|
GNUNET_free (lh->url);
|
|
GNUNET_free (lh);
|
|
}
|
|
|
|
|
|
/* end of exchange_api_lookup_aml_decisions.c */
|