mbed Weather Platform firmware http://mbed.org/users/okini3939/notebook/mbed-weather-platform-firmware/
Dependencies: EthernetNetIf SDHCFileSystem I2CLEDDisp Agentbed NTPClient_NetServices mbed BMP085 HTTPClient ConfigFile I2CLCD
func.cpp@10:848a2205aed1, 2011-02-27 (annotated)
- Committer:
- okini3939
- Date:
- Sun Feb 27 13:39:45 2011 +0000
- Revision:
- 10:848a2205aed1
- Parent:
- 9:8c63e4f3edab
- Child:
- 13:20c0f845df68
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
okini3939 | 2:4125fe2283ef | 1 | #include "mbed.h" |
okini3939 | 2:4125fe2283ef | 2 | #include "ConfigFile.h" |
okini3939 | 2:4125fe2283ef | 3 | #include "SDFileSystem.h" |
okini3939 | 2:4125fe2283ef | 4 | #include "EthernetNetIf.h" |
okini3939 | 2:4125fe2283ef | 5 | #include "NTPClient.h" |
okini3939 | 2:4125fe2283ef | 6 | #include "HTTPClient.h" |
okini3939 | 7:0d3484dc13a9 | 7 | #include "conf.h" |
okini3939 | 2:4125fe2283ef | 8 | |
okini3939 | 2:4125fe2283ef | 9 | #define TIMEZONE 9 |
okini3939 | 2:4125fe2283ef | 10 | //#define NONBLOCKING |
okini3939 | 7:0d3484dc13a9 | 11 | /** @file |
okini3939 | 7:0d3484dc13a9 | 12 | * @brief mbed Weather Platform |
okini3939 | 7:0d3484dc13a9 | 13 | */ |
okini3939 | 2:4125fe2283ef | 14 | |
okini3939 | 6:060cb9725ce3 | 15 | #define STATION_URL "http://weather.sugakoubou.com/p" |
okini3939 | 2:4125fe2283ef | 16 | #define TWITTER_URL "http://api.supertweet.net/1/statuses/update.xml" |
okini3939 | 2:4125fe2283ef | 17 | |
okini3939 | 2:4125fe2283ef | 18 | extern Serial pc; |
okini3939 | 2:4125fe2283ef | 19 | extern int seq; |
okini3939 | 2:4125fe2283ef | 20 | extern char filename[]; |
okini3939 | 7:0d3484dc13a9 | 21 | extern Config conf; |
okini3939 | 9:8c63e4f3edab | 22 | extern DigitalOut led_y, led2; |
okini3939 | 2:4125fe2283ef | 23 | |
okini3939 | 2:4125fe2283ef | 24 | extern EthernetNetIf *eth; |
okini3939 | 2:4125fe2283ef | 25 | extern NTPClient *ntp; |
okini3939 | 2:4125fe2283ef | 26 | extern HTTPClient *clientP, *clientT; |
okini3939 | 2:4125fe2283ef | 27 | extern float pres, temp, humi, light, anemo, vane, rain, uv, moist, temp2; |
okini3939 | 2:4125fe2283ef | 28 | |
okini3939 | 2:4125fe2283ef | 29 | void writefile (char *buf) { |
okini3939 | 2:4125fe2283ef | 30 | FILE *fp; |
okini3939 | 2:4125fe2283ef | 31 | |
okini3939 | 2:4125fe2283ef | 32 | fp = fopen(filename, "a"); |
okini3939 | 2:4125fe2283ef | 33 | if (fp) { |
okini3939 | 2:4125fe2283ef | 34 | fprintf(fp, buf); |
okini3939 | 2:4125fe2283ef | 35 | fclose(fp); |
okini3939 | 2:4125fe2283ef | 36 | } else { |
okini3939 | 2:4125fe2283ef | 37 | led2 = 0; |
okini3939 | 2:4125fe2283ef | 38 | conf.filetype = 0; |
okini3939 | 2:4125fe2283ef | 39 | } |
okini3939 | 2:4125fe2283ef | 40 | } |
okini3939 | 2:4125fe2283ef | 41 | |
okini3939 | 5:9fa79cb5ec98 | 42 | void weatherstations () { |
okini3939 | 5:9fa79cb5ec98 | 43 | char post_data[200]; |
okini3939 | 5:9fa79cb5ec98 | 44 | HTTPText postContent("application/x-www-form-urlencoded"); |
okini3939 | 5:9fa79cb5ec98 | 45 | |
okini3939 | 9:8c63e4f3edab | 46 | led_y = 0; |
okini3939 | 5:9fa79cb5ec98 | 47 | strcpy(post_data, "fcd="); |
okini3939 | 5:9fa79cb5ec98 | 48 | strcat(post_data, conf.stations_id); |
okini3939 | 5:9fa79cb5ec98 | 49 | strcat(post_data, "&pin="); |
okini3939 | 5:9fa79cb5ec98 | 50 | strcat(post_data, conf.stations_pin); |
okini3939 | 6:060cb9725ce3 | 51 | sprintf(&post_data[strlen(post_data)], "&d0=%.2f&d1=%.2f&d2=%.2f&d3=%.2f&d4=%.2f&d5=%.2f&d6=%.2f&d7=%.2f&d8=%.2f&d9=%.2f", pres, temp, humi, anemo, vane, rain, light, uv, moist, temp2); |
okini3939 | 5:9fa79cb5ec98 | 52 | postContent.puts(post_data); |
okini3939 | 5:9fa79cb5ec98 | 53 | |
okini3939 | 5:9fa79cb5ec98 | 54 | #ifdef NONBLOCKING |
okini3939 | 5:9fa79cb5ec98 | 55 | Net::poll(); |
okini3939 | 6:060cb9725ce3 | 56 | clientP->post(STATION_URL, postContent, NULL, &cb_clientP); |
okini3939 | 5:9fa79cb5ec98 | 57 | Net::poll(); |
okini3939 | 5:9fa79cb5ec98 | 58 | #else |
okini3939 | 6:060cb9725ce3 | 59 | clientP->post(STATION_URL, postContent, NULL); |
okini3939 | 5:9fa79cb5ec98 | 60 | #endif |
okini3939 | 5:9fa79cb5ec98 | 61 | } |
okini3939 | 5:9fa79cb5ec98 | 62 | |
okini3939 | 2:4125fe2283ef | 63 | void pachube (char *buf) { |
okini3939 | 2:4125fe2283ef | 64 | char uri[100]; |
okini3939 | 2:4125fe2283ef | 65 | HTTPText csvContent("text/csv"); |
okini3939 | 2:4125fe2283ef | 66 | |
okini3939 | 9:8c63e4f3edab | 67 | led_y = 0; |
okini3939 | 2:4125fe2283ef | 68 | clientP->setRequestHeader("X-PachubeApiKey", conf.pachube_apikey); |
okini3939 | 2:4125fe2283ef | 69 | csvContent.set(buf); |
okini3939 | 2:4125fe2283ef | 70 | strcpy(uri, "http://api.pachube.com/v1/feeds/"); |
okini3939 | 2:4125fe2283ef | 71 | strcat(uri, conf.pachube_feedid); |
okini3939 | 2:4125fe2283ef | 72 | strcat(uri, ".csv?_method=put"); |
okini3939 | 2:4125fe2283ef | 73 | #ifdef NONBLOCKING |
okini3939 | 2:4125fe2283ef | 74 | Net::poll(); |
okini3939 | 2:4125fe2283ef | 75 | clientP->post(uri, csvContent, NULL, &cb_clientP); |
okini3939 | 2:4125fe2283ef | 76 | Net::poll(); |
okini3939 | 2:4125fe2283ef | 77 | #else |
okini3939 | 2:4125fe2283ef | 78 | clientP->post(uri, csvContent, NULL); |
okini3939 | 2:4125fe2283ef | 79 | #endif |
okini3939 | 2:4125fe2283ef | 80 | } |
okini3939 | 2:4125fe2283ef | 81 | |
okini3939 | 2:4125fe2283ef | 82 | void cb_clientP (HTTPResult status) { |
okini3939 | 2:4125fe2283ef | 83 | if (status != HTTP_OK) { |
okini3939 | 2:4125fe2283ef | 84 | pc.printf("Pachube failure (%d)\r\n", status); |
okini3939 | 2:4125fe2283ef | 85 | // pc.printf("Pachube failure (%d, %d)\r\n", status, clientP->getHTTPResponseCode()); |
okini3939 | 2:4125fe2283ef | 86 | } |
okini3939 | 2:4125fe2283ef | 87 | } |
okini3939 | 2:4125fe2283ef | 88 | |
okini3939 | 10:848a2205aed1 | 89 | char *fmtstr (char *fmt, char *buf, int len) { |
okini3939 | 10:848a2205aed1 | 90 | int i, j, flg; |
okini3939 | 2:4125fe2283ef | 91 | char c; |
okini3939 | 2:4125fe2283ef | 92 | float value; |
okini3939 | 2:4125fe2283ef | 93 | time_t sec = time(NULL); |
okini3939 | 2:4125fe2283ef | 94 | struct tm *tim = localtime(&sec); |
okini3939 | 2:4125fe2283ef | 95 | |
okini3939 | 10:848a2205aed1 | 96 | flg = 0; |
okini3939 | 2:4125fe2283ef | 97 | j = 0; |
okini3939 | 10:848a2205aed1 | 98 | for (i = 0; i < strlen(fmt) && j < len; i ++) { |
okini3939 | 10:848a2205aed1 | 99 | c = fmt[i]; |
okini3939 | 2:4125fe2283ef | 100 | if (c == '%') { |
okini3939 | 2:4125fe2283ef | 101 | i ++; |
okini3939 | 10:848a2205aed1 | 102 | c = fmt[i]; |
okini3939 | 2:4125fe2283ef | 103 | switch (c) { |
okini3939 | 2:4125fe2283ef | 104 | case 'P': |
okini3939 | 2:4125fe2283ef | 105 | value = pres; |
okini3939 | 2:4125fe2283ef | 106 | break; |
okini3939 | 2:4125fe2283ef | 107 | case 'T': |
okini3939 | 2:4125fe2283ef | 108 | value = temp; |
okini3939 | 2:4125fe2283ef | 109 | break; |
okini3939 | 2:4125fe2283ef | 110 | case 'H': |
okini3939 | 2:4125fe2283ef | 111 | value = humi; |
okini3939 | 2:4125fe2283ef | 112 | break; |
okini3939 | 2:4125fe2283ef | 113 | case 'A': |
okini3939 | 2:4125fe2283ef | 114 | value = anemo; |
okini3939 | 2:4125fe2283ef | 115 | break; |
okini3939 | 2:4125fe2283ef | 116 | case 'V': |
okini3939 | 2:4125fe2283ef | 117 | value = vane; |
okini3939 | 2:4125fe2283ef | 118 | break; |
okini3939 | 2:4125fe2283ef | 119 | case 'R': |
okini3939 | 2:4125fe2283ef | 120 | value = rain; |
okini3939 | 2:4125fe2283ef | 121 | break; |
okini3939 | 2:4125fe2283ef | 122 | case 'L': |
okini3939 | 2:4125fe2283ef | 123 | value = light; |
okini3939 | 2:4125fe2283ef | 124 | break; |
okini3939 | 2:4125fe2283ef | 125 | case 'U': |
okini3939 | 2:4125fe2283ef | 126 | value = uv; |
okini3939 | 2:4125fe2283ef | 127 | break; |
okini3939 | 2:4125fe2283ef | 128 | |
okini3939 | 2:4125fe2283ef | 129 | case 'y': |
okini3939 | 2:4125fe2283ef | 130 | value = tim->tm_year + 1900; |
okini3939 | 2:4125fe2283ef | 131 | break; |
okini3939 | 2:4125fe2283ef | 132 | case 'm': |
okini3939 | 2:4125fe2283ef | 133 | value = tim->tm_mon; |
okini3939 | 2:4125fe2283ef | 134 | break; |
okini3939 | 2:4125fe2283ef | 135 | case 'd': |
okini3939 | 2:4125fe2283ef | 136 | value = tim->tm_mday; |
okini3939 | 2:4125fe2283ef | 137 | break; |
okini3939 | 2:4125fe2283ef | 138 | case 'h': |
okini3939 | 2:4125fe2283ef | 139 | value = tim->tm_hour; |
okini3939 | 2:4125fe2283ef | 140 | break; |
okini3939 | 2:4125fe2283ef | 141 | case 'i': |
okini3939 | 2:4125fe2283ef | 142 | value = tim->tm_min; |
okini3939 | 2:4125fe2283ef | 143 | break; |
okini3939 | 2:4125fe2283ef | 144 | case 's': |
okini3939 | 2:4125fe2283ef | 145 | value = tim->tm_sec; |
okini3939 | 2:4125fe2283ef | 146 | break; |
okini3939 | 2:4125fe2283ef | 147 | |
okini3939 | 2:4125fe2283ef | 148 | case '%': |
okini3939 | 2:4125fe2283ef | 149 | buf[j] = c; |
okini3939 | 2:4125fe2283ef | 150 | j ++; |
okini3939 | 2:4125fe2283ef | 151 | continue; |
okini3939 | 10:848a2205aed1 | 152 | case '0': |
okini3939 | 10:848a2205aed1 | 153 | case '1': |
okini3939 | 10:848a2205aed1 | 154 | case '2': |
okini3939 | 10:848a2205aed1 | 155 | case '3': |
okini3939 | 10:848a2205aed1 | 156 | case '4': |
okini3939 | 10:848a2205aed1 | 157 | case '5': |
okini3939 | 10:848a2205aed1 | 158 | case '6': |
okini3939 | 10:848a2205aed1 | 159 | case '7': |
okini3939 | 10:848a2205aed1 | 160 | case '8': |
okini3939 | 10:848a2205aed1 | 161 | case '9': |
okini3939 | 10:848a2205aed1 | 162 | c = c - '0'; |
okini3939 | 10:848a2205aed1 | 163 | if (fmt[i + 1] >= '0' && fmt[i + 1] <= '9') { |
okini3939 | 10:848a2205aed1 | 164 | c = (c << 3) | (fmt[i + 1] - '0'); |
okini3939 | 10:848a2205aed1 | 165 | i ++; |
okini3939 | 10:848a2205aed1 | 166 | if (fmt[i + 1] >= '0' && fmt[i + 1] <= '9') { |
okini3939 | 10:848a2205aed1 | 167 | c = (c << 3) | (fmt[i + 1] - '0'); |
okini3939 | 10:848a2205aed1 | 168 | i ++; |
okini3939 | 10:848a2205aed1 | 169 | } |
okini3939 | 10:848a2205aed1 | 170 | } |
okini3939 | 10:848a2205aed1 | 171 | buf[j] = c; |
okini3939 | 10:848a2205aed1 | 172 | j ++; |
okini3939 | 10:848a2205aed1 | 173 | continue; |
okini3939 | 10:848a2205aed1 | 174 | case '.': |
okini3939 | 10:848a2205aed1 | 175 | if (fmt[i + 1] >= '0' && fmt[i + 1] <= '9') { |
okini3939 | 10:848a2205aed1 | 176 | flg = fmt[i + 1] - '0'; |
okini3939 | 10:848a2205aed1 | 177 | i ++; |
okini3939 | 10:848a2205aed1 | 178 | } |
okini3939 | 10:848a2205aed1 | 179 | continue; |
okini3939 | 2:4125fe2283ef | 180 | default: |
okini3939 | 2:4125fe2283ef | 181 | continue; |
okini3939 | 2:4125fe2283ef | 182 | } |
okini3939 | 2:4125fe2283ef | 183 | |
okini3939 | 10:848a2205aed1 | 184 | if (c < 'a' && flg == 1) { |
okini3939 | 10:848a2205aed1 | 185 | sprintf(&buf[j], "%.1f", value); |
okini3939 | 10:848a2205aed1 | 186 | } else |
okini3939 | 10:848a2205aed1 | 187 | if (c < 'a' && flg == 2) { |
okini3939 | 2:4125fe2283ef | 188 | sprintf(&buf[j], "%.2f", value); |
okini3939 | 2:4125fe2283ef | 189 | } else { |
okini3939 | 2:4125fe2283ef | 190 | sprintf(&buf[j], "%02d", (int)value); |
okini3939 | 2:4125fe2283ef | 191 | } |
okini3939 | 2:4125fe2283ef | 192 | j = strlen(buf); |
okini3939 | 2:4125fe2283ef | 193 | } else { |
okini3939 | 2:4125fe2283ef | 194 | buf[j] = c; |
okini3939 | 2:4125fe2283ef | 195 | j ++; |
okini3939 | 2:4125fe2283ef | 196 | } |
okini3939 | 2:4125fe2283ef | 197 | } |
okini3939 | 2:4125fe2283ef | 198 | buf[j] = 0; |
okini3939 | 10:848a2205aed1 | 199 | return buf; |
okini3939 | 2:4125fe2283ef | 200 | } |
okini3939 | 2:4125fe2283ef | 201 | |
okini3939 | 2:4125fe2283ef | 202 | void twitter () { |
okini3939 | 2:4125fe2283ef | 203 | HTTPMap msg; |
okini3939 | 2:4125fe2283ef | 204 | char buf[170]; |
okini3939 | 2:4125fe2283ef | 205 | |
okini3939 | 9:8c63e4f3edab | 206 | led_y = 0; |
okini3939 | 10:848a2205aed1 | 207 | fmtstr(conf.twitter_mesg, buf, sizeof(buf)); |
okini3939 | 2:4125fe2283ef | 208 | msg["status"] = buf; |
okini3939 | 2:4125fe2283ef | 209 | |
okini3939 | 2:4125fe2283ef | 210 | clientT->basicAuth(conf.twitter_user, conf.twitter_pwd); |
okini3939 | 2:4125fe2283ef | 211 | #ifdef NONBLOCKING |
okini3939 | 2:4125fe2283ef | 212 | Net::poll(); |
okini3939 | 2:4125fe2283ef | 213 | clientT->post(TWITTER_URL, msg, NULL, &cb_clientT); |
okini3939 | 2:4125fe2283ef | 214 | Net::poll(); |
okini3939 | 2:4125fe2283ef | 215 | #else |
okini3939 | 2:4125fe2283ef | 216 | clientT->post(TWITTER_URL, msg, NULL); |
okini3939 | 2:4125fe2283ef | 217 | #endif |
okini3939 | 2:4125fe2283ef | 218 | } |
okini3939 | 2:4125fe2283ef | 219 | |
okini3939 | 2:4125fe2283ef | 220 | void ntpdate () { |
okini3939 | 2:4125fe2283ef | 221 | ntp = new NTPClient; |
okini3939 | 2:4125fe2283ef | 222 | Host ntpserver(IpAddr(), 123, conf.ntpserver); |
okini3939 | 2:4125fe2283ef | 223 | |
okini3939 | 9:8c63e4f3edab | 224 | led_y = 0; |
okini3939 | 2:4125fe2283ef | 225 | #ifdef NONBLOCKING |
okini3939 | 2:4125fe2283ef | 226 | Net::poll(); |
okini3939 | 2:4125fe2283ef | 227 | ntp->setTime(ntpserver, &cb_settime); |
okini3939 | 2:4125fe2283ef | 228 | Net::poll(); |
okini3939 | 2:4125fe2283ef | 229 | #else |
okini3939 | 2:4125fe2283ef | 230 | ntp->setTime(ntpserver); |
okini3939 | 2:4125fe2283ef | 231 | time_t sec = time(NULL) + (60 * 60 * TIMEZONE); |
okini3939 | 2:4125fe2283ef | 232 | set_time(sec); |
okini3939 | 2:4125fe2283ef | 233 | #endif |
okini3939 | 2:4125fe2283ef | 234 | } |
okini3939 | 2:4125fe2283ef | 235 | |
okini3939 | 2:4125fe2283ef | 236 | void cb_settime (NTPResult status) { |
okini3939 | 2:4125fe2283ef | 237 | if (status == NTP_OK) { |
okini3939 | 9:8c63e4f3edab | 238 | led_y = 0; |
okini3939 | 2:4125fe2283ef | 239 | time_t sec = time(NULL) + (60 * 60 * TIMEZONE); |
okini3939 | 2:4125fe2283ef | 240 | set_time(sec); |
okini3939 | 2:4125fe2283ef | 241 | pc.printf("Ntp success: %s\r\n", ctime(&sec)); |
okini3939 | 2:4125fe2283ef | 242 | } else { |
okini3939 | 2:4125fe2283ef | 243 | pc.printf("Ntp failure (%d)\r\n", status); |
okini3939 | 2:4125fe2283ef | 244 | } |
okini3939 | 2:4125fe2283ef | 245 | // ntp->close(); |
okini3939 | 2:4125fe2283ef | 246 | } |