scilab/modules/webtools/sci_gateway/cpp/sci_http_delete.cpp

   1 /*
   2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 * Copyright (C) 2017 - ESI-Group - Cedric DELAMARRE
   4 *
   5 *
   6 * This file is hereby licensed under the terms of the GNU GPL v2.0,
   7 * pursuant to article 5.3.4 of the CeCILL v.2.1.
   8 * This file was originally licensed under the terms of the CeCILL v2.1,
   9 * and continues to be available under such terms.
  10 * For more information, see the COPYING file which you should have received
  11 * along with this program.
  12 *
  13 */
  14 /*--------------------------------------------------------------------------*/
  15
  16 #include <curl/curl.h>
  17 #include "webtools_gw.hxx"
  18 #include "function.hxx"
  19 #include "string.hxx"
  20 #include "double.hxx"
  21 #include "sciCurl.hxx"
  22
  23 extern "C"
  24 {
  25 #include "localization.h"
  26 #include "Scierror.h"
  27 #include "sciprint.h"
  28 #include "sci_malloc.h"
  29 }
  30 /*--------------------------------------------------------------------------*/
  31 static const char fname[] = "http_delete";
  32 types::Function::ReturnValue sci_http_delete(types::typed_list &in, types::optional_list &opt, int _iRetCount, types::typed_list &out)
  33 {
  34     SciCurl* sciCurlObj = SciCurl::getInstance();
  35     CURLcode res = CURLE_OK;
  36
  37     if (in.size() != 1)
  38     {
  39         Scierror(77, _("%s: Wrong number of input argument(s): %d expected.\n"), fname, 1);
  40         return types::Function::Error;
  41     }
  42
  43     if (_iRetCount > 2)
  44     {
  45         Scierror(78, _("%s: Wrong number of output argument(s): %d to %d expected.\n"), fname, 1, 2);
  46         return types::Function::Error;
  47     }
  48
  49     // get URL
  50     if(in[0]->isString() == false && in[0]->getAs<types::String>()->isScalar() == false)
  51     {
  52         Scierror(999, _("%s: Wrong type for input argument #%d: A scalar string expected.\n"), fname, 1);
  53         return types::Function::Error;
  54     }
  55
  56     CURL* curl = curl_easy_init();
  57     if(curl == nullptr)
  58     {
  59         Scierror(999, _("%s: CURL initialization failed.\n"), fname);
  60         return types::Function::Error;
  61     }
  62
  63     char* pcURL = wide_string_to_UTF8(in[0]->getAs<types::String>()->get(0));
  64     curl_easy_setopt(curl, CURLOPT_URL, pcURL);
  65     FREE(pcURL);
  66
  67     // common optional argument
  68     if(checkCommonOpt((void*)curl, opt, fname))
  69     {
  70         return types::Function::Error;
  71     }
  72
  73     // set proxy information
  74     if(sciCurlObj->setProxy(curl))
  75     {
  76         Scierror(999, _("%s: Wrong proxy information, please check in the 'internet' Scilab preference.\n"), fname);
  77         return types::Function::Error;
  78     }
  79
  80     curl_easy_setopt(curl, CURLOPT_CUSTOMREQUEST, "DELETE");
  81     sciCurlObj->getResultAsObject(curl);
  82
  83     res = curl_easy_perform(curl);
  84     if(res != CURLE_OK)
  85     {
  86         Scierror(999, _("%s: CURL execution failed.\n%s\n"), fname, curl_easy_strerror(res));
  87         sciCurlObj->clear();
  88         return types::Function::Error;
  89     }
  90
  91     out.push_back(sciCurlObj->getResult());
  92
  93     if(_iRetCount == 2)
  94     {
  95         long http_code = 0;
  96         curl_easy_getinfo (curl, CURLINFO_RESPONSE_CODE, &http_code);
  97         out.push_back(new types::Double((double)http_code));
  98     }
  99
 100     curl_easy_cleanup(curl);
 101     return types::Function::OK;
 102 }