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