Atsushi Hattori / Mbed 2 deprecated 20210627_Logger

hattori&ide

Dependencies:   mbed

TinyHTTP/TinyHTTP.cpp@0:f77369cabd75, 18 months ago (annotated)

Committer:
hattori_atsushi
Date:
Sun Dec 18 08:16:01 2022 +0000
Revision:
0:f77369cabd75
hattori

Who changed what in which revision?

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