Yann Garcia
This short program illustrates how to use the DS130x_I2C library. My objective is to share the same RTC with Microchip 18F MCU.
Dependencies: mbed DebugLibrary
NetServices/services/http/client/HTTPClient.cpp@1:995212d326ca, 2011-02-11 (annotated)
- Committer:
- Yann
- Date:
- Fri Feb 11 10:17:20 2011 +0000
- Revision:
- 1:995212d326ca
- Parent:
- 0:f30e2135b0db
V0.0.0.2
Who changed what in which revision?
| User | Revision | Line number | New contents of line |
|---|---|---|---|
| Yann | 0:f30e2135b0db | 1 | |
| Yann | 0:f30e2135b0db | 2 | /* |
| Yann | 0:f30e2135b0db | 3 | Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com) |
| Yann | 0:f30e2135b0db | 4 | |
| Yann | 0:f30e2135b0db | 5 | Permission is hereby granted, free of charge, to any person obtaining a copy |
| Yann | 0:f30e2135b0db | 6 | of this software and associated documentation files (the "Software"), to deal |
| Yann | 0:f30e2135b0db | 7 | in the Software without restriction, including without limitation the rights |
| Yann | 0:f30e2135b0db | 8 | to use, copy, modify, merge, publish, distribute, sublicense, and/or sell |
| Yann | 0:f30e2135b0db | 9 | copies of the Software, and to permit persons to whom the Software is |
| Yann | 0:f30e2135b0db | 10 | furnished to do so, subject to the following conditions: |
| Yann | 0:f30e2135b0db | 11 | |
| Yann | 0:f30e2135b0db | 12 | The above copyright notice and this permission notice shall be included in |
| Yann | 0:f30e2135b0db | 13 | all copies or substantial portions of the Software. |
| Yann | 0:f30e2135b0db | 14 | |
| Yann | 0:f30e2135b0db | 15 | THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
| Yann | 0:f30e2135b0db | 16 | IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
| Yann | 0:f30e2135b0db | 17 | FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE |
| Yann | 0:f30e2135b0db | 18 | AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
| Yann | 0:f30e2135b0db | 19 | LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, |
| Yann | 0:f30e2135b0db | 20 | OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN |
| Yann | 0:f30e2135b0db | 21 | THE SOFTWARE. |
| Yann | 0:f30e2135b0db | 22 | */ |
| Yann | 0:f30e2135b0db | 23 | |
| Yann | 0:f30e2135b0db | 24 | #include "core/netservice.h" |
| Yann | 0:f30e2135b0db | 25 | #include "HTTPClient.h" |
| Yann | 0:f30e2135b0db | 26 | #include "../util/base64.h" |
| Yann | 0:f30e2135b0db | 27 | #include "../util/url.h" |
| Yann | 0:f30e2135b0db | 28 | |
| Yann | 0:f30e2135b0db | 29 | //#define __DEBUG |
| Yann | 0:f30e2135b0db | 30 | #include "dbg/dbg.h" |
| Yann | 0:f30e2135b0db | 31 | |
| Yann | 0:f30e2135b0db | 32 | #define HTTP_REQUEST_TIMEOUT 30000//15000 |
| Yann | 0:f30e2135b0db | 33 | #define HTTP_PORT 80 |
| Yann | 0:f30e2135b0db | 34 | |
| Yann | 0:f30e2135b0db | 35 | #define CHUNK_SIZE 256 |
| Yann | 0:f30e2135b0db | 36 | |
| Yann | 0:f30e2135b0db | 37 | HTTPClient::HTTPClient() : NetService(false) /*Not owned by the pool*/, m_meth(HTTP_GET), m_pCbItem(NULL), m_pCbMeth(NULL), m_pCb(NULL), |
| Yann | 0:f30e2135b0db | 38 | m_watchdog(), m_timeout(0), m_pDnsReq(NULL), m_server(), m_path(), |
| Yann | 0:f30e2135b0db | 39 | m_closed(true), m_state(HTTP_CLOSED), |
| Yann | 0:f30e2135b0db | 40 | m_pDataOut(NULL), m_pDataIn(NULL), m_dataChunked(false), m_dataPos(0), m_dataLen(0), m_httpResponseCode(0), m_blockingResult(HTTP_PROCESSING) |
| Yann | 0:f30e2135b0db | 41 | |
| Yann | 0:f30e2135b0db | 42 | { |
| Yann | 0:f30e2135b0db | 43 | setTimeout(HTTP_REQUEST_TIMEOUT); |
| Yann | 0:f30e2135b0db | 44 | m_buf = new char[CHUNK_SIZE]; |
| Yann | 0:f30e2135b0db | 45 | DBG("New HTTPClient %p\n",this); |
| Yann | 0:f30e2135b0db | 46 | } |
| Yann | 0:f30e2135b0db | 47 | |
| Yann | 0:f30e2135b0db | 48 | HTTPClient::~HTTPClient() |
| Yann | 0:f30e2135b0db | 49 | { |
| Yann | 0:f30e2135b0db | 50 | close(); |
| Yann | 0:f30e2135b0db | 51 | delete[] m_buf; |
| Yann | 0:f30e2135b0db | 52 | } |
| Yann | 0:f30e2135b0db | 53 | |
| Yann | 0:f30e2135b0db | 54 | void HTTPClient::basicAuth(const char* user, const char* password) //Basic Authentification |
| Yann | 0:f30e2135b0db | 55 | { |
| Yann | 0:f30e2135b0db | 56 | if(user==NULL) |
| Yann | 0:f30e2135b0db | 57 | { |
| Yann | 0:f30e2135b0db | 58 | m_reqHeaders.erase("Authorization"); //Remove auth str |
| Yann | 0:f30e2135b0db | 59 | return; |
| Yann | 0:f30e2135b0db | 60 | } |
| Yann | 0:f30e2135b0db | 61 | string auth = "Basic "; |
| Yann | 0:f30e2135b0db | 62 | string decStr = user; |
| Yann | 0:f30e2135b0db | 63 | decStr += ":"; |
| Yann | 0:f30e2135b0db | 64 | decStr += password; |
| Yann | 0:f30e2135b0db | 65 | auth.append( Base64::encode(decStr) ); |
| Yann | 0:f30e2135b0db | 66 | DBG("Auth str is %s\n", auth.c_str()); |
| Yann | 0:f30e2135b0db | 67 | m_reqHeaders["Authorization"] = auth; |
| Yann | 0:f30e2135b0db | 68 | } |
| Yann | 0:f30e2135b0db | 69 | |
| Yann | 0:f30e2135b0db | 70 | //High Level setup functions |
| Yann | 0:f30e2135b0db | 71 | HTTPResult HTTPClient::get(const char* uri, HTTPData* pDataIn) //Blocking |
| Yann | 0:f30e2135b0db | 72 | { |
| Yann | 0:f30e2135b0db | 73 | doGet(uri, pDataIn); |
| Yann | 0:f30e2135b0db | 74 | return blockingProcess(); |
| Yann | 0:f30e2135b0db | 75 | } |
| Yann | 0:f30e2135b0db | 76 | |
| Yann | 0:f30e2135b0db | 77 | HTTPResult HTTPClient::get(const char* uri, HTTPData* pDataIn, void (*pMethod)(HTTPResult)) //Non blocking |
| Yann | 0:f30e2135b0db | 78 | { |
| Yann | 0:f30e2135b0db | 79 | setOnResult(pMethod); |
| Yann | 0:f30e2135b0db | 80 | doGet(uri, pDataIn); |
| Yann | 0:f30e2135b0db | 81 | return HTTP_PROCESSING; |
| Yann | 0:f30e2135b0db | 82 | } |
| Yann | 0:f30e2135b0db | 83 | |
| Yann | 0:f30e2135b0db | 84 | #if 0 //For info only |
| Yann | 0:f30e2135b0db | 85 | template<class T> |
| Yann | 0:f30e2135b0db | 86 | HTTPResult HTTPClient::get(const char* uri, HTTPData* pDataIn, T* pItem, void (T::*pMethod)(HTTPResult)) //Non blocking |
| Yann | 0:f30e2135b0db | 87 | { |
| Yann | 0:f30e2135b0db | 88 | setOnResult(pItem, pMethod); |
| Yann | 0:f30e2135b0db | 89 | doGet(uri, pDataIn); |
| Yann | 0:f30e2135b0db | 90 | return HTTP_PROCESSING; |
| Yann | 0:f30e2135b0db | 91 | } |
| Yann | 0:f30e2135b0db | 92 | #endif |
| Yann | 0:f30e2135b0db | 93 | |
| Yann | 0:f30e2135b0db | 94 | HTTPResult HTTPClient::post(const char* uri, const HTTPData& dataOut, HTTPData* pDataIn) //Blocking |
| Yann | 0:f30e2135b0db | 95 | { |
| Yann | 0:f30e2135b0db | 96 | doPost(uri, dataOut, pDataIn); |
| Yann | 0:f30e2135b0db | 97 | return blockingProcess(); |
| Yann | 0:f30e2135b0db | 98 | } |
| Yann | 0:f30e2135b0db | 99 | |
| Yann | 0:f30e2135b0db | 100 | HTTPResult HTTPClient::post(const char* uri, const HTTPData& dataOut, HTTPData* pDataIn, void (*pMethod)(HTTPResult)) //Non blocking |
| Yann | 0:f30e2135b0db | 101 | { |
| Yann | 0:f30e2135b0db | 102 | setOnResult(pMethod); |
| Yann | 0:f30e2135b0db | 103 | doPost(uri, dataOut, pDataIn); |
| Yann | 0:f30e2135b0db | 104 | return HTTP_PROCESSING; |
| Yann | 0:f30e2135b0db | 105 | } |
| Yann | 0:f30e2135b0db | 106 | |
| Yann | 0:f30e2135b0db | 107 | #if 0 //For info only |
| Yann | 0:f30e2135b0db | 108 | template<class T> |
| Yann | 0:f30e2135b0db | 109 | HTTPResult HTTPClient::post(const char* uri, const HTTPData& dataOut, HTTPData* pDataIn, T* pItem, void (T::*pMethod)(HTTPResult)) //Non blocking |
| Yann | 0:f30e2135b0db | 110 | { |
| Yann | 0:f30e2135b0db | 111 | setOnResult(pItem, pMethod); |
| Yann | 0:f30e2135b0db | 112 | doPost(uri, dataOut, pDataIn); |
| Yann | 0:f30e2135b0db | 113 | return HTTP_PROCESSING; |
| Yann | 0:f30e2135b0db | 114 | } |
| Yann | 0:f30e2135b0db | 115 | #endif |
| Yann | 0:f30e2135b0db | 116 | |
| Yann | 0:f30e2135b0db | 117 | void HTTPClient::doGet(const char* uri, HTTPData* pDataIn) |
| Yann | 0:f30e2135b0db | 118 | { |
| Yann | 0:f30e2135b0db | 119 | m_meth = HTTP_GET; |
| Yann | 0:f30e2135b0db | 120 | setup(uri, NULL, pDataIn); |
| Yann | 0:f30e2135b0db | 121 | } |
| Yann | 0:f30e2135b0db | 122 | |
| Yann | 0:f30e2135b0db | 123 | void HTTPClient::doPost(const char* uri, const HTTPData& dataOut, HTTPData* pDataIn) |
| Yann | 0:f30e2135b0db | 124 | { |
| Yann | 0:f30e2135b0db | 125 | m_meth = HTTP_POST; |
| Yann | 0:f30e2135b0db | 126 | setup(uri, (HTTPData*) &dataOut, pDataIn); |
| Yann | 0:f30e2135b0db | 127 | } |
| Yann | 0:f30e2135b0db | 128 | |
| Yann | 0:f30e2135b0db | 129 | void HTTPClient::setOnResult( void (*pMethod)(HTTPResult) ) |
| Yann | 0:f30e2135b0db | 130 | { |
| Yann | 0:f30e2135b0db | 131 | m_pCb = pMethod; |
| Yann | 0:f30e2135b0db | 132 | m_pCbItem = NULL; |
| Yann | 0:f30e2135b0db | 133 | m_pCbMeth = NULL; |
| Yann | 0:f30e2135b0db | 134 | } |
| Yann | 0:f30e2135b0db | 135 | |
| Yann | 0:f30e2135b0db | 136 | #if 0 //For info only |
| Yann | 0:f30e2135b0db | 137 | template<class T> |
| Yann | 0:f30e2135b0db | 138 | void HTTPClient::setOnResult( T* pItem, void (T::*pMethod)(NtpResult) ) |
| Yann | 0:f30e2135b0db | 139 | { |
| Yann | 0:f30e2135b0db | 140 | m_pCb = NULL; |
| Yann | 0:f30e2135b0db | 141 | m_pCbItem = (CDummy*) pItem; |
| Yann | 0:f30e2135b0db | 142 | m_pCbMeth = (void (CDummy::*)(NtpResult)) pMethod; |
| Yann | 0:f30e2135b0db | 143 | } |
| Yann | 0:f30e2135b0db | 144 | #endif |
| Yann | 0:f30e2135b0db | 145 | |
| Yann | 0:f30e2135b0db | 146 | void HTTPClient::setTimeout(int ms) |
| Yann | 0:f30e2135b0db | 147 | { |
| Yann | 0:f30e2135b0db | 148 | m_timeout = ms; |
| Yann | 0:f30e2135b0db | 149 | //resetTimeout(); |
| Yann | 0:f30e2135b0db | 150 | } |
| Yann | 0:f30e2135b0db | 151 | |
| Yann | 0:f30e2135b0db | 152 | void HTTPClient::poll() //Called by NetServices |
| Yann | 0:f30e2135b0db | 153 | { |
| Yann | 0:f30e2135b0db | 154 | if(m_closed) |
| Yann | 0:f30e2135b0db | 155 | { |
| Yann | 0:f30e2135b0db | 156 | return; |
| Yann | 0:f30e2135b0db | 157 | } |
| Yann | 0:f30e2135b0db | 158 | if(m_watchdog.read_ms()>m_timeout) |
| Yann | 0:f30e2135b0db | 159 | { |
| Yann | 0:f30e2135b0db | 160 | onTimeout(); |
| Yann | 0:f30e2135b0db | 161 | } |
| Yann | 0:f30e2135b0db | 162 | else if(m_state == HTTP_READ_DATA_INCOMPLETE) |
| Yann | 0:f30e2135b0db | 163 | { |
| Yann | 0:f30e2135b0db | 164 | readData(); //Try to read more data |
| Yann | 0:f30e2135b0db | 165 | if( m_state == HTTP_DONE ) |
| Yann | 0:f30e2135b0db | 166 | { |
| Yann | 0:f30e2135b0db | 167 | //All data has been read, close w/ success :) |
| Yann | 0:f30e2135b0db | 168 | DBG("Done :)!\n"); |
| Yann | 0:f30e2135b0db | 169 | onResult(HTTP_OK); |
| Yann | 0:f30e2135b0db | 170 | close(); |
| Yann | 0:f30e2135b0db | 171 | } |
| Yann | 0:f30e2135b0db | 172 | } |
| Yann | 0:f30e2135b0db | 173 | |
| Yann | 0:f30e2135b0db | 174 | } |
| Yann | 0:f30e2135b0db | 175 | |
| Yann | 0:f30e2135b0db | 176 | int HTTPClient::getHTTPResponseCode() |
| Yann | 0:f30e2135b0db | 177 | { |
| Yann | 0:f30e2135b0db | 178 | return m_httpResponseCode; |
| Yann | 0:f30e2135b0db | 179 | } |
| Yann | 0:f30e2135b0db | 180 | |
| Yann | 0:f30e2135b0db | 181 | void HTTPClient::setRequestHeader(const string& header, const string& value) |
| Yann | 0:f30e2135b0db | 182 | { |
| Yann | 0:f30e2135b0db | 183 | m_reqHeaders[header] = value; |
| Yann | 0:f30e2135b0db | 184 | } |
| Yann | 0:f30e2135b0db | 185 | |
| Yann | 0:f30e2135b0db | 186 | string& HTTPClient::getResponseHeader(const string& header) |
| Yann | 0:f30e2135b0db | 187 | { |
| Yann | 0:f30e2135b0db | 188 | return m_respHeaders[header]; |
| Yann | 0:f30e2135b0db | 189 | } |
| Yann | 0:f30e2135b0db | 190 | |
| Yann | 0:f30e2135b0db | 191 | void HTTPClient::resetRequestHeaders() |
| Yann | 0:f30e2135b0db | 192 | { |
| Yann | 0:f30e2135b0db | 193 | m_reqHeaders.clear(); |
| Yann | 0:f30e2135b0db | 194 | } |
| Yann | 0:f30e2135b0db | 195 | |
| Yann | 0:f30e2135b0db | 196 | void HTTPClient::resetTimeout() |
| Yann | 0:f30e2135b0db | 197 | { |
| Yann | 0:f30e2135b0db | 198 | m_watchdog.reset(); |
| Yann | 0:f30e2135b0db | 199 | m_watchdog.start(); |
| Yann | 0:f30e2135b0db | 200 | } |
| Yann | 0:f30e2135b0db | 201 | |
| Yann | 0:f30e2135b0db | 202 | void HTTPClient::init() //Create and setup socket if needed |
| Yann | 0:f30e2135b0db | 203 | { |
| Yann | 0:f30e2135b0db | 204 | close(); //Remove previous elements |
| Yann | 0:f30e2135b0db | 205 | if(!m_closed) //Already opened |
| Yann | 0:f30e2135b0db | 206 | return; |
| Yann | 0:f30e2135b0db | 207 | m_state = HTTP_WRITE_HEADERS; |
| Yann | 0:f30e2135b0db | 208 | m_pTCPSocket = new TCPSocket; |
| Yann | 0:f30e2135b0db | 209 | m_pTCPSocket->setOnEvent(this, &HTTPClient::onTCPSocketEvent); |
| Yann | 0:f30e2135b0db | 210 | m_closed = false; |
| Yann | 0:f30e2135b0db | 211 | m_httpResponseCode = 0; |
| Yann | 0:f30e2135b0db | 212 | } |
| Yann | 0:f30e2135b0db | 213 | |
| Yann | 0:f30e2135b0db | 214 | void HTTPClient::close() |
| Yann | 0:f30e2135b0db | 215 | { |
| Yann | 0:f30e2135b0db | 216 | if(m_closed) |
| Yann | 0:f30e2135b0db | 217 | return; |
| Yann | 0:f30e2135b0db | 218 | m_state = HTTP_CLOSED; |
| Yann | 0:f30e2135b0db | 219 | //Now Request headers are kept btw requests unless resetRequestHeaders() is called |
| Yann | 0:f30e2135b0db | 220 | //m_reqHeaders.clear(); //Clear headers for next requests |
| Yann | 0:f30e2135b0db | 221 | m_closed = true; //Prevent recursive calling or calling on an object being destructed by someone else |
| Yann | 0:f30e2135b0db | 222 | m_watchdog.stop(); //Stop timeout |
| Yann | 0:f30e2135b0db | 223 | m_watchdog.reset(); |
| Yann | 0:f30e2135b0db | 224 | m_pTCPSocket->resetOnEvent(); |
| Yann | 0:f30e2135b0db | 225 | m_pTCPSocket->close(); |
| Yann | 0:f30e2135b0db | 226 | delete m_pTCPSocket; |
| Yann | 0:f30e2135b0db | 227 | m_pTCPSocket = NULL; |
| Yann | 0:f30e2135b0db | 228 | if( m_pDnsReq ) |
| Yann | 0:f30e2135b0db | 229 | { |
| Yann | 0:f30e2135b0db | 230 | m_pDnsReq->close(); |
| Yann | 0:f30e2135b0db | 231 | delete m_pDnsReq; |
| Yann | 0:f30e2135b0db | 232 | m_pDnsReq = NULL; |
| Yann | 0:f30e2135b0db | 233 | } |
| Yann | 0:f30e2135b0db | 234 | } |
| Yann | 0:f30e2135b0db | 235 | |
| Yann | 0:f30e2135b0db | 236 | void HTTPClient::setup(const char* uri, HTTPData* pDataOut, HTTPData* pDataIn) //Setup request, make DNS Req if necessary |
| Yann | 0:f30e2135b0db | 237 | { |
| Yann | 0:f30e2135b0db | 238 | init(); //Initialize client in known state, create socket |
| Yann | 0:f30e2135b0db | 239 | m_pDataOut = pDataOut; |
| Yann | 0:f30e2135b0db | 240 | m_pDataIn = pDataIn; |
| Yann | 0:f30e2135b0db | 241 | resetTimeout(); |
| Yann | 0:f30e2135b0db | 242 | |
| Yann | 0:f30e2135b0db | 243 | //Erase previous headers |
| Yann | 0:f30e2135b0db | 244 | //Do NOT clear m_reqHeaders as they might have already set before connecting |
| Yann | 0:f30e2135b0db | 245 | m_respHeaders.clear(); |
| Yann | 0:f30e2135b0db | 246 | |
| Yann | 0:f30e2135b0db | 247 | //Erase response buffer |
| Yann | 0:f30e2135b0db | 248 | if(m_pDataIn) |
| Yann | 0:f30e2135b0db | 249 | m_pDataIn->clear(); |
| Yann | 0:f30e2135b0db | 250 | |
| Yann | 0:f30e2135b0db | 251 | //Assert that buffers are initialized properly |
| Yann | 0:f30e2135b0db | 252 | m_dataLen = 0; |
| Yann | 0:f30e2135b0db | 253 | m_bufRemainingLen = 0; |
| Yann | 0:f30e2135b0db | 254 | |
| Yann | 0:f30e2135b0db | 255 | Url url; |
| Yann | 0:f30e2135b0db | 256 | url.fromString(uri); |
| Yann | 0:f30e2135b0db | 257 | |
| Yann | 0:f30e2135b0db | 258 | m_path = url.getPath(); |
| Yann | 0:f30e2135b0db | 259 | |
| Yann | 0:f30e2135b0db | 260 | m_server.setName(url.getHost().c_str()); |
| Yann | 0:f30e2135b0db | 261 | |
| Yann | 0:f30e2135b0db | 262 | if( url.getPort() > 0 ) |
| Yann | 0:f30e2135b0db | 263 | { |
| Yann | 0:f30e2135b0db | 264 | m_server.setPort( url.getPort() ); |
| Yann | 0:f30e2135b0db | 265 | } |
| Yann | 0:f30e2135b0db | 266 | else |
| Yann | 0:f30e2135b0db | 267 | { |
| Yann | 0:f30e2135b0db | 268 | m_server.setPort( HTTP_PORT ); |
| Yann | 0:f30e2135b0db | 269 | } |
| Yann | 0:f30e2135b0db | 270 | |
| Yann | 0:f30e2135b0db | 271 | DBG("URL parsed,\r\nHost: %s\r\nPort: %d\r\nPath: %s\n", url.getHost().c_str(), url.getPort(), url.getPath().c_str()); |
| Yann | 0:f30e2135b0db | 272 | |
| Yann | 0:f30e2135b0db | 273 | IpAddr ip; |
| Yann | 0:f30e2135b0db | 274 | if( url.getHostIp(&ip) ) |
| Yann | 0:f30e2135b0db | 275 | { |
| Yann | 0:f30e2135b0db | 276 | m_server.setIp(ip); |
| Yann | 0:f30e2135b0db | 277 | connect(); |
| Yann | 0:f30e2135b0db | 278 | } |
| Yann | 0:f30e2135b0db | 279 | else |
| Yann | 0:f30e2135b0db | 280 | { |
| Yann | 0:f30e2135b0db | 281 | DBG("DNS Query...\n"); |
| Yann | 0:f30e2135b0db | 282 | m_pDnsReq = new DNSRequest(); |
| Yann | 0:f30e2135b0db | 283 | m_pDnsReq->setOnReply(this, &HTTPClient::onDNSReply); |
| Yann | 0:f30e2135b0db | 284 | m_pDnsReq->resolve(&m_server); |
| Yann | 0:f30e2135b0db | 285 | DBG("HTTPClient : DNSRequest %p\n", m_pDnsReq); |
| Yann | 0:f30e2135b0db | 286 | } |
| Yann | 0:f30e2135b0db | 287 | |
| Yann | 0:f30e2135b0db | 288 | } |
| Yann | 0:f30e2135b0db | 289 | |
| Yann | 0:f30e2135b0db | 290 | void HTTPClient::connect() //Start Connection |
| Yann | 0:f30e2135b0db | 291 | { |
| Yann | 0:f30e2135b0db | 292 | resetTimeout(); |
| Yann | 0:f30e2135b0db | 293 | DBG("Connecting...\n"); |
| Yann | 0:f30e2135b0db | 294 | m_pTCPSocket->connect(m_server); |
| Yann | 0:f30e2135b0db | 295 | } |
| Yann | 0:f30e2135b0db | 296 | |
| Yann | 0:f30e2135b0db | 297 | #define MIN(a,b) ((a)<(b)?(a):(b)) |
| Yann | 0:f30e2135b0db | 298 | #define ABS(a) (((a)>0)?(a):0) |
| Yann | 0:f30e2135b0db | 299 | int HTTPClient::tryRead() //Try to read data from tcp packet and put in the HTTPData object |
| Yann | 0:f30e2135b0db | 300 | { |
| Yann | 0:f30e2135b0db | 301 | int len = 0; |
| Yann | 0:f30e2135b0db | 302 | int readLen; |
| Yann | 0:f30e2135b0db | 303 | do |
| Yann | 0:f30e2135b0db | 304 | { |
| Yann | 0:f30e2135b0db | 305 | if(m_state == HTTP_READ_DATA_INCOMPLETE) //First try to complete buffer copy |
| Yann | 0:f30e2135b0db | 306 | { |
| Yann | 0:f30e2135b0db | 307 | readLen = m_bufRemainingLen; |
| Yann | 0:f30e2135b0db | 308 | /* if (readLen == 0) |
| Yann | 0:f30e2135b0db | 309 | { |
| Yann | 0:f30e2135b0db | 310 | m_state = HTTP_READ_DATA; |
| Yann | 0:f30e2135b0db | 311 | continue; |
| Yann | 0:f30e2135b0db | 312 | }*/ |
| Yann | 0:f30e2135b0db | 313 | } |
| Yann | 0:f30e2135b0db | 314 | else |
| Yann | 0:f30e2135b0db | 315 | { |
| Yann | 0:f30e2135b0db | 316 | readLen = m_pTCPSocket->recv(m_buf, MIN(ABS(m_dataLen-m_dataPos),CHUNK_SIZE)); |
| Yann | 0:f30e2135b0db | 317 | if(readLen < 0) //Error |
| Yann | 0:f30e2135b0db | 318 | { |
| Yann | 0:f30e2135b0db | 319 | return readLen; |
| Yann | 0:f30e2135b0db | 320 | } |
| Yann | 0:f30e2135b0db | 321 | |
| Yann | 0:f30e2135b0db | 322 | DBG("%d bytes read\n", readLen); |
| Yann | 0:f30e2135b0db | 323 | |
| Yann | 0:f30e2135b0db | 324 | m_pBufRemaining = m_buf; |
| Yann | 0:f30e2135b0db | 325 | } |
| Yann | 0:f30e2135b0db | 326 | if (readLen == 0) |
| Yann | 0:f30e2135b0db | 327 | { |
| Yann | 0:f30e2135b0db | 328 | m_state = HTTP_READ_DATA; |
| Yann | 0:f30e2135b0db | 329 | return len; |
| Yann | 0:f30e2135b0db | 330 | } |
| Yann | 0:f30e2135b0db | 331 | |
| Yann | 0:f30e2135b0db | 332 | DBG("Trying to write %d bytes\n", readLen); |
| Yann | 0:f30e2135b0db | 333 | |
| Yann | 0:f30e2135b0db | 334 | int writtenLen = m_pDataIn->write(m_pBufRemaining, readLen); |
| Yann | 0:f30e2135b0db | 335 | m_dataPos += writtenLen; |
| Yann | 0:f30e2135b0db | 336 | |
| Yann | 0:f30e2135b0db | 337 | DBG("%d bytes written\n", writtenLen); |
| Yann | 0:f30e2135b0db | 338 | |
| Yann | 0:f30e2135b0db | 339 | if(writtenLen<readLen) //Data was not completely written |
| Yann | 0:f30e2135b0db | 340 | { |
| Yann | 0:f30e2135b0db | 341 | m_pBufRemaining += writtenLen; |
| Yann | 0:f30e2135b0db | 342 | m_bufRemainingLen = readLen - writtenLen; |
| Yann | 0:f30e2135b0db | 343 | m_state = HTTP_READ_DATA_INCOMPLETE; |
| Yann | 0:f30e2135b0db | 344 | return len + writtenLen; |
| Yann | 0:f30e2135b0db | 345 | } |
| Yann | 0:f30e2135b0db | 346 | else |
| Yann | 0:f30e2135b0db | 347 | { |
| Yann | 0:f30e2135b0db | 348 | m_state = HTTP_READ_DATA; |
| Yann | 0:f30e2135b0db | 349 | } |
| Yann | 0:f30e2135b0db | 350 | len += readLen; |
| Yann | 0:f30e2135b0db | 351 | } while(readLen>0); |
| Yann | 0:f30e2135b0db | 352 | |
| Yann | 0:f30e2135b0db | 353 | return len; |
| Yann | 0:f30e2135b0db | 354 | } |
| Yann | 0:f30e2135b0db | 355 | |
| Yann | 0:f30e2135b0db | 356 | void HTTPClient::readData() //Data has been read |
| Yann | 0:f30e2135b0db | 357 | { |
| Yann | 0:f30e2135b0db | 358 | if(m_pDataIn == NULL) //Nothing to read (in HEAD for instance, not supported now) |
| Yann | 0:f30e2135b0db | 359 | { |
| Yann | 0:f30e2135b0db | 360 | m_state = HTTP_DONE; |
| Yann | 0:f30e2135b0db | 361 | return; |
| Yann | 0:f30e2135b0db | 362 | } |
| Yann | 0:f30e2135b0db | 363 | DBG("Reading response...\n"); |
| Yann | 0:f30e2135b0db | 364 | int len = 0; |
| Yann | 0:f30e2135b0db | 365 | do |
| Yann | 0:f30e2135b0db | 366 | { |
| Yann | 0:f30e2135b0db | 367 | if(m_dataChunked && (m_state != HTTP_READ_DATA_INCOMPLETE)) |
| Yann | 0:f30e2135b0db | 368 | { |
| Yann | 0:f30e2135b0db | 369 | if(m_dataLen==0) |
| Yann | 0:f30e2135b0db | 370 | { |
| Yann | 0:f30e2135b0db | 371 | DBG("Reading chunk length...\n"); |
| Yann | 0:f30e2135b0db | 372 | //New block |
| Yann | 0:f30e2135b0db | 373 | static char chunkHeader[16]; |
| Yann | 0:f30e2135b0db | 374 | //We use m_dataPos to retain the read position in chunkHeader, it has been set to 0 before the first call of readData() |
| Yann | 0:f30e2135b0db | 375 | m_dataPos += readLine(chunkHeader + m_dataPos, ABS(16 - m_dataPos)); |
| Yann | 0:f30e2135b0db | 376 | if( m_dataPos > 0 ) |
| Yann | 0:f30e2135b0db | 377 | { |
| Yann | 0:f30e2135b0db | 378 | if( chunkHeader[strlen(chunkHeader)-1] == 0x0d ) |
| Yann | 0:f30e2135b0db | 379 | { |
| Yann | 0:f30e2135b0db | 380 | sscanf(chunkHeader, "%x%*[^\r\n]", &m_dataLen); |
| Yann | 0:f30e2135b0db | 381 | DBG("Chunk length is %d\n", m_dataLen); |
| Yann | 0:f30e2135b0db | 382 | m_dataPos = 0; |
| Yann | 0:f30e2135b0db | 383 | } |
| Yann | 0:f30e2135b0db | 384 | else |
| Yann | 0:f30e2135b0db | 385 | { |
| Yann | 0:f30e2135b0db | 386 | //Wait for end of line |
| Yann | 0:f30e2135b0db | 387 | DBG("Wait for CRLF\n"); |
| Yann | 0:f30e2135b0db | 388 | return; |
| Yann | 0:f30e2135b0db | 389 | } |
| Yann | 0:f30e2135b0db | 390 | } |
| Yann | 0:f30e2135b0db | 391 | else |
| Yann | 0:f30e2135b0db | 392 | { |
| Yann | 0:f30e2135b0db | 393 | DBG("Wait for data\n"); |
| Yann | 0:f30e2135b0db | 394 | //Wait for data |
| Yann | 0:f30e2135b0db | 395 | return; |
| Yann | 0:f30e2135b0db | 396 | } |
| Yann | 0:f30e2135b0db | 397 | } |
| Yann | 0:f30e2135b0db | 398 | } |
| Yann | 0:f30e2135b0db | 399 | |
| Yann | 0:f30e2135b0db | 400 | //Proper data recovery |
| Yann | 0:f30e2135b0db | 401 | len = tryRead(); |
| Yann | 0:f30e2135b0db | 402 | if(len<0) //Error |
| Yann | 0:f30e2135b0db | 403 | { |
| Yann | 0:f30e2135b0db | 404 | onResult(HTTP_CONN); |
| Yann | 0:f30e2135b0db | 405 | return; |
| Yann | 0:f30e2135b0db | 406 | } |
| Yann | 0:f30e2135b0db | 407 | |
| Yann | 0:f30e2135b0db | 408 | if(len>0) |
| Yann | 0:f30e2135b0db | 409 | resetTimeout(); |
| Yann | 0:f30e2135b0db | 410 | |
| Yann | 0:f30e2135b0db | 411 | if(m_state == HTTP_READ_DATA_INCOMPLETE) |
| Yann | 0:f30e2135b0db | 412 | return; |
| Yann | 0:f30e2135b0db | 413 | |
| Yann | 0:f30e2135b0db | 414 | //Chunk Tail |
| Yann | 0:f30e2135b0db | 415 | if(m_dataChunked) |
| Yann | 0:f30e2135b0db | 416 | { |
| Yann | 0:f30e2135b0db | 417 | if(m_dataPos >= m_dataLen) |
| Yann | 0:f30e2135b0db | 418 | { |
| Yann | 0:f30e2135b0db | 419 | DBG("Chunk read, wait for CRLF\n"); |
| Yann | 0:f30e2135b0db | 420 | char chunkTail[3]; |
| Yann | 0:f30e2135b0db | 421 | m_dataPos += readLine(chunkTail, 3); |
| Yann | 0:f30e2135b0db | 422 | } |
| Yann | 0:f30e2135b0db | 423 | |
| Yann | 0:f30e2135b0db | 424 | if(m_dataPos >= m_dataLen + 1) //1 == strlen("\n"), |
| Yann | 0:f30e2135b0db | 425 | { |
| Yann | 0:f30e2135b0db | 426 | DBG("End of chunk\n"); |
| Yann | 0:f30e2135b0db | 427 | if(m_dataLen==0) |
| Yann | 0:f30e2135b0db | 428 | { |
| Yann | 0:f30e2135b0db | 429 | DBG("End of file\n"); |
| Yann | 0:f30e2135b0db | 430 | //End of file |
| Yann | 0:f30e2135b0db | 431 | m_state = HTTP_DONE; //Done |
| Yann | 0:f30e2135b0db | 432 | } |
| Yann | 0:f30e2135b0db | 433 | m_dataLen = 0; |
| Yann | 0:f30e2135b0db | 434 | m_dataPos = 0; |
| Yann | 0:f30e2135b0db | 435 | } |
| Yann | 0:f30e2135b0db | 436 | } |
| Yann | 0:f30e2135b0db | 437 | |
| Yann | 0:f30e2135b0db | 438 | } while(len>0); |
| Yann | 0:f30e2135b0db | 439 | |
| Yann | 0:f30e2135b0db | 440 | |
| Yann | 0:f30e2135b0db | 441 | if(!m_dataChunked && (m_dataPos >= m_dataLen)) //All Data has been received |
| Yann | 0:f30e2135b0db | 442 | { |
| Yann | 0:f30e2135b0db | 443 | DBG("End of file\n"); |
| Yann | 0:f30e2135b0db | 444 | m_state = HTTP_DONE; //Done |
| Yann | 0:f30e2135b0db | 445 | } |
| Yann | 0:f30e2135b0db | 446 | } |
| Yann | 0:f30e2135b0db | 447 | |
| Yann | 0:f30e2135b0db | 448 | void HTTPClient::writeData() //Data has been written & buf is free |
| Yann | 0:f30e2135b0db | 449 | { |
| Yann | 0:f30e2135b0db | 450 | if(m_pDataOut == NULL) //Nothing to write (in POST for instance) |
| Yann | 0:f30e2135b0db | 451 | { |
| Yann | 0:f30e2135b0db | 452 | m_dataLen = 0; //Reset Data Length |
| Yann | 0:f30e2135b0db | 453 | m_state = HTTP_READ_HEADERS; |
| Yann | 0:f30e2135b0db | 454 | return; |
| Yann | 0:f30e2135b0db | 455 | } |
| Yann | 0:f30e2135b0db | 456 | int len = m_pDataOut->read(m_buf, CHUNK_SIZE); |
| Yann | 0:f30e2135b0db | 457 | if( m_dataChunked ) |
| Yann | 0:f30e2135b0db | 458 | { |
| Yann | 0:f30e2135b0db | 459 | //Write chunk header |
| Yann | 0:f30e2135b0db | 460 | char chunkHeader[16]; |
| Yann | 0:f30e2135b0db | 461 | sprintf(chunkHeader, "%d\r\n", len); |
| Yann | 0:f30e2135b0db | 462 | int ret = m_pTCPSocket->send(chunkHeader, strlen(chunkHeader)); |
| Yann | 0:f30e2135b0db | 463 | if(ret < 0)//Error |
| Yann | 0:f30e2135b0db | 464 | { |
| Yann | 0:f30e2135b0db | 465 | onResult(HTTP_CONN); |
| Yann | 0:f30e2135b0db | 466 | return; |
| Yann | 0:f30e2135b0db | 467 | } |
| Yann | 0:f30e2135b0db | 468 | } |
| Yann | 0:f30e2135b0db | 469 | m_pTCPSocket->send(m_buf, len); |
| Yann | 0:f30e2135b0db | 470 | m_dataPos+=len; |
| Yann | 0:f30e2135b0db | 471 | if( m_dataChunked ) |
| Yann | 0:f30e2135b0db | 472 | { |
| Yann | 0:f30e2135b0db | 473 | m_pTCPSocket->send("\r\n", 2); //Chunk-terminating CRLF |
| Yann | 0:f30e2135b0db | 474 | } |
| Yann | 0:f30e2135b0db | 475 | if( ( !m_dataChunked && (m_dataPos >= m_dataLen) ) |
| Yann | 0:f30e2135b0db | 476 | || ( m_dataChunked && !len ) ) //All Data has been sent |
| Yann | 0:f30e2135b0db | 477 | { |
| Yann | 0:f30e2135b0db | 478 | m_dataLen = 0; //Reset Data Length |
| Yann | 0:f30e2135b0db | 479 | m_state = HTTP_READ_HEADERS; //Wait for resp |
| Yann | 0:f30e2135b0db | 480 | } |
| Yann | 0:f30e2135b0db | 481 | } |
| Yann | 0:f30e2135b0db | 482 | |
| Yann | 0:f30e2135b0db | 483 | void HTTPClient::onTCPSocketEvent(TCPSocketEvent e) |
| Yann | 0:f30e2135b0db | 484 | { |
| Yann | 0:f30e2135b0db | 485 | DBG("Event %d in HTTPClient::onTCPSocketEvent()\n", e); |
| Yann | 0:f30e2135b0db | 486 | |
| Yann | 0:f30e2135b0db | 487 | if(m_closed) |
| Yann | 0:f30e2135b0db | 488 | { |
| Yann | 0:f30e2135b0db | 489 | DBG("WARN: Discarded\n"); |
| Yann | 0:f30e2135b0db | 490 | return; |
| Yann | 0:f30e2135b0db | 491 | } |
| Yann | 0:f30e2135b0db | 492 | |
| Yann | 0:f30e2135b0db | 493 | switch(e) |
| Yann | 0:f30e2135b0db | 494 | { |
| Yann | 0:f30e2135b0db | 495 | case TCPSOCKET_READABLE: //Incoming data |
| Yann | 0:f30e2135b0db | 496 | resetTimeout(); |
| Yann | 0:f30e2135b0db | 497 | switch(m_state) |
| Yann | 0:f30e2135b0db | 498 | { |
| Yann | 0:f30e2135b0db | 499 | case HTTP_READ_HEADERS: |
| Yann | 0:f30e2135b0db | 500 | if( !readHeaders() ) |
| Yann | 0:f30e2135b0db | 501 | { |
| Yann | 0:f30e2135b0db | 502 | return; //Connection has been closed or incomplete data |
| Yann | 0:f30e2135b0db | 503 | } |
| Yann | 0:f30e2135b0db | 504 | if( m_pDataIn ) |
| Yann | 0:f30e2135b0db | 505 | { |
| Yann | 0:f30e2135b0db | 506 | //Data chunked? |
| Yann | 0:f30e2135b0db | 507 | if(m_respHeaders["Transfer-Encoding"].find("chunked")!=string::npos) |
| Yann | 0:f30e2135b0db | 508 | { |
| Yann | 0:f30e2135b0db | 509 | m_dataChunked = true; |
| Yann | 0:f30e2135b0db | 510 | m_dataPos = 0; |
| Yann | 0:f30e2135b0db | 511 | m_dataLen = 0; |
| Yann | 0:f30e2135b0db | 512 | DBG("Encoding is chunked, Content-Type is %s\n", m_respHeaders["Content-Type"].c_str() ); |
| Yann | 0:f30e2135b0db | 513 | } |
| Yann | 0:f30e2135b0db | 514 | else |
| Yann | 0:f30e2135b0db | 515 | { |
| Yann | 0:f30e2135b0db | 516 | m_dataChunked = false; |
| Yann | 0:f30e2135b0db | 517 | int len = 0; |
| Yann | 0:f30e2135b0db | 518 | //DBG("Preparing read... len = %s\n", m_respHeaders["Content-Length"].c_str()); |
| Yann | 0:f30e2135b0db | 519 | sscanf(m_respHeaders["Content-Length"].c_str(), "%d", &len); |
| Yann | 0:f30e2135b0db | 520 | m_pDataIn->setDataLen( len ); |
| Yann | 0:f30e2135b0db | 521 | m_dataPos = 0; |
| Yann | 0:f30e2135b0db | 522 | m_dataLen = len; |
| Yann | 0:f30e2135b0db | 523 | DBG("Content-Length is %d, Content-Type is %s\n", len, m_respHeaders["Content-Type"].c_str() ); |
| Yann | 0:f30e2135b0db | 524 | } |
| Yann | 0:f30e2135b0db | 525 | m_pDataIn->setDataType( m_respHeaders["Content-Type"] ); |
| Yann | 0:f30e2135b0db | 526 | } |
| Yann | 0:f30e2135b0db | 527 | case HTTP_READ_DATA: |
| Yann | 0:f30e2135b0db | 528 | readData(); |
| Yann | 0:f30e2135b0db | 529 | break; |
| Yann | 0:f30e2135b0db | 530 | case HTTP_READ_DATA_INCOMPLETE: |
| Yann | 0:f30e2135b0db | 531 | break; //We need to handle previously received data first |
| Yann | 0:f30e2135b0db | 532 | default: |
| Yann | 0:f30e2135b0db | 533 | //Should not receive data now, req is not complete |
| Yann | 0:f30e2135b0db | 534 | onResult(HTTP_PRTCL); |
| Yann | 0:f30e2135b0db | 535 | } |
| Yann | 0:f30e2135b0db | 536 | //All data has been read, close w/ success :) |
| Yann | 0:f30e2135b0db | 537 | if( m_state == HTTP_DONE ) |
| Yann | 0:f30e2135b0db | 538 | { |
| Yann | 0:f30e2135b0db | 539 | DBG("Done :)!\n"); |
| Yann | 0:f30e2135b0db | 540 | onResult(HTTP_OK); |
| Yann | 0:f30e2135b0db | 541 | } |
| Yann | 0:f30e2135b0db | 542 | break; |
| Yann | 0:f30e2135b0db | 543 | case TCPSOCKET_CONNECTED: |
| Yann | 0:f30e2135b0db | 544 | case TCPSOCKET_WRITEABLE: //We can send data |
| Yann | 0:f30e2135b0db | 545 | resetTimeout(); |
| Yann | 0:f30e2135b0db | 546 | switch(m_state) |
| Yann | 0:f30e2135b0db | 547 | { |
| Yann | 0:f30e2135b0db | 548 | case HTTP_WRITE_HEADERS: |
| Yann | 0:f30e2135b0db | 549 | //Update headers fields according to m_pDataOut |
| Yann | 0:f30e2135b0db | 550 | if( m_pDataOut ) |
| Yann | 0:f30e2135b0db | 551 | { |
| Yann | 0:f30e2135b0db | 552 | //Data is chunked? |
| Yann | 0:f30e2135b0db | 553 | if(m_pDataOut->getIsChunked()) |
| Yann | 0:f30e2135b0db | 554 | { |
| Yann | 0:f30e2135b0db | 555 | m_dataChunked = true; |
| Yann | 0:f30e2135b0db | 556 | m_reqHeaders.erase("Content-Length"); |
| Yann | 0:f30e2135b0db | 557 | m_reqHeaders["Transfer-Encoding"] = "chunked"; |
| Yann | 0:f30e2135b0db | 558 | } |
| Yann | 0:f30e2135b0db | 559 | else |
| Yann | 0:f30e2135b0db | 560 | { |
| Yann | 0:f30e2135b0db | 561 | m_dataChunked = false; |
| Yann | 0:f30e2135b0db | 562 | char c_len[16] = "0"; |
| Yann | 0:f30e2135b0db | 563 | int len = m_pDataOut->getDataLen(); |
| Yann | 0:f30e2135b0db | 564 | sprintf(c_len, "%d", len); |
| Yann | 0:f30e2135b0db | 565 | m_dataPos = 0; |
| Yann | 0:f30e2135b0db | 566 | m_dataLen = len; |
| Yann | 0:f30e2135b0db | 567 | m_reqHeaders.erase("Transfer-Encoding"); |
| Yann | 0:f30e2135b0db | 568 | m_reqHeaders["Content-Length"] = string(c_len); |
| Yann | 0:f30e2135b0db | 569 | } |
| Yann | 0:f30e2135b0db | 570 | string type = m_pDataOut->getDataType(); |
| Yann | 0:f30e2135b0db | 571 | if(!type.empty()) |
| Yann | 0:f30e2135b0db | 572 | { |
| Yann | 0:f30e2135b0db | 573 | m_reqHeaders["Content-Type"] = type; |
| Yann | 0:f30e2135b0db | 574 | } |
| Yann | 0:f30e2135b0db | 575 | else |
| Yann | 0:f30e2135b0db | 576 | { |
| Yann | 0:f30e2135b0db | 577 | m_reqHeaders.erase("Content-Type"); |
| Yann | 0:f30e2135b0db | 578 | } |
| Yann | 0:f30e2135b0db | 579 | } |
| Yann | 0:f30e2135b0db | 580 | if( !writeHeaders() ) |
| Yann | 0:f30e2135b0db | 581 | { |
| Yann | 0:f30e2135b0db | 582 | return; //Connection has been closed |
| Yann | 0:f30e2135b0db | 583 | } |
| Yann | 0:f30e2135b0db | 584 | break; //Wait for writeable event before sending payload |
| Yann | 0:f30e2135b0db | 585 | case HTTP_WRITE_DATA: |
| Yann | 0:f30e2135b0db | 586 | writeData(); |
| Yann | 0:f30e2135b0db | 587 | break; |
| Yann | 0:f30e2135b0db | 588 | } |
| Yann | 0:f30e2135b0db | 589 | //Otherwise request has been sent, now wait for resp |
| Yann | 0:f30e2135b0db | 590 | break; |
| Yann | 0:f30e2135b0db | 591 | case TCPSOCKET_CONTIMEOUT: |
| Yann | 0:f30e2135b0db | 592 | case TCPSOCKET_CONRST: |
| Yann | 0:f30e2135b0db | 593 | case TCPSOCKET_CONABRT: |
| Yann | 0:f30e2135b0db | 594 | case TCPSOCKET_ERROR: |
| Yann | 0:f30e2135b0db | 595 | DBG("Connection error.\n"); |
| Yann | 0:f30e2135b0db | 596 | onResult(HTTP_CONN); |
| Yann | 0:f30e2135b0db | 597 | case TCPSOCKET_DISCONNECTED: |
| Yann | 0:f30e2135b0db | 598 | //There might still be some data available for reading |
| Yann | 0:f30e2135b0db | 599 | //So if we are in a reading state, do not close the socket yet |
| Yann | 0:f30e2135b0db | 600 | if( (m_state != HTTP_READ_DATA_INCOMPLETE) && (m_state != HTTP_DONE) && (m_state != HTTP_CLOSED) ) |
| Yann | 0:f30e2135b0db | 601 | { |
| Yann | 0:f30e2135b0db | 602 | onResult(HTTP_CONN); |
| Yann | 0:f30e2135b0db | 603 | } |
| Yann | 0:f30e2135b0db | 604 | DBG("Connection closed by remote host.\n"); |
| Yann | 0:f30e2135b0db | 605 | break; |
| Yann | 0:f30e2135b0db | 606 | } |
| Yann | 0:f30e2135b0db | 607 | } |
| Yann | 0:f30e2135b0db | 608 | |
| Yann | 0:f30e2135b0db | 609 | void HTTPClient::onDNSReply(DNSReply r) |
| Yann | 0:f30e2135b0db | 610 | { |
| Yann | 0:f30e2135b0db | 611 | if(m_closed) |
| Yann | 0:f30e2135b0db | 612 | { |
| Yann | 0:f30e2135b0db | 613 | DBG("WARN: Discarded\n"); |
| Yann | 0:f30e2135b0db | 614 | return; |
| Yann | 0:f30e2135b0db | 615 | } |
| Yann | 0:f30e2135b0db | 616 | |
| Yann | 0:f30e2135b0db | 617 | if( r != DNS_FOUND ) |
| Yann | 0:f30e2135b0db | 618 | { |
| Yann | 0:f30e2135b0db | 619 | DBG("Could not resolve hostname.\n"); |
| Yann | 0:f30e2135b0db | 620 | onResult(HTTP_DNS); |
| Yann | 0:f30e2135b0db | 621 | return; |
| Yann | 0:f30e2135b0db | 622 | } |
| Yann | 0:f30e2135b0db | 623 | |
| Yann | 0:f30e2135b0db | 624 | DBG("DNS Resolved to %d.%d.%d.%d.\n",m_server.getIp()[0],m_server.getIp()[1],m_server.getIp()[2],m_server.getIp()[3]); |
| Yann | 0:f30e2135b0db | 625 | //If no error, m_server has been updated by m_pDnsReq so we're set to go ! |
| Yann | 0:f30e2135b0db | 626 | m_pDnsReq->close(); |
| Yann | 0:f30e2135b0db | 627 | delete m_pDnsReq; |
| Yann | 0:f30e2135b0db | 628 | m_pDnsReq = NULL; |
| Yann | 0:f30e2135b0db | 629 | connect(); |
| Yann | 0:f30e2135b0db | 630 | } |
| Yann | 0:f30e2135b0db | 631 | |
| Yann | 0:f30e2135b0db | 632 | void HTTPClient::onResult(HTTPResult r) //Called when exchange completed or on failure |
| Yann | 0:f30e2135b0db | 633 | { |
| Yann | 0:f30e2135b0db | 634 | if(m_pCbItem && m_pCbMeth) |
| Yann | 0:f30e2135b0db | 635 | (m_pCbItem->*m_pCbMeth)(r); |
| Yann | 0:f30e2135b0db | 636 | else if(m_pCb) |
| Yann | 0:f30e2135b0db | 637 | m_pCb(r); |
| Yann | 0:f30e2135b0db | 638 | m_blockingResult = r; //Blocking mode |
| Yann | 0:f30e2135b0db | 639 | close(); //FIXME:Remove suppl. close() calls |
| Yann | 0:f30e2135b0db | 640 | } |
| Yann | 0:f30e2135b0db | 641 | |
| Yann | 0:f30e2135b0db | 642 | void HTTPClient::onTimeout() //Connection has timed out |
| Yann | 0:f30e2135b0db | 643 | { |
| Yann | 0:f30e2135b0db | 644 | DBG("Timed out.\n"); |
| Yann | 0:f30e2135b0db | 645 | onResult(HTTP_TIMEOUT); |
| Yann | 0:f30e2135b0db | 646 | close(); |
| Yann | 0:f30e2135b0db | 647 | } |
| Yann | 0:f30e2135b0db | 648 | |
| Yann | 0:f30e2135b0db | 649 | //Headers |
| Yann | 0:f30e2135b0db | 650 | |
| Yann | 0:f30e2135b0db | 651 | //TODO: Factorize w/ HTTPRequestHandler in a single HTTPHeader class |
| Yann | 0:f30e2135b0db | 652 | |
| Yann | 0:f30e2135b0db | 653 | HTTPResult HTTPClient::blockingProcess() //Called in blocking mode, calls Net::poll() until return code is available |
| Yann | 0:f30e2135b0db | 654 | { |
| Yann | 0:f30e2135b0db | 655 | //Disable callbacks |
| Yann | 0:f30e2135b0db | 656 | m_pCb = NULL; |
| Yann | 0:f30e2135b0db | 657 | m_pCbItem = NULL; |
| Yann | 0:f30e2135b0db | 658 | m_pCbMeth = NULL; |
| Yann | 0:f30e2135b0db | 659 | m_blockingResult = HTTP_PROCESSING; |
| Yann | 0:f30e2135b0db | 660 | do |
| Yann | 0:f30e2135b0db | 661 | { |
| Yann | 0:f30e2135b0db | 662 | Net::poll(); |
| Yann | 0:f30e2135b0db | 663 | } while(m_blockingResult == HTTP_PROCESSING); |
| Yann | 0:f30e2135b0db | 664 | Net::poll(); //Necessary for cleanup |
| Yann | 0:f30e2135b0db | 665 | return m_blockingResult; |
| Yann | 0:f30e2135b0db | 666 | } |
| Yann | 0:f30e2135b0db | 667 | |
| Yann | 0:f30e2135b0db | 668 | bool HTTPClient::readHeaders() |
| Yann | 0:f30e2135b0db | 669 | { |
| Yann | 0:f30e2135b0db | 670 | static char* line = m_buf; |
| Yann | 0:f30e2135b0db | 671 | static char key[128]; |
| Yann | 0:f30e2135b0db | 672 | static char value[128]; |
| Yann | 0:f30e2135b0db | 673 | if(!m_dataLen) //No incomplete header in buffer, this is the first time we read data |
| Yann | 0:f30e2135b0db | 674 | { |
| Yann | 0:f30e2135b0db | 675 | if( readLine(line, 128) > 0 ) |
| Yann | 0:f30e2135b0db | 676 | { |
| Yann | 0:f30e2135b0db | 677 | //Check RC |
| Yann | 0:f30e2135b0db | 678 | m_httpResponseCode = 0; |
| Yann | 0:f30e2135b0db | 679 | if( sscanf(line, "HTTP/%*d.%*d %d %*[^\r\n]", &m_httpResponseCode) != 1 ) |
| Yann | 0:f30e2135b0db | 680 | { |
| Yann | 0:f30e2135b0db | 681 | //Cannot match string, error |
| Yann | 0:f30e2135b0db | 682 | DBG("Not a correct HTTP answer : %s\n", line); |
| Yann | 0:f30e2135b0db | 683 | onResult(HTTP_PRTCL); |
| Yann | 0:f30e2135b0db | 684 | close(); |
| Yann | 0:f30e2135b0db | 685 | return false; |
| Yann | 0:f30e2135b0db | 686 | } |
| Yann | 0:f30e2135b0db | 687 | |
| Yann | 0:f30e2135b0db | 688 | if(m_httpResponseCode != 200) |
| Yann | 0:f30e2135b0db | 689 | { |
| Yann | 0:f30e2135b0db | 690 | DBG("Response: error code %d\n", m_httpResponseCode); |
| Yann | 0:f30e2135b0db | 691 | HTTPResult res = HTTP_ERROR; |
| Yann | 0:f30e2135b0db | 692 | switch(m_httpResponseCode) |
| Yann | 0:f30e2135b0db | 693 | { |
| Yann | 0:f30e2135b0db | 694 | case 404: |
| Yann | 0:f30e2135b0db | 695 | res = HTTP_NOTFOUND; |
| Yann | 0:f30e2135b0db | 696 | break; |
| Yann | 0:f30e2135b0db | 697 | case 403: |
| Yann | 0:f30e2135b0db | 698 | res = HTTP_REFUSED; |
| Yann | 0:f30e2135b0db | 699 | break; |
| Yann | 0:f30e2135b0db | 700 | default: |
| Yann | 0:f30e2135b0db | 701 | res = HTTP_ERROR; |
| Yann | 0:f30e2135b0db | 702 | } |
| Yann | 0:f30e2135b0db | 703 | onResult(res); |
| Yann | 0:f30e2135b0db | 704 | close(); |
| Yann | 0:f30e2135b0db | 705 | return false; |
| Yann | 0:f30e2135b0db | 706 | } |
| Yann | 0:f30e2135b0db | 707 | DBG("Response OK\n"); |
| Yann | 0:f30e2135b0db | 708 | } |
| Yann | 0:f30e2135b0db | 709 | else |
| Yann | 0:f30e2135b0db | 710 | { |
| Yann | 0:f30e2135b0db | 711 | //Empty packet, weird! |
| Yann | 0:f30e2135b0db | 712 | DBG("Empty packet!\n"); |
| Yann | 0:f30e2135b0db | 713 | onResult(HTTP_PRTCL); |
| Yann | 0:f30e2135b0db | 714 | close(); |
| Yann | 0:f30e2135b0db | 715 | return false; |
| Yann | 0:f30e2135b0db | 716 | } |
| Yann | 0:f30e2135b0db | 717 | } |
| Yann | 0:f30e2135b0db | 718 | bool incomplete = false; |
| Yann | 0:f30e2135b0db | 719 | while( true ) |
| Yann | 0:f30e2135b0db | 720 | { |
| Yann | 0:f30e2135b0db | 721 | int readLen = readLine(line + m_dataLen, 128 - m_dataLen, &incomplete); |
| Yann | 0:f30e2135b0db | 722 | m_dataLen = 0; |
| Yann | 0:f30e2135b0db | 723 | if( readLen <= 2 ) //if == 1 or 2, it is an empty line = end of headers |
| Yann | 0:f30e2135b0db | 724 | { |
| Yann | 0:f30e2135b0db | 725 | DBG("All headers read.\n"); |
| Yann | 0:f30e2135b0db | 726 | m_state = HTTP_READ_DATA; |
| Yann | 0:f30e2135b0db | 727 | break; |
| Yann | 0:f30e2135b0db | 728 | } |
| Yann | 0:f30e2135b0db | 729 | else if( incomplete == true ) |
| Yann | 0:f30e2135b0db | 730 | { |
| Yann | 0:f30e2135b0db | 731 | m_dataLen = readLen;//Sets data length available in buffer |
| Yann | 0:f30e2135b0db | 732 | return false; |
| Yann | 0:f30e2135b0db | 733 | } |
| Yann | 0:f30e2135b0db | 734 | //DBG("Header : %s\n", line); |
| Yann | 0:f30e2135b0db | 735 | int n = sscanf(line, "%[^:] : %[^\r\n]", key, value); |
| Yann | 0:f30e2135b0db | 736 | if ( n == 2 ) |
| Yann | 0:f30e2135b0db | 737 | { |
| Yann | 0:f30e2135b0db | 738 | DBG("Read header : %s: %s\n", key, value); |
| Yann | 0:f30e2135b0db | 739 | m_respHeaders[key] = value; |
| Yann | 0:f30e2135b0db | 740 | } |
| Yann | 0:f30e2135b0db | 741 | //TODO: Impl n==1 case (part 2 of previous header) |
| Yann | 0:f30e2135b0db | 742 | } |
| Yann | 0:f30e2135b0db | 743 | |
| Yann | 0:f30e2135b0db | 744 | return true; |
| Yann | 0:f30e2135b0db | 745 | } |
| Yann | 0:f30e2135b0db | 746 | |
| Yann | 0:f30e2135b0db | 747 | bool HTTPClient::writeHeaders() //Called at the first writeData call |
| Yann | 0:f30e2135b0db | 748 | { |
| Yann | 0:f30e2135b0db | 749 | static char* line = m_buf; |
| Yann | 0:f30e2135b0db | 750 | const char* HTTP_METH_STR[] = {"GET", "POST", "HEAD"}; |
| Yann | 0:f30e2135b0db | 751 | |
| Yann | 0:f30e2135b0db | 752 | //Req |
| Yann | 0:f30e2135b0db | 753 | sprintf(line, "%s %s HTTP/1.1\r\nHost: %s\r\n", HTTP_METH_STR[m_meth], m_path.c_str(), m_server.getName()); //Write request |
| Yann | 0:f30e2135b0db | 754 | m_pTCPSocket->send(line, strlen(line)); |
| Yann | 0:f30e2135b0db | 755 | DBG("Request: %s\n", line); |
| Yann | 0:f30e2135b0db | 756 | |
| Yann | 0:f30e2135b0db | 757 | DBG("Writing headers:\n"); |
| Yann | 0:f30e2135b0db | 758 | map<string,string>::iterator it; |
| Yann | 0:f30e2135b0db | 759 | for( it = m_reqHeaders.begin(); it != m_reqHeaders.end(); it++ ) |
| Yann | 0:f30e2135b0db | 760 | { |
| Yann | 0:f30e2135b0db | 761 | sprintf(line, "%s: %s\r\n", (*it).first.c_str(), (*it).second.c_str() ); |
| Yann | 0:f30e2135b0db | 762 | DBG("\r\n%s", line); |
| Yann | 0:f30e2135b0db | 763 | m_pTCPSocket->send(line, strlen(line)); |
| Yann | 0:f30e2135b0db | 764 | } |
| Yann | 0:f30e2135b0db | 765 | m_pTCPSocket->send("\r\n",2); //End of head |
| Yann | 0:f30e2135b0db | 766 | m_state = HTTP_WRITE_DATA; |
| Yann | 0:f30e2135b0db | 767 | return true; |
| Yann | 0:f30e2135b0db | 768 | } |
| Yann | 0:f30e2135b0db | 769 | |
| Yann | 0:f30e2135b0db | 770 | int HTTPClient::readLine(char* str, int maxLen, bool* pIncomplete /* = NULL*/) |
| Yann | 0:f30e2135b0db | 771 | { |
| Yann | 0:f30e2135b0db | 772 | int ret; |
| Yann | 0:f30e2135b0db | 773 | int len = 0; |
| Yann | 0:f30e2135b0db | 774 | if(pIncomplete) |
| Yann | 0:f30e2135b0db | 775 | *pIncomplete = false; |
| Yann | 0:f30e2135b0db | 776 | for(int i = 0; i < maxLen - 1; i++) |
| Yann | 0:f30e2135b0db | 777 | { |
| Yann | 0:f30e2135b0db | 778 | ret = m_pTCPSocket->recv(str, 1); |
| Yann | 0:f30e2135b0db | 779 | if(ret != 1) |
| Yann | 0:f30e2135b0db | 780 | { |
| Yann | 0:f30e2135b0db | 781 | if(pIncomplete) |
| Yann | 0:f30e2135b0db | 782 | *pIncomplete = true; |
| Yann | 0:f30e2135b0db | 783 | break; |
| Yann | 0:f30e2135b0db | 784 | } |
| Yann | 0:f30e2135b0db | 785 | if( (len > 1) && *(str-1)=='\r' && *str=='\n' ) |
| Yann | 0:f30e2135b0db | 786 | { |
| Yann | 0:f30e2135b0db | 787 | break; |
| Yann | 0:f30e2135b0db | 788 | } |
| Yann | 0:f30e2135b0db | 789 | else if( *str=='\n' ) |
| Yann | 0:f30e2135b0db | 790 | { |
| Yann | 0:f30e2135b0db | 791 | break; |
| Yann | 0:f30e2135b0db | 792 | } |
| Yann | 0:f30e2135b0db | 793 | str++; |
| Yann | 0:f30e2135b0db | 794 | len++; |
| Yann | 0:f30e2135b0db | 795 | } |
| Yann | 0:f30e2135b0db | 796 | *str = 0; |
| Yann | 0:f30e2135b0db | 797 | return len; |
| Yann | 0:f30e2135b0db | 798 | } |