91556f53aad9b67c6ef47616be6cf34d0d2da684
[scilab.git] / scilab / modules / webtools / sci_gateway / cpp / sci_http_get.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 #include "getFullFilename.h"
30 }
31 /*--------------------------------------------------------------------------*/
32 static const char fname[] = "http_get";
33 types::Function::ReturnValue sci_http_get(types::typed_list &in, types::optional_list &opt, int _iRetCount, types::typed_list &out)
34 {
35     SciCurl* sciCurlObj = SciCurl::getInstance();
36     CURLcode res = CURLE_OK;
37     FILE* fd = NULL;
38     types::InternalType* pOut = NULL;
39
40     if (in.size() < 1 || in.size() > 2)
41     {
42         Scierror(77, _("%s: Wrong number of input argument(s): %d to %d expected.\n"), fname, 1, 2);
43         return types::Function::Error;
44     }
45
46     if (_iRetCount > 2)
47     {
48         Scierror(78, _("%s: Wrong number of output argument(s): %d to %d expected.\n"), fname, 1, 2);
49         return types::Function::Error;
50     }
51
52     // get URL
53     if(in[0]->isString() == false || in[0]->getAs<types::String>()->isScalar() == false)
54     {
55         Scierror(999, _("%s: Wrong type for input argument #%d: A scalar string expected.\n"), fname, 1);
56         return types::Function::Error;
57     }
58
59     CURL* curl = curl_easy_init();
60     if(curl == nullptr)
61     {
62         Scierror(999, _("%s: CURL initialization failed.\n"), fname);
63         return types::Function::Error;
64     }
65
66     char* pcURL = wide_string_to_UTF8(in[0]->getAs<types::String>()->get(0));
67     curl_easy_setopt(curl, CURLOPT_URL, pcURL);
68     FREE(pcURL);
69
70     if(in.size() == 2)
71     {
72         // get output file name
73         if(in[1]->isString() == false || in[1]->getAs<types::String>()->isScalar() == false)
74         {
75             Scierror(999, _("%s: Wrong type for input argument #%d: A scalar string expected.\n"), fname, 2);
76             return types::Function::Error;
77         }
78
79         wchar_t* pwcFileName = getFullFilenameW(in[1]->getAs<types::String>()->get(0));
80         char* pcFileName = wide_string_to_UTF8(pwcFileName);
81
82         fd = fopen(pcFileName, "wb");
83         FREE(pcFileName);
84         if(fd == NULL)
85         {
86             Scierror(999, _("%s: Wrong value for input argument #%d: The given path does not exist.\n"), fname, 2);
87             FREE(pwcFileName);
88             return types::Function::Error;
89         }
90
91         sciCurlObj->getResultAsFile(curl, fd);
92
93         pOut = new types::String(pwcFileName);
94         FREE(pwcFileName);
95     }
96     else
97     {
98         sciCurlObj->getResultAsObject(curl);
99     }
100
101     // common optional argument
102     if(checkCommonOpt((void*)curl, opt, fname))
103     {
104         return types::Function::Error;
105     }
106
107     // set proxy information
108     if(sciCurlObj->setProxy(curl))
109     {
110         Scierror(999, _("%s: Wrong proxy information, please check in the 'internet' Scilab preference.\n"), fname);
111         return types::Function::Error;
112     }
113
114     res = curl_easy_perform(curl);
115     if(res != CURLE_OK)
116     {
117         Scierror(999, _("%s: CURL execution failed.\n%s\n"), fname, curl_easy_strerror(res));
118         sciCurlObj->clear();
119         if(fd)
120         {
121             fclose(fd);
122         }
123         return types::Function::Error;
124     }
125
126     if(in.size() == 2)
127     {
128         fclose(fd);
129         sciCurlObj->clear();
130     }
131     else
132     {
133         pOut = sciCurlObj->getResult();
134     }
135
136     out.push_back(pOut);
137
138     if(_iRetCount == 2)
139     {
140         long http_code = 0;
141         curl_easy_getinfo (curl, CURLINFO_RESPONSE_CODE, &http_code);
142         out.push_back(new types::Double((double)http_code));
143     }
144
145     curl_easy_cleanup(curl);
146     return types::Function::OK;
147 }