robin luo / Mbed 2 deprecated mbed_sensorthings_xbee_read

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?

UserRevisionLine numberNew 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 }