/*
This file is part of TALER
Copyright (C) 2014-2021 Taler Systems SA
TALER is free software; you can redistribute it and/or modify
it under the terms of the GNU Lesser General Public License as
published by the Free Software Foundation; either version 2.1,
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 Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General
Public License along with TALER; see the file COPYING.LGPL.
If not, see
*/
/**
* @file merchant_api_post_order_abort.c
* @brief Implementation of the POST /orders/$ID/abort request
* of the merchant's HTTP API
* @author Christian Grothoff
* @author Marcello Stanisci
*/
#include "platform.h"
#include
#include
#include /* just for HTTP status codes */
#include
#include
#include "taler_merchant_service.h"
#include "merchant_api_curl_defaults.h"
#include "merchant_api_common.h"
#include
#include
#include
#include
/**
* @brief An abort Handle
*/
struct TALER_MERCHANT_OrderAbortHandle
{
/**
* Hash of the contract.
*/
struct TALER_PrivateContractHashP h_contract_terms;
/**
* Public key of the merchant.
*/
struct TALER_MerchantPublicKeyP merchant_pub;
/**
* The url for this request.
*/
char *url;
/**
* Handle for the request.
*/
struct GNUNET_CURL_Job *job;
/**
* Function to call with the result.
*/
TALER_MERCHANT_AbortCallback abort_cb;
/**
* Closure for @a abort_cb.
*/
void *abort_cb_cls;
/**
* Reference to the execution context.
*/
struct GNUNET_CURL_Context *ctx;
/**
* Minor context that holds body and headers.
*/
struct TALER_CURL_PostContext post_ctx;
/**
* The coins we are aborting on.
*/
struct TALER_MERCHANT_AbortCoin *coins;
/**
* Number of @e coins we are paying with.
*/
unsigned int num_coins;
};
/**
* Check that the response for an abort is well-formed,
* and call the application callback with the result if it is
* OK. Otherwise returns #GNUNET_SYSERR.
*
* @param oah handle to operation that created the reply
* @param json the reply to parse
* @return #GNUNET_OK on success
*/
static int
check_abort_refund (struct TALER_MERCHANT_OrderAbortHandle *oah,
const json_t *json)
{
json_t *refunds;
unsigned int num_refunds;
struct GNUNET_JSON_Specification spec[] = {
GNUNET_JSON_spec_json ("refunds", &refunds),
GNUNET_JSON_spec_end ()
};
if (GNUNET_OK !=
GNUNET_JSON_parse (json,
spec,
NULL, NULL))
{
GNUNET_break_op (0);
return GNUNET_SYSERR;
}
if (! json_is_array (refunds))
{
GNUNET_break_op (0);
GNUNET_JSON_parse_free (spec);
return GNUNET_SYSERR;
}
num_refunds = json_array_size (refunds);
{
struct TALER_MERCHANT_AbortedCoin res[GNUNET_NZL (num_refunds)];
for (unsigned int i = 0; ih_contract_terms,
&oah->coins[i].coin_pub,
&oah->merchant_pub,
0, /* transaction id */
&oah->coins[i].amount_with_fee,
&res[i].exchange_pub,
&res[i].exchange_sig))
{
GNUNET_break_op (0);
GNUNET_JSON_parse_free (spec);
return GNUNET_SYSERR;
}
}
}
{
struct TALER_MERCHANT_HttpResponse hr = {
.reply = json,
.http_status = MHD_HTTP_OK
};
oah->abort_cb (oah->abort_cb_cls,
&hr,
&oah->merchant_pub,
num_refunds,
res);
}
oah->abort_cb = NULL;
}
GNUNET_JSON_parse_free (spec);
return GNUNET_OK;
}
/**
* Function called when we're done processing the
* abort request.
*
* @param cls the `struct TALER_MERCHANT_OrderAbortHandle`
* @param response_code HTTP response code, 0 on error
* @param response response body, NULL if not in JSON
*/
static void
handle_abort_finished (void *cls,
long response_code,
const void *response)
{
struct TALER_MERCHANT_OrderAbortHandle *oah = cls;
const json_t *json = response;
struct TALER_MERCHANT_HttpResponse hr = {
.http_status = (unsigned int) response_code,
.reply = json
};
oah->job = NULL;
GNUNET_log (GNUNET_ERROR_TYPE_INFO,
"/pay completed with response code %u\n",
(unsigned int) response_code);
switch (response_code)
{
case 0:
hr.ec = TALER_EC_GENERIC_INVALID_RESPONSE;
break;
case MHD_HTTP_OK:
if (GNUNET_OK ==
check_abort_refund (oah,
json))
{
TALER_MERCHANT_order_abort_cancel (oah);
return;
}
hr.http_status = 0;
hr.ec = TALER_EC_GENERIC_INVALID_RESPONSE;
break;
case MHD_HTTP_BAD_REQUEST:
hr.ec = TALER_JSON_get_error_code (json);
hr.hint = TALER_JSON_get_error_hint (json);
/* This should never happen, either us or the
merchant is buggy (or API version conflict); just
pass JSON reply to the application */
break;
case MHD_HTTP_FORBIDDEN:
hr.ec = TALER_JSON_get_error_code (json);
hr.hint = TALER_JSON_get_error_hint (json);
break;
case MHD_HTTP_NOT_FOUND:
hr.ec = TALER_JSON_get_error_code (json);
hr.hint = TALER_JSON_get_error_hint (json);
/* Nothing really to verify, this should never
happen, we should pass the JSON reply to the
application */
break;
case MHD_HTTP_REQUEST_TIMEOUT:
hr.ec = TALER_JSON_get_error_code (json);
hr.hint = TALER_JSON_get_error_hint (json);
/* Nothing really to verify, merchant says one of
the signatures is invalid; as we checked them,
this should never happen, we should pass the JSON
reply to the application */
break;
case MHD_HTTP_PRECONDITION_FAILED:
/* Our *payment* already succeeded fully. */
hr.ec = TALER_JSON_get_error_code (json);
hr.hint = TALER_JSON_get_error_hint (json);
break;
case MHD_HTTP_INTERNAL_SERVER_ERROR:
hr.ec = TALER_JSON_get_error_code (json);
hr.hint = TALER_JSON_get_error_hint (json);
/* Server had an internal issue; we should retry,
but this API leaves this to the application */
break;
case MHD_HTTP_BAD_GATEWAY:
TALER_MERCHANT_parse_error_details_ (json,
response_code,
&hr);
/* Nothing really to verify, the merchant is blaming the exchange.
We should pass the JSON reply to the application */
break;
default:
/* unexpected response code */
TALER_MERCHANT_parse_error_details_ (json,
response_code,
&hr);
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Unexpected response code %u/%d\n",
(unsigned int) response_code,
(int) hr.ec);
GNUNET_break_op (0);
break;
}
oah->abort_cb (oah->abort_cb_cls,
&hr,
NULL,
0,
NULL);
TALER_MERCHANT_order_abort_cancel (oah);
}
struct TALER_MERCHANT_OrderAbortHandle *
TALER_MERCHANT_order_abort (struct GNUNET_CURL_Context *ctx,
const char *merchant_url,
const char *order_id,
const struct TALER_MerchantPublicKeyP *merchant_pub,
const struct TALER_PrivateContractHashP *h_contract,
unsigned int num_coins,
const struct TALER_MERCHANT_AbortCoin coins[],
TALER_MERCHANT_AbortCallback cb,
void *cb_cls)
{
struct TALER_MERCHANT_OrderAbortHandle *oah;
json_t *abort_obj;
json_t *j_coins;
j_coins = json_array ();
if (NULL == j_coins)
{
GNUNET_break (0);
return NULL;
}
for (unsigned int i = 0; icoin_pub),
TALER_JSON_pack_amount ("contribution",
&ac->amount_with_fee),
GNUNET_JSON_pack_string ("exchange_url",
ac->exchange_url));
if (0 !=
json_array_append_new (j_coins,
j_coin))
{
GNUNET_break (0);
json_decref (j_coins);
return NULL;
}
}
abort_obj = GNUNET_JSON_PACK (
GNUNET_JSON_pack_array_steal ("coins",
j_coins),
GNUNET_JSON_pack_data_auto ("h_contract",
h_contract));
oah = GNUNET_new (struct TALER_MERCHANT_OrderAbortHandle);
oah->h_contract_terms = *h_contract;
oah->merchant_pub = *merchant_pub;
oah->ctx = ctx;
oah->abort_cb = cb;
oah->abort_cb_cls = cb_cls;
{
char *path;
GNUNET_asprintf (&path,
"orders/%s/abort",
order_id);
oah->url = TALER_url_join (merchant_url,
path,
NULL);
GNUNET_free (path);
}
if (NULL == oah->url)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Could not construct request URL.\n");
json_decref (abort_obj);
GNUNET_free (oah);
return NULL;
}
oah->num_coins = num_coins;
oah->coins = GNUNET_new_array (num_coins,
struct TALER_MERCHANT_AbortCoin);
memcpy (oah->coins,
coins,
num_coins * sizeof (struct TALER_MERCHANT_AbortCoin));
{
CURL *eh;
eh = TALER_MERCHANT_curl_easy_get_ (oah->url);
if (GNUNET_OK !=
TALER_curl_easy_post (&oah->post_ctx,
eh,
abort_obj))
{
GNUNET_break (0);
curl_easy_cleanup (eh);
json_decref (abort_obj);
GNUNET_free (oah);
return NULL;
}
json_decref (abort_obj);
oah->job = GNUNET_CURL_job_add2 (ctx,
eh,
oah->post_ctx.headers,
&handle_abort_finished,
oah);
}
return oah;
}
void
TALER_MERCHANT_order_abort_cancel (struct TALER_MERCHANT_OrderAbortHandle *oah)
{
if (NULL != oah->job)
{
GNUNET_CURL_job_cancel (oah->job);
oah->job = NULL;
}
TALER_curl_easy_post_finished (&oah->post_ctx);
GNUNET_free (oah->coins);
GNUNET_free (oah->url);
GNUNET_free (oah);
}
/* end of merchant_api_post_order_abort.c */