Vincent Wochnik / HTTPClient

Fork with custom headers and basic auth.

Dependents:   MbedSmartRest

Fork of HTTPClient by Kazushi Mukaiyama

HTTPClient.cpp@22:967c00d70d95, 2014-02-02 (annotated)

Committer:
vwochnik
Date:
Sun Feb 02 16:40:08 2014 +0000
Revision:
22:967c00d70d95
Parent:
21:66f1c10a5e9a
Child:
23:9386b15b0820
fix

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
vwochnik 22:967c00d70d95 21 #if 1
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
vwochnik 22:967c00d70d95 43 #define CHUNK_SIZE 128
donatien 0:2ccb9960a044 44
donatien 0:2ccb9960a044 45 #include <cstring>
donatien 0:2ccb9960a044 46
donatien 11:390362de8c3f 47 #include "HTTPClient.h"
donatien 11:390362de8c3f 48
donatien 0:2ccb9960a044 49 HTTPClient::HTTPClient() :
donatien 7:4e39864f7b15 50 m_sock(), m_basicAuthUser(NULL), m_basicAuthPassword(NULL), m_httpResponseCode(0)
donatien 0:2ccb9960a044 51 {
donatien 0:2ccb9960a044 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 void HTTPClient::basicAuth(const char* user, const char* password) //Basic Authentification
donatien 0:2ccb9960a044 61 {
donatien 0:2ccb9960a044 62 m_basicAuthUser = user;
donatien 0:2ccb9960a044 63 m_basicAuthPassword = password;
donatien 0:2ccb9960a044 64 }
vwochnik 19:bcbf0af9fac3 65
vwochnik 19:bcbf0af9fac3 66 void HTTPClient::customHeaders(const char **headers, size_t pairs)
vwochnik 19:bcbf0af9fac3 67 {
vwochnik 19:bcbf0af9fac3 68 m_customHeaders = headers;
vwochnik 19:bcbf0af9fac3 69 m_nCustomHeaders = pairs;
vwochnik 19:bcbf0af9fac3 70 }
vwochnik 19:bcbf0af9fac3 71
donatien 0:2ccb9960a044 72
donatien 12:89d09a6db00a 73 HTTPResult HTTPClient::get(const char* url, IHTTPDataIn* pDataIn, int timeout /*= HTTP_CLIENT_DEFAULT_TIMEOUT*/) //Blocking
donatien 0:2ccb9960a044 74 {
donatien 0:2ccb9960a044 75 return connect(url, HTTP_GET, NULL, pDataIn, timeout);
donatien 0:2ccb9960a044 76 }
donatien 0:2ccb9960a044 77
donatien 12:89d09a6db00a 78 HTTPResult HTTPClient::get(const char* url, char* result, size_t maxResultLen, int timeout /*= HTTP_CLIENT_DEFAULT_TIMEOUT*/) //Blocking
donatien 0:2ccb9960a044 79 {
donatien 0:2ccb9960a044 80 HTTPText str(result, maxResultLen);
donatien 0:2ccb9960a044 81 return get(url, &str, timeout);
donatien 0:2ccb9960a044 82 }
donatien 0:2ccb9960a044 83
donatien 12:89d09a6db00a 84 HTTPResult HTTPClient::post(const char* url, const IHTTPDataOut& dataOut, IHTTPDataIn* pDataIn, int timeout /*= HTTP_CLIENT_DEFAULT_TIMEOUT*/) //Blocking
donatien 0:2ccb9960a044 85 {
donatien 0:2ccb9960a044 86 return connect(url, HTTP_POST, (IHTTPDataOut*)&dataOut, pDataIn, timeout);
donatien 0:2ccb9960a044 87 }
donatien 0:2ccb9960a044 88
donatien 16:1f743885e7de 89 HTTPResult HTTPClient::put(const char* url, const IHTTPDataOut& dataOut, IHTTPDataIn* pDataIn, int timeout /*= HTTP_CLIENT_DEFAULT_TIMEOUT*/) //Blocking
donatien 16:1f743885e7de 90 {
donatien 16:1f743885e7de 91 return connect(url, HTTP_PUT, (IHTTPDataOut*)&dataOut, pDataIn, timeout);
donatien 16:1f743885e7de 92 }
donatien 16:1f743885e7de 93
donatien 16:1f743885e7de 94 HTTPResult HTTPClient::del(const char* url, IHTTPDataIn* pDataIn, int timeout /*= HTTP_CLIENT_DEFAULT_TIMEOUT*/) //Blocking
donatien 16:1f743885e7de 95 {
donatien 16:1f743885e7de 96 return connect(url, HTTP_DELETE, NULL, pDataIn, timeout);
donatien 16:1f743885e7de 97 }
donatien 16:1f743885e7de 98
donatien 16:1f743885e7de 99
donatien 0:2ccb9960a044 100 int HTTPClient::getHTTPResponseCode()
donatien 0:2ccb9960a044 101 {
donatien 0:2ccb9960a044 102 return m_httpResponseCode;
donatien 0:2ccb9960a044 103 }
donatien 0:2ccb9960a044 104
donatien 5:791fc3dcb6c4 105 #define CHECK_CONN_ERR(ret) \
donatien 5:791fc3dcb6c4 106 do{ \
donatien 7:4e39864f7b15 107 if(ret) { \
donatien 7:4e39864f7b15 108 m_sock.close(); \
donatien 5:791fc3dcb6c4 109 ERR("Connection error (%d)", ret); \
donatien 11:390362de8c3f 110 return HTTP_CONN; \
donatien 5:791fc3dcb6c4 111 } \
donatien 5:791fc3dcb6c4 112 } while(0)
donatien 5:791fc3dcb6c4 113
donatien 5:791fc3dcb6c4 114 #define PRTCL_ERR() \
donatien 5:791fc3dcb6c4 115 do{ \
donatien 7:4e39864f7b15 116 m_sock.close(); \
donatien 5:791fc3dcb6c4 117 ERR("Protocol error"); \
donatien 11:390362de8c3f 118 return HTTP_PRTCL; \
donatien 5:791fc3dcb6c4 119 } while(0)
donatien 0:2ccb9960a044 120
donatien 12:89d09a6db00a 121 HTTPResult HTTPClient::connect(const char* url, HTTP_METH method, IHTTPDataOut* pDataOut, IHTTPDataIn* pDataIn, int timeout) //Execute request
donatien 12:89d09a6db00a 122 {
donatien 0:2ccb9960a044 123 m_httpResponseCode = 0; //Invalidate code
donatien 0:2ccb9960a044 124 m_timeout = timeout;
donatien 16:1f743885e7de 125
donatien 16:1f743885e7de 126 pDataIn->writeReset();
donatien 16:1f743885e7de 127 if( pDataOut )
donatien 16:1f743885e7de 128 {
donatien 16:1f743885e7de 129 pDataOut->readReset();
donatien 16:1f743885e7de 130 }
donatien 0:2ccb9960a044 131
donatien 0:2ccb9960a044 132 char scheme[8];
donatien 0:2ccb9960a044 133 uint16_t port;
donatien 0:2ccb9960a044 134 char host[32];
donatien 0:2ccb9960a044 135 char path[64];
donatien 0:2ccb9960a044 136 //First we need to parse the url (http[s]://host[:port][/[path]]) -- HTTPS not supported (yet?)
donatien 11:390362de8c3f 137 HTTPResult res = parseURL(url, scheme, sizeof(scheme), host, sizeof(host), &port, path, sizeof(path));
donatien 11:390362de8c3f 138 if(res != HTTP_OK)
donatien 0:2ccb9960a044 139 {
donatien 11:390362de8c3f 140 ERR("parseURL returned %d", res);
donatien 11:390362de8c3f 141 return res;
donatien 0:2ccb9960a044 142 }
donatien 0:2ccb9960a044 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 }
donatien 0:2ccb9960a044 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);
donatien 0:2ccb9960a044 153
donatien 7:4e39864f7b15 154 //Connect
donatien 7:4e39864f7b15 155 DBG("Connecting socket to server");
donatien 11:390362de8c3f 156 int ret = m_sock.connect(host, port);
donatien 0:2ccb9960a044 157 if (ret < 0)
donatien 0:2ccb9960a044 158 {
donatien 7:4e39864f7b15 159 m_sock.close();
donatien 0:2ccb9960a044 160 ERR("Could not connect");
donatien 11:390362de8c3f 161 return HTTP_CONN;
donatien 0:2ccb9960a044 162 }
donatien 0:2ccb9960a044 163
donatien 0:2ccb9960a044 164 //Send request
donatien 0:2ccb9960a044 165 DBG("Sending request");
donatien 9:ff30cc189191 166 char buf[CHUNK_SIZE];
donatien 16:1f743885e7de 167 const char* meth = (method==HTTP_GET)?"GET":(method==HTTP_POST)?"POST":(method==HTTP_PUT)?"PUT":(method==HTTP_DELETE)?"DELETE":"";
vwochnik 19:bcbf0af9fac3 168 snprintf(buf, sizeof(buf), "%s %s HTTP/1.1\r\nHost: %s\r\n", meth, path, host); //Write request
donatien 9:ff30cc189191 169 ret = send(buf);
donatien 0:2ccb9960a044 170 if(ret)
donatien 0:2ccb9960a044 171 {
donatien 7:4e39864f7b15 172 m_sock.close();
donatien 0:2ccb9960a044 173 ERR("Could not write request");
donatien 11:390362de8c3f 174 return HTTP_CONN;
donatien 0:2ccb9960a044 175 }
vwochnik 19:bcbf0af9fac3 176
vwochnik 19:bcbf0af9fac3 177 // send authorization
vwochnik 21:66f1c10a5e9a 178 if ((m_basicAuthUser != NULL) && (m_basicAuthPassword != NULL)) {
vwochnik 21:66f1c10a5e9a 179 strcpy(buf, "Authorization: Basic ");
vwochnik 20:cb2e5cd4e29b 180 createauth(m_basicAuthUser, m_basicAuthPassword, buf+strlen(buf), sizeof(buf)-strlen(buf));
vwochnik 19:bcbf0af9fac3 181 strcat(buf, "\r\n");
vwochnik 19:bcbf0af9fac3 182
vwochnik 19:bcbf0af9fac3 183 ret = send(buf);
vwochnik 22:967c00d70d95 184 CHECK_CONN_ERR(ret);
vwochnik 19:bcbf0af9fac3 185 }
donatien 0:2ccb9960a044 186
donatien 0:2ccb9960a044 187 //Send all headers
vwochnik 19:bcbf0af9fac3 188 for (size_t nh = 0; nh < m_nCustomHeaders; ++nh) {
vwochnik 19:bcbf0af9fac3 189 snprintf(buf, sizeof(buf), "%s: %s\r\n", m_customHeaders[nh], m_customHeaders[nh+1]);
vwochnik 19:bcbf0af9fac3 190 ret = send(buf);
vwochnik 22:967c00d70d95 191 CHECK_CONN_ERR(ret);
vwochnik 19:bcbf0af9fac3 192 }
donatien 0:2ccb9960a044 193
donatien 0:2ccb9960a044 194 //Send default headers
donatien 0:2ccb9960a044 195 DBG("Sending headers");
donatien 16:1f743885e7de 196 if( pDataOut != NULL )
donatien 0:2ccb9960a044 197 {
donatien 0:2ccb9960a044 198 if( pDataOut->getIsChunked() )
donatien 0:2ccb9960a044 199 {
donatien 0:2ccb9960a044 200 ret = send("Transfer-Encoding: chunked\r\n");
donatien 5:791fc3dcb6c4 201 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 202 }
donatien 0:2ccb9960a044 203 else
donatien 0:2ccb9960a044 204 {
vwochnik 22:967c00d70d95 205 snprintf(buf, sizeof(buf), "Content-Length: %lu\r\n", pDataOut->getDataLen());
donatien 9:ff30cc189191 206 ret = send(buf);
donatien 5:791fc3dcb6c4 207 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 208 }
donatien 0:2ccb9960a044 209 char type[48];
donatien 11:390362de8c3f 210 if( pDataOut->getDataType(type, 48) == HTTP_OK )
donatien 0:2ccb9960a044 211 {
donatien 9:ff30cc189191 212 snprintf(buf, sizeof(buf), "Content-Type: %s\r\n", type);
donatien 9:ff30cc189191 213 ret = send(buf);
donatien 5:791fc3dcb6c4 214 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 215 }
donatien 0:2ccb9960a044 216 }
donatien 9:ff30cc189191 217
donatien 0:2ccb9960a044 218 //Close headers
donatien 0:2ccb9960a044 219 DBG("Headers sent");
donatien 0:2ccb9960a044 220 ret = send("\r\n");
donatien 5:791fc3dcb6c4 221 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 222
donatien 4:c071b05ac026 223 size_t trfLen;
donatien 9:ff30cc189191 224
donatien 16:1f743885e7de 225 //Send data (if available)
donatien 16:1f743885e7de 226 if( pDataOut != NULL )
donatien 0:2ccb9960a044 227 {
donatien 0:2ccb9960a044 228 DBG("Sending data");
donatien 0:2ccb9960a044 229 while(true)
donatien 0:2ccb9960a044 230 {
donatien 0:2ccb9960a044 231 size_t writtenLen = 0;
donatien 0:2ccb9960a044 232 pDataOut->read(buf, CHUNK_SIZE, &trfLen);
donatien 0:2ccb9960a044 233 if( pDataOut->getIsChunked() )
donatien 0:2ccb9960a044 234 {
donatien 0:2ccb9960a044 235 //Write chunk header
donatien 9:ff30cc189191 236 char chunkHeader[16];
donatien 9:ff30cc189191 237 snprintf(chunkHeader, sizeof(chunkHeader), "%X\r\n", trfLen); //In hex encoding
donatien 9:ff30cc189191 238 ret = send(chunkHeader);
donatien 5:791fc3dcb6c4 239 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 240 }
donatien 0:2ccb9960a044 241 else if( trfLen == 0 )
donatien 0:2ccb9960a044 242 {
donatien 0:2ccb9960a044 243 break;
donatien 0:2ccb9960a044 244 }
donatien 0:2ccb9960a044 245 if( trfLen != 0 )
donatien 0:2ccb9960a044 246 {
donatien 0:2ccb9960a044 247 ret = send(buf, trfLen);
donatien 5:791fc3dcb6c4 248 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 249 }
donatien 0:2ccb9960a044 250
donatien 0:2ccb9960a044 251 if( pDataOut->getIsChunked() )
donatien 0:2ccb9960a044 252 {
donatien 0:2ccb9960a044 253 ret = send("\r\n"); //Chunk-terminating CRLF
donatien 5:791fc3dcb6c4 254 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 255 }
donatien 0:2ccb9960a044 256 else
donatien 0:2ccb9960a044 257 {
donatien 0:2ccb9960a044 258 writtenLen += trfLen;
donatien 0:2ccb9960a044 259 if( writtenLen >= pDataOut->getDataLen() )
donatien 0:2ccb9960a044 260 {
donatien 0:2ccb9960a044 261 break;
donatien 0:2ccb9960a044 262 }
donatien 0:2ccb9960a044 263 }
donatien 0:2ccb9960a044 264
donatien 0:2ccb9960a044 265 if( trfLen == 0 )
donatien 0:2ccb9960a044 266 {
donatien 0:2ccb9960a044 267 break;
donatien 0:2ccb9960a044 268 }
donatien 0:2ccb9960a044 269 }
donatien 0:2ccb9960a044 270
donatien 0:2ccb9960a044 271 }
donatien 9:ff30cc189191 272
donatien 0:2ccb9960a044 273 //Receive response
donatien 0:2ccb9960a044 274 DBG("Receiving response");
donatien 4:c071b05ac026 275 ret = recv(buf, CHUNK_SIZE - 1, CHUNK_SIZE - 1, &trfLen); //Read n bytes
donatien 5:791fc3dcb6c4 276 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 277
donatien 0:2ccb9960a044 278 buf[trfLen] = '\0';
donatien 0:2ccb9960a044 279
donatien 0:2ccb9960a044 280 char* crlfPtr = strstr(buf, "\r\n");
donatien 0:2ccb9960a044 281 if(crlfPtr == NULL)
donatien 0:2ccb9960a044 282 {
donatien 5:791fc3dcb6c4 283 PRTCL_ERR();
donatien 0:2ccb9960a044 284 }
donatien 0:2ccb9960a044 285
donatien 4:c071b05ac026 286 int crlfPos = crlfPtr - buf;
donatien 0:2ccb9960a044 287 buf[crlfPos] = '\0';
donatien 0:2ccb9960a044 288
donatien 0:2ccb9960a044 289 //Parse HTTP response
donatien 0:2ccb9960a044 290 if( sscanf(buf, "HTTP/%*d.%*d %d %*[^\r\n]", &m_httpResponseCode) != 1 )
donatien 0:2ccb9960a044 291 {
donatien 0:2ccb9960a044 292 //Cannot match string, error
donatien 0:2ccb9960a044 293 ERR("Not a correct HTTP answer : %s\n", buf);
donatien 5:791fc3dcb6c4 294 PRTCL_ERR();
donatien 0:2ccb9960a044 295 }
donatien 0:2ccb9960a044 296
donatien 16:1f743885e7de 297 if( (m_httpResponseCode < 200) || (m_httpResponseCode >= 300) )
donatien 0:2ccb9960a044 298 {
donatien 16:1f743885e7de 299 //Did not return a 2xx code; TODO fetch headers/(&data?) anyway and implement a mean of writing/reading headers
donatien 0:2ccb9960a044 300 WARN("Response code %d", m_httpResponseCode);
donatien 5:791fc3dcb6c4 301 PRTCL_ERR();
donatien 0:2ccb9960a044 302 }
donatien 0:2ccb9960a044 303
donatien 0:2ccb9960a044 304 DBG("Reading headers");
donatien 0:2ccb9960a044 305
donatien 4:c071b05ac026 306 memmove(buf, &buf[crlfPos+2], trfLen - (crlfPos + 2) + 1); //Be sure to move NULL-terminating char as well
donatien 0:2ccb9960a044 307 trfLen -= (crlfPos + 2);
donatien 0:2ccb9960a044 308
donatien 4:c071b05ac026 309 size_t recvContentLength = 0;
donatien 4:c071b05ac026 310 bool recvChunked = false;
donatien 0:2ccb9960a044 311 //Now get headers
donatien 0:2ccb9960a044 312 while( true )
donatien 0:2ccb9960a044 313 {
donatien 0:2ccb9960a044 314 crlfPtr = strstr(buf, "\r\n");
donatien 0:2ccb9960a044 315 if(crlfPtr == NULL)
donatien 0:2ccb9960a044 316 {
donatien 4:c071b05ac026 317 if( trfLen < CHUNK_SIZE - 1 )
donatien 0:2ccb9960a044 318 {
donatien 0:2ccb9960a044 319 size_t newTrfLen;
donatien 0:2ccb9960a044 320 ret = recv(buf + trfLen, 1, CHUNK_SIZE - trfLen - 1, &newTrfLen);
donatien 0:2ccb9960a044 321 trfLen += newTrfLen;
donatien 0:2ccb9960a044 322 buf[trfLen] = '\0';
donatien 4:c071b05ac026 323 DBG("Read %d chars; In buf: [%s]", newTrfLen, buf);
donatien 5:791fc3dcb6c4 324 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 325 continue;
donatien 0:2ccb9960a044 326 }
donatien 0:2ccb9960a044 327 else
donatien 0:2ccb9960a044 328 {
donatien 5:791fc3dcb6c4 329 PRTCL_ERR();
donatien 0:2ccb9960a044 330 }
donatien 0:2ccb9960a044 331 }
donatien 0:2ccb9960a044 332
donatien 0:2ccb9960a044 333 crlfPos = crlfPtr - buf;
donatien 0:2ccb9960a044 334
donatien 0:2ccb9960a044 335 if(crlfPos == 0) //End of headers
donatien 0:2ccb9960a044 336 {
donatien 0:2ccb9960a044 337 DBG("Headers read");
donatien 4:c071b05ac026 338 memmove(buf, &buf[2], trfLen - 2 + 1); //Be sure to move NULL-terminating char as well
donatien 0:2ccb9960a044 339 trfLen -= 2;
donatien 0:2ccb9960a044 340 break;
donatien 0:2ccb9960a044 341 }
donatien 0:2ccb9960a044 342
donatien 0:2ccb9960a044 343 buf[crlfPos] = '\0';
donatien 0:2ccb9960a044 344
donatien 4:c071b05ac026 345 char key[32];
donatien 4:c071b05ac026 346 char value[32];
donatien 0:2ccb9960a044 347
donatien 4:c071b05ac026 348 key[31] = '\0';
donatien 4:c071b05ac026 349 value[31] = '\0';
donatien 4:c071b05ac026 350
donatien 4:c071b05ac026 351 int n = sscanf(buf, "%31[^:]: %31[^\r\n]", key, value);
donatien 0:2ccb9960a044 352 if ( n == 2 )
donatien 0:2ccb9960a044 353 {
donatien 0:2ccb9960a044 354 DBG("Read header : %s: %s\n", key, value);
donatien 0:2ccb9960a044 355 if( !strcmp(key, "Content-Length") )
donatien 0:2ccb9960a044 356 {
donatien 0:2ccb9960a044 357 sscanf(value, "%d", &recvContentLength);
donatien 0:2ccb9960a044 358 pDataIn->setDataLen(recvContentLength);
donatien 0:2ccb9960a044 359 }
donatien 0:2ccb9960a044 360 else if( !strcmp(key, "Transfer-Encoding") )
donatien 0:2ccb9960a044 361 {
donatien 0:2ccb9960a044 362 if( !strcmp(value, "Chunked") || !strcmp(value, "chunked") )
donatien 0:2ccb9960a044 363 {
donatien 0:2ccb9960a044 364 recvChunked = true;
donatien 0:2ccb9960a044 365 pDataIn->setIsChunked(true);
donatien 0:2ccb9960a044 366 }
donatien 0:2ccb9960a044 367 }
donatien 0:2ccb9960a044 368 else if( !strcmp(key, "Content-Type") )
donatien 0:2ccb9960a044 369 {
donatien 0:2ccb9960a044 370 pDataIn->setDataType(value);
donatien 0:2ccb9960a044 371 }
donatien 0:2ccb9960a044 372
donatien 4:c071b05ac026 373 memmove(buf, &buf[crlfPos+2], trfLen - (crlfPos + 2) + 1); //Be sure to move NULL-terminating char as well
donatien 0:2ccb9960a044 374 trfLen -= (crlfPos + 2);
donatien 0:2ccb9960a044 375
donatien 0:2ccb9960a044 376 }
donatien 0:2ccb9960a044 377 else
donatien 0:2ccb9960a044 378 {
donatien 0:2ccb9960a044 379 ERR("Could not parse header");
donatien 5:791fc3dcb6c4 380 PRTCL_ERR();
donatien 0:2ccb9960a044 381 }
donatien 0:2ccb9960a044 382
donatien 0:2ccb9960a044 383 }
donatien 0:2ccb9960a044 384
donatien 0:2ccb9960a044 385 //Receive data
donatien 0:2ccb9960a044 386 DBG("Receiving data");
donatien 0:2ccb9960a044 387 while(true)
donatien 0:2ccb9960a044 388 {
donatien 0:2ccb9960a044 389 size_t readLen = 0;
donatien 0:2ccb9960a044 390
donatien 0:2ccb9960a044 391 if( recvChunked )
donatien 0:2ccb9960a044 392 {
donatien 0:2ccb9960a044 393 //Read chunk header
donatien 14:2744e0c0e527 394 bool foundCrlf;
donatien 14:2744e0c0e527 395 do
donatien 0:2ccb9960a044 396 {
donatien 14:2744e0c0e527 397 foundCrlf = false;
donatien 14:2744e0c0e527 398 crlfPos=0;
donatien 14:2744e0c0e527 399 buf[trfLen]=0;
donatien 14:2744e0c0e527 400 if(trfLen >= 2)
donatien 0:2ccb9960a044 401 {
donatien 14:2744e0c0e527 402 for(; crlfPos < trfLen - 2; crlfPos++)
donatien 14:2744e0c0e527 403 {
donatien 14:2744e0c0e527 404 if( buf[crlfPos] == '\r' && buf[crlfPos + 1] == '\n' )
donatien 14:2744e0c0e527 405 {
donatien 14:2744e0c0e527 406 foundCrlf = true;
donatien 14:2744e0c0e527 407 break;
donatien 14:2744e0c0e527 408 }
donatien 14:2744e0c0e527 409 }
donatien 0:2ccb9960a044 410 }
donatien 14:2744e0c0e527 411 if(!foundCrlf) //Try to read more
donatien 0:2ccb9960a044 412 {
donatien 14:2744e0c0e527 413 if( trfLen < CHUNK_SIZE )
donatien 14:2744e0c0e527 414 {
donatien 14:2744e0c0e527 415 size_t newTrfLen;
donatien 14:2744e0c0e527 416 ret = recv(buf + trfLen, 0, CHUNK_SIZE - trfLen - 1, &newTrfLen);
donatien 14:2744e0c0e527 417 trfLen += newTrfLen;
donatien 14:2744e0c0e527 418 CHECK_CONN_ERR(ret);
donatien 14:2744e0c0e527 419 continue;
donatien 14:2744e0c0e527 420 }
donatien 14:2744e0c0e527 421 else
donatien 14:2744e0c0e527 422 {
donatien 14:2744e0c0e527 423 PRTCL_ERR();
donatien 14:2744e0c0e527 424 }
donatien 0:2ccb9960a044 425 }
donatien 14:2744e0c0e527 426 } while(!foundCrlf);
donatien 0:2ccb9960a044 427 buf[crlfPos] = '\0';
donatien 0:2ccb9960a044 428 int n = sscanf(buf, "%x", &readLen);
donatien 0:2ccb9960a044 429 if(n!=1)
donatien 0:2ccb9960a044 430 {
donatien 15:5ad07f90e895 431 ERR("Could not read chunk length");
donatien 5:791fc3dcb6c4 432 PRTCL_ERR();
donatien 0:2ccb9960a044 433 }
donatien 0:2ccb9960a044 434
donatien 4:c071b05ac026 435 memmove(buf, &buf[crlfPos+2], trfLen - (crlfPos + 2)); //Not need to move NULL-terminating char any more
donatien 0:2ccb9960a044 436 trfLen -= (crlfPos + 2);
donatien 0:2ccb9960a044 437
donatien 0:2ccb9960a044 438 if( readLen == 0 )
donatien 0:2ccb9960a044 439 {
donatien 0:2ccb9960a044 440 //Last chunk
donatien 0:2ccb9960a044 441 break;
donatien 0:2ccb9960a044 442 }
donatien 0:2ccb9960a044 443 }
donatien 0:2ccb9960a044 444 else
donatien 0:2ccb9960a044 445 {
donatien 0:2ccb9960a044 446 readLen = recvContentLength;
donatien 0:2ccb9960a044 447 }
donatien 0:2ccb9960a044 448
donatien 0:2ccb9960a044 449 DBG("Retrieving %d bytes", readLen);
donatien 0:2ccb9960a044 450
donatien 0:2ccb9960a044 451 do
donatien 0:2ccb9960a044 452 {
donatien 0:2ccb9960a044 453 pDataIn->write(buf, MIN(trfLen, readLen));
donatien 0:2ccb9960a044 454 if( trfLen > readLen )
donatien 0:2ccb9960a044 455 {
donatien 0:2ccb9960a044 456 memmove(buf, &buf[readLen], trfLen - readLen);
donatien 0:2ccb9960a044 457 trfLen -= readLen;
donatien 0:2ccb9960a044 458 readLen = 0;
donatien 0:2ccb9960a044 459 }
donatien 0:2ccb9960a044 460 else
donatien 0:2ccb9960a044 461 {
donatien 0:2ccb9960a044 462 readLen -= trfLen;
donatien 0:2ccb9960a044 463 }
donatien 0:2ccb9960a044 464
donatien 0:2ccb9960a044 465 if(readLen)
donatien 0:2ccb9960a044 466 {
donatien 0:2ccb9960a044 467 ret = recv(buf, 1, CHUNK_SIZE - trfLen - 1, &trfLen);
donatien 5:791fc3dcb6c4 468 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 469 }
donatien 0:2ccb9960a044 470 } while(readLen);
donatien 0:2ccb9960a044 471
donatien 0:2ccb9960a044 472 if( recvChunked )
donatien 0:2ccb9960a044 473 {
donatien 0:2ccb9960a044 474 if(trfLen < 2)
donatien 0:2ccb9960a044 475 {
donatien 0:2ccb9960a044 476 size_t newTrfLen;
donatien 0:2ccb9960a044 477 //Read missing chars to find end of chunk
donatien 14:2744e0c0e527 478 ret = recv(buf + trfLen, 2 - trfLen, CHUNK_SIZE - trfLen - 1, &newTrfLen);
donatien 5:791fc3dcb6c4 479 CHECK_CONN_ERR(ret);
donatien 0:2ccb9960a044 480 trfLen += newTrfLen;
donatien 0:2ccb9960a044 481 }
donatien 0:2ccb9960a044 482 if( (buf[0] != '\r') || (buf[1] != '\n') )
donatien 0:2ccb9960a044 483 {
donatien 0:2ccb9960a044 484 ERR("Format error");
donatien 5:791fc3dcb6c4 485 PRTCL_ERR();
donatien 0:2ccb9960a044 486 }
donatien 0:2ccb9960a044 487 memmove(buf, &buf[2], trfLen - 2);
donatien 0:2ccb9960a044 488 trfLen -= 2;
donatien 0:2ccb9960a044 489 }
donatien 0:2ccb9960a044 490 else
donatien 0:2ccb9960a044 491 {
donatien 0:2ccb9960a044 492 break;
donatien 0:2ccb9960a044 493 }
donatien 0:2ccb9960a044 494
donatien 0:2ccb9960a044 495 }
donatien 0:2ccb9960a044 496
donatien 7:4e39864f7b15 497 m_sock.close();
donatien 0:2ccb9960a044 498 DBG("Completed HTTP transaction");
donatien 0:2ccb9960a044 499
donatien 11:390362de8c3f 500 return HTTP_OK;
donatien 0:2ccb9960a044 501 }
donatien 0:2ccb9960a044 502
donatien 11:390362de8c3f 503 HTTPResult HTTPClient::recv(char* buf, size_t minLen, size_t maxLen, size_t* pReadLen) //0 on success, err code on failure
donatien 0:2ccb9960a044 504 {
donatien 0:2ccb9960a044 505 DBG("Trying to read between %d and %d bytes", minLen, maxLen);
donatien 0:2ccb9960a044 506 size_t readLen = 0;
donatien 12:89d09a6db00a 507
donatien 12:89d09a6db00a 508 if(!m_sock.is_connected())
donatien 12:89d09a6db00a 509 {
donatien 12:89d09a6db00a 510 WARN("Connection was closed by server");
donatien 12:89d09a6db00a 511 return HTTP_CLOSED; //Connection was closed by server
donatien 12:89d09a6db00a 512 }
donatien 12:89d09a6db00a 513
donatien 7:4e39864f7b15 514 int ret;
donatien 7:4e39864f7b15 515 while(readLen < maxLen)
donatien 0:2ccb9960a044 516 {
donatien 7:4e39864f7b15 517 if(readLen < minLen)
donatien 0:2ccb9960a044 518 {
donatien 12:89d09a6db00a 519 DBG("Trying to read at most %d bytes [Blocking]", minLen - readLen);
donatien 13:be61104f4e91 520 m_sock.set_blocking(false, m_timeout);
donatien 12:89d09a6db00a 521 ret = m_sock.receive_all(buf + readLen, minLen - readLen);
donatien 0:2ccb9960a044 522 }
donatien 7:4e39864f7b15 523 else
donatien 7:4e39864f7b15 524 {
donatien 12:89d09a6db00a 525 DBG("Trying to read at most %d bytes [Not blocking]", maxLen - readLen);
donatien 13:be61104f4e91 526 m_sock.set_blocking(false, 0);
donatien 12:89d09a6db00a 527 ret = m_sock.receive(buf + readLen, maxLen - readLen);
donatien 7:4e39864f7b15 528 }
donatien 7:4e39864f7b15 529
donatien 0:2ccb9960a044 530 if( ret > 0)
donatien 0:2ccb9960a044 531 {
donatien 0:2ccb9960a044 532 readLen += ret;
donatien 0:2ccb9960a044 533 }
donatien 0:2ccb9960a044 534 else if( ret == 0 )
donatien 0:2ccb9960a044 535 {
donatien 7:4e39864f7b15 536 break;
donatien 7:4e39864f7b15 537 }
donatien 7:4e39864f7b15 538 else
donatien 7:4e39864f7b15 539 {
donatien 12:89d09a6db00a 540 if(!m_sock.is_connected())
donatien 12:89d09a6db00a 541 {
donatien 12:89d09a6db00a 542 ERR("Connection error (recv returned %d)", ret);
donatien 12:89d09a6db00a 543 *pReadLen = readLen;
donatien 12:89d09a6db00a 544 return HTTP_CONN;
donatien 12:89d09a6db00a 545 }
donatien 12:89d09a6db00a 546 else
donatien 12:89d09a6db00a 547 {
donatien 12:89d09a6db00a 548 break;
donatien 12:89d09a6db00a 549 }
donatien 12:89d09a6db00a 550 }
donatien 12:89d09a6db00a 551
donatien 12:89d09a6db00a 552 if(!m_sock.is_connected())
donatien 12:89d09a6db00a 553 {
donatien 12:89d09a6db00a 554 break;
donatien 7:4e39864f7b15 555 }
donatien 7:4e39864f7b15 556 }
donatien 7:4e39864f7b15 557 DBG("Read %d bytes", readLen);
donatien 7:4e39864f7b15 558 *pReadLen = readLen;
donatien 11:390362de8c3f 559 return HTTP_OK;
donatien 7:4e39864f7b15 560 }
donatien 7:4e39864f7b15 561
donatien 11:390362de8c3f 562 HTTPResult HTTPClient::send(char* buf, size_t len) //0 on success, err code on failure
donatien 7:4e39864f7b15 563 {
donatien 7:4e39864f7b15 564 if(len == 0)
donatien 7:4e39864f7b15 565 {
donatien 7:4e39864f7b15 566 len = strlen(buf);
donatien 7:4e39864f7b15 567 }
donatien 7:4e39864f7b15 568 DBG("Trying to write %d bytes", len);
donatien 7:4e39864f7b15 569 size_t writtenLen = 0;
donatien 12:89d09a6db00a 570
donatien 12:89d09a6db00a 571 if(!m_sock.is_connected())
donatien 12:89d09a6db00a 572 {
donatien 12:89d09a6db00a 573 WARN("Connection was closed by server");
donatien 12:89d09a6db00a 574 return HTTP_CLOSED; //Connection was closed by server
donatien 12:89d09a6db00a 575 }
donatien 7:4e39864f7b15 576
donatien 13:be61104f4e91 577 m_sock.set_blocking(false, m_timeout);
donatien 12:89d09a6db00a 578 int ret = m_sock.send_all(buf, len);
donatien 12:89d09a6db00a 579 if(ret > 0)
donatien 7:4e39864f7b15 580 {
donatien 12:89d09a6db00a 581 writtenLen += ret;
donatien 12:89d09a6db00a 582 }
donatien 12:89d09a6db00a 583 else if( ret == 0 )
donatien 12:89d09a6db00a 584 {
donatien 12:89d09a6db00a 585 WARN("Connection was closed by server");
donatien 12:89d09a6db00a 586 return HTTP_CLOSED; //Connection was closed by server
donatien 12:89d09a6db00a 587 }
donatien 12:89d09a6db00a 588 else
donatien 12:89d09a6db00a 589 {
donatien 12:89d09a6db00a 590 ERR("Connection error (send returned %d)", ret);
donatien 12:89d09a6db00a 591 return HTTP_CONN;
donatien 12:89d09a6db00a 592 }
donatien 7:4e39864f7b15 593
donatien 0:2ccb9960a044 594 DBG("Written %d bytes", writtenLen);
donatien 11:390362de8c3f 595 return HTTP_OK;
donatien 0:2ccb9960a044 596 }
donatien 0:2ccb9960a044 597
donatien 11:390362de8c3f 598 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 599 {
donatien 0:2ccb9960a044 600 char* schemePtr = (char*) url;
donatien 0:2ccb9960a044 601 char* hostPtr = (char*) strstr(url, "://");
donatien 0:2ccb9960a044 602 if(hostPtr == NULL)
donatien 0:2ccb9960a044 603 {
donatien 0:2ccb9960a044 604 WARN("Could not find host");
donatien 11:390362de8c3f 605 return HTTP_PARSE; //URL is invalid
donatien 0:2ccb9960a044 606 }
donatien 0:2ccb9960a044 607
donatien 0:2ccb9960a044 608 if( maxSchemeLen < hostPtr - schemePtr + 1 ) //including NULL-terminating char
donatien 0:2ccb9960a044 609 {
donatien 0:2ccb9960a044 610 WARN("Scheme str is too small (%d >= %d)", maxSchemeLen, hostPtr - schemePtr + 1);
donatien 11:390362de8c3f 611 return HTTP_PARSE;
donatien 0:2ccb9960a044 612 }
donatien 0:2ccb9960a044 613 memcpy(scheme, schemePtr, hostPtr - schemePtr);
donatien 0:2ccb9960a044 614 scheme[hostPtr - schemePtr] = '\0';
donatien 0:2ccb9960a044 615
donatien 0:2ccb9960a044 616 hostPtr+=3;
donatien 0:2ccb9960a044 617
donatien 0:2ccb9960a044 618 size_t hostLen = 0;
donatien 0:2ccb9960a044 619
donatien 0:2ccb9960a044 620 char* portPtr = strchr(hostPtr, ':');
donatien 0:2ccb9960a044 621 if( portPtr != NULL )
donatien 0:2ccb9960a044 622 {
donatien 0:2ccb9960a044 623 hostLen = portPtr - hostPtr;
donatien 0:2ccb9960a044 624 portPtr++;
donatien 8:45c8da29a1cf 625 if( sscanf(portPtr, "%hu", port) != 1)
donatien 0:2ccb9960a044 626 {
donatien 0:2ccb9960a044 627 WARN("Could not find port");
donatien 11:390362de8c3f 628 return HTTP_PARSE;
donatien 0:2ccb9960a044 629 }
donatien 0:2ccb9960a044 630 }
donatien 0:2ccb9960a044 631 else
donatien 0:2ccb9960a044 632 {
donatien 0:2ccb9960a044 633 *port=0;
donatien 0:2ccb9960a044 634 }
donatien 0:2ccb9960a044 635 char* pathPtr = strchr(hostPtr, '/');
donatien 0:2ccb9960a044 636 if( hostLen == 0 )
donatien 0:2ccb9960a044 637 {
donatien 0:2ccb9960a044 638 hostLen = pathPtr - hostPtr;
donatien 0:2ccb9960a044 639 }
donatien 0:2ccb9960a044 640
donatien 0:2ccb9960a044 641 if( maxHostLen < hostLen + 1 ) //including NULL-terminating char
donatien 0:2ccb9960a044 642 {
donatien 0:2ccb9960a044 643 WARN("Host str is too small (%d >= %d)", maxHostLen, hostLen + 1);
donatien 11:390362de8c3f 644 return HTTP_PARSE;
donatien 0:2ccb9960a044 645 }
donatien 0:2ccb9960a044 646 memcpy(host, hostPtr, hostLen);
donatien 0:2ccb9960a044 647 host[hostLen] = '\0';
donatien 0:2ccb9960a044 648
donatien 0:2ccb9960a044 649 size_t pathLen;
donatien 0:2ccb9960a044 650 char* fragmentPtr = strchr(hostPtr, '#');
donatien 0:2ccb9960a044 651 if(fragmentPtr != NULL)
donatien 0:2ccb9960a044 652 {
donatien 0:2ccb9960a044 653 pathLen = fragmentPtr - pathPtr;
donatien 0:2ccb9960a044 654 }
donatien 0:2ccb9960a044 655 else
donatien 0:2ccb9960a044 656 {
donatien 0:2ccb9960a044 657 pathLen = strlen(pathPtr);
donatien 0:2ccb9960a044 658 }
donatien 0:2ccb9960a044 659
donatien 0:2ccb9960a044 660 if( maxPathLen < pathLen + 1 ) //including NULL-terminating char
donatien 0:2ccb9960a044 661 {
donatien 0:2ccb9960a044 662 WARN("Path str is too small (%d >= %d)", maxPathLen, pathLen + 1);
donatien 11:390362de8c3f 663 return HTTP_PARSE;
donatien 0:2ccb9960a044 664 }
donatien 0:2ccb9960a044 665 memcpy(path, pathPtr, pathLen);
donatien 0:2ccb9960a044 666 path[pathLen] = '\0';
donatien 0:2ccb9960a044 667
donatien 11:390362de8c3f 668 return HTTP_OK;
donatien 0:2ccb9960a044 669 }
kazushi2008 18:cf5d7427a9ec 670
kazushi2008 18:cf5d7427a9ec 671 void HTTPClient::createauth (const char *user, const char *pwd, char *buf, int len) {
kazushi2008 18:cf5d7427a9ec 672 char tmp[80];
kazushi2008 18:cf5d7427a9ec 673
kazushi2008 18:cf5d7427a9ec 674 snprintf(tmp, sizeof(tmp), "%s:%s", user, pwd);
kazushi2008 18:cf5d7427a9ec 675 base64enc(tmp, strlen(tmp), &buf[strlen(buf)], len - strlen(buf));
kazushi2008 18:cf5d7427a9ec 676 }
kazushi2008 18:cf5d7427a9ec 677
kazushi2008 18:cf5d7427a9ec 678 // Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com)
kazushi2008 18:cf5d7427a9ec 679 int HTTPClient::base64enc(const char *input, unsigned int length, char *output, int len) {
kazushi2008 18:cf5d7427a9ec 680 static const char base64[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
kazushi2008 18:cf5d7427a9ec 681 unsigned int c, c1, c2, c3;
kazushi2008 18:cf5d7427a9ec 682
kazushi2008 18:cf5d7427a9ec 683 if (len < ((((length-1)/3)+1)<<2)) return -1;
kazushi2008 18:cf5d7427a9ec 684 for(unsigned int i = 0, j = 0; i<length; i+=3,j+=4) {
kazushi2008 18:cf5d7427a9ec 685 c1 = ((((unsigned char)*((unsigned char *)&input[i]))));
kazushi2008 18:cf5d7427a9ec 686 c2 = (length>i+1)?((((unsigned char)*((unsigned char *)&input[i+1])))):0;
kazushi2008 18:cf5d7427a9ec 687 c3 = (length>i+2)?((((unsigned char)*((unsigned char *)&input[i+2])))):0;
kazushi2008 18:cf5d7427a9ec 688
kazushi2008 18:cf5d7427a9ec 689 c = ((c1 & 0xFC) >> 2);
kazushi2008 18:cf5d7427a9ec 690 output[j+0] = base64[c];
kazushi2008 18:cf5d7427a9ec 691 c = ((c1 & 0x03) << 4) | ((c2 & 0xF0) >> 4);
kazushi2008 18:cf5d7427a9ec 692 output[j+1] = base64[c];
kazushi2008 18:cf5d7427a9ec 693 c = ((c2 & 0x0F) << 2) | ((c3 & 0xC0) >> 6);
kazushi2008 18:cf5d7427a9ec 694 output[j+2] = (length>i+1)?base64[c]:'=';
kazushi2008 18:cf5d7427a9ec 695 c = (c3 & 0x3F);
kazushi2008 18:cf5d7427a9ec 696 output[j+3] = (length>i+2)?base64[c]:'=';
kazushi2008 18:cf5d7427a9ec 697 }
kazushi2008 18:cf5d7427a9ec 698 output[(((length-1)/3)+1)<<2] = '\0';
kazushi2008 18:cf5d7427a9ec 699 return 0;
kazushi2008 18:cf5d7427a9ec 700 }