ST / HTTPClient

HTTP/HTTPS Client Library for the X-NUCLEO-IDW01M1v2 wifi board.

Dependents:   HTTPClient_HelloWorld_IDW01M1 wifigianluigi HTTPClient_HelloWorld_IDW01M1_Fabio_Ricezione

Fork of HTTPClient by ST Expansion SW Team

HTTPClient.cpp@24:dafc02922e40, 2017-01-13 (annotated)

Committer:
mapellil
Date:
Fri Jan 13 14:40:02 2017 +0000
Revision:
24:dafc02922e40
Parent:
23:1a0d4d70f72c 
Added HTTPS support

Who changed what in which revision?

UserRevisionLine numberNew contents of line
donatien 0:2ccb9960a044 1 /* HTTPClient.cpp */
donatien 10:e1351de84c16 2 /* Copyright (C) 2012 mbed.org, MIT License
donatien 10:e1351de84c16 3 *
donatien 10:e1351de84c16 4 * Permission is hereby granted, free of charge, to any person obtaining a copy of this software
donatien 10:e1351de84c16 5 * and associated documentation files (the "Software"), to deal in the Software without restriction,
donatien 10:e1351de84c16 6 * including without limitation the rights to use, copy, modify, merge, publish, distribute,
donatien 10:e1351de84c16 7 * sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is
donatien 10:e1351de84c16 8 * furnished to do so, subject to the following conditions:
donatien 10:e1351de84c16 9 *
donatien 10:e1351de84c16 10 * The above copyright notice and this permission notice shall be included in all copies or
donatien 10:e1351de84c16 11 * substantial portions of the Software.
donatien 10:e1351de84c16 12 *
donatien 10:e1351de84c16 13 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING
donatien 10:e1351de84c16 14 * BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
donatien 10:e1351de84c16 15 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
donatien 10:e1351de84c16 16 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
donatien 10:e1351de84c16 17 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
donatien 10:e1351de84c16 18 */
donatien 0:2ccb9960a044 19
donatien 7:4e39864f7b15 20 //Debug is disabled by default
mapellil 24:dafc02922e40 21 #if 0
donatien 12:89d09a6db00a 22 //Enable debug
donatien 11:390362de8c3f 23 #include <cstdio>
donatien 16:1f743885e7de 24 #define DBG(x, ...) std::printf("[HTTPClient : DBG]"x"\r\n", ##__VA_ARGS__);
donatien 11:390362de8c3f 25 #define WARN(x, ...) std::printf("[HTTPClient : WARN]"x"\r\n", ##__VA_ARGS__);
donatien 11:390362de8c3f 26 #define ERR(x, ...) std::printf("[HTTPClient : ERR]"x"\r\n", ##__VA_ARGS__);
donatien 12:89d09a6db00a 27
donatien 12:89d09a6db00a 28 #else
donatien 12:89d09a6db00a 29 //Disable debug
donatien 12:89d09a6db00a 30 #define DBG(x, ...)
donatien 12:89d09a6db00a 31 #define WARN(x, ...)
donatien 12:89d09a6db00a 32 #define ERR(x, ...)
donatien 12:89d09a6db00a 33
donatien 7:4e39864f7b15 34 #endif
donatien 0:2ccb9960a044 35
donatien 0:2ccb9960a044 36 #define HTTP_PORT 80
donatien 0:2ccb9960a044 37
donatien 11:390362de8c3f 38 #define OK 0
donatien 11:390362de8c3f 39
donatien 11:390362de8c3f 40 #define MIN(x,y) (((x)<(y))?(x):(y))
donatien 11:390362de8c3f 41 #define MAX(x,y) (((x)>(y))?(x):(y))
donatien 11:390362de8c3f 42
mapellil 19:17578cfdb57a 43
mapellil 19:17578cfdb57a 44 #define MAX_KEY 64
mapellil 19:17578cfdb57a 45 #define MAX_VALUE 64
donatien 0:2ccb9960a044 46
donatien 0:2ccb9960a044 47 #include <cstring>
donatien 11:390362de8c3f 48 #include "HTTPClient.h"
donatien 11:390362de8c3f 49
mapellil 24:dafc02922e40 50 //HTTPClient::HTTPClient(NetworkStack & _m_intf) : m_intf(_m_intf)
mapellil 24:dafc02922e40 51 HTTPClient::HTTPClient(SpwfSAInterface & _m_intf) : m_intf(_m_intf)
mapellil 21:6e5c122ad9e5 52 {
donatien 0:2ccb9960a044 53 }
donatien 0:2ccb9960a044 54
donatien 0:2ccb9960a044 55 HTTPClient::~HTTPClient()
donatien 0:2ccb9960a044 56 {
donatien 0:2ccb9960a044 57
donatien 0:2ccb9960a044 58 }
donatien 0:2ccb9960a044 59
donatien 0:2ccb9960a044 60 #if 0
donatien 0:2ccb9960a044 61 void HTTPClient::basicAuth(const char* user, const char* password) //Basic Authentification
donatien 0:2ccb9960a044 62 {
donatien 0:2ccb9960a044 63 m_basicAuthUser = user;
donatien 0:2ccb9960a044 64 m_basicAuthPassword = password;
donatien 0:2ccb9960a044 65 }
donatien 0:2ccb9960a044 66 #endif
donatien 0:2ccb9960a044 67
mapellil 19:17578cfdb57a 68 HTTPResult HTTPClient::get(const char* url, IHTTPDataIn* pDataIn, int timeout = HTTP_CLIENT_DEFAULT_TIMEOUT) //Blocking
donatien 0:2ccb9960a044 69 {
donatien 0:2ccb9960a044 70 return connect(url, HTTP_GET, NULL, pDataIn, timeout);
donatien 0:2ccb9960a044 71 }
donatien 0:2ccb9960a044 72
mapellil 19:17578cfdb57a 73 HTTPResult HTTPClient::get(const char* url, char* result, size_t maxResultLen, int timeout = HTTP_CLIENT_DEFAULT_TIMEOUT) //Blocking
donatien 0:2ccb9960a044 74 {
donatien 0:2ccb9960a044 75 HTTPText str(result, maxResultLen);
donatien 0:2ccb9960a044 76 return get(url, &str, timeout);
donatien 0:2ccb9960a044 77 }
donatien 0:2ccb9960a044 78
mapellil 19:17578cfdb57a 79 HTTPResult HTTPClient::post(const char* url, const IHTTPDataOut& dataOut, IHTTPDataIn* pDataIn, int timeout = HTTP_CLIENT_DEFAULT_TIMEOUT) //Blocking
donatien 0:2ccb9960a044 80 {
donatien 0:2ccb9960a044 81 return connect(url, HTTP_POST, (IHTTPDataOut*)&dataOut, pDataIn, timeout);
donatien 0:2ccb9960a044 82 }
donatien 0:2ccb9960a044 83
donatien 16:1f743885e7de 84 HTTPResult HTTPClient::put(const char* url, const IHTTPDataOut& dataOut, IHTTPDataIn* pDataIn, int timeout /*= HTTP_CLIENT_DEFAULT_TIMEOUT*/) //Blocking
donatien 16:1f743885e7de 85 {
donatien 16:1f743885e7de 86 return connect(url, HTTP_PUT, (IHTTPDataOut*)&dataOut, pDataIn, timeout);
donatien 16:1f743885e7de 87 }
donatien 16:1f743885e7de 88
donatien 16:1f743885e7de 89 HTTPResult HTTPClient::del(const char* url, IHTTPDataIn* pDataIn, int timeout /*= HTTP_CLIENT_DEFAULT_TIMEOUT*/) //Blocking
donatien 16:1f743885e7de 90 {
donatien 16:1f743885e7de 91 return connect(url, HTTP_DELETE, NULL, pDataIn, timeout);
donatien 16:1f743885e7de 92 }
donatien 16:1f743885e7de 93
donatien 16:1f743885e7de 94
donatien 0:2ccb9960a044 95 int HTTPClient::getHTTPResponseCode()
donatien 0:2ccb9960a044 96 {
donatien 0:2ccb9960a044 97 return m_httpResponseCode;
donatien 0:2ccb9960a044 98 }
donatien 0:2ccb9960a044 99
donatien 5:791fc3dcb6c4 100 #define CHECK_CONN_ERR(ret) \
donatien 5:791fc3dcb6c4 101 do{ \
donatien 7:4e39864f7b15 102 if(ret) { \
donatien 7:4e39864f7b15 103 m_sock.close(); \
donatien 5:791fc3dcb6c4 104 ERR("Connection error (%d)", ret); \
donatien 11:390362de8c3f 105 return HTTP_CONN; \
donatien 5:791fc3dcb6c4 106 } \
donatien 5:791fc3dcb6c4 107 } while(0)
donatien 5:791fc3dcb6c4 108
donatien 5:791fc3dcb6c4 109 #define PRTCL_ERR() \
donatien 5:791fc3dcb6c4 110 do{ \
donatien 7:4e39864f7b15 111 m_sock.close(); \
donatien 5:791fc3dcb6c4 112 ERR("Protocol error"); \
donatien 11:390362de8c3f 113 return HTTP_PRTCL; \
donatien 5:791fc3dcb6c4 114 } while(0)
donatien 0:2ccb9960a044 115
mapellil 19:17578cfdb57a 116
donatien 12:89d09a6db00a 117 HTTPResult HTTPClient::connect(const char* url, HTTP_METH method, IHTTPDataOut* pDataOut, IHTTPDataIn* pDataIn, int timeout) //Execute request
donatien 12:89d09a6db00a 118 {
donatien 0:2ccb9960a044 119 m_httpResponseCode = 0; //Invalidate code
donatien 0:2ccb9960a044 120 m_timeout = timeout;
donatien 16:1f743885e7de 121
donatien 16:1f743885e7de 122 pDataIn->writeReset();
donatien 16:1f743885e7de 123 if( pDataOut )
donatien 16:1f743885e7de 124 {
donatien 16:1f743885e7de 125 pDataOut->readReset();
donatien 16:1f743885e7de 126 }
donatien 0:2ccb9960a044 127
donatien 0:2ccb9960a044 128 char scheme[8];
donatien 0:2ccb9960a044 129 uint16_t port;
mapellil 23:1a0d4d70f72c 130 char host[64];
donatien 0:2ccb9960a044 131 char path[64];
donatien 0:2ccb9960a044 132 //First we need to parse the url (http[s]://host[:port][/[path]]) -- HTTPS not supported (yet?)
donatien 11:390362de8c3f 133 HTTPResult res = parseURL(url, scheme, sizeof(scheme), host, sizeof(host), &port, path, sizeof(path));
donatien 11:390362de8c3f 134 if(res != HTTP_OK)
donatien 0:2ccb9960a044 135 {
donatien 11:390362de8c3f 136 ERR("parseURL returned %d", res);
donatien 11:390362de8c3f 137 return res;
donatien 0:2ccb9960a044 138 }
donatien 0:2ccb9960a044 139
mapellil 24:dafc02922e40 140 if ((strcmp ("https", scheme)) == 0 || (strcmp ("HTTPS", scheme) == 0)) {
mapellil 24:dafc02922e40 141 if ( port == 0) port = 443;
mapellil 24:dafc02922e40 142 m_intf.set_secure_mode();
mapellil 24:dafc02922e40 143 }
donatien 0:2ccb9960a044 144 if(port == 0) //TODO do handle HTTPS->443
donatien 0:2ccb9960a044 145 {
donatien 0:2ccb9960a044 146 port = 80;
donatien 0:2ccb9960a044 147 }
mapellil 24:dafc02922e40 148
donatien 0:2ccb9960a044 149 DBG("Scheme: %s", scheme);
donatien 0:2ccb9960a044 150 DBG("Host: %s", host);
donatien 0:2ccb9960a044 151 DBG("Port: %d", port);
donatien 0:2ccb9960a044 152 DBG("Path: %s", path);
mapellil 19:17578cfdb57a 153 // Open
mapellil 21:6e5c122ad9e5 154 m_sock.open(&m_intf);
mapellil 24:dafc02922e40 155 m_intf.set_unsecure_mode();
donatien 7:4e39864f7b15 156 //Connect
donatien 7:4e39864f7b15 157 DBG("Connecting socket to server");
donatien 11:390362de8c3f 158 int ret = m_sock.connect(host, port);
donatien 0:2ccb9960a044 159 if (ret < 0)
donatien 0:2ccb9960a044 160 {
donatien 7:4e39864f7b15 161 m_sock.close();
mapellil 19:17578cfdb57a 162 ERR("TCP Could not connect");
donatien 11:390362de8c3f 163 return HTTP_CONN;
donatien 0:2ccb9960a044 164 }
mapellil 19:17578cfdb57a 165 DBG ("TCP connected\n\r");
donatien 0:2ccb9960a044 166 //Send request
donatien 0:2ccb9960a044 167 DBG("Sending request");
mapellil 19:17578cfdb57a 168 // char buf[CHUNK_SIZE];
donatien 16:1f743885e7de 169 const char* meth = (method==HTTP_GET)?"GET":(method==HTTP_POST)?"POST":(method==HTTP_PUT)?"PUT":(method==HTTP_DELETE)?"DELETE":"";
donatien 9:ff30cc189191 170 snprintf(buf, sizeof(buf), "%s %s HTTP/1.1\r\nHost: %s\r\n", meth, path, host); //Write request
donatien 9:ff30cc189191 171 ret = send(buf);
donatien 0:2ccb9960a044 172 if(ret)
donatien 0:2ccb9960a044 173 {
donatien 7:4e39864f7b15 174 m_sock.close();
donatien 0:2ccb9960a044 175 ERR("Could not write request");
donatien 11:390362de8c3f 176 return HTTP_CONN;
donatien 0:2ccb9960a044 177 }
donatien 0:2ccb9960a044 178 //Send all headers
mapellil 20:bbbfaf4cc055 179
donatien 0:2ccb9960a044 180 //Send default headers
donatien 0:2ccb9960a044 181 DBG("Sending headers");
donatien 16:1f743885e7de 182 if( pDataOut != NULL )
donatien 0:2ccb9960a044 183 {
donatien 0:2ccb9960a044 184 if( pDataOut->getIsChunked() )
donatien 0:2ccb9960a044 185 {
donatien 0:2ccb9960a044 186 ret = send("Transfer-Encoding: chunked\r\n");
donatien 5:791fc3dcb6c4 187 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 188 }
donatien 0:2ccb9960a044 189 else
donatien 0:2ccb9960a044 190 {
donatien 9:ff30cc189191 191 snprintf(buf, sizeof(buf), "Content-Length: %d\r\n", pDataOut->getDataLen());
donatien 9:ff30cc189191 192 ret = send(buf);
donatien 5:791fc3dcb6c4 193 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 194 }
donatien 0:2ccb9960a044 195 char type[48];
donatien 11:390362de8c3f 196 if( pDataOut->getDataType(type, 48) == HTTP_OK )
donatien 0:2ccb9960a044 197 {
donatien 9:ff30cc189191 198 snprintf(buf, sizeof(buf), "Content-Type: %s\r\n", type);
donatien 9:ff30cc189191 199 ret = send(buf);
donatien 5:791fc3dcb6c4 200 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 201 }
mapellil 20:bbbfaf4cc055 202
donatien 17:679e15a3d3db 203 //Send specific headers
donatien 17:679e15a3d3db 204 while( pDataOut->getHeader(buf, sizeof(buf) - 3) ) //must have space left for CRLF + 0 terminating char
donatien 17:679e15a3d3db 205 {
donatien 17:679e15a3d3db 206 size_t headerlen = strlen(buf);
donatien 17:679e15a3d3db 207 snprintf(buf + headerlen, sizeof(buf) - headerlen, "\r\n");
donatien 17:679e15a3d3db 208 ret = send(buf);
donatien 17:679e15a3d3db 209 CHECK_CONN_ERR(ret);
donatien 17:679e15a3d3db 210 }
donatien 17:679e15a3d3db 211 }
donatien 17:679e15a3d3db 212
donatien 17:679e15a3d3db 213 //Send specific headers
donatien 17:679e15a3d3db 214 while( pDataIn->getHeader(buf, sizeof(buf) - 3) )
donatien 17:679e15a3d3db 215 {
donatien 17:679e15a3d3db 216 size_t headerlen = strlen(buf);
donatien 17:679e15a3d3db 217 snprintf(buf + headerlen, sizeof(buf) - headerlen, "\r\n");
donatien 17:679e15a3d3db 218 ret = send(buf);
donatien 17:679e15a3d3db 219 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 220 }
donatien 9:ff30cc189191 221
donatien 0:2ccb9960a044 222 //Close headers
donatien 0:2ccb9960a044 223 DBG("Headers sent");
donatien 0:2ccb9960a044 224 ret = send("\r\n");
donatien 5:791fc3dcb6c4 225 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 226
donatien 4:c071b05ac026 227 size_t trfLen;
donatien 16:1f743885e7de 228 //Send data (if available)
donatien 16:1f743885e7de 229 if( pDataOut != NULL )
donatien 0:2ccb9960a044 230 {
donatien 0:2ccb9960a044 231 DBG("Sending data");
donatien 0:2ccb9960a044 232 while(true)
donatien 0:2ccb9960a044 233 {
mapellil 20:bbbfaf4cc055 234
donatien 0:2ccb9960a044 235 size_t writtenLen = 0;
donatien 0:2ccb9960a044 236 pDataOut->read(buf, CHUNK_SIZE, &trfLen);
mapellil 20:bbbfaf4cc055 237
donatien 0:2ccb9960a044 238 if( pDataOut->getIsChunked() )
donatien 0:2ccb9960a044 239 {
donatien 0:2ccb9960a044 240 //Write chunk header
donatien 9:ff30cc189191 241 char chunkHeader[16];
donatien 9:ff30cc189191 242 snprintf(chunkHeader, sizeof(chunkHeader), "%X\r\n", trfLen); //In hex encoding
donatien 9:ff30cc189191 243 ret = send(chunkHeader);
donatien 5:791fc3dcb6c4 244 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 245 }
donatien 0:2ccb9960a044 246 else if( trfLen == 0 )
donatien 0:2ccb9960a044 247 {
donatien 0:2ccb9960a044 248 break;
donatien 0:2ccb9960a044 249 }
donatien 0:2ccb9960a044 250 if( trfLen != 0 )
donatien 0:2ccb9960a044 251 {
donatien 0:2ccb9960a044 252 ret = send(buf, trfLen);
donatien 5:791fc3dcb6c4 253 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 254 }
donatien 0:2ccb9960a044 255
donatien 0:2ccb9960a044 256 if( pDataOut->getIsChunked() )
donatien 0:2ccb9960a044 257 {
donatien 0:2ccb9960a044 258 ret = send("\r\n"); //Chunk-terminating CRLF
donatien 5:791fc3dcb6c4 259 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 260 }
donatien 0:2ccb9960a044 261 else
donatien 0:2ccb9960a044 262 {
donatien 0:2ccb9960a044 263 writtenLen += trfLen;
donatien 0:2ccb9960a044 264 if( writtenLen >= pDataOut->getDataLen() )
donatien 0:2ccb9960a044 265 {
donatien 0:2ccb9960a044 266 break;
donatien 0:2ccb9960a044 267 }
donatien 0:2ccb9960a044 268 }
donatien 0:2ccb9960a044 269
donatien 0:2ccb9960a044 270 if( trfLen == 0 )
donatien 0:2ccb9960a044 271 {
donatien 0:2ccb9960a044 272 break;
donatien 0:2ccb9960a044 273 }
donatien 0:2ccb9960a044 274 }
donatien 0:2ccb9960a044 275 }
donatien 9:ff30cc189191 276
donatien 0:2ccb9960a044 277 //Receive response
donatien 0:2ccb9960a044 278 DBG("Receiving response");
donatien 17:679e15a3d3db 279 ret = recv(buf, 1, CHUNK_SIZE - 1, &trfLen); //Read n bytes
donatien 5:791fc3dcb6c4 280 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 281
donatien 0:2ccb9960a044 282 buf[trfLen] = '\0';
donatien 0:2ccb9960a044 283
donatien 17:679e15a3d3db 284 //Make sure we got the first response line
donatien 17:679e15a3d3db 285 char* crlfPtr = NULL;
donatien 17:679e15a3d3db 286 while( true )
donatien 17:679e15a3d3db 287 {
donatien 17:679e15a3d3db 288 crlfPtr = strstr(buf, "\r\n");
donatien 0:2ccb9960a044 289 if(crlfPtr == NULL)
donatien 0:2ccb9960a044 290 {
donatien 17:679e15a3d3db 291 if( trfLen < CHUNK_SIZE - 1 )
donatien 17:679e15a3d3db 292 {
donatien 17:679e15a3d3db 293 size_t newTrfLen;
donatien 17:679e15a3d3db 294 ret = recv(buf + trfLen, 1, CHUNK_SIZE - trfLen - 1, &newTrfLen);
donatien 17:679e15a3d3db 295 trfLen += newTrfLen;
donatien 17:679e15a3d3db 296 buf[trfLen] = '\0';
donatien 17:679e15a3d3db 297 DBG("Read %d chars; In buf: [%s]", newTrfLen, buf);
donatien 17:679e15a3d3db 298 CHECK_CONN_ERR(ret);
donatien 17:679e15a3d3db 299 continue;
donatien 17:679e15a3d3db 300 }
donatien 17:679e15a3d3db 301 else
donatien 17:679e15a3d3db 302 {
donatien 5:791fc3dcb6c4 303 PRTCL_ERR();
donatien 0:2ccb9960a044 304 }
donatien 17:679e15a3d3db 305 }
donatien 17:679e15a3d3db 306 break;
donatien 17:679e15a3d3db 307 }
donatien 4:c071b05ac026 308 int crlfPos = crlfPtr - buf;
donatien 0:2ccb9960a044 309 buf[crlfPos] = '\0';
donatien 0:2ccb9960a044 310 //Parse HTTP response
donatien 17:679e15a3d3db 311 //if( sscanf(buf, "HTTP/%*d.%*d %d %*[^\r\n]", &m_httpResponseCode) != 1 )
donatien 17:679e15a3d3db 312 if(crlfPos > 13)
donatien 17:679e15a3d3db 313 {
donatien 17:679e15a3d3db 314 buf[13] = '\0';
donatien 17:679e15a3d3db 315 }
donatien 17:679e15a3d3db 316 if( sscanf(buf, "HTTP/%*d.%*d %d", &m_httpResponseCode) != 1 ) //Kludge for newlib nano
donatien 0:2ccb9960a044 317 {
donatien 0:2ccb9960a044 318 //Cannot match string, error
donatien 0:2ccb9960a044 319 ERR("Not a correct HTTP answer : %s\n", buf);
donatien 5:791fc3dcb6c4 320 PRTCL_ERR();
donatien 0:2ccb9960a044 321 }
donatien 0:2ccb9960a044 322
donatien 16:1f743885e7de 323 if( (m_httpResponseCode < 200) || (m_httpResponseCode >= 300) )
donatien 0:2ccb9960a044 324 {
donatien 16:1f743885e7de 325 //Did not return a 2xx code; TODO fetch headers/(&data?) anyway and implement a mean of writing/reading headers
donatien 0:2ccb9960a044 326 WARN("Response code %d", m_httpResponseCode);
donatien 5:791fc3dcb6c4 327 PRTCL_ERR();
donatien 0:2ccb9960a044 328 }
donatien 0:2ccb9960a044 329
mapellil 19:17578cfdb57a 330 DBG("=======>>>> Reading headers");
donatien 0:2ccb9960a044 331
donatien 4:c071b05ac026 332 memmove(buf, &buf[crlfPos+2], trfLen - (crlfPos + 2) + 1); //Be sure to move NULL-terminating char as well
donatien 0:2ccb9960a044 333 trfLen -= (crlfPos + 2);
donatien 0:2ccb9960a044 334
donatien 4:c071b05ac026 335 size_t recvContentLength = 0;
donatien 4:c071b05ac026 336 bool recvChunked = false;
donatien 17:679e15a3d3db 337 bool recvLengthUnknown = true;
donatien 0:2ccb9960a044 338 //Now get headers
donatien 0:2ccb9960a044 339 while( true )
donatien 0:2ccb9960a044 340 {
donatien 0:2ccb9960a044 341 crlfPtr = strstr(buf, "\r\n");
donatien 0:2ccb9960a044 342 if(crlfPtr == NULL)
donatien 0:2ccb9960a044 343 {
donatien 4:c071b05ac026 344 if( trfLen < CHUNK_SIZE - 1 )
donatien 0:2ccb9960a044 345 {
donatien 0:2ccb9960a044 346 size_t newTrfLen;
donatien 0:2ccb9960a044 347 ret = recv(buf + trfLen, 1, CHUNK_SIZE - trfLen - 1, &newTrfLen);
donatien 0:2ccb9960a044 348 trfLen += newTrfLen;
donatien 0:2ccb9960a044 349 buf[trfLen] = '\0';
donatien 4:c071b05ac026 350 DBG("Read %d chars; In buf: [%s]", newTrfLen, buf);
donatien 5:791fc3dcb6c4 351 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 352 continue;
donatien 0:2ccb9960a044 353 }
donatien 0:2ccb9960a044 354 else
donatien 0:2ccb9960a044 355 {
donatien 5:791fc3dcb6c4 356 PRTCL_ERR();
donatien 0:2ccb9960a044 357 }
donatien 0:2ccb9960a044 358 }
donatien 0:2ccb9960a044 359
donatien 0:2ccb9960a044 360 crlfPos = crlfPtr - buf;
donatien 0:2ccb9960a044 361
donatien 0:2ccb9960a044 362 if(crlfPos == 0) //End of headers
donatien 0:2ccb9960a044 363 {
donatien 0:2ccb9960a044 364 DBG("Headers read");
donatien 4:c071b05ac026 365 memmove(buf, &buf[2], trfLen - 2 + 1); //Be sure to move NULL-terminating char as well
donatien 0:2ccb9960a044 366 trfLen -= 2;
donatien 0:2ccb9960a044 367 break;
donatien 0:2ccb9960a044 368 }
donatien 0:2ccb9960a044 369
donatien 0:2ccb9960a044 370 buf[crlfPos] = '\0';
donatien 0:2ccb9960a044 371
mapellil 19:17578cfdb57a 372 char key[MAX_KEY];
mapellil 19:17578cfdb57a 373 char value[MAX_VALUE];
donatien 0:2ccb9960a044 374
donatien 17:679e15a3d3db 375 //key[31] = '\0';
donatien 17:679e15a3d3db 376 //value[31] = '\0';
donatien 17:679e15a3d3db 377
mapellil 19:17578cfdb57a 378 memset(key, 0, MAX_KEY);
mapellil 19:17578cfdb57a 379 memset(value, 0, MAX_VALUE);
donatien 4:c071b05ac026 380
donatien 17:679e15a3d3db 381 //int n = sscanf(buf, "%31[^:]: %31[^\r\n]", key, value);
donatien 17:679e15a3d3db 382
donatien 17:679e15a3d3db 383 int n = 0;
donatien 17:679e15a3d3db 384
donatien 17:679e15a3d3db 385 char* keyEnd = strchr(buf, ':');
donatien 17:679e15a3d3db 386 if(keyEnd != NULL)
donatien 17:679e15a3d3db 387 {
donatien 17:679e15a3d3db 388 *keyEnd = '\0';
mapellil 19:17578cfdb57a 389 if(strlen(buf) < MAX_KEY)
donatien 17:679e15a3d3db 390 {
donatien 18:277279a1891e 391 strcpy(key, buf);
donatien 17:679e15a3d3db 392 n++;
donatien 17:679e15a3d3db 393 char* valueStart = keyEnd + 2;
donatien 17:679e15a3d3db 394 if( (valueStart - buf) < crlfPos )
donatien 17:679e15a3d3db 395 {
mapellil 19:17578cfdb57a 396 if(strlen(valueStart) < MAX_VALUE)
donatien 18:277279a1891e 397 {
donatien 18:277279a1891e 398 strcpy(value, valueStart);
donatien 17:679e15a3d3db 399 n++;
donatien 17:679e15a3d3db 400 }
donatien 17:679e15a3d3db 401 }
donatien 17:679e15a3d3db 402 }
donatien 17:679e15a3d3db 403 }
donatien 0:2ccb9960a044 404 if ( n == 2 )
donatien 0:2ccb9960a044 405 {
donatien 0:2ccb9960a044 406 DBG("Read header : %s: %s\n", key, value);
donatien 0:2ccb9960a044 407 if( !strcmp(key, "Content-Length") )
donatien 0:2ccb9960a044 408 {
donatien 0:2ccb9960a044 409 sscanf(value, "%d", &recvContentLength);
donatien 17:679e15a3d3db 410 recvLengthUnknown = false;
donatien 0:2ccb9960a044 411 pDataIn->setDataLen(recvContentLength);
donatien 0:2ccb9960a044 412 }
donatien 0:2ccb9960a044 413 else if( !strcmp(key, "Transfer-Encoding") )
donatien 0:2ccb9960a044 414 {
donatien 0:2ccb9960a044 415 if( !strcmp(value, "Chunked") || !strcmp(value, "chunked") )
donatien 0:2ccb9960a044 416 {
donatien 0:2ccb9960a044 417 recvChunked = true;
donatien 17:679e15a3d3db 418 recvLengthUnknown = false;
donatien 0:2ccb9960a044 419 pDataIn->setIsChunked(true);
donatien 0:2ccb9960a044 420 }
donatien 0:2ccb9960a044 421 }
donatien 0:2ccb9960a044 422 else if( !strcmp(key, "Content-Type") )
donatien 0:2ccb9960a044 423 {
donatien 0:2ccb9960a044 424 pDataIn->setDataType(value);
donatien 0:2ccb9960a044 425 }
donatien 0:2ccb9960a044 426
donatien 4:c071b05ac026 427 memmove(buf, &buf[crlfPos+2], trfLen - (crlfPos + 2) + 1); //Be sure to move NULL-terminating char as well
donatien 0:2ccb9960a044 428 trfLen -= (crlfPos + 2);
donatien 0:2ccb9960a044 429
donatien 0:2ccb9960a044 430 }
donatien 0:2ccb9960a044 431 else
donatien 0:2ccb9960a044 432 {
donatien 0:2ccb9960a044 433 ERR("Could not parse header");
donatien 5:791fc3dcb6c4 434 PRTCL_ERR();
donatien 0:2ccb9960a044 435 }
donatien 0:2ccb9960a044 436
donatien 0:2ccb9960a044 437 }
donatien 0:2ccb9960a044 438
donatien 0:2ccb9960a044 439 //Receive data
donatien 0:2ccb9960a044 440 DBG("Receiving data");
donatien 0:2ccb9960a044 441 while(true)
donatien 0:2ccb9960a044 442 {
donatien 0:2ccb9960a044 443 size_t readLen = 0;
donatien 0:2ccb9960a044 444
donatien 0:2ccb9960a044 445 if( recvChunked )
donatien 0:2ccb9960a044 446 {
donatien 0:2ccb9960a044 447 //Read chunk header
donatien 14:2744e0c0e527 448 bool foundCrlf;
donatien 14:2744e0c0e527 449 do
donatien 0:2ccb9960a044 450 {
donatien 14:2744e0c0e527 451 foundCrlf = false;
donatien 14:2744e0c0e527 452 crlfPos=0;
donatien 14:2744e0c0e527 453 buf[trfLen]=0;
donatien 14:2744e0c0e527 454 if(trfLen >= 2)
donatien 0:2ccb9960a044 455 {
donatien 14:2744e0c0e527 456 for(; crlfPos < trfLen - 2; crlfPos++)
donatien 14:2744e0c0e527 457 {
donatien 14:2744e0c0e527 458 if( buf[crlfPos] == '\r' && buf[crlfPos + 1] == '\n' )
donatien 14:2744e0c0e527 459 {
donatien 14:2744e0c0e527 460 foundCrlf = true;
donatien 14:2744e0c0e527 461 break;
donatien 14:2744e0c0e527 462 }
donatien 14:2744e0c0e527 463 }
donatien 0:2ccb9960a044 464 }
donatien 14:2744e0c0e527 465 if(!foundCrlf) //Try to read more
donatien 0:2ccb9960a044 466 {
donatien 14:2744e0c0e527 467 if( trfLen < CHUNK_SIZE )
donatien 14:2744e0c0e527 468 {
donatien 14:2744e0c0e527 469 size_t newTrfLen;
donatien 14:2744e0c0e527 470 ret = recv(buf + trfLen, 0, CHUNK_SIZE - trfLen - 1, &newTrfLen);
donatien 14:2744e0c0e527 471 trfLen += newTrfLen;
donatien 14:2744e0c0e527 472 CHECK_CONN_ERR(ret);
donatien 14:2744e0c0e527 473 continue;
donatien 14:2744e0c0e527 474 }
donatien 14:2744e0c0e527 475 else
donatien 14:2744e0c0e527 476 {
donatien 14:2744e0c0e527 477 PRTCL_ERR();
donatien 14:2744e0c0e527 478 }
donatien 0:2ccb9960a044 479 }
donatien 14:2744e0c0e527 480 } while(!foundCrlf);
donatien 0:2ccb9960a044 481 buf[crlfPos] = '\0';
donatien 0:2ccb9960a044 482 int n = sscanf(buf, "%x", &readLen);
donatien 0:2ccb9960a044 483 if(n!=1)
donatien 0:2ccb9960a044 484 {
donatien 15:5ad07f90e895 485 ERR("Could not read chunk length");
donatien 5:791fc3dcb6c4 486 PRTCL_ERR();
donatien 0:2ccb9960a044 487 }
donatien 0:2ccb9960a044 488
donatien 4:c071b05ac026 489 memmove(buf, &buf[crlfPos+2], trfLen - (crlfPos + 2)); //Not need to move NULL-terminating char any more
donatien 0:2ccb9960a044 490 trfLen -= (crlfPos + 2);
donatien 0:2ccb9960a044 491
donatien 0:2ccb9960a044 492 if( readLen == 0 )
donatien 0:2ccb9960a044 493 {
donatien 0:2ccb9960a044 494 //Last chunk
donatien 0:2ccb9960a044 495 break;
donatien 0:2ccb9960a044 496 }
donatien 0:2ccb9960a044 497 }
donatien 0:2ccb9960a044 498 else
donatien 0:2ccb9960a044 499 {
donatien 0:2ccb9960a044 500 readLen = recvContentLength;
donatien 0:2ccb9960a044 501 }
donatien 0:2ccb9960a044 502
donatien 17:679e15a3d3db 503 DBG("Retrieving %d bytes (%d bytes in buffer)", readLen, trfLen);
donatien 0:2ccb9960a044 504
donatien 0:2ccb9960a044 505 do
donatien 0:2ccb9960a044 506 {
donatien 17:679e15a3d3db 507 if(recvLengthUnknown )
donatien 17:679e15a3d3db 508 {
donatien 17:679e15a3d3db 509 readLen = trfLen;
donatien 17:679e15a3d3db 510 }
donatien 0:2ccb9960a044 511 pDataIn->write(buf, MIN(trfLen, readLen));
donatien 17:679e15a3d3db 512 if(!recvLengthUnknown)
donatien 0:2ccb9960a044 513 {
donatien 17:679e15a3d3db 514 if( trfLen > readLen )
donatien 17:679e15a3d3db 515 {
donatien 17:679e15a3d3db 516 memmove(buf, &buf[readLen], trfLen - readLen);
donatien 17:679e15a3d3db 517 trfLen -= readLen;
donatien 17:679e15a3d3db 518 readLen = 0;
donatien 17:679e15a3d3db 519 }
donatien 17:679e15a3d3db 520 else
donatien 17:679e15a3d3db 521 {
donatien 17:679e15a3d3db 522 readLen -= trfLen;
donatien 17:679e15a3d3db 523 }
donatien 0:2ccb9960a044 524 }
donatien 0:2ccb9960a044 525 else
donatien 0:2ccb9960a044 526 {
donatien 17:679e15a3d3db 527 trfLen = 0;
donatien 0:2ccb9960a044 528 }
donatien 0:2ccb9960a044 529
donatien 17:679e15a3d3db 530 if(readLen || recvLengthUnknown)
donatien 0:2ccb9960a044 531 {
donatien 0:2ccb9960a044 532 ret = recv(buf, 1, CHUNK_SIZE - trfLen - 1, &trfLen);
donatien 17:679e15a3d3db 533 if(recvLengthUnknown && (ret == HTTP_CLOSED))
donatien 17:679e15a3d3db 534 {
donatien 17:679e15a3d3db 535 //Write and exit
donatien 17:679e15a3d3db 536 pDataIn->write(buf, trfLen);
donatien 17:679e15a3d3db 537 break;
donatien 17:679e15a3d3db 538 }
donatien 5:791fc3dcb6c4 539 CHECK_CONN_ERR(ret);
donatien 17:679e15a3d3db 540 if(recvLengthUnknown && (trfLen == 0))
donatien 17:679e15a3d3db 541 {
donatien 17:679e15a3d3db 542 break;
donatien 17:679e15a3d3db 543 }
donatien 0:2ccb9960a044 544 }
donatien 17:679e15a3d3db 545 } while(readLen || recvLengthUnknown);
donatien 0:2ccb9960a044 546
donatien 0:2ccb9960a044 547 if( recvChunked )
donatien 0:2ccb9960a044 548 {
donatien 0:2ccb9960a044 549 if(trfLen < 2)
donatien 0:2ccb9960a044 550 {
donatien 0:2ccb9960a044 551 size_t newTrfLen;
donatien 0:2ccb9960a044 552 //Read missing chars to find end of chunk
donatien 14:2744e0c0e527 553 ret = recv(buf + trfLen, 2 - trfLen, CHUNK_SIZE - trfLen - 1, &newTrfLen);
donatien 5:791fc3dcb6c4 554 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 555 trfLen += newTrfLen;
donatien 0:2ccb9960a044 556 }
donatien 0:2ccb9960a044 557 if( (buf[0] != '\r') || (buf[1] != '\n') )
donatien 0:2ccb9960a044 558 {
donatien 0:2ccb9960a044 559 ERR("Format error");
donatien 5:791fc3dcb6c4 560 PRTCL_ERR();
donatien 0:2ccb9960a044 561 }
donatien 0:2ccb9960a044 562 memmove(buf, &buf[2], trfLen - 2);
donatien 0:2ccb9960a044 563 trfLen -= 2;
donatien 0:2ccb9960a044 564 }
donatien 0:2ccb9960a044 565 else
donatien 0:2ccb9960a044 566 {
donatien 0:2ccb9960a044 567 break;
donatien 0:2ccb9960a044 568 }
donatien 0:2ccb9960a044 569
donatien 0:2ccb9960a044 570 }
donatien 0:2ccb9960a044 571
donatien 7:4e39864f7b15 572 m_sock.close();
donatien 0:2ccb9960a044 573 DBG("Completed HTTP transaction");
donatien 0:2ccb9960a044 574
donatien 11:390362de8c3f 575 return HTTP_OK;
donatien 0:2ccb9960a044 576 }
donatien 0:2ccb9960a044 577
donatien 11:390362de8c3f 578 HTTPResult HTTPClient::recv(char* buf, size_t minLen, size_t maxLen, size_t* pReadLen) //0 on success, err code on failure
donatien 0:2ccb9960a044 579 {
donatien 0:2ccb9960a044 580 DBG("Trying to read between %d and %d bytes", minLen, maxLen);
donatien 0:2ccb9960a044 581 size_t readLen = 0;
mapellil 19:17578cfdb57a 582
mapellil 19:17578cfdb57a 583 #ifdef LICIO
mapellil 19:17578cfdb57a 584
mapellil 19:17578cfdb57a 585 #else
donatien 12:89d09a6db00a 586 if(!m_sock.is_connected())
donatien 12:89d09a6db00a 587 {
donatien 12:89d09a6db00a 588 WARN("Connection was closed by server");
donatien 12:89d09a6db00a 589 return HTTP_CLOSED; //Connection was closed by server
donatien 12:89d09a6db00a 590 }
mapellil 19:17578cfdb57a 591 #endif
donatien 7:4e39864f7b15 592 int ret;
donatien 7:4e39864f7b15 593 while(readLen < maxLen)
donatien 0:2ccb9960a044 594 {
donatien 7:4e39864f7b15 595 if(readLen < minLen)
donatien 0:2ccb9960a044 596 {
donatien 12:89d09a6db00a 597 DBG("Trying to read at most %d bytes [Blocking]", minLen - readLen);
mapellil 19:17578cfdb57a 598 #ifdef LICIO
mapellil 19:17578cfdb57a 599 m_sock.set_blocking(false);
mapellil 19:17578cfdb57a 600 ret = m_sock.recv(buf + readLen, minLen - readLen);
mapellil 19:17578cfdb57a 601 #else
donatien 13:be61104f4e91 602 m_sock.set_blocking(false, m_timeout);
donatien 12:89d09a6db00a 603 ret = m_sock.receive_all(buf + readLen, minLen - readLen);
mapellil 19:17578cfdb57a 604 #endif
donatien 0:2ccb9960a044 605 }
donatien 7:4e39864f7b15 606 else
donatien 7:4e39864f7b15 607 {
donatien 12:89d09a6db00a 608 DBG("Trying to read at most %d bytes [Not blocking]", maxLen - readLen);
mapellil 19:17578cfdb57a 609 #ifdef LICIO
mapellil 19:17578cfdb57a 610 m_sock.set_blocking(false);
mapellil 19:17578cfdb57a 611 ret = m_sock.recv(buf + readLen, maxLen - readLen);
mapellil 19:17578cfdb57a 612 #else
donatien 13:be61104f4e91 613 m_sock.set_blocking(false, 0);
donatien 12:89d09a6db00a 614 ret = m_sock.receive(buf + readLen, maxLen - readLen);
mapellil 19:17578cfdb57a 615 #endif
donatien 7:4e39864f7b15 616 }
donatien 7:4e39864f7b15 617
donatien 0:2ccb9960a044 618 if( ret > 0)
donatien 0:2ccb9960a044 619 {
donatien 0:2ccb9960a044 620 readLen += ret;
donatien 0:2ccb9960a044 621 }
mapellil 20:bbbfaf4cc055 622 else if( ret == 0 || ret == NSAPI_ERROR_WOULD_BLOCK)
donatien 0:2ccb9960a044 623 {
donatien 7:4e39864f7b15 624 break;
donatien 7:4e39864f7b15 625 }
donatien 7:4e39864f7b15 626 else
donatien 7:4e39864f7b15 627 {
mapellil 19:17578cfdb57a 628 #ifdef LICIO
mapellil 19:17578cfdb57a 629 // if (ret == NSAPI_ERROR_NO_CONNECTION) { *pReadLen = readLen; return HTTP_CONN; }
mapellil 19:17578cfdb57a 630 #else
donatien 12:89d09a6db00a 631 if(!m_sock.is_connected())
donatien 12:89d09a6db00a 632 {
donatien 12:89d09a6db00a 633 ERR("Connection error (recv returned %d)", ret);
donatien 12:89d09a6db00a 634 *pReadLen = readLen;
donatien 12:89d09a6db00a 635 return HTTP_CONN;
donatien 12:89d09a6db00a 636 }
donatien 12:89d09a6db00a 637 else
donatien 12:89d09a6db00a 638 {
donatien 12:89d09a6db00a 639 break;
donatien 12:89d09a6db00a 640 }
mapellil 19:17578cfdb57a 641 #endif
donatien 12:89d09a6db00a 642 }
mapellil 19:17578cfdb57a 643 #ifdef LICIO
mapellil 19:17578cfdb57a 644 // if (ret == NSAPI_ERROR_NO_CONNECTION) { *pReadLen = readLen; return HTTP_CONN; }
mapellil 19:17578cfdb57a 645 #else
donatien 12:89d09a6db00a 646 if(!m_sock.is_connected())
donatien 12:89d09a6db00a 647 {
donatien 12:89d09a6db00a 648 break;
donatien 7:4e39864f7b15 649 }
mapellil 19:17578cfdb57a 650 #endif
donatien 7:4e39864f7b15 651 }
donatien 7:4e39864f7b15 652 DBG("Read %d bytes", readLen);
donatien 7:4e39864f7b15 653 *pReadLen = readLen;
donatien 11:390362de8c3f 654 return HTTP_OK;
donatien 7:4e39864f7b15 655 }
donatien 7:4e39864f7b15 656
donatien 11:390362de8c3f 657 HTTPResult HTTPClient::send(char* buf, size_t len) //0 on success, err code on failure
donatien 7:4e39864f7b15 658 {
donatien 7:4e39864f7b15 659 if(len == 0)
donatien 7:4e39864f7b15 660 {
donatien 7:4e39864f7b15 661 len = strlen(buf);
donatien 7:4e39864f7b15 662 }
donatien 7:4e39864f7b15 663 DBG("Trying to write %d bytes", len);
donatien 7:4e39864f7b15 664 size_t writtenLen = 0;
mapellil 19:17578cfdb57a 665
mapellil 19:17578cfdb57a 666 #ifdef LICIO
mapellil 19:17578cfdb57a 667 #else
donatien 12:89d09a6db00a 668 if(!m_sock.is_connected())
donatien 12:89d09a6db00a 669 {
donatien 12:89d09a6db00a 670 WARN("Connection was closed by server");
donatien 12:89d09a6db00a 671 return HTTP_CLOSED; //Connection was closed by server
donatien 12:89d09a6db00a 672 }
mapellil 19:17578cfdb57a 673 #endif
mapellil 19:17578cfdb57a 674 #ifdef LICIO
mapellil 19:17578cfdb57a 675 m_sock.set_blocking(false);
mapellil 19:17578cfdb57a 676 int ret = m_sock.send(buf, len);
mapellil 19:17578cfdb57a 677
mapellil 19:17578cfdb57a 678 #else
donatien 13:be61104f4e91 679 m_sock.set_blocking(false, m_timeout);
donatien 12:89d09a6db00a 680 int ret = m_sock.send_all(buf, len);
mapellil 19:17578cfdb57a 681 #endif
donatien 12:89d09a6db00a 682 if(ret > 0)
donatien 7:4e39864f7b15 683 {
donatien 12:89d09a6db00a 684 writtenLen += ret;
donatien 12:89d09a6db00a 685 }
donatien 12:89d09a6db00a 686 else if( ret == 0 )
donatien 12:89d09a6db00a 687 {
donatien 12:89d09a6db00a 688 WARN("Connection was closed by server");
donatien 12:89d09a6db00a 689 return HTTP_CLOSED; //Connection was closed by server
donatien 12:89d09a6db00a 690 }
donatien 12:89d09a6db00a 691 else
donatien 12:89d09a6db00a 692 {
donatien 12:89d09a6db00a 693 ERR("Connection error (send returned %d)", ret);
donatien 12:89d09a6db00a 694 return HTTP_CONN;
donatien 12:89d09a6db00a 695 }
donatien 7:4e39864f7b15 696
donatien 0:2ccb9960a044 697 DBG("Written %d bytes", writtenLen);
donatien 11:390362de8c3f 698 return HTTP_OK;
donatien 0:2ccb9960a044 699 }
donatien 0:2ccb9960a044 700
donatien 11:390362de8c3f 701 HTTPResult HTTPClient::parseURL(const char* url, char* scheme, size_t maxSchemeLen, char* host, size_t maxHostLen, uint16_t* port, char* path, size_t maxPathLen) //Parse URL
donatien 0:2ccb9960a044 702 {
donatien 0:2ccb9960a044 703 char* schemePtr = (char*) url;
donatien 0:2ccb9960a044 704 char* hostPtr = (char*) strstr(url, "://");
donatien 0:2ccb9960a044 705 if(hostPtr == NULL)
donatien 0:2ccb9960a044 706 {
donatien 0:2ccb9960a044 707 WARN("Could not find host");
donatien 11:390362de8c3f 708 return HTTP_PARSE; //URL is invalid
donatien 0:2ccb9960a044 709 }
donatien 0:2ccb9960a044 710
donatien 0:2ccb9960a044 711 if( maxSchemeLen < hostPtr - schemePtr + 1 ) //including NULL-terminating char
donatien 0:2ccb9960a044 712 {
donatien 0:2ccb9960a044 713 WARN("Scheme str is too small (%d >= %d)", maxSchemeLen, hostPtr - schemePtr + 1);
donatien 11:390362de8c3f 714 return HTTP_PARSE;
donatien 0:2ccb9960a044 715 }
donatien 0:2ccb9960a044 716 memcpy(scheme, schemePtr, hostPtr - schemePtr);
donatien 0:2ccb9960a044 717 scheme[hostPtr - schemePtr] = '\0';
donatien 0:2ccb9960a044 718
donatien 0:2ccb9960a044 719 hostPtr+=3;
donatien 0:2ccb9960a044 720
donatien 0:2ccb9960a044 721 size_t hostLen = 0;
donatien 0:2ccb9960a044 722
donatien 0:2ccb9960a044 723 char* portPtr = strchr(hostPtr, ':');
donatien 0:2ccb9960a044 724 if( portPtr != NULL )
donatien 0:2ccb9960a044 725 {
donatien 0:2ccb9960a044 726 hostLen = portPtr - hostPtr;
donatien 0:2ccb9960a044 727 portPtr++;
donatien 8:45c8da29a1cf 728 if( sscanf(portPtr, "%hu", port) != 1)
donatien 0:2ccb9960a044 729 {
donatien 0:2ccb9960a044 730 WARN("Could not find port");
donatien 11:390362de8c3f 731 return HTTP_PARSE;
donatien 0:2ccb9960a044 732 }
donatien 0:2ccb9960a044 733 }
donatien 0:2ccb9960a044 734 else
donatien 0:2ccb9960a044 735 {
donatien 0:2ccb9960a044 736 *port=0;
donatien 0:2ccb9960a044 737 }
donatien 0:2ccb9960a044 738 char* pathPtr = strchr(hostPtr, '/');
donatien 0:2ccb9960a044 739 if( hostLen == 0 )
donatien 0:2ccb9960a044 740 {
donatien 0:2ccb9960a044 741 hostLen = pathPtr - hostPtr;
donatien 0:2ccb9960a044 742 }
donatien 0:2ccb9960a044 743
donatien 0:2ccb9960a044 744 if( maxHostLen < hostLen + 1 ) //including NULL-terminating char
donatien 0:2ccb9960a044 745 {
donatien 0:2ccb9960a044 746 WARN("Host str is too small (%d >= %d)", maxHostLen, hostLen + 1);
donatien 11:390362de8c3f 747 return HTTP_PARSE;
donatien 0:2ccb9960a044 748 }
donatien 0:2ccb9960a044 749 memcpy(host, hostPtr, hostLen);
donatien 0:2ccb9960a044 750 host[hostLen] = '\0';
donatien 0:2ccb9960a044 751
donatien 0:2ccb9960a044 752 size_t pathLen;
donatien 0:2ccb9960a044 753 char* fragmentPtr = strchr(hostPtr, '#');
donatien 0:2ccb9960a044 754 if(fragmentPtr != NULL)
donatien 0:2ccb9960a044 755 {
donatien 0:2ccb9960a044 756 pathLen = fragmentPtr - pathPtr;
donatien 0:2ccb9960a044 757 }
donatien 0:2ccb9960a044 758 else
donatien 0:2ccb9960a044 759 {
donatien 0:2ccb9960a044 760 pathLen = strlen(pathPtr);
donatien 0:2ccb9960a044 761 }
donatien 0:2ccb9960a044 762
donatien 0:2ccb9960a044 763 if( maxPathLen < pathLen + 1 ) //including NULL-terminating char
donatien 0:2ccb9960a044 764 {
donatien 0:2ccb9960a044 765 WARN("Path str is too small (%d >= %d)", maxPathLen, pathLen + 1);
donatien 11:390362de8c3f 766 return HTTP_PARSE;
donatien 0:2ccb9960a044 767 }
donatien 0:2ccb9960a044 768 memcpy(path, pathPtr, pathLen);
donatien 0:2ccb9960a044 769 path[pathLen] = '\0';
donatien 0:2ccb9960a044 770
donatien 11:390362de8c3f 771 return HTTP_OK;
mapellil 19:17578cfdb57a 772 }