Skip to content

GitLab

Switch branch/tag
Find file Normal viewHistoryPermalink
web_server.cpp 12.6 KB
Newer Older
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
1
2 
#include "web_server.h"
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
3 
#include "web_config.h"
Eric Duminil's avatar
Web server h -> cpp    
Eric Duminil committed
4 
#include "util.h"
Eric Duminil's avatar
Time_util -> NTP    
Eric Duminil committed
5 
#include "ntp.h"
Eric Duminil's avatar
Web server h -> cpp    
Eric Duminil committed
6
7
8 
#include "wifi_util.h"
#include "co2_sensor.h"
#include "sensor_console.h"
Eric Duminil's avatar
Always initialize filesystem, but csv can be off    
Eric Duminil committed
9 
#include "csv_writer.h"
Eric Duminil's avatar
Not sending MQTT if inactive    
Eric Duminil committed
10 
#include "mqtt.h"
Eric Duminil's avatar
Is lorawan active?    
Eric Duminil committed
11 
#include "lorawan.h"
Eric Duminil's avatar
Now compiles again    
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
Web server h -> cpp    
Eric Duminil committed
18
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
19
20
21
22
23
24
25 
namespace web_server {

  const char *header_template;
  const char *body_template;
  const char *script_template;
  void handleWebServerRoot();
  void handlePageNotFound();
Eric Duminil's avatar
Basic webserver commands    
Eric Duminil committed
26 
  void handleWebServerCommand();
Eric Duminil's avatar
No access to Filesystem without AMPEL_CSV    
Eric Duminil committed
27
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
28 
  void handleDeleteCSV();
Eric Duminil's avatar
No access to Filesystem without AMPEL_CSV    
Eric Duminil committed
29 
  void handleWebServerCSV();
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
30
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
31 
  void definePages() {
Eric Duminil's avatar
Debug    
Eric Duminil committed
32 
    //TODO: Remove all "\n" to save some space
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
33
34 
    header_template =
        PSTR("<!doctype html><html lang=en>"
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
35
36
37 
            "<head>"
            "<title>%d ppm - CO2 SENSOR - %s - %s</title>"
            "<meta charset='UTF-8'>"
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
38 
            // HfT Favicon
Eric Duminil's avatar
Remove newlines from html    
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=='/>"
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
40 
            // Responsive grid:
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
41
42 
            "<link rel='stylesheet' href='https://unpkg.com/purecss@2.0.3/build/pure-min.css'>"
            "<link rel='stylesheet' href='https://unpkg.com/purecss@2.0.3/build/grids-responsive-min.css'>"
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
43 
            // JS Graphs:
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
44 
            "<script src='https://cdn.plot.ly/plotly-basic-1.58.2.min.js'></script>"
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
45 
            // Fullscreen
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
46 
            "<meta name='viewport' content='width=device-width, initial-scale=1'>"
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
47 
            // Refresh after every measurement.
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
48
49
50
51
52
53
54
55
56
57
58
59
60
61 
            // "<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>"
            "<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>"
            "<li class='pure-menu-item'><a href='%s' class='pure-menu-link'>Download CSV</a></li>"
            "<li class='pure-menu-item' id='led'>&#11044;</li>"// LED
            "</ul></div></div>"
            "<script>"
Eric Duminil's avatar
Show a colored dot on webpage    
Eric Duminil committed
62 
            // Show a colored dot on the webpage, with a similar color than on LED Ring.
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
63
64
65
66
67
68
69
70 
            "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'>");
Eric Duminil's avatar
More balanced html parts    
Eric Duminil committed
71
72 

    body_template =
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
73
74
75
76
77
78
79
80
81
82
83
84
85
86 
        PSTR("<tr><th colspan='2'>%s</th></tr>"
            "<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>"
            "<tr><th colspan='2'>CSV</th></tr>" //TODO: Gray out if !config::csv_active
            "<tr><td>Last write</td><td>%s</td></tr>"
            "<tr><td>Timestep</td><td>%5d s</td></tr>"
            "<tr><td>Available space</td><td>%d kB</td></tr>"
            "<tr><th colspan='2'>MQTT</th></tr>"//TODO: Gray out if !config::mqtt_active
            "<tr><td>Connected?</td><td>%s</td></tr>"
            "<tr><td>Last publish</td><td>%s</td></tr>"
            "<tr><td>Timestep</td><td>%5d s</td></tr>"
Eric Duminil's avatar
Is lorawan active?    
Eric Duminil committed
87 
#if defined(ESP32)
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
88
89
90
91
92 
            "<tr><th colspan='2'>LoRaWAN</th></tr>" //TODO: Gray out if !config::lora_active
            "<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>Timestep</td><td>%5d s</td></tr>"
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
93 
#endif
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110 
            "<tr><th colspan='2'>Sensor</th></tr>"
            "<tr><td>Temperature offset</td><td>%.1fK</td></tr>" //TODO: Read it from sensor?
            "<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>"
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
111
112 
            "<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'/>"
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
113
114 
            "</form>"
            "</div>");
Eric Duminil's avatar
Adding links to source code and documentation on web-server    
Eric Duminil committed
115
Eric Duminil's avatar
More headers on webpage    
Eric Duminil committed
116
117
118
119 
    script_template =
        PSTR(
            "<a href='https://transfer.hft-stuttgart.de/gitlab/co2ampel/ampel-firmware' target='_blank'>Source code</a>\n"
                "<a href='https://transfer.hft-stuttgart.de/gitlab/co2ampel/ampel-documentation' target='_blank'>Documentation</a>\n"
Eric Duminil's avatar
Always initialize filesystem, but csv can be off    
Eric Duminil committed
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144 
                "<script>\n"
                "document.body.style.cursor = 'default';\n"
                "fetch('%s',{credentials:'include'})\n"
                ".then(response=>response.text())\n"
                ".then(csvText=>csvToTable(csvText))\n"
                ".then(htmlTable=>addLogTableToPage(htmlTable))\n"
                ".then(_=>Plotly.newPlot('graph',data,layout,{displaylogo:false}))\n"
                ".catch(e=>console.error(e));\n"
                "xs=[];\n"
                "data=[{x:xs,y:[],type:'scatter',name:'CO<sub>2</sub>',line:{color:'#2ca02c'}},\n"
                "{x:xs,y:[],type:'scatter',name:'Temperature',yaxis:'y2',line:{color:'#ff7f0e',dash:'dot'}},\n"
                "{x:xs,y:[],type:'scatter',name:'Humidity',yaxis:'y3',line:{color:'#1f77b4',dash:'dot'}}];\n"
                "layout={height:600,title:'%s',legend:{xanchor:'right',x:0.2,y:1.0},\n"
                "xaxis:{domain:[0.0,0.85]},yaxis:{ticksuffix:'ppm',range:[0,2000],dtick:200},\n"
                "yaxis2:{overlaying:'y',side:'right',ticksuffix:'°C',position:0.9,anchor:'free',range:[0,30],dtick:3},\n"
                "yaxis3:{overlaying:'y',side:'right',ticksuffix:'%%',position:0.95,anchor:'free',range:[0,100],dtick:10}\n"
                "};\n"
                "function csvToTable(csvText) {\n"
                "csvText=csvText.trim();\n"
                "lines=csvText.split('\\n');\n"
                "table=document.createElement('table');\n"
                "table.className='pure-table-striped';\n"
                "n=lines.length;\n"
                "lines.forEach((line,i)=>{\n"
                "fields=line.split(';');\n"
Eric Duminil's avatar
Debug    
Eric Duminil committed
145
146 
                //Don't display points without time
                "if (!fields[0].includes('1970-')){"
Eric Duminil's avatar
Always initialize filesystem, but csv can be off    
Eric Duminil committed
147
148
149
150 
                "xs.push(fields[0]);\n"
                "data[0]['y'].push(fields[1]);\n"
                "data[1]['y'].push(fields[2]);\n"
                "data[2]['y'].push(fields[3]);\n"
Eric Duminil's avatar
Debug    
Eric Duminil committed
151 
                "};"
Eric Duminil's avatar
Always initialize filesystem, but csv can be off    
Eric Duminil committed
152
153
154
155
156
157
158
159
160
161
162
163 
                "if(i>4 && i<n-12){if(i==5){fields=['...','...','...','...']}else{return;}}\n"
                "row=document.createElement('tr');\n"
                "fields.forEach((field,index)=>{\n"
                "cell=document.createElement(i<2?'th':'td');\n"
                "cell.appendChild(document.createTextNode(field));\n"
                "row.appendChild(cell);});\n"
                "table.appendChild(row);});\n"
                "return table;}\n"
                "function addLogTableToPage(table){document.getElementById('log').appendChild(table);}\n"
                "</script>\n"
                "</body>\n"
                "</html>");
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
164
165 

    // Web-server
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
166
167 
    web_config::http.on("/", handleWebServerRoot);
    web_config::http.on("/command", handleWebServerCommand);
Eric Duminil's avatar
Always initialize filesystem, but csv can be off    
Eric Duminil committed
168 
    web_config::http.on(csv_writer::filename, handleWebServerCSV);
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
169 
    web_config::http.on("/delete_csv", HTTP_POST, handleDeleteCSV);
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
170
171
172
173 
  }

  // Allow access if http_user or http_password are empty, or if provided credentials match
  bool shouldBeAllowed() {
Eric Duminil's avatar
use AP password for HTTP    
Eric Duminil committed
174
175 
    return strcmp(config::http_user, "") == 0 || strcmp(config::ap_password(), "") == 0
        || web_config::http.authenticate(config::http_user, config::ap_password());
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
176
177
178
179 
  }

  void handleWebServerRoot() {
    if (!shouldBeAllowed()) {
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
180 
      return web_config::http.requestAuthentication(DIGEST_AUTH);
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
181
182
183 
    }

    unsigned long ss = seconds();
Eric Duminil's avatar
Show uptime days on webserver    
Eric Duminil committed
184
185 
    uint8_t dd = ss / 86400;
    ss -= dd * 86400;
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
186
187
188
189
190
191
192 
    unsigned int hh = ss / 3600;
    ss -= hh * 3600;
    uint8_t mm = ss / 60;
    ss -= mm * 60;

    //NOTE: Splitting in multiple parts in order to use less RAM
    char content[2000]; // Update if needed
Eric Duminil's avatar
Remove newlines from html    
Eric Duminil committed
193
194 
    // Current size (without Lorawan):
    //    INFO - Header size : 1822 - Body size : 1953 - Script size : 1943
Eric Duminil's avatar
Adding links to source code and documentation on web-server    
Eric Duminil committed
195
Eric Duminil's avatar
Configurable name    
Eric Duminil committed
196 
    snprintf_P(content, sizeof(content), header_template, sensor::co2, config::ampel_name(), wifi::local_ip,
Eric Duminil's avatar
Always initialize filesystem, but csv can be off    
Eric Duminil committed
197 
        csv_writer::filename);
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
198
Eric Duminil's avatar
Debug    
Eric Duminil committed
199
200 
        Serial.print(F("INFO - Header size : "));
        Serial.print(strlen(content));
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
201
202 
    web_config::http.setContentLength(CONTENT_LENGTH_UNKNOWN);
    web_config::http.send_P(200, PSTR("text/html"), content);
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
203
204 

    // Body
Eric Duminil's avatar
Configurable name    
Eric Duminil committed
205 
    snprintf_P(content, sizeof(content), body_template, config::ampel_name(), sensor::co2, sensor::temperature,
Eric Duminil's avatar
Always initialize filesystem, but csv can be off    
Eric Duminil committed
206
207
208 
        sensor::humidity, sensor::timestamp, config::measurement_timestep, csv_writer::last_successful_write,
        config::csv_interval, csv_writer::getAvailableSpace() / 1024, mqtt::connected ? "Yes" : "No",
        mqtt::last_successful_publish, config::mqtt_sending_interval,
Eric Duminil's avatar
Is lorawan active?    
Eric Duminil committed
209 
#if defined(ESP32)
Eric Duminil's avatar
Fixing lorawan config and refactor    
Eric Duminil committed
210 
        lorawan::connected ? "Yes" : "No", config::lorawan_frequency_plan, lorawan::last_transmission,
Eric Duminil's avatar
More headers on webpage    
Eric Duminil committed
211 
        config::lorawan_sending_interval,
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
212 
#endif
Eric Duminil's avatar
Configurable name    
Eric Duminil committed
213 
        config::temperature_offset, config::auto_calibrate_sensor ? "Yes" : "No", config::ampel_name(), config::ampel_name(),
Eric Duminil's avatar
Use reference instead of pointer    
Eric Duminil committed
214 
        wifi::local_ip, wifi::local_ip, ampel.macAddress, ESP.getFreeHeap(), esp_get_max_free_block_size(),
Eric Duminil's avatar
Make some space    
Eric Duminil committed
215 
        esp_get_heap_fragmentation(), ampel.max_loop_duration, ampel.board, ampel.sensorId, ampel.version, dd, hh, mm, ss);
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
216
Eric Duminil's avatar
Debug    
Eric Duminil committed
217
218 
        Serial.print(F(" - Body size : "));
        Serial.print(strlen(content));
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
219 
    web_config::http.sendContent(content);
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
220
221 

    // Script
Eric Duminil's avatar
Configurable name    
Eric Duminil committed
222 
    snprintf_P(content, sizeof(content), script_template, csv_writer::filename, config::ampel_name());
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
223
Eric Duminil's avatar
Debug    
Eric Duminil committed
224
225 
        Serial.print(F(" - Script size : "));
        Serial.println(strlen(content));
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
226 
    web_config::http.sendContent(content);
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
227
228
229
230 
  }

  void handleWebServerCSV() {
    if (!shouldBeAllowed()) {
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
231 
      return web_config::http.requestAuthentication(DIGEST_AUTH);
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
232
233
234 
    }
    if (FS_LIB.exists(csv_writer::filename)) {
      fs::File csv_file = FS_LIB.open(csv_writer::filename, "r");
Eric Duminil's avatar
No String anymore. :)    
Eric Duminil committed
235
236 
      char csv_size[10];
      snprintf(csv_size, sizeof(csv_size), "%d", csv_file.size());
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
237
238 
      web_config::http.sendHeader("Content-Length", csv_size);
      web_config::http.streamFile(csv_file, F("text/csv"));
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
239
240 
      csv_file.close();
    } else {
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
241 
      web_config::http.send(204, F("text/html"), F("No data available."));
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
242
243
244
245
246 
    }
  }

  void handleDeleteCSV() {
    if (!shouldBeAllowed()) {
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
247 
      return web_config::http.requestAuthentication(DIGEST_AUTH);
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
248 
    }
Eric Duminil's avatar
No String anymore. :)    
Eric Duminil committed
249 
    Serial.print(F("Removing CSV file..."));
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
250 
    FS_LIB.remove(csv_writer::filename);
Eric Duminil's avatar
No String anymore. :)    
Eric Duminil committed
251 
    Serial.println(F(" Done!"));
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
252
253 
    web_config::http.sendHeader("Location", "/");
    web_config::http.send(303);
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
254
255 
  }
Eric Duminil's avatar
Basic webserver commands    
Eric Duminil committed
256
257 
  void handleWebServerCommand() {
    if (!shouldBeAllowed()) {
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
258 
      return web_config::http.requestAuthentication(DIGEST_AUTH);
Eric Duminil's avatar
Basic webserver commands    
Eric Duminil committed
259 
    }
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
260
261
262 
    web_config::http.sendHeader("Location", "/");
    web_config::http.send(303);
    sensor_console::execute(web_config::http.arg("send").c_str());
Eric Duminil's avatar
Basic webserver commands    
Eric Duminil committed
263
264 
  }
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
265 
  void handlePageNotFound() {
Eric Duminil's avatar
Web server refactor    
Eric Duminil committed
266 
    web_config::http.send(404, F("text/plain"), F("404: Not found"));
Eric Duminil's avatar
Current version from old git. Release 0.0.9  
Eric Duminil committed
267
268 
  }
}

Dies ist die Gitlab-Instanz des Transferportals der Hochschule für Technik Stuttgart. Hier geht es zurück zum Portal