Donatien Garnier / HTTPClient_ToBeRemoved

HTTP Client library

Dependents:   weather_LCD_display News_LCD_display TwitterExample_1 GeoLocation_LCD_Display ... more

HTTPClient.cpp@7:d97a4fc01c86, 2012-04-19 (annotated)

Committer:
donatien
Date:
Thu Apr 19 09:52:54 2012 +0000
Revision:
7:d97a4fc01c86
Parent:
6:3d3824893be1 
Documentation++

Who changed what in which revision?

UserRevisionLine numberNew contents of line
donatien 6:3d3824893be1 1 /* HTTPClient.cpp */
donatien 6:3d3824893be1 2 /*
donatien 6:3d3824893be1 3 Copyright (C) 2012 ARM Limited.
donatien 6:3d3824893be1 4
donatien 6:3d3824893be1 5 Permission is hereby granted, free of charge, to any person obtaining a copy of
donatien 6:3d3824893be1 6 this software and associated documentation files (the "Software"), to deal in
donatien 6:3d3824893be1 7 the Software without restriction, including without limitation the rights to
donatien 6:3d3824893be1 8 use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies
donatien 6:3d3824893be1 9 of the Software, and to permit persons to whom the Software is furnished to do
donatien 6:3d3824893be1 10 so, subject to the following conditions:
donatien 6:3d3824893be1 11
donatien 6:3d3824893be1 12 The above copyright notice and this permission notice shall be included in all
donatien 6:3d3824893be1 13 copies or substantial portions of the Software.
donatien 6:3d3824893be1 14
donatien 6:3d3824893be1 15 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
donatien 6:3d3824893be1 16 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
donatien 6:3d3824893be1 17 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
donatien 6:3d3824893be1 18 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
donatien 6:3d3824893be1 19 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
donatien 6:3d3824893be1 20 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
donatien 6:3d3824893be1 21 SOFTWARE.
donatien 6:3d3824893be1 22 */
donatien 6:3d3824893be1 23
donatien 6:3d3824893be1 24 #define __DEBUG__ 4 //Maximum verbosity
donatien 6:3d3824893be1 25 #ifndef __MODULE__
donatien 6:3d3824893be1 26 #define __MODULE__ "HTTPClient.cpp"
donatien 6:3d3824893be1 27 #endif
donatien 6:3d3824893be1 28
donatien 6:3d3824893be1 29 #include "core/fwk.h"
donatien 6:3d3824893be1 30
donatien 6:3d3824893be1 31 #include "HTTPClient.h"
donatien 6:3d3824893be1 32
donatien 6:3d3824893be1 33 #define HTTP_REQUEST_TIMEOUT 30000
donatien 6:3d3824893be1 34 #define HTTP_PORT 80
donatien 6:3d3824893be1 35
donatien 6:3d3824893be1 36 #define CHUNK_SIZE 256
donatien 6:3d3824893be1 37
donatien 6:3d3824893be1 38 #include <cstring>
donatien 6:3d3824893be1 39
donatien 6:3d3824893be1 40 HTTPClient::HTTPClient() :
donatien 6:3d3824893be1 41 m_basicAuthUser(NULL), m_basicAuthPassword(NULL), m_httpResponseCode(0)
donatien 6:3d3824893be1 42 {
donatien 6:3d3824893be1 43
donatien 6:3d3824893be1 44 }
donatien 6:3d3824893be1 45
donatien 6:3d3824893be1 46 HTTPClient::~HTTPClient()
donatien 6:3d3824893be1 47 {
donatien 6:3d3824893be1 48
donatien 6:3d3824893be1 49 }
donatien 6:3d3824893be1 50
donatien 6:3d3824893be1 51 #if 0
donatien 6:3d3824893be1 52 void HTTPClient::basicAuth(const char* user, const char* password) //Basic Authentification
donatien 6:3d3824893be1 53 {
donatien 6:3d3824893be1 54 m_basicAuthUser = user;
donatien 6:3d3824893be1 55 m_basicAuthPassword = password;
donatien 6:3d3824893be1 56 }
donatien 6:3d3824893be1 57 #endif
donatien 6:3d3824893be1 58
donatien 6:3d3824893be1 59 int HTTPClient::get(const char* url, IHTTPDataIn* pDataIn, uint32_t timeout /*= HTTP_CLIENT_DEFAULT_TIMEOUT*/) //Blocking
donatien 6:3d3824893be1 60 {
donatien 6:3d3824893be1 61 return connect(url, HTTP_GET, NULL, pDataIn, timeout);
donatien 6:3d3824893be1 62 }
donatien 6:3d3824893be1 63
donatien 6:3d3824893be1 64 int HTTPClient::get(const char* url, char* result, size_t maxResultLen, uint32_t timeout /*= HTTP_CLIENT_DEFAULT_TIMEOUT*/) //Blocking
donatien 6:3d3824893be1 65 {
donatien 6:3d3824893be1 66 HTTPText str(result, maxResultLen);
donatien 6:3d3824893be1 67 return get(url, &str, timeout);
donatien 6:3d3824893be1 68 }
donatien 6:3d3824893be1 69
donatien 6:3d3824893be1 70 int HTTPClient::post(const char* url, const IHTTPDataOut& dataOut, IHTTPDataIn* pDataIn, uint32_t timeout /*= HTTP_CLIENT_DEFAULT_TIMEOUT*/) //Blocking
donatien 6:3d3824893be1 71 {
donatien 6:3d3824893be1 72 return connect(url, HTTP_POST, (IHTTPDataOut*)&dataOut, pDataIn, timeout);
donatien 6:3d3824893be1 73 }
donatien 6:3d3824893be1 74
donatien 6:3d3824893be1 75 int HTTPClient::getHTTPResponseCode()
donatien 6:3d3824893be1 76 {
donatien 6:3d3824893be1 77 return m_httpResponseCode;
donatien 6:3d3824893be1 78 }
donatien 6:3d3824893be1 79
donatien 6:3d3824893be1 80
donatien 6:3d3824893be1 81 int HTTPClient::connect(const char* url, HTTP_METH method, IHTTPDataOut* pDataOut, IHTTPDataIn* pDataIn, uint32_t timeout) //Execute request
donatien 6:3d3824893be1 82 {
donatien 6:3d3824893be1 83 m_httpResponseCode = 0; //Invalidate code
donatien 6:3d3824893be1 84 m_timeout = timeout;
donatien 6:3d3824893be1 85
donatien 6:3d3824893be1 86 char scheme[8];
donatien 6:3d3824893be1 87 uint16_t port;
donatien 6:3d3824893be1 88 char host[32];
donatien 6:3d3824893be1 89 char path[64];
donatien 6:3d3824893be1 90 //First we need to parse the url (http[s]://host[:port][/[path]]) -- HTTPS not supported (yet?)
donatien 6:3d3824893be1 91 int ret = parseURL(url, scheme, sizeof(scheme), host, sizeof(host), &port, path, sizeof(path));
donatien 6:3d3824893be1 92 if(ret != OK)
donatien 6:3d3824893be1 93 {
donatien 6:3d3824893be1 94 ERR("parseURL returned %d", ret);
donatien 6:3d3824893be1 95 return ret;
donatien 6:3d3824893be1 96 }
donatien 6:3d3824893be1 97
donatien 6:3d3824893be1 98 if(port == 0) //TODO do handle HTTPS->443
donatien 6:3d3824893be1 99 {
donatien 6:3d3824893be1 100 port = 80;
donatien 6:3d3824893be1 101 }
donatien 6:3d3824893be1 102
donatien 6:3d3824893be1 103 DBG("Scheme: %s", scheme);
donatien 6:3d3824893be1 104 DBG("Host: %s", host);
donatien 6:3d3824893be1 105 DBG("Port: %d", port);
donatien 6:3d3824893be1 106 DBG("Path: %s", path);
donatien 6:3d3824893be1 107
donatien 6:3d3824893be1 108 //Now populate structure
donatien 6:3d3824893be1 109 std::memset(&m_serverAddr, 0, sizeof(struct sockaddr_in));
donatien 6:3d3824893be1 110
donatien 6:3d3824893be1 111 //Resolve DNS if needed
donatien 6:3d3824893be1 112
donatien 6:3d3824893be1 113 DBG("Resolving DNS address or populate hard-coded IP address");
donatien 6:3d3824893be1 114 struct hostent *server = socket::gethostbyname(host);
donatien 6:3d3824893be1 115 if(server == NULL)
donatien 6:3d3824893be1 116 {
donatien 6:3d3824893be1 117 return NET_NOTFOUND; //Fail
donatien 6:3d3824893be1 118 }
donatien 6:3d3824893be1 119 memcpy((char*)&m_serverAddr.sin_addr.s_addr, (char*)server->h_addr_list[0], server->h_length);
donatien 6:3d3824893be1 120
donatien 6:3d3824893be1 121 m_serverAddr.sin_family = AF_INET;
donatien 6:3d3824893be1 122 m_serverAddr.sin_port = htons(port);
donatien 6:3d3824893be1 123
donatien 6:3d3824893be1 124 //Create socket
donatien 6:3d3824893be1 125 DBG("Creating socket");
donatien 6:3d3824893be1 126 m_sock = socket::socket(AF_INET, SOCK_STREAM, 0); //UDP socket
donatien 6:3d3824893be1 127 if (m_sock < 0)
donatien 6:3d3824893be1 128 {
donatien 6:3d3824893be1 129 ERR("Could not create socket");
donatien 6:3d3824893be1 130 return NET_OOM;
donatien 6:3d3824893be1 131 }
donatien 6:3d3824893be1 132 DBG("Handle is %d", m_sock);
donatien 6:3d3824893be1 133
donatien 6:3d3824893be1 134 //Connect it
donatien 6:3d3824893be1 135 DBG("Connecting socket to %s:%d", inet_ntoa(m_serverAddr.sin_addr), ntohs(m_serverAddr.sin_port));
donatien 6:3d3824893be1 136 ret = socket::connect(m_sock, (const struct sockaddr *)&m_serverAddr, sizeof(m_serverAddr));
donatien 6:3d3824893be1 137 if (ret < 0)
donatien 6:3d3824893be1 138 {
donatien 6:3d3824893be1 139 socket::close(m_sock);
donatien 6:3d3824893be1 140 ERR("Could not connect");
donatien 6:3d3824893be1 141 return NET_CONN;
donatien 6:3d3824893be1 142 }
donatien 6:3d3824893be1 143
donatien 6:3d3824893be1 144 //Send request
donatien 6:3d3824893be1 145 DBG("Sending request");
donatien 6:3d3824893be1 146 char line[128];
donatien 6:3d3824893be1 147 const char* meth = (method==HTTP_GET)?"GET":(method==HTTP_POST)?"POST":"";
donatien 6:3d3824893be1 148 snprintf(line, sizeof(line), "%s %s HTTP/1.1\r\nHost: %s\r\n", meth, path, host); //Write request
donatien 6:3d3824893be1 149 ret = send(line);
donatien 6:3d3824893be1 150 if(ret)
donatien 6:3d3824893be1 151 {
donatien 6:3d3824893be1 152 socket::close(m_sock);
donatien 6:3d3824893be1 153 ERR("Could not write request");
donatien 6:3d3824893be1 154 return NET_CONN;
donatien 6:3d3824893be1 155 }
donatien 6:3d3824893be1 156
donatien 6:3d3824893be1 157 //Send all headers
donatien 6:3d3824893be1 158
donatien 6:3d3824893be1 159 //Send default headers
donatien 6:3d3824893be1 160 DBG("Sending headers");
donatien 6:3d3824893be1 161 if( (method == HTTP_POST) && (pDataOut != NULL) )
donatien 6:3d3824893be1 162 {
donatien 6:3d3824893be1 163 if( pDataOut->getIsChunked() )
donatien 6:3d3824893be1 164 {
donatien 6:3d3824893be1 165 ret = send("Transfer-Encoding: chunked\r\n");
donatien 6:3d3824893be1 166 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 167 }
donatien 6:3d3824893be1 168 else
donatien 6:3d3824893be1 169 {
donatien 6:3d3824893be1 170 snprintf(line, sizeof(line), "Content-Length: %d\r\n", pDataOut->getDataLen());
donatien 6:3d3824893be1 171 ret = send(line);
donatien 6:3d3824893be1 172 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 173 }
donatien 6:3d3824893be1 174 char type[48];
donatien 6:3d3824893be1 175 if( pDataOut->getDataType(type, 48) == OK )
donatien 6:3d3824893be1 176 {
donatien 6:3d3824893be1 177 snprintf(line, sizeof(line), "Content-Type: %s\r\n", type);
donatien 6:3d3824893be1 178 ret = send(line);
donatien 6:3d3824893be1 179 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 180 }
donatien 6:3d3824893be1 181 }
donatien 6:3d3824893be1 182
donatien 6:3d3824893be1 183 //Close headers
donatien 6:3d3824893be1 184 DBG("Headers sent");
donatien 6:3d3824893be1 185 ret = send("\r\n");
donatien 6:3d3824893be1 186 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 187
donatien 6:3d3824893be1 188 char buf[CHUNK_SIZE];
donatien 6:3d3824893be1 189 size_t trfLen;
donatien 6:3d3824893be1 190
donatien 6:3d3824893be1 191 //Send data (if POST)
donatien 6:3d3824893be1 192 if( (method == HTTP_POST) && (pDataOut != NULL) )
donatien 6:3d3824893be1 193 {
donatien 6:3d3824893be1 194 DBG("Sending data");
donatien 6:3d3824893be1 195 while(true)
donatien 6:3d3824893be1 196 {
donatien 6:3d3824893be1 197 size_t writtenLen = 0;
donatien 6:3d3824893be1 198 pDataOut->read(buf, CHUNK_SIZE, &trfLen);
donatien 6:3d3824893be1 199 if( pDataOut->getIsChunked() )
donatien 6:3d3824893be1 200 {
donatien 6:3d3824893be1 201 //Write chunk header
donatien 6:3d3824893be1 202 snprintf(line, sizeof(line), "%X\r\n", trfLen); //In hex encoding
donatien 6:3d3824893be1 203 ret = send(line);
donatien 6:3d3824893be1 204 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 205 }
donatien 6:3d3824893be1 206 else if( trfLen == 0 )
donatien 6:3d3824893be1 207 {
donatien 6:3d3824893be1 208 break;
donatien 6:3d3824893be1 209 }
donatien 6:3d3824893be1 210 if( trfLen != 0 )
donatien 6:3d3824893be1 211 {
donatien 6:3d3824893be1 212 ret = send(buf, trfLen);
donatien 6:3d3824893be1 213 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 214 }
donatien 6:3d3824893be1 215
donatien 6:3d3824893be1 216 if( pDataOut->getIsChunked() )
donatien 6:3d3824893be1 217 {
donatien 6:3d3824893be1 218 ret = send("\r\n"); //Chunk-terminating CRLF
donatien 6:3d3824893be1 219 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 220 }
donatien 6:3d3824893be1 221 else
donatien 6:3d3824893be1 222 {
donatien 6:3d3824893be1 223 writtenLen += trfLen;
donatien 6:3d3824893be1 224 if( writtenLen >= pDataOut->getDataLen() )
donatien 6:3d3824893be1 225 {
donatien 6:3d3824893be1 226 break;
donatien 6:3d3824893be1 227 }
donatien 6:3d3824893be1 228 }
donatien 6:3d3824893be1 229
donatien 6:3d3824893be1 230 if( trfLen == 0 )
donatien 6:3d3824893be1 231 {
donatien 6:3d3824893be1 232 break;
donatien 6:3d3824893be1 233 }
donatien 6:3d3824893be1 234 }
donatien 6:3d3824893be1 235
donatien 6:3d3824893be1 236 }
donatien 6:3d3824893be1 237
donatien 6:3d3824893be1 238 //Receive response
donatien 6:3d3824893be1 239 DBG("Receiving response");
donatien 6:3d3824893be1 240 ret = recv(buf, CHUNK_SIZE, CHUNK_SIZE, &trfLen); //Read n bytes
donatien 6:3d3824893be1 241 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 242
donatien 6:3d3824893be1 243 buf[trfLen] = '\0';
donatien 6:3d3824893be1 244
donatien 6:3d3824893be1 245 char* crlfPtr = strstr(buf, "\r\n");
donatien 6:3d3824893be1 246 if(crlfPtr == NULL)
donatien 6:3d3824893be1 247 {
donatien 6:3d3824893be1 248 goto prtclerr;
donatien 6:3d3824893be1 249 }
donatien 6:3d3824893be1 250
donatien 6:3d3824893be1 251 int crlfPos = crlfPtr - buf;
donatien 6:3d3824893be1 252 buf[crlfPos] = '\0';
donatien 6:3d3824893be1 253
donatien 6:3d3824893be1 254 //Parse HTTP response
donatien 6:3d3824893be1 255 if( sscanf(buf, "HTTP/%*d.%*d %d %*[^\r\n]", &m_httpResponseCode) != 1 )
donatien 6:3d3824893be1 256 {
donatien 6:3d3824893be1 257 //Cannot match string, error
donatien 6:3d3824893be1 258 ERR("Not a correct HTTP answer : %s\n", buf);
donatien 6:3d3824893be1 259 goto prtclerr;
donatien 6:3d3824893be1 260 }
donatien 6:3d3824893be1 261
donatien 6:3d3824893be1 262 if(m_httpResponseCode != 200)
donatien 6:3d3824893be1 263 {
donatien 6:3d3824893be1 264 //Cannot match string, error
donatien 6:3d3824893be1 265 WARN("Response code %d", m_httpResponseCode);
donatien 6:3d3824893be1 266 goto prtclerr;
donatien 6:3d3824893be1 267 }
donatien 6:3d3824893be1 268
donatien 6:3d3824893be1 269 DBG("Reading headers");
donatien 6:3d3824893be1 270
donatien 6:3d3824893be1 271 memmove(buf, &buf[crlfPos+2], trfLen - (crlfPos + 2));
donatien 6:3d3824893be1 272 trfLen -= (crlfPos + 2);
donatien 6:3d3824893be1 273
donatien 6:3d3824893be1 274 size_t recvContentLength = 0;
donatien 6:3d3824893be1 275 bool recvChunked = false;
donatien 6:3d3824893be1 276 //Now get headers
donatien 6:3d3824893be1 277 while( true )
donatien 6:3d3824893be1 278 {
donatien 6:3d3824893be1 279 crlfPtr = strstr(buf, "\r\n");
donatien 6:3d3824893be1 280 if(crlfPtr == NULL)
donatien 6:3d3824893be1 281 {
donatien 6:3d3824893be1 282 if( trfLen < CHUNK_SIZE )
donatien 6:3d3824893be1 283 {
donatien 6:3d3824893be1 284 size_t newTrfLen;
donatien 6:3d3824893be1 285 ret = recv(buf + trfLen, 1, CHUNK_SIZE - trfLen - 1, &newTrfLen);
donatien 6:3d3824893be1 286 trfLen += newTrfLen;
donatien 6:3d3824893be1 287 buf[trfLen] = '\0';
donatien 6:3d3824893be1 288 DBG("In buf: [%s]", buf);
donatien 6:3d3824893be1 289 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 290 continue;
donatien 6:3d3824893be1 291 }
donatien 6:3d3824893be1 292 else
donatien 6:3d3824893be1 293 {
donatien 6:3d3824893be1 294 goto prtclerr;
donatien 6:3d3824893be1 295 }
donatien 6:3d3824893be1 296 }
donatien 6:3d3824893be1 297
donatien 6:3d3824893be1 298 crlfPos = crlfPtr - buf;
donatien 6:3d3824893be1 299
donatien 6:3d3824893be1 300 if(crlfPos == 0) //End of headers
donatien 6:3d3824893be1 301 {
donatien 6:3d3824893be1 302 DBG("Headers read");
donatien 6:3d3824893be1 303 memmove(buf, &buf[2], trfLen - 2);
donatien 6:3d3824893be1 304 trfLen -= 2;
donatien 6:3d3824893be1 305 break;
donatien 6:3d3824893be1 306 }
donatien 6:3d3824893be1 307
donatien 6:3d3824893be1 308 buf[crlfPos] = '\0';
donatien 6:3d3824893be1 309
donatien 6:3d3824893be1 310 char key[16];
donatien 6:3d3824893be1 311 char value[16];
donatien 6:3d3824893be1 312
donatien 6:3d3824893be1 313 int n = sscanf(buf, "%16[^:]: %16[^\r\n]", key, value);
donatien 6:3d3824893be1 314 if ( n == 2 )
donatien 6:3d3824893be1 315 {
donatien 6:3d3824893be1 316 DBG("Read header : %s: %s\n", key, value);
donatien 6:3d3824893be1 317 if( !strcmp(key, "Content-Length") )
donatien 6:3d3824893be1 318 {
donatien 6:3d3824893be1 319 sscanf(value, "%d", &recvContentLength);
donatien 6:3d3824893be1 320 pDataIn->setDataLen(recvContentLength);
donatien 6:3d3824893be1 321 }
donatien 6:3d3824893be1 322 else if( !strcmp(key, "Transfer-Encoding") )
donatien 6:3d3824893be1 323 {
donatien 6:3d3824893be1 324 if( !strcmp(value, "Chunked") || !strcmp(value, "chunked") )
donatien 6:3d3824893be1 325 {
donatien 6:3d3824893be1 326 recvChunked = true;
donatien 6:3d3824893be1 327 pDataIn->setIsChunked(true);
donatien 6:3d3824893be1 328 }
donatien 6:3d3824893be1 329 }
donatien 6:3d3824893be1 330 else if( !strcmp(key, "Content-Type") )
donatien 6:3d3824893be1 331 {
donatien 6:3d3824893be1 332 pDataIn->setDataType(value);
donatien 6:3d3824893be1 333 }
donatien 6:3d3824893be1 334
donatien 6:3d3824893be1 335 memmove(buf, &buf[crlfPos+2], trfLen - (crlfPos + 2));
donatien 6:3d3824893be1 336 trfLen -= (crlfPos + 2);
donatien 6:3d3824893be1 337
donatien 6:3d3824893be1 338 }
donatien 6:3d3824893be1 339 else
donatien 6:3d3824893be1 340 {
donatien 6:3d3824893be1 341 ERR("Could not parse header");
donatien 6:3d3824893be1 342 goto prtclerr;
donatien 6:3d3824893be1 343 }
donatien 6:3d3824893be1 344
donatien 6:3d3824893be1 345 }
donatien 6:3d3824893be1 346
donatien 6:3d3824893be1 347 //Receive data
donatien 6:3d3824893be1 348 DBG("Receiving data");
donatien 6:3d3824893be1 349 while(true)
donatien 6:3d3824893be1 350 {
donatien 6:3d3824893be1 351 size_t readLen = 0;
donatien 6:3d3824893be1 352
donatien 6:3d3824893be1 353 if( recvChunked )
donatien 6:3d3824893be1 354 {
donatien 6:3d3824893be1 355 //Read chunk header
donatien 6:3d3824893be1 356 crlfPos=0;
donatien 6:3d3824893be1 357 for(crlfPos++; crlfPos < trfLen - 2; crlfPos++)
donatien 6:3d3824893be1 358 {
donatien 6:3d3824893be1 359 if( buf[crlfPos] == '\r' && buf[crlfPos + 1] == '\n' )
donatien 6:3d3824893be1 360 {
donatien 6:3d3824893be1 361 break;
donatien 6:3d3824893be1 362 }
donatien 6:3d3824893be1 363 }
donatien 6:3d3824893be1 364 if(crlfPos >= trfLen - 2) //Try to read more
donatien 6:3d3824893be1 365 {
donatien 6:3d3824893be1 366 if( trfLen < CHUNK_SIZE )
donatien 6:3d3824893be1 367 {
donatien 6:3d3824893be1 368 size_t newTrfLen;
donatien 6:3d3824893be1 369 ret = recv(buf + trfLen, 0, CHUNK_SIZE - trfLen - 1, &newTrfLen);
donatien 6:3d3824893be1 370 trfLen += newTrfLen;
donatien 6:3d3824893be1 371 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 372 continue;
donatien 6:3d3824893be1 373 }
donatien 6:3d3824893be1 374 else
donatien 6:3d3824893be1 375 {
donatien 6:3d3824893be1 376 goto prtclerr;
donatien 6:3d3824893be1 377 }
donatien 6:3d3824893be1 378 }
donatien 6:3d3824893be1 379 buf[crlfPos] = '\0';
donatien 6:3d3824893be1 380 int n = sscanf(buf, "%x", &readLen);
donatien 6:3d3824893be1 381 if(n!=1)
donatien 6:3d3824893be1 382 {
donatien 6:3d3824893be1 383 ERR("Could not read chunk length");
donatien 6:3d3824893be1 384 goto prtclerr;
donatien 6:3d3824893be1 385 }
donatien 6:3d3824893be1 386
donatien 6:3d3824893be1 387 memmove(buf, &buf[crlfPos+2], trfLen - (crlfPos + 2));
donatien 6:3d3824893be1 388 trfLen -= (crlfPos + 2);
donatien 6:3d3824893be1 389
donatien 6:3d3824893be1 390 if( readLen == 0 )
donatien 6:3d3824893be1 391 {
donatien 6:3d3824893be1 392 //Last chunk
donatien 6:3d3824893be1 393 break;
donatien 6:3d3824893be1 394 }
donatien 6:3d3824893be1 395 }
donatien 6:3d3824893be1 396 else
donatien 6:3d3824893be1 397 {
donatien 6:3d3824893be1 398 readLen = recvContentLength;
donatien 6:3d3824893be1 399 }
donatien 6:3d3824893be1 400
donatien 6:3d3824893be1 401 DBG("Retrieving %d bytes", readLen);
donatien 6:3d3824893be1 402
donatien 6:3d3824893be1 403 do
donatien 6:3d3824893be1 404 {
donatien 6:3d3824893be1 405 pDataIn->write(buf, MIN(trfLen, readLen));
donatien 6:3d3824893be1 406 if( trfLen > readLen )
donatien 6:3d3824893be1 407 {
donatien 6:3d3824893be1 408 memmove(buf, &buf[readLen], trfLen - readLen);
donatien 6:3d3824893be1 409 trfLen -= readLen;
donatien 6:3d3824893be1 410 readLen = 0;
donatien 6:3d3824893be1 411 }
donatien 6:3d3824893be1 412 else
donatien 6:3d3824893be1 413 {
donatien 6:3d3824893be1 414 readLen -= trfLen;
donatien 6:3d3824893be1 415 }
donatien 6:3d3824893be1 416
donatien 6:3d3824893be1 417 if(readLen)
donatien 6:3d3824893be1 418 {
donatien 6:3d3824893be1 419 ret = recv(buf, 1, CHUNK_SIZE - trfLen - 1, &trfLen);
donatien 6:3d3824893be1 420 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 421
donatien 6:3d3824893be1 422 }
donatien 6:3d3824893be1 423 } while(readLen);
donatien 6:3d3824893be1 424
donatien 6:3d3824893be1 425 if( recvChunked )
donatien 6:3d3824893be1 426 {
donatien 6:3d3824893be1 427 if(trfLen < 2)
donatien 6:3d3824893be1 428 {
donatien 6:3d3824893be1 429 size_t newTrfLen;
donatien 6:3d3824893be1 430 //Read missing chars to find end of chunk
donatien 6:3d3824893be1 431 ret = recv(buf, 2 - trfLen, CHUNK_SIZE, &newTrfLen);
donatien 6:3d3824893be1 432 if(ret != OK) goto connerr;
donatien 6:3d3824893be1 433 trfLen += newTrfLen;
donatien 6:3d3824893be1 434 }
donatien 6:3d3824893be1 435 if( (buf[0] != '\r') || (buf[1] != '\n') )
donatien 6:3d3824893be1 436 {
donatien 6:3d3824893be1 437 ERR("Format error");
donatien 6:3d3824893be1 438 goto prtclerr;
donatien 6:3d3824893be1 439 }
donatien 6:3d3824893be1 440 memmove(buf, &buf[2], trfLen - 2);
donatien 6:3d3824893be1 441 trfLen -= 2;
donatien 6:3d3824893be1 442 }
donatien 6:3d3824893be1 443 else
donatien 6:3d3824893be1 444 {
donatien 6:3d3824893be1 445 break;
donatien 6:3d3824893be1 446 }
donatien 6:3d3824893be1 447
donatien 6:3d3824893be1 448 }
donatien 6:3d3824893be1 449
donatien 6:3d3824893be1 450 socket::close(m_sock);
donatien 6:3d3824893be1 451 DBG("Completed HTTP transaction");
donatien 6:3d3824893be1 452
donatien 6:3d3824893be1 453 return OK;
donatien 6:3d3824893be1 454
donatien 6:3d3824893be1 455 connerr:
donatien 6:3d3824893be1 456 socket::close(m_sock);
donatien 6:3d3824893be1 457 ERR("Connection error (%d)", ret);
donatien 6:3d3824893be1 458 return NET_CONN;
donatien 6:3d3824893be1 459
donatien 6:3d3824893be1 460 prtclerr:
donatien 6:3d3824893be1 461 socket::close(m_sock);
donatien 6:3d3824893be1 462 ERR("Protocol error");
donatien 6:3d3824893be1 463 return NET_PROTOCOL;
donatien 6:3d3824893be1 464
donatien 6:3d3824893be1 465 }
donatien 6:3d3824893be1 466
donatien 6:3d3824893be1 467 int HTTPClient::recv(char* buf, size_t minLen, size_t maxLen, size_t* pReadLen) //0 on success, err code on failure
donatien 6:3d3824893be1 468 {
donatien 6:3d3824893be1 469 DBG("Trying to read between %d and %d bytes", minLen, maxLen);
donatien 6:3d3824893be1 470 size_t readLen = 0;
donatien 6:3d3824893be1 471 while(readLen < minLen)
donatien 6:3d3824893be1 472 {
donatien 6:3d3824893be1 473 //Wait for socket to be readable
donatien 6:3d3824893be1 474 //Creating FS set
donatien 6:3d3824893be1 475 fd_set socksSet;
donatien 6:3d3824893be1 476 FD_ZERO(&socksSet);
donatien 6:3d3824893be1 477 FD_SET(m_sock, &socksSet);
donatien 6:3d3824893be1 478 struct timeval t_val;
donatien 6:3d3824893be1 479 t_val.tv_sec = m_timeout / 1000;
donatien 6:3d3824893be1 480 t_val.tv_usec = (m_timeout - (t_val.tv_sec * 1000)) * 1000;
donatien 6:3d3824893be1 481 int ret = socket::select(FD_SETSIZE, &socksSet, NULL, NULL, &t_val);
donatien 6:3d3824893be1 482 if(ret <= 0 || !FD_ISSET(m_sock, &socksSet))
donatien 6:3d3824893be1 483 {
donatien 6:3d3824893be1 484 WARN("Timeout");
donatien 6:3d3824893be1 485 return NET_TIMEOUT; //Timeout
donatien 6:3d3824893be1 486 }
donatien 6:3d3824893be1 487
donatien 6:3d3824893be1 488 ret = socket::recv(m_sock, buf + readLen, maxLen - readLen, 0);
donatien 6:3d3824893be1 489 if( ret > 0)
donatien 6:3d3824893be1 490 {
donatien 6:3d3824893be1 491 readLen += ret;
donatien 6:3d3824893be1 492 continue;
donatien 6:3d3824893be1 493 }
donatien 6:3d3824893be1 494 else if( ret == 0 )
donatien 6:3d3824893be1 495 {
donatien 6:3d3824893be1 496 WARN("Connection was closed by server");
donatien 6:3d3824893be1 497 return NET_CLOSED; //Connection was closed by server
donatien 6:3d3824893be1 498 }
donatien 6:3d3824893be1 499 else
donatien 6:3d3824893be1 500 {
donatien 6:3d3824893be1 501 ERR("Connection error (recv returned %d)", ret);
donatien 6:3d3824893be1 502 return NET_CONN;
donatien 6:3d3824893be1 503 }
donatien 6:3d3824893be1 504 }
donatien 6:3d3824893be1 505 *pReadLen = readLen;
donatien 6:3d3824893be1 506 DBG("Read %d bytes", readLen);
donatien 6:3d3824893be1 507 return OK;
donatien 6:3d3824893be1 508 }
donatien 6:3d3824893be1 509
donatien 6:3d3824893be1 510 int HTTPClient::send(char* buf, size_t len) //0 on success, err code on failure
donatien 6:3d3824893be1 511 {
donatien 6:3d3824893be1 512 if(len == 0)
donatien 6:3d3824893be1 513 {
donatien 6:3d3824893be1 514 len = strlen(buf);
donatien 6:3d3824893be1 515 }
donatien 6:3d3824893be1 516 DBG("Trying to write %d bytes", len);
donatien 6:3d3824893be1 517 size_t writtenLen = 0;
donatien 6:3d3824893be1 518 while(writtenLen < len)
donatien 6:3d3824893be1 519 {
donatien 6:3d3824893be1 520 //Wait for socket to be writeable
donatien 6:3d3824893be1 521 //Creating FS set
donatien 6:3d3824893be1 522 fd_set socksSet;
donatien 6:3d3824893be1 523 FD_ZERO(&socksSet);
donatien 6:3d3824893be1 524 FD_SET(m_sock, &socksSet);
donatien 6:3d3824893be1 525 struct timeval t_val;
donatien 6:3d3824893be1 526 t_val.tv_sec = m_timeout / 1000;
donatien 6:3d3824893be1 527 t_val.tv_usec = (m_timeout - (t_val.tv_sec * 1000)) * 1000;
donatien 6:3d3824893be1 528 int ret = socket::select(FD_SETSIZE, NULL, &socksSet, NULL, &t_val);
donatien 6:3d3824893be1 529 if(ret <= 0 || !FD_ISSET(m_sock, &socksSet))
donatien 6:3d3824893be1 530 {
donatien 6:3d3824893be1 531 WARN("Timeout");
donatien 6:3d3824893be1 532 return NET_TIMEOUT; //Timeout
donatien 6:3d3824893be1 533 }
donatien 6:3d3824893be1 534
donatien 6:3d3824893be1 535 ret = socket::send(m_sock, buf + writtenLen, len - writtenLen, 0);
donatien 6:3d3824893be1 536 if( ret > 0)
donatien 6:3d3824893be1 537 {
donatien 6:3d3824893be1 538 writtenLen += ret;
donatien 6:3d3824893be1 539 continue;
donatien 6:3d3824893be1 540 }
donatien 6:3d3824893be1 541 else if( ret == 0 )
donatien 6:3d3824893be1 542 {
donatien 6:3d3824893be1 543 WARN("Connection was closed by server");
donatien 6:3d3824893be1 544 return NET_CLOSED; //Connection was closed by server
donatien 6:3d3824893be1 545 }
donatien 6:3d3824893be1 546 else
donatien 6:3d3824893be1 547 {
donatien 6:3d3824893be1 548 ERR("Connection error (recv returned %d)", ret);
donatien 6:3d3824893be1 549 return NET_CONN;
donatien 6:3d3824893be1 550 }
donatien 6:3d3824893be1 551 }
donatien 6:3d3824893be1 552 DBG("Written %d bytes", writtenLen);
donatien 6:3d3824893be1 553 return OK;
donatien 6:3d3824893be1 554 }
donatien 6:3d3824893be1 555
donatien 6:3d3824893be1 556 int 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 6:3d3824893be1 557 {
donatien 6:3d3824893be1 558 char* schemePtr = (char*) url;
donatien 6:3d3824893be1 559 char* hostPtr = (char*) strstr(url, "://");
donatien 6:3d3824893be1 560 if(hostPtr == NULL)
donatien 6:3d3824893be1 561 {
donatien 6:3d3824893be1 562 WARN("Could not find host");
donatien 6:3d3824893be1 563 return NET_INVALID; //URL is invalid
donatien 6:3d3824893be1 564 }
donatien 6:3d3824893be1 565
donatien 6:3d3824893be1 566 if( maxSchemeLen < hostPtr - schemePtr + 1 ) //including NULL-terminating char
donatien 6:3d3824893be1 567 {
donatien 6:3d3824893be1 568 WARN("Scheme str is too small (%d >= %d)", maxSchemeLen, hostPtr - schemePtr + 1);
donatien 6:3d3824893be1 569 return NET_TOOSMALL;
donatien 6:3d3824893be1 570 }
donatien 6:3d3824893be1 571 memcpy(scheme, schemePtr, hostPtr - schemePtr);
donatien 6:3d3824893be1 572 scheme[hostPtr - schemePtr] = '\0';
donatien 6:3d3824893be1 573
donatien 6:3d3824893be1 574 hostPtr+=3;
donatien 6:3d3824893be1 575
donatien 6:3d3824893be1 576 size_t hostLen = 0;
donatien 6:3d3824893be1 577
donatien 6:3d3824893be1 578 char* portPtr = strchr(hostPtr, ':');
donatien 6:3d3824893be1 579 if( portPtr != NULL )
donatien 6:3d3824893be1 580 {
donatien 6:3d3824893be1 581 hostLen = portPtr - hostPtr;
donatien 6:3d3824893be1 582 portPtr++;
donatien 6:3d3824893be1 583 if( sscanf(portPtr, "%d", &port) != 1)
donatien 6:3d3824893be1 584 {
donatien 6:3d3824893be1 585 WARN("Could not find port");
donatien 6:3d3824893be1 586 return NET_INVALID;
donatien 6:3d3824893be1 587 }
donatien 6:3d3824893be1 588 }
donatien 6:3d3824893be1 589 else
donatien 6:3d3824893be1 590 {
donatien 6:3d3824893be1 591 *port=0;
donatien 6:3d3824893be1 592 }
donatien 6:3d3824893be1 593 char* pathPtr = strchr(hostPtr, '/');
donatien 6:3d3824893be1 594 if( hostLen == 0 )
donatien 6:3d3824893be1 595 {
donatien 6:3d3824893be1 596 hostLen = pathPtr - hostPtr;
donatien 6:3d3824893be1 597 }
donatien 6:3d3824893be1 598
donatien 6:3d3824893be1 599 if( maxHostLen < hostLen + 1 ) //including NULL-terminating char
donatien 6:3d3824893be1 600 {
donatien 6:3d3824893be1 601 WARN("Host str is too small (%d >= %d)", maxHostLen, hostLen + 1);
donatien 6:3d3824893be1 602 return NET_TOOSMALL;
donatien 6:3d3824893be1 603 }
donatien 6:3d3824893be1 604 memcpy(host, hostPtr, hostLen);
donatien 6:3d3824893be1 605 host[hostLen] = '\0';
donatien 6:3d3824893be1 606
donatien 6:3d3824893be1 607 size_t pathLen;
donatien 6:3d3824893be1 608 char* fragmentPtr = strchr(hostPtr, '#');
donatien 6:3d3824893be1 609 if(fragmentPtr != NULL)
donatien 6:3d3824893be1 610 {
donatien 6:3d3824893be1 611 pathLen = fragmentPtr - pathPtr;
donatien 6:3d3824893be1 612 }
donatien 6:3d3824893be1 613 else
donatien 6:3d3824893be1 614 {
donatien 6:3d3824893be1 615 pathLen = strlen(pathPtr);
donatien 6:3d3824893be1 616 }
donatien 6:3d3824893be1 617
donatien 6:3d3824893be1 618 if( maxPathLen < pathLen + 1 ) //including NULL-terminating char
donatien 6:3d3824893be1 619 {
donatien 6:3d3824893be1 620 WARN("Path str is too small (%d >= %d)", maxPathLen, pathLen + 1);
donatien 6:3d3824893be1 621 return NET_TOOSMALL;
donatien 6:3d3824893be1 622 }
donatien 6:3d3824893be1 623 memcpy(path, pathPtr, pathLen);
donatien 6:3d3824893be1 624 path[pathLen] = '\0';
donatien 6:3d3824893be1 625
donatien 6:3d3824893be1 626 return OK;
donatien 6:3d3824893be1 627 }
donatien 6:3d3824893be1 628