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@16:df39da7bef98, 2011-04-01 (annotated)
- Committer:
- okini3939
- Date:
- Fri Apr 01 23:37:04 2011 +0000
- Revision:
- 16:df39da7bef98
- Parent:
- 15:07bfa25ba6ae
- Child:
- 17:7c9d111a5d45
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 | 14:ee6cc1632166 | 27 | extern Sensor sensor; |
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 | 13:20c0f845df68 | 44 | HTTPResult ret; |
okini3939 | 5:9fa79cb5ec98 | 45 | HTTPText postContent("application/x-www-form-urlencoded"); |
okini3939 | 5:9fa79cb5ec98 | 46 | |
okini3939 | 9:8c63e4f3edab | 47 | led_y = 0; |
okini3939 | 5:9fa79cb5ec98 | 48 | strcpy(post_data, "fcd="); |
okini3939 | 5:9fa79cb5ec98 | 49 | strcat(post_data, conf.stations_id); |
okini3939 | 5:9fa79cb5ec98 | 50 | strcat(post_data, "&pin="); |
okini3939 | 5:9fa79cb5ec98 | 51 | strcat(post_data, conf.stations_pin); |
okini3939 | 14:ee6cc1632166 | 52 | 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", |
okini3939 | 14:ee6cc1632166 | 53 | sensor.pres, sensor.temp, sensor.humi, sensor.anemo, sensor.vane, sensor.rain, sensor.light, sensor.uv, sensor.moist, sensor.temp2); |
okini3939 | 5:9fa79cb5ec98 | 54 | postContent.puts(post_data); |
okini3939 | 5:9fa79cb5ec98 | 55 | |
okini3939 | 5:9fa79cb5ec98 | 56 | #ifdef NONBLOCKING |
okini3939 | 5:9fa79cb5ec98 | 57 | Net::poll(); |
okini3939 | 13:20c0f845df68 | 58 | ret = clientP->post(STATION_URL, postContent, NULL, &cb_clientP); |
okini3939 | 5:9fa79cb5ec98 | 59 | Net::poll(); |
okini3939 | 5:9fa79cb5ec98 | 60 | #else |
okini3939 | 13:20c0f845df68 | 61 | ret = clientP->post(STATION_URL, postContent, NULL); |
okini3939 | 5:9fa79cb5ec98 | 62 | #endif |
okini3939 | 13:20c0f845df68 | 63 | |
okini3939 | 13:20c0f845df68 | 64 | if (ret != HTTP_OK && ret != HTTP_PROCESSING) { |
okini3939 | 13:20c0f845df68 | 65 | pc.printf("error: Weather Statuons %d\r\n", ret); |
okini3939 | 13:20c0f845df68 | 66 | } |
okini3939 | 5:9fa79cb5ec98 | 67 | } |
okini3939 | 5:9fa79cb5ec98 | 68 | |
okini3939 | 2:4125fe2283ef | 69 | void pachube (char *buf) { |
okini3939 | 2:4125fe2283ef | 70 | char uri[100]; |
okini3939 | 13:20c0f845df68 | 71 | HTTPResult ret; |
okini3939 | 2:4125fe2283ef | 72 | HTTPText csvContent("text/csv"); |
okini3939 | 2:4125fe2283ef | 73 | |
okini3939 | 9:8c63e4f3edab | 74 | led_y = 0; |
okini3939 | 2:4125fe2283ef | 75 | clientP->setRequestHeader("X-PachubeApiKey", conf.pachube_apikey); |
okini3939 | 2:4125fe2283ef | 76 | csvContent.set(buf); |
okini3939 | 2:4125fe2283ef | 77 | strcpy(uri, "http://api.pachube.com/v1/feeds/"); |
okini3939 | 2:4125fe2283ef | 78 | strcat(uri, conf.pachube_feedid); |
okini3939 | 2:4125fe2283ef | 79 | strcat(uri, ".csv?_method=put"); |
okini3939 | 2:4125fe2283ef | 80 | #ifdef NONBLOCKING |
okini3939 | 2:4125fe2283ef | 81 | Net::poll(); |
okini3939 | 13:20c0f845df68 | 82 | ret = clientP->post(uri, csvContent, NULL, &cb_clientP); |
okini3939 | 2:4125fe2283ef | 83 | Net::poll(); |
okini3939 | 2:4125fe2283ef | 84 | #else |
okini3939 | 13:20c0f845df68 | 85 | ret = clientP->post(uri, csvContent, NULL); |
okini3939 | 2:4125fe2283ef | 86 | #endif |
okini3939 | 13:20c0f845df68 | 87 | |
okini3939 | 13:20c0f845df68 | 88 | if (ret != HTTP_OK && ret != HTTP_PROCESSING) { |
okini3939 | 13:20c0f845df68 | 89 | pc.printf("error: Pachube %d\r\n", ret); |
okini3939 | 13:20c0f845df68 | 90 | } |
okini3939 | 2:4125fe2283ef | 91 | } |
okini3939 | 2:4125fe2283ef | 92 | |
okini3939 | 2:4125fe2283ef | 93 | void cb_clientP (HTTPResult status) { |
okini3939 | 2:4125fe2283ef | 94 | if (status != HTTP_OK) { |
okini3939 | 2:4125fe2283ef | 95 | pc.printf("Pachube failure (%d)\r\n", status); |
okini3939 | 2:4125fe2283ef | 96 | // pc.printf("Pachube failure (%d, %d)\r\n", status, clientP->getHTTPResponseCode()); |
okini3939 | 2:4125fe2283ef | 97 | } |
okini3939 | 2:4125fe2283ef | 98 | } |
okini3939 | 2:4125fe2283ef | 99 | |
okini3939 | 10:848a2205aed1 | 100 | char *fmtstr (char *fmt, char *buf, int len) { |
okini3939 | 10:848a2205aed1 | 101 | int i, j, flg; |
okini3939 | 2:4125fe2283ef | 102 | char c; |
okini3939 | 2:4125fe2283ef | 103 | float value; |
okini3939 | 2:4125fe2283ef | 104 | time_t sec = time(NULL); |
okini3939 | 2:4125fe2283ef | 105 | struct tm *tim = localtime(&sec); |
okini3939 | 2:4125fe2283ef | 106 | |
okini3939 | 2:4125fe2283ef | 107 | j = 0; |
okini3939 | 10:848a2205aed1 | 108 | for (i = 0; i < strlen(fmt) && j < len; i ++) { |
okini3939 | 10:848a2205aed1 | 109 | c = fmt[i]; |
okini3939 | 2:4125fe2283ef | 110 | if (c == '%') { |
okini3939 | 14:ee6cc1632166 | 111 | flg = 0; |
okini3939 | 2:4125fe2283ef | 112 | i ++; |
okini3939 | 10:848a2205aed1 | 113 | c = fmt[i]; |
okini3939 | 14:ee6cc1632166 | 114 | |
okini3939 | 14:ee6cc1632166 | 115 | if (c == '.') { |
okini3939 | 14:ee6cc1632166 | 116 | // float |
okini3939 | 14:ee6cc1632166 | 117 | if (fmt[i + 1] >= '0' && fmt[i + 1] <= '9') { |
okini3939 | 14:ee6cc1632166 | 118 | flg = fmt[i + 1] - '0'; |
okini3939 | 14:ee6cc1632166 | 119 | i ++; |
okini3939 | 14:ee6cc1632166 | 120 | |
okini3939 | 14:ee6cc1632166 | 121 | c = fmt[i + 1]; |
okini3939 | 14:ee6cc1632166 | 122 | i ++; |
okini3939 | 14:ee6cc1632166 | 123 | } |
okini3939 | 14:ee6cc1632166 | 124 | } |
okini3939 | 14:ee6cc1632166 | 125 | |
okini3939 | 2:4125fe2283ef | 126 | switch (c) { |
okini3939 | 2:4125fe2283ef | 127 | case 'P': |
okini3939 | 14:ee6cc1632166 | 128 | value = sensor.pres; |
okini3939 | 2:4125fe2283ef | 129 | break; |
okini3939 | 2:4125fe2283ef | 130 | case 'T': |
okini3939 | 14:ee6cc1632166 | 131 | value = sensor.temp; |
okini3939 | 2:4125fe2283ef | 132 | break; |
okini3939 | 2:4125fe2283ef | 133 | case 'H': |
okini3939 | 14:ee6cc1632166 | 134 | value = sensor.humi; |
okini3939 | 2:4125fe2283ef | 135 | break; |
okini3939 | 2:4125fe2283ef | 136 | case 'A': |
okini3939 | 14:ee6cc1632166 | 137 | value = sensor.anemo; |
okini3939 | 2:4125fe2283ef | 138 | break; |
okini3939 | 2:4125fe2283ef | 139 | case 'V': |
okini3939 | 14:ee6cc1632166 | 140 | value = sensor.vane; |
okini3939 | 2:4125fe2283ef | 141 | break; |
okini3939 | 2:4125fe2283ef | 142 | case 'R': |
okini3939 | 14:ee6cc1632166 | 143 | value = sensor.rain; |
okini3939 | 2:4125fe2283ef | 144 | break; |
okini3939 | 2:4125fe2283ef | 145 | case 'L': |
okini3939 | 14:ee6cc1632166 | 146 | value = sensor.light; |
okini3939 | 2:4125fe2283ef | 147 | break; |
okini3939 | 2:4125fe2283ef | 148 | case 'U': |
okini3939 | 14:ee6cc1632166 | 149 | value = sensor.uv; |
okini3939 | 14:ee6cc1632166 | 150 | break; |
okini3939 | 14:ee6cc1632166 | 151 | case 'M': |
okini3939 | 14:ee6cc1632166 | 152 | value = sensor.moist; |
okini3939 | 2:4125fe2283ef | 153 | break; |
okini3939 | 2:4125fe2283ef | 154 | |
okini3939 | 2:4125fe2283ef | 155 | case 'y': |
okini3939 | 2:4125fe2283ef | 156 | value = tim->tm_year + 1900; |
okini3939 | 2:4125fe2283ef | 157 | break; |
okini3939 | 2:4125fe2283ef | 158 | case 'm': |
okini3939 | 2:4125fe2283ef | 159 | value = tim->tm_mon; |
okini3939 | 2:4125fe2283ef | 160 | break; |
okini3939 | 2:4125fe2283ef | 161 | case 'd': |
okini3939 | 2:4125fe2283ef | 162 | value = tim->tm_mday; |
okini3939 | 2:4125fe2283ef | 163 | break; |
okini3939 | 2:4125fe2283ef | 164 | case 'h': |
okini3939 | 2:4125fe2283ef | 165 | value = tim->tm_hour; |
okini3939 | 2:4125fe2283ef | 166 | break; |
okini3939 | 2:4125fe2283ef | 167 | case 'i': |
okini3939 | 2:4125fe2283ef | 168 | value = tim->tm_min; |
okini3939 | 2:4125fe2283ef | 169 | break; |
okini3939 | 2:4125fe2283ef | 170 | case 's': |
okini3939 | 2:4125fe2283ef | 171 | value = tim->tm_sec; |
okini3939 | 2:4125fe2283ef | 172 | break; |
okini3939 | 2:4125fe2283ef | 173 | |
okini3939 | 10:848a2205aed1 | 174 | case '0': |
okini3939 | 10:848a2205aed1 | 175 | case '1': |
okini3939 | 10:848a2205aed1 | 176 | case '2': |
okini3939 | 10:848a2205aed1 | 177 | case '3': |
okini3939 | 10:848a2205aed1 | 178 | case '4': |
okini3939 | 10:848a2205aed1 | 179 | case '5': |
okini3939 | 10:848a2205aed1 | 180 | case '6': |
okini3939 | 10:848a2205aed1 | 181 | case '7': |
okini3939 | 10:848a2205aed1 | 182 | case '8': |
okini3939 | 10:848a2205aed1 | 183 | case '9': |
okini3939 | 14:ee6cc1632166 | 184 | // Ascii |
okini3939 | 10:848a2205aed1 | 185 | c = c - '0'; |
okini3939 | 10:848a2205aed1 | 186 | if (fmt[i + 1] >= '0' && fmt[i + 1] <= '9') { |
okini3939 | 10:848a2205aed1 | 187 | c = (c << 3) | (fmt[i + 1] - '0'); |
okini3939 | 10:848a2205aed1 | 188 | i ++; |
okini3939 | 10:848a2205aed1 | 189 | if (fmt[i + 1] >= '0' && fmt[i + 1] <= '9') { |
okini3939 | 10:848a2205aed1 | 190 | c = (c << 3) | (fmt[i + 1] - '0'); |
okini3939 | 10:848a2205aed1 | 191 | i ++; |
okini3939 | 10:848a2205aed1 | 192 | } |
okini3939 | 10:848a2205aed1 | 193 | } |
okini3939 | 10:848a2205aed1 | 194 | buf[j] = c; |
okini3939 | 10:848a2205aed1 | 195 | j ++; |
okini3939 | 10:848a2205aed1 | 196 | continue; |
okini3939 | 14:ee6cc1632166 | 197 | |
okini3939 | 2:4125fe2283ef | 198 | default: |
okini3939 | 14:ee6cc1632166 | 199 | buf[j] = c; |
okini3939 | 14:ee6cc1632166 | 200 | j ++; |
okini3939 | 2:4125fe2283ef | 201 | continue; |
okini3939 | 2:4125fe2283ef | 202 | } |
okini3939 | 2:4125fe2283ef | 203 | |
okini3939 | 14:ee6cc1632166 | 204 | switch (flg) { |
okini3939 | 14:ee6cc1632166 | 205 | case 1: |
okini3939 | 10:848a2205aed1 | 206 | sprintf(&buf[j], "%.1f", value); |
okini3939 | 14:ee6cc1632166 | 207 | break; |
okini3939 | 14:ee6cc1632166 | 208 | case 2: |
okini3939 | 2:4125fe2283ef | 209 | sprintf(&buf[j], "%.2f", value); |
okini3939 | 14:ee6cc1632166 | 210 | break; |
okini3939 | 14:ee6cc1632166 | 211 | default: |
okini3939 | 2:4125fe2283ef | 212 | sprintf(&buf[j], "%02d", (int)value); |
okini3939 | 14:ee6cc1632166 | 213 | break; |
okini3939 | 2:4125fe2283ef | 214 | } |
okini3939 | 2:4125fe2283ef | 215 | j = strlen(buf); |
okini3939 | 2:4125fe2283ef | 216 | } else { |
okini3939 | 2:4125fe2283ef | 217 | buf[j] = c; |
okini3939 | 2:4125fe2283ef | 218 | j ++; |
okini3939 | 2:4125fe2283ef | 219 | } |
okini3939 | 2:4125fe2283ef | 220 | } |
okini3939 | 2:4125fe2283ef | 221 | buf[j] = 0; |
okini3939 | 10:848a2205aed1 | 222 | return buf; |
okini3939 | 2:4125fe2283ef | 223 | } |
okini3939 | 2:4125fe2283ef | 224 | |
okini3939 | 15:07bfa25ba6ae | 225 | void twitter (int num) { |
okini3939 | 2:4125fe2283ef | 226 | HTTPMap msg; |
okini3939 | 13:20c0f845df68 | 227 | HTTPResult ret; |
okini3939 | 2:4125fe2283ef | 228 | char buf[170]; |
okini3939 | 2:4125fe2283ef | 229 | |
okini3939 | 9:8c63e4f3edab | 230 | led_y = 0; |
okini3939 | 15:07bfa25ba6ae | 231 | fmtstr(conf.twitter_mesg[num], buf, sizeof(buf)); |
okini3939 | 2:4125fe2283ef | 232 | msg["status"] = buf; |
okini3939 | 2:4125fe2283ef | 233 | |
okini3939 | 2:4125fe2283ef | 234 | clientT->basicAuth(conf.twitter_user, conf.twitter_pwd); |
okini3939 | 2:4125fe2283ef | 235 | #ifdef NONBLOCKING |
okini3939 | 2:4125fe2283ef | 236 | Net::poll(); |
okini3939 | 13:20c0f845df68 | 237 | ret = clientT->post(TWITTER_URL, msg, NULL, &cb_clientT); |
okini3939 | 2:4125fe2283ef | 238 | Net::poll(); |
okini3939 | 2:4125fe2283ef | 239 | #else |
okini3939 | 13:20c0f845df68 | 240 | ret = clientT->post(TWITTER_URL, msg, NULL); |
okini3939 | 2:4125fe2283ef | 241 | #endif |
okini3939 | 13:20c0f845df68 | 242 | |
okini3939 | 13:20c0f845df68 | 243 | if (ret != HTTP_OK && ret != HTTP_PROCESSING) { |
okini3939 | 15:07bfa25ba6ae | 244 | pc.printf("error: Twitter %d\r\n", ret); |
okini3939 | 13:20c0f845df68 | 245 | } |
okini3939 | 2:4125fe2283ef | 246 | } |
okini3939 | 2:4125fe2283ef | 247 | |
okini3939 | 2:4125fe2283ef | 248 | void ntpdate () { |
okini3939 | 2:4125fe2283ef | 249 | ntp = new NTPClient; |
okini3939 | 2:4125fe2283ef | 250 | Host ntpserver(IpAddr(), 123, conf.ntpserver); |
okini3939 | 2:4125fe2283ef | 251 | |
okini3939 | 9:8c63e4f3edab | 252 | led_y = 0; |
okini3939 | 2:4125fe2283ef | 253 | #ifdef NONBLOCKING |
okini3939 | 2:4125fe2283ef | 254 | Net::poll(); |
okini3939 | 2:4125fe2283ef | 255 | ntp->setTime(ntpserver, &cb_settime); |
okini3939 | 2:4125fe2283ef | 256 | Net::poll(); |
okini3939 | 2:4125fe2283ef | 257 | #else |
okini3939 | 2:4125fe2283ef | 258 | ntp->setTime(ntpserver); |
okini3939 | 2:4125fe2283ef | 259 | time_t sec = time(NULL) + (60 * 60 * TIMEZONE); |
okini3939 | 2:4125fe2283ef | 260 | set_time(sec); |
okini3939 | 2:4125fe2283ef | 261 | #endif |
okini3939 | 2:4125fe2283ef | 262 | } |
okini3939 | 2:4125fe2283ef | 263 | |
okini3939 | 2:4125fe2283ef | 264 | void cb_settime (NTPResult status) { |
okini3939 | 2:4125fe2283ef | 265 | if (status == NTP_OK) { |
okini3939 | 9:8c63e4f3edab | 266 | led_y = 0; |
okini3939 | 2:4125fe2283ef | 267 | time_t sec = time(NULL) + (60 * 60 * TIMEZONE); |
okini3939 | 2:4125fe2283ef | 268 | set_time(sec); |
okini3939 | 2:4125fe2283ef | 269 | pc.printf("Ntp success: %s\r\n", ctime(&sec)); |
okini3939 | 2:4125fe2283ef | 270 | } else { |
okini3939 | 2:4125fe2283ef | 271 | pc.printf("Ntp failure (%d)\r\n", status); |
okini3939 | 2:4125fe2283ef | 272 | } |
okini3939 | 2:4125fe2283ef | 273 | // ntp->close(); |
okini3939 | 2:4125fe2283ef | 274 | } |