Norimasa Okamoto
W5200(WIZ820io) network interface
TinyHTTP.cpp@0:61831b843b44, 2012-04-14 (annotated)
- Committer:
- va009039
- Date:
- Sat Apr 14 17:21:11 2012 +0000
- Revision:
- 0:61831b843b44
Who changed what in which revision?
| User | Revision | Line number | New contents of line |
|---|---|---|---|
| va009039 | 0:61831b843b44 | 1 | /* |
| va009039 | 0:61831b843b44 | 2 | * mbed Tiny HTTP Client |
| va009039 | 0:61831b843b44 | 3 | * Copyright (c) 2011 Hiroshi Suga |
| va009039 | 0:61831b843b44 | 4 | * Released under the MIT License: http://mbed.org/license/mit |
| va009039 | 0:61831b843b44 | 5 | */ |
| va009039 | 0:61831b843b44 | 6 | |
| va009039 | 0:61831b843b44 | 7 | /** @file |
| va009039 | 0:61831b843b44 | 8 | * @brief Tiny HTTP Client |
| va009039 | 0:61831b843b44 | 9 | */ |
| va009039 | 0:61831b843b44 | 10 | |
| va009039 | 0:61831b843b44 | 11 | #include "mbed.h" |
| va009039 | 0:61831b843b44 | 12 | #include "EthernetNetIf.h" |
| va009039 | 0:61831b843b44 | 13 | #include "TCPSocket.h" |
| va009039 | 0:61831b843b44 | 14 | #include "DNSRequest.h" |
| va009039 | 0:61831b843b44 | 15 | #include "TinyHTTP.h" |
| va009039 | 0:61831b843b44 | 16 | #include <ctype.h> |
| va009039 | 0:61831b843b44 | 17 | |
| va009039 | 0:61831b843b44 | 18 | |
| va009039 | 0:61831b843b44 | 19 | TCPSocket *http; |
| va009039 | 0:61831b843b44 | 20 | volatile int tcp_ready, tcp_readable, tcp_writable; |
| va009039 | 0:61831b843b44 | 21 | volatile int dns_status; |
| va009039 | 0:61831b843b44 | 22 | |
| va009039 | 0:61831b843b44 | 23 | // Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com) |
| va009039 | 0:61831b843b44 | 24 | int base64enc(const char *input, unsigned int length, char *output, int len) { |
| va009039 | 0:61831b843b44 | 25 | static const char base64[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"; |
| va009039 | 0:61831b843b44 | 26 | unsigned int c, c1, c2, c3; |
| va009039 | 0:61831b843b44 | 27 | |
| va009039 | 0:61831b843b44 | 28 | if (len < ((((length-1)/3)+1)<<2)) return -1; |
| va009039 | 0:61831b843b44 | 29 | for(unsigned int i = 0, j = 0; i<length; i+=3,j+=4) { |
| va009039 | 0:61831b843b44 | 30 | c1 = ((((unsigned char)*((unsigned char *)&input[i])))); |
| va009039 | 0:61831b843b44 | 31 | c2 = (length>i+1)?((((unsigned char)*((unsigned char *)&input[i+1])))):0; |
| va009039 | 0:61831b843b44 | 32 | c3 = (length>i+2)?((((unsigned char)*((unsigned char *)&input[i+2])))):0; |
| va009039 | 0:61831b843b44 | 33 | |
| va009039 | 0:61831b843b44 | 34 | c = ((c1 & 0xFC) >> 2); |
| va009039 | 0:61831b843b44 | 35 | output[j+0] = base64[c]; |
| va009039 | 0:61831b843b44 | 36 | c = ((c1 & 0x03) << 4) | ((c2 & 0xF0) >> 4); |
| va009039 | 0:61831b843b44 | 37 | output[j+1] = base64[c]; |
| va009039 | 0:61831b843b44 | 38 | c = ((c2 & 0x0F) << 2) | ((c3 & 0xC0) >> 6); |
| va009039 | 0:61831b843b44 | 39 | output[j+2] = (length>i+1)?base64[c]:'='; |
| va009039 | 0:61831b843b44 | 40 | c = (c3 & 0x3F); |
| va009039 | 0:61831b843b44 | 41 | output[j+3] = (length>i+2)?base64[c]:'='; |
| va009039 | 0:61831b843b44 | 42 | } |
| va009039 | 0:61831b843b44 | 43 | output[(((length-1)/3)+1)<<2] = '\0'; |
| va009039 | 0:61831b843b44 | 44 | return 0; |
| va009039 | 0:61831b843b44 | 45 | } |
| va009039 | 0:61831b843b44 | 46 | |
| va009039 | 0:61831b843b44 | 47 | // Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com) |
| va009039 | 0:61831b843b44 | 48 | int urlencode(char *str, char *buf, int len) { |
| va009039 | 0:61831b843b44 | 49 | static const char to_hex[] = "0123456789ABCDEF"; |
| va009039 | 0:61831b843b44 | 50 | // char *pstr = str, *buf = (char*)malloc(strlen(str) * 3 + 1), *pbuf = buf; |
| va009039 | 0:61831b843b44 | 51 | char *pstr = str, *pbuf = buf; |
| va009039 | 0:61831b843b44 | 52 | |
| va009039 | 0:61831b843b44 | 53 | if (len < (strlen(str) * 3 + 1)) return -1; |
| va009039 | 0:61831b843b44 | 54 | while (*pstr) { |
| va009039 | 0:61831b843b44 | 55 | if (isalnum(*pstr) || *pstr == '-' || *pstr == '_' || *pstr == '.' || *pstr == '~') { |
| va009039 | 0:61831b843b44 | 56 | *pbuf++ = *pstr; |
| va009039 | 0:61831b843b44 | 57 | } else if (*pstr == ' ') { |
| va009039 | 0:61831b843b44 | 58 | *pbuf++ = '+'; |
| va009039 | 0:61831b843b44 | 59 | } else { |
| va009039 | 0:61831b843b44 | 60 | *pbuf++ = '%'; |
| va009039 | 0:61831b843b44 | 61 | *pbuf++ = to_hex[(*pstr >> 4) & 0x0f]; |
| va009039 | 0:61831b843b44 | 62 | *pbuf++ = to_hex[*pstr & 0x0f]; |
| va009039 | 0:61831b843b44 | 63 | } |
| va009039 | 0:61831b843b44 | 64 | pstr++; |
| va009039 | 0:61831b843b44 | 65 | } |
| va009039 | 0:61831b843b44 | 66 | *pbuf = '\0'; |
| va009039 | 0:61831b843b44 | 67 | return 0; |
| va009039 | 0:61831b843b44 | 68 | } |
| va009039 | 0:61831b843b44 | 69 | |
| va009039 | 0:61831b843b44 | 70 | |
| va009039 | 0:61831b843b44 | 71 | void isr_http (TCPSocketEvent e) { |
| va009039 | 0:61831b843b44 | 72 | |
| va009039 | 0:61831b843b44 | 73 | #ifdef DEBUG |
| va009039 | 0:61831b843b44 | 74 | printf("tcp(%d)\r\n", e); |
| va009039 | 0:61831b843b44 | 75 | #endif |
| va009039 | 0:61831b843b44 | 76 | switch(e) { |
| va009039 | 0:61831b843b44 | 77 | case TCPSOCKET_CONNECTED: |
| va009039 | 0:61831b843b44 | 78 | tcp_ready = 1; |
| va009039 | 0:61831b843b44 | 79 | break; |
| va009039 | 0:61831b843b44 | 80 | |
| va009039 | 0:61831b843b44 | 81 | case TCPSOCKET_READABLE: //Incoming data |
| va009039 | 0:61831b843b44 | 82 | tcp_readable = 1; |
| va009039 | 0:61831b843b44 | 83 | break; |
| va009039 | 0:61831b843b44 | 84 | |
| va009039 | 0:61831b843b44 | 85 | case TCPSOCKET_WRITEABLE: //We can send data |
| va009039 | 0:61831b843b44 | 86 | tcp_writable = 1; |
| va009039 | 0:61831b843b44 | 87 | break; |
| va009039 | 0:61831b843b44 | 88 | |
| va009039 | 0:61831b843b44 | 89 | case TCPSOCKET_CONTIMEOUT: |
| va009039 | 0:61831b843b44 | 90 | case TCPSOCKET_CONRST: |
| va009039 | 0:61831b843b44 | 91 | case TCPSOCKET_CONABRT: |
| va009039 | 0:61831b843b44 | 92 | case TCPSOCKET_ERROR: |
| va009039 | 0:61831b843b44 | 93 | case TCPSOCKET_DISCONNECTED: |
| va009039 | 0:61831b843b44 | 94 | tcp_ready = 0; |
| va009039 | 0:61831b843b44 | 95 | break; |
| va009039 | 0:61831b843b44 | 96 | } |
| va009039 | 0:61831b843b44 | 97 | } |
| va009039 | 0:61831b843b44 | 98 | |
| va009039 | 0:61831b843b44 | 99 | void createauth (char *user, char *pwd, char *buf, int len) { |
| va009039 | 0:61831b843b44 | 100 | char tmp[80]; |
| va009039 | 0:61831b843b44 | 101 | |
| va009039 | 0:61831b843b44 | 102 | strncpy(buf, "Authorization: Basic ", len); |
| va009039 | 0:61831b843b44 | 103 | snprintf(tmp, sizeof(tmp), "%s:%s", user, pwd); |
| va009039 | 0:61831b843b44 | 104 | base64enc(tmp, strlen(tmp), &buf[strlen(buf)], len - strlen(buf)); |
| va009039 | 0:61831b843b44 | 105 | strncat(buf, "\r\n", len - strlen(buf)); |
| va009039 | 0:61831b843b44 | 106 | } |
| va009039 | 0:61831b843b44 | 107 | |
| va009039 | 0:61831b843b44 | 108 | void isr_dns (DNSReply r) { |
| va009039 | 0:61831b843b44 | 109 | |
| va009039 | 0:61831b843b44 | 110 | #ifdef DEBUG |
| va009039 | 0:61831b843b44 | 111 | printf("dns(%d)\r\n", r); |
| va009039 | 0:61831b843b44 | 112 | #endif |
| va009039 | 0:61831b843b44 | 113 | if (r == DNS_FOUND) { |
| va009039 | 0:61831b843b44 | 114 | dns_status = 1; |
| va009039 | 0:61831b843b44 | 115 | } else { |
| va009039 | 0:61831b843b44 | 116 | dns_status = -1; |
| va009039 | 0:61831b843b44 | 117 | } |
| va009039 | 0:61831b843b44 | 118 | } |
| va009039 | 0:61831b843b44 | 119 | |
| va009039 | 0:61831b843b44 | 120 | int httpRequest (int method, Host *host, char *uri, char *head, char *body) { |
| va009039 | 0:61831b843b44 | 121 | TCPSocketErr err; |
| va009039 | 0:61831b843b44 | 122 | Timer timeout; |
| va009039 | 0:61831b843b44 | 123 | char buf[1500]; |
| va009039 | 0:61831b843b44 | 124 | int i, ret = -1; |
| va009039 | 0:61831b843b44 | 125 | |
| va009039 | 0:61831b843b44 | 126 | http = new TCPSocket; |
| va009039 | 0:61831b843b44 | 127 | tcp_ready = 0; |
| va009039 | 0:61831b843b44 | 128 | tcp_readable = 0; |
| va009039 | 0:61831b843b44 | 129 | tcp_writable = 0; |
| va009039 | 0:61831b843b44 | 130 | |
| va009039 | 0:61831b843b44 | 131 | http->setOnEvent(isr_http); |
| va009039 | 0:61831b843b44 | 132 | |
| va009039 | 0:61831b843b44 | 133 | // connect |
| va009039 | 0:61831b843b44 | 134 | if (host->getIp().isNull()) { |
| va009039 | 0:61831b843b44 | 135 | // resolv |
| va009039 | 0:61831b843b44 | 136 | DNSRequest dns; |
| va009039 | 0:61831b843b44 | 137 | dns_status = 0; |
| va009039 | 0:61831b843b44 | 138 | dns.setOnReply(isr_dns); |
| va009039 | 0:61831b843b44 | 139 | if (dns.resolve(host) != DNS_OK) goto exit; |
| va009039 | 0:61831b843b44 | 140 | timeout.reset(); |
| va009039 | 0:61831b843b44 | 141 | timeout.start(); |
| va009039 | 0:61831b843b44 | 142 | while (timeout.read_ms() < HTTP_TIMEOUT) { |
| va009039 | 0:61831b843b44 | 143 | if (dns_status) break; |
| va009039 | 0:61831b843b44 | 144 | Net::poll(); |
| va009039 | 0:61831b843b44 | 145 | } |
| va009039 | 0:61831b843b44 | 146 | timeout.stop(); |
| va009039 | 0:61831b843b44 | 147 | if (dns_status <= 0) goto exit; |
| va009039 | 0:61831b843b44 | 148 | #ifdef DEBUG |
| va009039 | 0:61831b843b44 | 149 | printf("%s [%d.%d.%d.%d]\r\n", host->getName(), (unsigned char)host->getIp()[0], (unsigned char)host->getIp()[1], (unsigned char)host->getIp()[2], (unsigned char)host->getIp()[3]); |
| va009039 | 0:61831b843b44 | 150 | #endif |
| va009039 | 0:61831b843b44 | 151 | } |
| va009039 | 0:61831b843b44 | 152 | if (! host->getPort()) { |
| va009039 | 0:61831b843b44 | 153 | host->setPort(HTTP_PORT); |
| va009039 | 0:61831b843b44 | 154 | } |
| va009039 | 0:61831b843b44 | 155 | err = http->connect(*host); |
| va009039 | 0:61831b843b44 | 156 | if (err != TCPSOCKET_OK) goto exit; |
| va009039 | 0:61831b843b44 | 157 | |
| va009039 | 0:61831b843b44 | 158 | // wait connect |
| va009039 | 0:61831b843b44 | 159 | timeout.reset(); |
| va009039 | 0:61831b843b44 | 160 | timeout.start(); |
| va009039 | 0:61831b843b44 | 161 | while (timeout.read_ms() < HTTP_TIMEOUT) { |
| va009039 | 0:61831b843b44 | 162 | if (tcp_ready) break; |
| va009039 | 0:61831b843b44 | 163 | Net::poll(); |
| va009039 | 0:61831b843b44 | 164 | } |
| va009039 | 0:61831b843b44 | 165 | timeout.stop(); |
| va009039 | 0:61831b843b44 | 166 | if (! tcp_ready) goto exit; |
| va009039 | 0:61831b843b44 | 167 | |
| va009039 | 0:61831b843b44 | 168 | // send request |
| va009039 | 0:61831b843b44 | 169 | if (method == METHOD_POST) { |
| va009039 | 0:61831b843b44 | 170 | http->send("POST ", 5); |
| va009039 | 0:61831b843b44 | 171 | } else { |
| va009039 | 0:61831b843b44 | 172 | http->send("GET ", 4); |
| va009039 | 0:61831b843b44 | 173 | } |
| va009039 | 0:61831b843b44 | 174 | http->send(uri, strlen(uri)); |
| va009039 | 0:61831b843b44 | 175 | http->send(" HTTP/1.1\r\nHost: ", 17); |
| va009039 | 0:61831b843b44 | 176 | http->send(host->getName(), strlen(host->getName())); |
| va009039 | 0:61831b843b44 | 177 | http->send("\r\n", 2); |
| va009039 | 0:61831b843b44 | 178 | http->send("Connection: close\r\n", 19); |
| va009039 | 0:61831b843b44 | 179 | if (head) { |
| va009039 | 0:61831b843b44 | 180 | http->send(head, strlen(head)); |
| va009039 | 0:61831b843b44 | 181 | } |
| va009039 | 0:61831b843b44 | 182 | if (method == METHOD_POST) { |
| va009039 | 0:61831b843b44 | 183 | sprintf(buf, "Content-Length: %d\r\n", strlen(body)); |
| va009039 | 0:61831b843b44 | 184 | http->send(buf, strlen(buf)); |
| va009039 | 0:61831b843b44 | 185 | } |
| va009039 | 0:61831b843b44 | 186 | http->send("\r\n", 2); |
| va009039 | 0:61831b843b44 | 187 | |
| va009039 | 0:61831b843b44 | 188 | // post method |
| va009039 | 0:61831b843b44 | 189 | if (method == METHOD_POST && body) { |
| va009039 | 0:61831b843b44 | 190 | http->send(body, strlen(body)); |
| va009039 | 0:61831b843b44 | 191 | } |
| va009039 | 0:61831b843b44 | 192 | |
| va009039 | 0:61831b843b44 | 193 | // wait responce |
| va009039 | 0:61831b843b44 | 194 | timeout.reset(); |
| va009039 | 0:61831b843b44 | 195 | timeout.start(); |
| va009039 | 0:61831b843b44 | 196 | while (timeout.read_ms() < HTTP_TIMEOUT) { |
| va009039 | 0:61831b843b44 | 197 | if (tcp_readable) break; |
| va009039 | 0:61831b843b44 | 198 | Net::poll(); |
| va009039 | 0:61831b843b44 | 199 | } |
| va009039 | 0:61831b843b44 | 200 | timeout.stop(); |
| va009039 | 0:61831b843b44 | 201 | if (! tcp_readable) goto exit; |
| va009039 | 0:61831b843b44 | 202 | |
| va009039 | 0:61831b843b44 | 203 | // recv responce |
| va009039 | 0:61831b843b44 | 204 | i = http->recv(buf, sizeof(buf) - 1); |
| va009039 | 0:61831b843b44 | 205 | buf[i] = 0; |
| va009039 | 0:61831b843b44 | 206 | if (i < sizeof(buf) - 1) tcp_readable = 0; |
| va009039 | 0:61831b843b44 | 207 | if (strncmp(buf, "HTTP/", 5) == 0) { |
| va009039 | 0:61831b843b44 | 208 | ret = atoi(&buf[9]); |
| va009039 | 0:61831b843b44 | 209 | } |
| va009039 | 0:61831b843b44 | 210 | #ifdef DEBUG |
| va009039 | 0:61831b843b44 | 211 | printf(buf); |
| va009039 | 0:61831b843b44 | 212 | #endif |
| va009039 | 0:61831b843b44 | 213 | |
| va009039 | 0:61831b843b44 | 214 | // recv dummy |
| va009039 | 0:61831b843b44 | 215 | timeout.reset(); |
| va009039 | 0:61831b843b44 | 216 | timeout.start(); |
| va009039 | 0:61831b843b44 | 217 | while (timeout.read_ms() < HTTP_TIMEOUT) { |
| va009039 | 0:61831b843b44 | 218 | if (tcp_readable) { |
| va009039 | 0:61831b843b44 | 219 | i = http->recv(buf, sizeof(buf) - 1); |
| va009039 | 0:61831b843b44 | 220 | buf[i] = 0; |
| va009039 | 0:61831b843b44 | 221 | if (i < sizeof(buf) - 1) tcp_readable = 0; |
| va009039 | 0:61831b843b44 | 222 | #ifdef DEBUG |
| va009039 | 0:61831b843b44 | 223 | printf(buf); |
| va009039 | 0:61831b843b44 | 224 | #endif |
| va009039 | 0:61831b843b44 | 225 | timeout.reset(); |
| va009039 | 0:61831b843b44 | 226 | } else |
| va009039 | 0:61831b843b44 | 227 | if (! tcp_ready) { |
| va009039 | 0:61831b843b44 | 228 | break; |
| va009039 | 0:61831b843b44 | 229 | } |
| va009039 | 0:61831b843b44 | 230 | Net::poll(); |
| va009039 | 0:61831b843b44 | 231 | } |
| va009039 | 0:61831b843b44 | 232 | timeout.stop(); |
| va009039 | 0:61831b843b44 | 233 | |
| va009039 | 0:61831b843b44 | 234 | exit: |
| va009039 | 0:61831b843b44 | 235 | http->resetOnEvent(); |
| va009039 | 0:61831b843b44 | 236 | http->close(); |
| va009039 | 0:61831b843b44 | 237 | delete http; |
| va009039 | 0:61831b843b44 | 238 | |
| va009039 | 0:61831b843b44 | 239 | return ret; |
| va009039 | 0:61831b843b44 | 240 | } |