web_server.cpp 12.6 KB
Newer Older
1
2
#include "web_server.h"

Eric Duminil's avatar
Eric Duminil committed
3
#include "web_config.h"
Eric Duminil's avatar
Eric Duminil committed
4
#include "util.h"
Eric Duminil's avatar
Eric Duminil committed
5
#include "ntp.h"
Eric Duminil's avatar
Eric Duminil committed
6
7
8
#include "wifi_util.h"
#include "co2_sensor.h"
#include "sensor_console.h"
9
#include "csv_writer.h"
Eric Duminil's avatar
Eric Duminil committed
10
#include "mqtt.h"
Eric Duminil's avatar
Eric Duminil committed
11
#include "lorawan.h"
Eric Duminil's avatar
Eric Duminil committed
12
13
14
15
16
17

#if defined(ESP8266)
#  include <ESP8266WebServer.h>
#elif defined(ESP32)
#  include <WebServer.h>
#endif
Eric Duminil's avatar
Eric Duminil committed
18

19
20
21
namespace web_server {

  const char *header_template;
Eric Duminil's avatar
Eric Duminil committed
22
23
  const char *body1_template;
  const char *body2_template;
24
25
26
  const char *script_template;
  void handleWebServerRoot();
  void handlePageNotFound();
Eric Duminil's avatar
Eric Duminil committed
27
  void handleWebServerCommand();
28

29
  void handleDeleteCSV();
30
  void handleWebServerCSV();
31

Eric Duminil's avatar
Eric Duminil committed
32
  void definePages() {
33
34
    header_template =
        PSTR("<!doctype html><html lang=en>"
Eric Duminil's avatar
Eric Duminil committed
35
36
37
            "<head>"
            "<title>%d ppm - CO2 SENSOR - %s - %s</title>"
            "<meta charset='UTF-8'>"
38
            // HfT Favicon
Eric Duminil's avatar
Eric Duminil committed
39
            "<link rel='icon' type='image/png' sizes='16x16' href='data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABHNCSVQICAgIfAhkiAAAAHtJREFUOE9jvMnA+5+BAsBIFQMkl85h+P3kGcOb8jqwW+TPH2H4de0GA29UGNxtfx49YWCRk0HwHz5iuKegwwB2AS4DkA2F6VR6cAWsEQbgBqDY9vARw/ejJ+Au+LxsFcPz6BSwHpwGYPMCSS6gyAAKYhESiKMGjPgwAADopHVhn5ynEwAAAABJRU5ErkJggg=='/>"
40
            // Responsive grid:
Eric Duminil's avatar
Eric Duminil committed
41
42
            "<link rel='stylesheet' href='https://unpkg.com/purecss@2.0.6/build/pure-min.css'>"
            "<link rel='stylesheet' href='https://unpkg.com/purecss@2.0.6/build/grids-responsive-min.css'>"
43
            // JS Graphs:
Eric Duminil's avatar
Eric Duminil committed
44
            "<script src='https://cdn.plot.ly/plotly-basic-2.9.0.min.js'></script>"
45
            // Fullscreen
Eric Duminil's avatar
Eric Duminil committed
46
            "<meta name='viewport' content='width=device-width, initial-scale=1'>"
47
            // Refresh after every measurement.
Eric Duminil's avatar
Eric Duminil committed
48
49
50
51
52
53
54
            // "<meta http-equiv='refresh' content='%d'>"
            "</head>"
            "<body>"
            "<div class='pure-g'><div class='pure-u-1'><div class='pure-menu'><p class='pure-menu-heading'>HfT-Stuttgart CO<sub>2</sub> Ampel</p></div></div>"
            "<div class='pure-u-1'><ul class='pure-menu pure-menu-horizontal pure-menu-list'>"
            "<li class='pure-menu-item'><a href='/config' class='pure-menu-link'>Config</a></li>"
            "<li class='pure-menu-item'><a href='#table' class='pure-menu-link'>Info</a></li>"
Eric Duminil's avatar
Eric Duminil committed
55
56
            "<li class='pure-menu-item'><a href='#graph' class='pure-menu-link'>Graph</a></li>"
            "<li class='pure-menu-item'><a href='#log' class='pure-menu-link'>Log</a></li>");
Eric Duminil's avatar
Eric Duminil committed
57

Eric Duminil's avatar
Eric Duminil committed
58
    body1_template = PSTR("<li class='pure-menu-item'><a href='%s' class='pure-menu-link'>Download CSV</a></li>"
Eric Duminil's avatar
Eric Duminil committed
59
60
61
62
63
64
65
66
67
68
69
70
71
        "<li class='pure-menu-item' id='led'>&#11044;</li>" // LED
        "</ul></div></div>"
        "<script>"
        // Show a colored dot on the webpage, with a similar color than on LED Ring.
        "hue=(1-(Math.min(Math.max(parseInt(document.title),500),1600)-500)/1100)*120;"
        "document.getElementById('led').style.color=['hsl(',hue,',100%%,50%%)'].join('');"
        "</script>"
        "<div class='pure-g'>"
        "<div class='pure-u-1' id='graph'></div>"// Graph placeholder
        "</div>"
        "<div class='pure-g'>"
        "<table id='table' class='pure-table-striped pure-u-1 pure-u-md-1-2'>"
        "<tr><th colspan='2'>%s</th></tr>"
Eric Duminil's avatar
Eric Duminil committed
72
73
74
75
76
        "<tr><td>CO<sub>2</sub></td><td>%5d ppm</td></tr>"
        "<tr><td>Temperature</td><td>%.1f&#8451;</td></tr>"
        "<tr><td>Humidity</td><td>%.1f%%</td></tr>"
        "<tr><td>Last measurement</td><td>%s</td></tr>"
        "<tr><td>Timestep</td><td>%5d s</td></tr>"
Eric Duminil's avatar
Eric Duminil committed
77
        "<tbody %s>"
Eric Duminil's avatar
Done    
Eric Duminil committed
78
        "<tr><th colspan='2'>CSV</th></tr>"
Eric Duminil's avatar
Eric Duminil committed
79
80
81
82
        "<tr><td>Last write</td><td>%s</td></tr>"
        "<tr><td>Interval</td><td>%5d s</td></tr>"
        "<tr><td>Available space</td><td>%d kB</td></tr>"
        "</tbody>"
Eric Duminil's avatar
Eric Duminil committed
83
        "<tbody %s>"
Eric Duminil's avatar
Eric Duminil committed
84
85
86
87
        "<tr><th colspan='2'>MQTT</th></tr>"
        "<tr><td>Connected?</td><td>%s</td></tr>"
        "<tr><td>Last publish</td><td>%s</td></tr>"
        "<tr><td>Interval</td><td>%5d s</td></tr>"
Eric Duminil's avatar
Eric Duminil committed
88
89
90
91
92
93
94
95
96
97
98
        "</tbody>"
#if defined(ESP32)
        "<tbody %s>"
        "<tr><th colspan='2'>LoRaWAN</th></tr>"
        "<tr><td>Connected?</td><td>%s</td></tr>"
        "<tr><td>Frequency</td><td>%s MHz</td></tr>"
        "<tr><td>Last transmission</td><td>%s</td></tr>"
        "<tr><td>Interval</td><td>%5d s</td></tr>"
        "</tbody>"
#endif
        );
Eric Duminil's avatar
Eric Duminil committed
99

Eric Duminil's avatar
Eric Duminil committed
100
101
    body2_template =
        PSTR(
Eric Duminil's avatar
Eric Duminil committed
102
            "<tr><th colspan='2'>Sensor</th></tr>"
Eric Duminil's avatar
Eric Duminil committed
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
                "<tr><td>Temperature offset</td><td>%.1fK</td></tr>"
                "<tr><td>Auto-calibration?</td><td>%s</td></tr>"
                "<tr><td>Local address</td><td><a href='http://%s.local/'>%s.local</a></td></tr>"
                "<tr><td>Local IP</td><td><a href='http://%s'>%s</a></td></tr>"
                "<tr><td>MAC</td><td>%s</td></tr>"
                "<tr><td>Free heap space</td><td>%6d bytes</td></tr>"
                "<tr><td>Largest heap block</td><td>%6d bytes</td></tr>"
                "<tr><td>Frag</td><td>%3d%%</td></tr>"
                "<tr><td>Max loop duration</td><td>%5d ms</td></tr>"
                "<tr><td>Board</td><td>%s</td></tr>"
                "<tr><td>ID</td><td>%s</td></tr>"
                "<tr><td>Ampel firmware</td><td>%s</td></tr>"
                "<tr><td>Uptime</td><td>%2d d %4d h %02d min %02d s</td></tr>"
                "</table>"
                "<div id='log' class='pure-u-1 pure-u-md-1-2'></div>"
                "<form action='/command'><input type='text' id='send' name='send'><input type='submit' value='Send'></form>"
                "<form action='/delete_csv' method='POST' onsubmit=\"return confirm('Are you really sure you want to delete all data?') && (document.body.style.cursor = 'wait');\">"
                "<input type='submit' value='Delete CSV'/>"
                "</form>"
                "<button onclick=\"fetch('/command?send=set_time '+Math.floor(Date.now()/1000))\" %s>Set time!</button>" // Can be useful in AP mode
                "</div>"
                "<a href='https://transfer.hft-stuttgart.de/gitlab/co2ampel/ampel-firmware' target='_blank'>Source code</a>&nbsp;"
                "<a href='https://transfer.hft-stuttgart.de/gitlab/co2ampel/ampel-documentation' target='_blank'>Documentation</a>");
Eric Duminil's avatar
Eric Duminil committed
126
127
128
129

    script_template = PSTR("<script>"
        "document.body.style.cursor = 'default';"
        "fetch('%s',{credentials:'include'})"
Eric Duminil's avatar
Eric Duminil committed
130
131
132
        ".then(r=>r.text())"
        ".then(c2t)"
        ".then(addLog)"
Eric Duminil's avatar
Eric Duminil committed
133
        ".then(_=>Plotly.newPlot('graph',data,layout,{displaylogo:false}))"
Eric Duminil's avatar
Eric Duminil committed
134
        ".catch(console.error);"
Eric Duminil's avatar
Eric Duminil committed
135
        "xs=[];y1=[];y2=[];y3=[];"
Eric Duminil's avatar
Eric Duminil committed
136
137
138
139
140
        "d={x:xs,type:'scatter',mode:'lines+markers',marker:{symbol:123}};" // diamond-tall-open from https://plotly.com/python/marker-style/
        "data = ["
        "{...d,...{y:y1,name:'CO<sub>2</sub>',line:{color:'#2ca02c'}}},"
        "{...d,...{y:y2,name:'Temperature',yaxis:'y2',line:{color:'#ff7f0e',dash:'dot'}}},"
        "{...d,...{y:y3,name:'Humidity',yaxis:'y3',line:{color:'#1f77b4',dash:'dot'}}}];"
Eric Duminil's avatar
Eric Duminil committed
141
142
143
144
145
        "layout={height:600,title:'%s',legend:{xanchor:'right',x:0.2,y:1.0},"
        "xaxis:{domain:[0.0,0.85]},yaxis:{ticksuffix:'ppm',range:[0,2000],dtick:200},"
        "yaxis2:{overlaying:'y',side:'right',ticksuffix:'°C',position:0.9,anchor:'free',range:[0,30],dtick:3},"
        "yaxis3:{overlaying:'y',side:'right',ticksuffix:'%%',position:0.95,anchor:'free',range:[0,100],dtick:10}"
        "};"
Eric Duminil's avatar
Eric Duminil committed
146
147
148
149
150
151
152
153
        "function c2t(t){"
        "t=t.trim();"
        "ls=t.split('\\n');"
        "tb=document.createElement('table');"
        "tb.className='pure-table-striped';"
        "n=ls.length;"
        "ls.forEach((l,i)=>{"
        "fs=l.split(';');"
Eric Duminil's avatar
Eric Duminil committed
154
        //Don't display points without time
Eric Duminil's avatar
Eric Duminil committed
155
156
        "if (!fs[0].includes('1970-')){"
        "xs.push(fs[0]);"
Eric Duminil's avatar
Eric Duminil committed
157
158
159
        "y1.push(fs[1]);"
        "y2.push(fs[2]);"
        "y3.push(fs[3]);"
Eric Duminil's avatar
Eric Duminil committed
160
        "};"
Eric Duminil's avatar
Eric Duminil committed
161
162
163
164
165
166
167
168
169
        "if(i>4 && i<n-12){if(i==5){fs=['...','...','...','...']}else{return;}}"
        "r=document.createElement('tr');"
        "fs.forEach((f,_)=>{"
        "c=document.createElement(i<2?'th':'td');"
        "c.appendChild(document.createTextNode(f));"
        "r.appendChild(c);});"
        "tb.appendChild(r);});"
        "return tb;}"
        "function addLog(t){document.getElementById('log').appendChild(t);}"
Eric Duminil's avatar
Eric Duminil committed
170
171
172
        "</script>"
        "</body>"
        "</html>");
173
174

    // Web-server
Eric Duminil's avatar
Eric Duminil committed
175
176
    web_config::http.on("/", handleWebServerRoot);
    web_config::http.on("/command", handleWebServerCommand);
177
    web_config::http.on(csv_writer::filename, handleWebServerCSV);
Eric Duminil's avatar
Eric Duminil committed
178
    web_config::http.on("/delete_csv", HTTP_POST, handleDeleteCSV);
179
180
  }

181
182
183
184
185
  /*
   * Allow access if Ampel is in access point mode,
   * if http_user or http_password are empty,
   * or if provided credentials match
   */
186
  bool shouldBeAllowed() {
Eric Duminil's avatar
Eric Duminil committed
187
188
    return wifi::isAccessPoint() || strcmp(config::http_user, "") == 0 || strcmp(config::ampel_password(), "") == 0
        || web_config::http.authenticate(config::http_user, config::ampel_password());
189
190
191
192
  }

  void handleWebServerRoot() {
    if (!shouldBeAllowed()) {
Eric Duminil's avatar
Eric Duminil committed
193
      return web_config::http.requestAuthentication(DIGEST_AUTH);
194
195
196
    }

    unsigned long ss = seconds();
Eric Duminil's avatar
Eric Duminil committed
197
198
    uint8_t dd = ss / 86400;
    ss -= dd * 86400;
199
200
201
202
203
    unsigned int hh = ss / 3600;
    ss -= hh * 3600;
    uint8_t mm = ss / 60;
    ss -= mm * 60;

Eric Duminil's avatar
Eric Duminil committed
204
    //NOTE: Splitting in multiple parts in order to use less RAM. Higher than 2000 apparently crashes the ESP8266
Eric Duminil's avatar
Eric Duminil committed
205
    char content[1600];
Eric Duminil's avatar
Eric Duminil committed
206
    // Current size (with Lorawan, timesteps and long thing name):
Eric Duminil's avatar
Eric Duminil committed
207
    //    INFO - Header size : 1347 - Body1 size : 1448 - Body2 size : 1475 - Script size : 1507
208

Eric Duminil's avatar
Eric Duminil committed
209
    snprintf_P(content, sizeof(content), header_template, sensor::co2, config::ampel_name(), wifi::local_ip);
210

211
212
    Serial.print(F("INFO - Header size : "));
    Serial.print(strlen(content));
Eric Duminil's avatar
Eric Duminil committed
213
214
    web_config::http.setContentLength(CONTENT_LENGTH_UNKNOWN);
    web_config::http.send_P(200, PSTR("text/html"), content);
215
216

    // Body
Eric Duminil's avatar
Eric Duminil committed
217
218
219
220
    snprintf_P(content, sizeof(content), body1_template, csv_writer::filename, config::ampel_name(), sensor::co2,
        sensor::temperature, sensor::humidity, sensor::timestamp, config::measurement_timestep,
        config::is_csv_active() ? "" : "hidden", csv_writer::last_successful_write, config::csv_interval,
        csv_writer::getAvailableSpace() / 1024, config::is_mqtt_active() ? "" : "hidden",
Eric Duminil's avatar
Eric Duminil committed
221
222
223
224
225
226
        mqtt::connected ? "Yes" : "No", mqtt::last_successful_publish, config::mqtt_sending_interval
#if defined(ESP32)
        , config::is_lorawan_active() ? "" : "hidden", lorawan::connected ? "Yes" : "No",
        config::lorawan_frequency_plan, lorawan::last_transmission, config::lorawan_sending_interval
#endif
        );
Eric Duminil's avatar
Eric Duminil committed
227
228
229
230
231

    Serial.print(F(" - Body1 size : "));
    Serial.print(strlen(content));
    web_config::http.sendContent(content);

Eric Duminil's avatar
Eric Duminil committed
232
233
234
235
236
    snprintf_P(content, sizeof(content), body2_template, config::temperature_offset,
        config::auto_calibrate_sensor ? "Yes" : "No", config::ampel_name(), config::ampel_name(), wifi::local_ip,
        wifi::local_ip, ampel.macAddress, ESP.getFreeHeap(), esp_get_max_free_block_size(),
        esp_get_heap_fragmentation(), ampel.max_loop_duration, ampel.board, ampel.sensorId, ampel.version, dd, hh, mm,
        ss, wifi::isAccessPoint() ? "" : "hidden");
237

Eric Duminil's avatar
Eric Duminil committed
238
    Serial.print(F(" - Body2 size : "));
239
    Serial.print(strlen(content));
Eric Duminil's avatar
Eric Duminil committed
240
    web_config::http.sendContent(content);
241
242

    // Script
Eric Duminil's avatar
Eric Duminil committed
243
    snprintf_P(content, sizeof(content), script_template, csv_writer::filename, config::ampel_name());
244

245
246
    Serial.print(F(" - Script size : "));
    Serial.println(strlen(content));
Eric Duminil's avatar
Eric Duminil committed
247
    web_config::http.sendContent(content);
248
249
250
251
  }

  void handleWebServerCSV() {
    if (!shouldBeAllowed()) {
Eric Duminil's avatar
Eric Duminil committed
252
      return web_config::http.requestAuthentication(DIGEST_AUTH);
253
254
255
    }
    if (FS_LIB.exists(csv_writer::filename)) {
      fs::File csv_file = FS_LIB.open(csv_writer::filename, "r");
Eric Duminil's avatar
Eric Duminil committed
256
257
      char csv_size[10];
      snprintf(csv_size, sizeof(csv_size), "%d", csv_file.size());
Eric Duminil's avatar
Eric Duminil committed
258
259
      web_config::http.sendHeader("Content-Length", csv_size);
      web_config::http.streamFile(csv_file, F("text/csv"));
260
261
      csv_file.close();
    } else {
Eric Duminil's avatar
Eric Duminil committed
262
      web_config::http.send(204, F("text/html"), F("No data available."));
263
264
265
266
267
    }
  }

  void handleDeleteCSV() {
    if (!shouldBeAllowed()) {
Eric Duminil's avatar
Eric Duminil committed
268
      return web_config::http.requestAuthentication(DIGEST_AUTH);
269
    }
Eric Duminil's avatar
Eric Duminil committed
270
    Serial.print(F("Removing CSV file..."));
271
    FS_LIB.remove(csv_writer::filename);
Eric Duminil's avatar
Eric Duminil committed
272
    Serial.println(F(" Done!"));
Eric Duminil's avatar
Eric Duminil committed
273
274
    web_config::http.sendHeader("Location", "/");
    web_config::http.send(303);
275
276
  }

Eric Duminil's avatar
Eric Duminil committed
277
278
  void handleWebServerCommand() {
    if (!shouldBeAllowed()) {
Eric Duminil's avatar
Eric Duminil committed
279
      return web_config::http.requestAuthentication(DIGEST_AUTH);
Eric Duminil's avatar
Eric Duminil committed
280
    }
Eric Duminil's avatar
Eric Duminil committed
281
282
283
    web_config::http.sendHeader("Location", "/");
    web_config::http.send(303);
    sensor_console::execute(web_config::http.arg("send").c_str());
Eric Duminil's avatar
Eric Duminil committed
284
285
  }

286
  void handlePageNotFound() {
Eric Duminil's avatar
Eric Duminil committed
287
    web_config::http.send(404, F("text/plain"), F("404: Not found"));
288
289
  }
}