merchant

merchant_api_get-private-donau.c (9025B)

---

 /*
   This file is part of TALER
   Copyright (C) 2024-2026 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
   <http://www.gnu.org/licenses/>
 */
 /**
  * @file src/lib/merchant_api_get-private-donau.c
  * @brief Implementation of the GET /private/donau request
  * @author Christian Grothoff
  */
 #include "platform.h"
 #include <curl/curl.h>
 #include <jansson.h>
 #include <microhttpd.h> /* just for HTTP status codes */
 #include <gnunet/gnunet_util_lib.h>
 #include <gnunet/gnunet_curl_lib.h>
 #include <taler/merchant/get-private-donau.h>
 #include "merchant_api_curl_defaults.h"
 #include <taler/taler_json_lib.h>
 
 
 /**
  * Maximum number of Donau instances permitted.
  */
 #define MAX_DONAU_INSTANCES 1024
 
 
 /**
  * Handle for a GET /private/donau operation.
  */
 struct TALER_MERCHANT_GetPrivateDonauHandle
 {
   /**
    * Base URL of the merchant backend.
    */
   char *base_url;
 
   /**
    * The full URL for this request.
    */
   char *url;
 
   /**
    * Handle for the request.
    */
   struct GNUNET_CURL_Job *job;
 
   /**
    * Function to call with the result.
    */
   TALER_MERCHANT_GetPrivateDonauCallback cb;
 
   /**
    * Closure for @a cb.
    */
   TALER_MERCHANT_GET_PRIVATE_DONAU_RESULT_CLOSURE *cb_cls;
 
   /**
    * Reference to the execution context.
    */
   struct GNUNET_CURL_Context *ctx;
 };
 
 
 /**
  * Parse Donau instance information from @a ia.
  *
  * @param ia JSON array (or NULL!) with Donau instance data
  * @param[in] dgr partially filled response
  * @param gpdh operation handle
  * @return #GNUNET_OK on success
  */
 static enum GNUNET_GenericReturnValue
 parse_donau_instances (
   const json_t *ia,
   struct TALER_MERCHANT_GetPrivateDonauResponse *dgr,
   struct TALER_MERCHANT_GetPrivateDonauHandle *gpdh)
 {
   unsigned int instances_len = (unsigned int) json_array_size (ia);
 
   if ( (json_array_size (ia) != (size_t) instances_len) ||
        (instances_len > MAX_DONAU_INSTANCES) )
   {
     GNUNET_break (0);
     return GNUNET_SYSERR;
   }
   {
     struct TALER_MERCHANT_GetPrivateDonauDonauInstanceEntry instances[
       GNUNET_NZL (instances_len)];
     enum GNUNET_GenericReturnValue ret = GNUNET_OK;
     size_t index;
     json_t *value;
 
     memset (instances,
             0,
             sizeof (instances));
     json_array_foreach (ia, index, value) {
       struct TALER_MERCHANT_GetPrivateDonauDonauInstanceEntry *instance =
         &instances[index];
       const json_t *donau_keys_json = NULL;
       struct GNUNET_JSON_Specification spec[] = {
         GNUNET_JSON_spec_uint64 ("donau_instance_serial",
                                  &instance->donau_instance_serial),
         GNUNET_JSON_spec_string ("donau_url",
                                  &instance->donau_url),
         GNUNET_JSON_spec_string ("charity_name",
                                  &instance->charity_name),
         GNUNET_JSON_spec_fixed_auto ("charity_pub_key",
                                      &instance->charity_pub_key),
         GNUNET_JSON_spec_uint64 ("charity_id",
                                  &instance->charity_id),
         TALER_JSON_spec_amount_any ("charity_max_per_year",
                                     &instance->charity_max_per_year),
         TALER_JSON_spec_amount_any ("charity_receipts_to_date",
                                     &instance->charity_receipts_to_date),
         GNUNET_JSON_spec_int64 ("current_year",
                                 &instance->current_year),
         GNUNET_JSON_spec_mark_optional (
           GNUNET_JSON_spec_object_const ("donau_keys_json",
                                          &donau_keys_json),
           NULL),
         GNUNET_JSON_spec_end ()
       };
 
       if (GNUNET_OK !=
           GNUNET_JSON_parse (value,
                              spec,
                              NULL, NULL))
       {
         GNUNET_break_op (0);
         ret = GNUNET_SYSERR;
         break;
       }
 
       /* Parse the Donau keys */
       if (NULL != donau_keys_json)
       {
         instance->donau_keys = DONAU_keys_from_json (donau_keys_json);
         if (NULL == instance->donau_keys)
         {
           GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                       "Failed to convert donau keys from JSON\n");
           ret = GNUNET_SYSERR;
           break;
         }
       }
     }
     if (GNUNET_OK == ret)
     {
       dgr->details.ok.donau_instances_length = instances_len;
       dgr->details.ok.donau_instances = instances;
       gpdh->cb (gpdh->cb_cls,
                 dgr);
       gpdh->cb = NULL;
     }
     for (unsigned int i = 0; i < instances_len; i++)
       DONAU_keys_decref ((struct DONAU_Keys *) instances[i].donau_keys);
     return ret;
   }
 }
 
 
 /**
  * Function called when we're done processing the
  * HTTP GET /private/donau request.
  *
  * @param cls the `struct TALER_MERCHANT_GetPrivateDonauHandle`
  * @param response_code HTTP response code, 0 on error
  * @param response response body, NULL if not in JSON
  */
 static void
 handle_get_donau_finished (void *cls,
                            long response_code,
                            const void *response)
 {
   struct TALER_MERCHANT_GetPrivateDonauHandle *gpdh = cls;
   const json_t *json = response;
   struct TALER_MERCHANT_GetPrivateDonauResponse dgr = {
     .hr.http_status = (unsigned int) response_code,
     .hr.reply = json
   };
 
   gpdh->job = NULL;
   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
               "Got /private/donau response with status code %u\n",
               (unsigned int) response_code);
   switch (response_code)
   {
   case MHD_HTTP_OK:
     {
       const json_t *donau_instances;
       struct GNUNET_JSON_Specification spec[] = {
         GNUNET_JSON_spec_array_const ("donau_instances",
                                       &donau_instances),
         GNUNET_JSON_spec_end ()
       };
 
       if (GNUNET_OK !=
           GNUNET_JSON_parse (json,
                              spec,
                              NULL, NULL))
       {
         dgr.hr.http_status = 0;
         dgr.hr.ec = TALER_EC_GENERIC_INVALID_RESPONSE;
         break;
       }
       if (GNUNET_OK ==
           parse_donau_instances (donau_instances,
                                  &dgr,
                                  gpdh))
       {
         TALER_MERCHANT_get_private_donau_cancel (gpdh);
         return;
       }
       dgr.hr.http_status = 0;
       dgr.hr.ec = TALER_EC_GENERIC_INVALID_RESPONSE;
       break;
     }
   case MHD_HTTP_UNAUTHORIZED:
   case MHD_HTTP_NOT_FOUND:
     dgr.hr.ec = TALER_JSON_get_error_code (json);
     dgr.hr.hint = TALER_JSON_get_error_hint (json);
     break;
   default:
     dgr.hr.ec = TALER_JSON_get_error_code (json);
     dgr.hr.hint = TALER_JSON_get_error_hint (json);
     GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                 "Unexpected response code %u/%d\n",
                 (unsigned int) response_code,
                 (int) dgr.hr.ec);
     break;
   }
   gpdh->cb (gpdh->cb_cls,
             &dgr);
   TALER_MERCHANT_get_private_donau_cancel (gpdh);
 }
 
 
 struct TALER_MERCHANT_GetPrivateDonauHandle *
 TALER_MERCHANT_get_private_donau_create (
   struct GNUNET_CURL_Context *ctx,
   const char *url)
 {
   struct TALER_MERCHANT_GetPrivateDonauHandle *gpdh;
 
   gpdh = GNUNET_new (struct TALER_MERCHANT_GetPrivateDonauHandle);
   gpdh->ctx = ctx;
   gpdh->base_url = GNUNET_strdup (url);
   return gpdh;
 }
 
 
 enum TALER_ErrorCode
 TALER_MERCHANT_get_private_donau_start (
   struct TALER_MERCHANT_GetPrivateDonauHandle *gpdh,
   TALER_MERCHANT_GetPrivateDonauCallback cb,
   TALER_MERCHANT_GET_PRIVATE_DONAU_RESULT_CLOSURE *cb_cls)
 {
   CURL *eh;
 
   gpdh->cb = cb;
   gpdh->cb_cls = cb_cls;
   gpdh->url = TALER_url_join (gpdh->base_url,
                               "private/donau",
                               NULL);
   if (NULL == gpdh->url)
     return TALER_EC_GENERIC_CONFIGURATION_INVALID;
   eh = TALER_MERCHANT_curl_easy_get_ (gpdh->url);
   if (NULL == eh)
     return TALER_EC_GENERIC_CONFIGURATION_INVALID;
   gpdh->job = GNUNET_CURL_job_add (gpdh->ctx,
                                    eh,
                                    &handle_get_donau_finished,
                                    gpdh);
   if (NULL == gpdh->job)
     return TALER_EC_GENERIC_INTERNAL_INVARIANT_FAILURE;
   return TALER_EC_NONE;
 }
 
 
 void
 TALER_MERCHANT_get_private_donau_cancel (
   struct TALER_MERCHANT_GetPrivateDonauHandle *gpdh)
 {
   if (NULL != gpdh->job)
   {
     GNUNET_CURL_job_cancel (gpdh->job);
     gpdh->job = NULL;
   }
   GNUNET_free (gpdh->url);
   GNUNET_free (gpdh->base_url);
   GNUNET_free (gpdh);
 }
 
 
 /* end of merchant_api_get-private-donau-new.c */