Handle special characters of HTTP POST

dim value is set, webserver access is shown via the characters: W E B
Stop download on failure during generation
2023-04-09 14:33:26 +02:00 · 2023-03-04 19:21:47 +01:00 · 2023-03-04 19:20:41 +01:00 · 2023-03-02 21:19:32 +01:00 · 2023-03-02 20:50:49 +01:00 · 2023-03-02 20:34:07 +01:00
12 changed files with 185 additions and 356 deletions
--- a/diet/webserver_diet.lua
+++ b/diet/webserver_diet.lua
@ -1,268 +0,0 @@
-local o="config.lua"
-local n=false
-local t=0
-function sendPage(o,e,i)
-collectgarbage()
-print("Sending "..e.." "..t.."B already; "..node.heap().."B in heap")
-o:on("sent",function(a)
-if(t==0)then
-a:close()
-print("Page sent")
-collectgarbage()
-n=false
-else
-collectgarbage()
-sendPage(a,e,i)
-end
-end)
-if file.open(e,"r")then
-local e=""
-if(t<=0)then
-e=e.."HTTP/1.1 200 OK\r\n"
-e=e.."Content-Type: text/html\r\n"
-e=e.."Connection: close\r\n"
-e=e.."Date: Thu, 29 Dec 2016 20:18:20 GMT\r\n"
-e=e.."\r\n\r\n"
-end
-file.seek("set",t)
-local a=file.readline()
-while(a~=nil)do
-if(a:find("$")~=nil)then
-if(i~=nil)then
-for e,t in pairs(i)
-do
-a=string.gsub(a,e,t)
-end
-end
-end
-t=t+string.len(a)
-e=e..a
-if((string.len(e)>=500)or(node.heap()<2000))then
-a=nil
-o:send(e)
-print("Sent part of "..t.."B")
-return
-else
-a=file.readline()
-end
-end
-t=0
-if(string.len(e)>0)then
-o:send(e)
-print("Sent rest")
-end
-end
-end
-function fillDynamicMap()
-replaceMap={}
-ssid,_=wifi.sta.getconfig()
-if(ssid==nil)then return replaceMap end
-if(sntpserverhostname==nil)then sntpserverhostname="ptbtime1.ptb.de"end
-if(timezoneoffset==nil)then timezoneoffset=1 end
-if(color==nil)then color=string.char(0,0,250)end
-if(color1==nil)then color1=color end
-if(color2==nil)then color2=color end
-if(color3==nil)then color3=color end
-if(color4==nil)then color4=color end
-if(colorBg==nil)then colorBg=string.char(0,0,0)end
-local t="#"..string.format("%02x",string.byte(color,2))..string.format("%02x",string.byte(color,1))..string.format("%02x",string.byte(color,3))
-local n="#"..string.format("%02x",string.byte(color1,2))..string.format("%02x",string.byte(color1,1))..string.format("%02x",string.byte(color1,3))
-local e="#"..string.format("%02x",string.byte(color2,2))..string.format("%02x",string.byte(color2,1))..string.format("%02x",string.byte(color2,3))
-local i="#"..string.format("%02x",string.byte(color3,2))..string.format("%02x",string.byte(color3,1))..string.format("%02x",string.byte(color3,3))
-local o="#"..string.format("%02x",string.byte(color4,2))..string.format("%02x",string.byte(color4,1))..string.format("%02x",string.byte(color4,3))
-local a="#"..string.format("%02x",string.byte(colorBg,2))..string.format("%02x",string.byte(colorBg,1))..string.format("%02x",string.byte(colorBg,3))
-replaceMap["$SSID"]=ssid
-replaceMap["$SNTPSERVER"]=sntpserverhostname
-replaceMap["$TIMEOFFSET"]=timezoneoffset
-replaceMap["$THREEQUATER"]=(threequater and"checked"or"")
-replaceMap["$ADDITIONAL_LINE"]=""
-replaceMap["$HEXCOLORFG"]=t
-replaceMap["$HEXCOLOR1"]=n
-replaceMap["$HEXCOLOR2"]=e
-replaceMap["$HEXCOLOR3"]=i
-replaceMap["$HEXCOLOR4"]=o
-replaceMap["$HEXCOLORBG"]=a
-replaceMap["$INV46"]=((inv46~=nil and inv46=="on")and"checked"or"")
-replaceMap["$AUTODIM"]=((dim~=nil and dim=="on")and"checked"or"")
-return replaceMap
-end
-function startWebServer()
-srv=net.createServer(net.TCP)
-srv:listen(80,function(i)
-i:on("receive",function(t,e)
-if(n)then
-print("HTTP sending... be patient!")
-return
-end
-if(e:find("GET /")~=nil)then
-n=true
-if(color==nil)then
-color=string.char(0,128,0)
-end
-ws2812.write(string.char(0,0,0):rep(56)..color:rep(2)..string.char(0,0,0):rep(4)..color:rep(2)..string.char(0,0,0):rep(48))
-if(sendPage~=nil)then
-print("Sending webpage.html ("..tostring(node.heap()).."B free) ...")
-replaceMap=fillDynamicMap()
-sendPage(t,"webpage.html",replaceMap)
-end
-else if(e:find("POST /")~=nil)then
-_,postdatastart=e:find("\r\n\r\n")
-if postdatastart==nil then postdatastart=1 end
-local a=string.sub(e,postdatastart+1)
-local e={}
-for t,a in string.gmatch(a,"(%w+)=([^&]+)&*")do
-e[t]=a
-end
-if(e.action~=nil and e.action=="Reboot")then
-node.restart()
-return
-end
-if((e.ssid~=nil)and(e.sntpserver~=nil)and(e.timezoneoffset~=nil))then
-print("New config!")
-if(e.password==nil)then
-_,password,_,_=wifi.sta.getconfig()
-print("Restoring password : "..password)
-e.password=password
-password=nil
-end
-file.remove(o..".new")
-sec,_=rtctime.get()
-file.open(o..".new","w+")
-file.write("-- Config\n".."station_cfg={}\nstation_cfg.ssid=\""..e.ssid.."\"\nstation_cfg.pwd=\""..e.password.."\"\nstation_cfg.save=false\nwifi.sta.config(station_cfg)\n")
-file.write("sntpserverhostname=\""..e.sntpserver.."\"\n".."timezoneoffset=\""..e.timezoneoffset.."\"\n".."inv46=\""..tostring(e.inv46).."\"\n".."dim=\""..tostring(e.dim).."\"\n")
-if(e.fcolor~=nil)then
-print("Got fcolor: "..e.fcolor)
-local e=string.sub(e.fcolor,4)
-local t=tonumber(string.sub(e,1,2),16)
-local a=tonumber(string.sub(e,3,4),16)
-local e=tonumber(string.sub(e,5,6),16)
-file.write("color=string.char("..a..","..t..","..e..")\n")
-color=string.char(a,t,e)
-end
-if(e.colorMin1~=nil)then
-local e=string.sub(e.colorMin1,4)
-local t=tonumber(string.sub(e,1,2),16)
-local a=tonumber(string.sub(e,3,4),16)
-local e=tonumber(string.sub(e,5,6),16)
-file.write("color1=string.char("..a..","..t..","..e..")\n")
-color1=string.char(a,t,e)
-end
-if(e.colorMin2~=nil)then
-local e=string.sub(e.colorMin2,4)
-local a=tonumber(string.sub(e,1,2),16)
-local t=tonumber(string.sub(e,3,4),16)
-local e=tonumber(string.sub(e,5,6),16)
-file.write("color2=string.char("..t..","..a..","..e..")\n")
-color2=string.char(t,a,e)
-end
-if(e.colorMin3~=nil)then
-local e=string.sub(e.colorMin3,4)
-local t=tonumber(string.sub(e,1,2),16)
-local a=tonumber(string.sub(e,3,4),16)
-local e=tonumber(string.sub(e,5,6),16)
-file.write("color3=string.char("..a..","..t..","..e..")\n")
-color3=string.char(a,t,e)
-end
-if(e.colorMin4~=nil)then
-local e=string.sub(e.colorMin4,4)
-local t=tonumber(string.sub(e,1,2),16)
-local a=tonumber(string.sub(e,3,4),16)
-local e=tonumber(string.sub(e,5,6),16)
-file.write("color4=string.char("..a..","..t..","..e..")\n")
-color4=string.char(a,t,e)
-end
-if(e.bcolor~=nil)then
-local e=string.sub(e.bcolor,4)
-local t=tonumber(string.sub(e,1,2),16)
-local a=tonumber(string.sub(e,3,4),16)
-local e=tonumber(string.sub(e,5,6),16)
-file.write("colorBg=string.char("..a..","..t..","..e..")\n")
-colorBg=string.char(a,t,e)
-end
-if(getTime~=nil)then
-time=getTime(sec,timezoneoffset)
-file.write("print(\"Config from "..time.year.."-"..time.month.."-"..time.day.." "..time.hour..":"..time.minute..":"..time.second.."\")\n")
-end
-if(e.threequater~=nil)then
-file.write("threequater=true\n")
-threequater=true
-else
-file.write("threequater=nil\n")
-threequater=nil
-end
-file.close()
-collectgarbage()
-sec=nil
-file.remove(o)
-print("Rename config")
-if(file.rename(o..".new",o))then
-print("Successfully")
-local e=tmr.create()
-e:register(50,tmr.ALARM_SINGLE,function(e)
-replaceMap=fillDynamicMap()
-replaceMap["$ADDITIONAL_LINE"]="<h2><font color=\"green\">New configuration saved</font></h2>"
-print("Send success to client")
-sendPage(t,"webpage.html",replaceMap)
-e:unregister()
-end)
-e:start()
-else
-local e=tmr.create()
-e:register(50,tmr.ALARM_SINGLE,function(e)
-replaceMap=fillDynamicMap()
-replaceMap["$ADDITIONAL_LINE"]="<h2><font color=\"red\">ERROR</font></h2>"
-sendPage(t,"webpage.html",replaceMap)
-e:unregister()
-end)
-e:start()
-end
-else
-replaceMap=fillDynamicMap()
-replaceMap["$ADDITIONAL_LINE"]="<h2><font color=\"orange\">Not all parameters set</font></h2>"
-sendPage(t,"webpage.html",replaceMap)
-end
-else
-print("Hello via telnet")
-global_c=t
-function s_output(e)
-if(global_c~=nil)
-then global_c:send(e)
-end
-end
-node.output(s_output,0)
-global_c:on("receive",function(t,e)
-node.input(e)
-end)
-global_c:on("disconnection",function(e)
-node.output(nil)
-global_c=nil
-end)
-print("Welcome to Word Clock")
-end
-end
-end)
-i:on("disconnection",function(e)
-print("Goodbye")
-node.output(nil)
-collectgarbage()
-t=0
-end)
-end)
-end
-collectgarbage()
-wifi.setmode(wifi.SOFTAP)
-cfg={}
-cfg.ssid="wordclock"
-cfg.pwd="wordclock"
-wifi.ap.config(cfg)
-local t=string.char(0,128,0)
-local e=string.char(0,0,0)
-local a=e:rep(6)..t..e:rep(7)..t:rep(3)..e:rep(44)..t:rep(3)..e:rep(50)
-ws2812.write(a)
-t=nil
-e=nil
-a=nil
-print("Waiting in access point >wordclock< for Clients")
-print("Please visit 192.168.4.1")
-startWebServer()
-collectgarbage()
--- a/displayword.lua
+++ b/displayword.lua
@ -369,4 +369,4 @@ M = {
    countChars   = countChars
 }
 end
-dw = M
+return M
--- a/init.lua
+++ b/init.lua
@ -17,6 +17,7 @@ end)
 bootledtimer:start()

 function mydofile(mod)
+    print("load:" .. mod)
    if (file.open(mod ..  ".lua")) then
      dofile( mod .. ".lua")
    elseif (file.open(mod ..  "_diet.lua")) then
@ -36,7 +37,7 @@ initTimer:register(5000, tmr.ALARM_SINGLE, function (t)
    initTimer:unregister()
    initTimer=nil
    bootledtimer=nil
-    local modlist = { "timecore" , "displayword", "ds18b20", "mqtt", "main" }
+    local modlist = { "timecore" , "displayword", "ds18b20", "mqtt", "main", "webserver" }
    for i,mod in pairs(modlist) do
        if (file.open(mod .. "_diet.lua")) then
            file.remove(mod .. "_diet.lc")
@ -59,6 +60,25 @@ initTimer:register(5000, tmr.ALARM_SINGLE, function (t)
        normalOperation()
    else
        -- Logic for inital setup
+	collectgarbage()
+	wifi.setmode(wifi.SOFTAP)
+	cfg={}
+	cfg.ssid="wordclock"
+	cfg.pwd="wordclock"
+	wifi.ap.config(cfg)
+
+	-- Write the buffer to the LEDs
+	local color=string.char(0,128,0)
+	local white=string.char(0,0,0)
+	local ledBuf= white:rep(6) .. color .. white:rep(7) .. color:rep(3) .. white:rep(44) .. color:rep(3) .. white:rep(50)
+	ws2812.write(ledBuf)
+	color=nil
+	white=nil
+	ledBuf=nil
+
+	print("Waiting in access point >wordclock< for Clients")
+	print("Please visit 192.168.4.1")
+	-- start the webserver module 
        mydofile("webserver")
    end
 end)
--- a/main.lua
+++ b/main.lua
@ -8,6 +8,7 @@ rgbBuffer = ws2812.newBuffer(114, 3)

 function syncTimeFromInternet()
  if (syncRunning == nil) then
+    print("NTP: " .. tostring(sntpserverhostname))
    syncRunning=true
    sntp.sync(sntpserverhostname,
     function(sec,usec,server)
@ -28,14 +29,17 @@ function displayTime()
     if (timezoneoffset == nil) then
        timezoneoffset=0
     end
-     mydofile("timecore")
+     local tc = require("timecore_diet")
     if (tc == nil) then
     	return
     end
     local time = tc.getTime(sec, timezoneoffset)
     tc = nil
+     timecore_diet=nil
+     package.loaded["timecore_diet"]=nil
+
     collectgarbage()
-     mydofile("wordclock")
+     local wc = require("wordclock_diet")
     if (wc ~= nil) then
       words = wc.timestat(time.hour, time.minute)
       if ((dim ~= nil) and (dim == "on")) then
@ -48,9 +52,11 @@ function displayTime()
       end
     end
     wc = nil
+     wordclock_diet=nil
+     package.loaded["wordclock_diet"]=nil
+
     collectgarbage()
-     print("wc: " .. tostring(node.heap()))
-     mydofile("displayword")
+     local dw = require("displayword_diet")
     if (dw ~= nil) then
        --if lines 4 to 6 are inverted due to hardware-fuckup, unfuck it here
        local invertRows=false
@ -61,6 +67,9 @@ function displayTime()
        dw.generateLEDs(rgbBuffer, words, colorBg, color, color1, color2, color3, color4, invertRows, c)
     end
     dw = nil
+     displayword_diet=nil
+     package.loaded["displayword_diet"]=nil
+
     collectgarbage()
    
     -- cleanup
@ -100,6 +109,7 @@ function normalOperation()
 	   rgbBuffer:set(55, color) -- P
 	end
      elseif (setupCounter > 3) then
+       if (web == nil) then
        -- Here the WLAN is found, and something is done
        mydofile("mqtt")
 	rgbBuffer:fill(0,0,0) -- disable all LEDs
@ -115,13 +125,20 @@ function normalOperation()
 	    print("NO Mqtt found")
 	    mydofile("telnet")
        end
+       else
+	    print("webserver prepared")
+       end
        setupCounter=setupCounter-1
      elseif (setupCounter > 2) then
+       if (web == nil) then
        if (startTelnetServer ~= nil) then
 	    startTelnetServer()
        else
 	    displayTime()
        end
+       else
+	    print("webserver supplant telnet")
+       end
        setupCounter=setupCounter-1
      elseif ( (alive % 120) == 0) then
        -- sync the time every 5 minutes
@ -132,6 +149,11 @@ function normalOperation()
    	heapusage=nil
        alive = alive + 1
      else
+	if (colorBg ~= nil) then
+	  rgbBuffer:fill(string.byte(colorBg,1), string.byte(colorBg,2), string.byte(colorBg,3)) -- disable all LEDs
+	else
+	  rgbBuffer:fill(0,0,0) -- disable all LEDs
+	end
       displayTime()
       alive = alive + 1
      end
@ -216,17 +238,30 @@ gpio.mode(3, gpio.INPUT)
 local btnCounter=0
 -- Start the time Thread handling the button
 local btntimer = tmr.create()
-btntimer:register(5000, tmr.ALARM_AUTO, function (t)
+btntimer:register(500, tmr.ALARM_AUTO, function (t)
     if (gpio.read(3) == 0) then
-	mlt:unregister()
+	-- stop the main loop
+	if (mlt ~= nil) then
+	    mlt:unregister()
+	    mlt = nil
+	end
        print("Button pressed " .. tostring(btnCounter))
        btnCounter = btnCounter + 5
-	for i=1,btnCounter do rgbBuffer:set(i, 128, 0, 0) end
+	
+	if ((web ~= nil) and (btnCounter < 50)) then
+  	  for i=1,btnCounter do rgbBuffer:set(i, 128, 0, 0) end
+	else
+  	  for i=1,btnCounter do rgbBuffer:set(i, 0, 128, 0) end
+	end
 	ws2812.write(rgbBuffer)
        if (btnCounter >= 110) then
            file.remove("config.lua")
            file.remove("config.lc")
            node.restart()
+	elseif (btnCounter == 10) then
+	    collectgarbage()
+	    mydofile("webserver")
+	    -- start the webserver module
        end
     end
 end)
--- a/mqtt.lua
+++ b/mqtt.lua
@ -125,7 +125,38 @@ function registerMqtt()
        print("MQTT " .. topic .. ":" .. data)
        if (topic == (mqttPrefix .. "/cmd/single")) then
            handleSingleCommand(client, topic, data)
-        else
+        elseif (topic == (mqttPrefix .. "/cmd/num/val")) then
+	    if (( data == "" ) or (data == nil)) then
+		tw=nil
+		print("MQTT | wordclock failed")
+	    else
+		    -- generate the temperatur to display, once as it will not change
+		    local dispTemp = tonumber(data)
+		    collectgarbage()
+		    if (dispTemp > 0) then
+		    local wc = require("wordclock_diet")
+		    if (wc ~= nil) then
+			tw  = wc.showText(dw, rgbBuffer, invertRows, dispTemp)
+			print("MQTT | generated words for: " .. tostring(dispTemp))
+		    else
+			print("MQTT | wordclock failed")
+		    end
+		    wc = nil
+		    wordclock_diet=nil
+                    package.loaded["wordclock_diet"]=nil
+		    else
+		      tw=nil
+		    end
+	    end
+       elseif (topic == (mqttPrefix .. "/cmd/num/col")) then
+	    -- Set number of the color to display
+	    if (( data ~= "" ) and (data ~= nil)) then
+	        tcol = parseBgColor(data, "num/col")
+	    else
+	        tcol = nil
+		print("MQTT | Hide number")
+	    end
+       else
            -- Handle here the /cmd/# sublevel
            if (string.match(topic, "telnet$")) then
                client:publish(mqttPrefix .. "/telnet", tostring(wifi.sta.getip()), 0, 0)
--- a/os/esptool.py
+++ b/os/esptool.py
@ -1,4 +1,4 @@
-#!/usr/bin/env python
+#!/usr/bin/env python3
 #
 # ESP8266 & ESP32 family ROM Bootloader Utility
 # Copyright (C) 2014-2016 Fredrik Ahlberg, Angus Gratton, Espressif Systems (Shanghai) PTE LTD, other contributors as noted.
--- a/simulation/src/de/c3ma/ollo/WS2812Simulation.java
+++ b/simulation/src/de/c3ma/ollo/WS2812Simulation.java
@ -75,6 +75,13 @@ public class WS2812Simulation implements LuaSimulation {
 			// Copy all files into the temporary folder
 			for (File f : sourceFolder.listFiles()) {
 				Files.copy(f.toPath(), new File(tempDir.getAbsolutePath() + File.separator + f.getName()).toPath());
+				// create a diet one
+				if (f.isFile() && 
+						(f.getName().endsWith(".lua") && 
+						(!f.getName().equals("config.lua")))) {
+					String dietName = f.getName().replace(".lua", "_diet.lc");
+					Files.copy(f.toPath(), new File(tempDir.getAbsolutePath() + File.separator + dietName).toPath());
+				}
 			}

 			espFile.setWorkingDirectory(tempDir);
--- a/timecore.lua
+++ b/timecore.lua
@ -146,4 +146,4 @@ M = {
    getTime = getTime
 }
 end
-tc = M
+return M
--- a/tools/initialDietFlash.sh
+++ b/tools/initialDietFlash.sh
@ -48,6 +48,10 @@ if [ "$FILES" != "config.lua" ]; then
 			echo "Compress $f ..."
 			out=$(echo "$f" | sed 's/.lua/_diet.lua/g')
 			$DIET ../$f -o ../diet/$out
+			if [ $? -ne 0 ]; then
+				echo "Failed to generate file"
+				exit $?
+			fi
 			OUTFILES="$OUTFILES diet/$out"
 		else
 			OUTFILES="$OUTFILES $f"
--- a/webpage.html
+++ b/webpage.html
@ -47,7 +47,14 @@ Please note that all settings are mandatory<br /><br />
 <tr><th>WIFI-Password</th><td><input id="password" name="password"></td><td>Password of the wireless network</td></tr>
 <tr><th>SNTP Server</th><td><input id="sntpserver" name="sntpserver" value="$SNTPSERVER"></td><td>Server to sync the time with. Only one ntp server is allowed.</td></tr> 
 <tr><th>Offset to UTC time</th><td><input id="timezoneoffset" name="timezoneoffset" value="$TIMEOFFSET"></td><td>Define the offset to UTC time in hours. For example +1 hour for Germany</td></tr>
-<tr><th>Foreground Color</th><td><input type="color" name="fcolor" value="$HEXCOLORFG"></td><td>LED Color for all minutes, divisible by five</td></tr>
+<tr><th>General Foreground Color</th><td><input type="color" name="fcolor" value="$HEXCOLORFG"></td><td>LED Color for all minutes, divisible by five</td></tr>
+<tr><th>Foreground Color Minute1</th><td><input type="color" name="mcolor1" value="$HEXCOLOR1"></td><td>LED Color for first single minute</td></tr>
+<tr><th>Foreground Color Minute2</th><td><input type="color" name="mcolor2" value="$HEXCOLOR2"></td><td>LED Color for second single minute</td></tr>
+<tr><th>Foreground Color Minute3</th><td><input type="color" name="mcolor3" value="$HEXCOLOR3"></td><td>LED Color for third single minute</td></tr>
+<tr><th>Foreground Color Minute4</th><td><input type="color" name="mcolor4" value="$HEXCOLOR4"></td><td>LED Color for fourth single minute</td></tr>
+<tr><th>Threequarter</th><td><input type="checkbox" name="threequarter" $THREEQUATER></td><td>3/4 instead of 1/4 before</td></tr>
+<tr><th>Adjust brightness</th><td><input type="checkbox" name="dim" $AUTODIM></td><td>Dim brightness automatically</td></tr>
+<input type="hidden" value="true" name="web" /><!-- Activate Webserver only -->
 <tr><td colspan="3"><div align="center"><input type="submit" value="Save Configuration" onclick="this.value='Submitting ..';this.disabled='disabled'; this.form.submit();"></div></td></tr>
 <tr><td colspan="3"><div align="center"><input type="submit" name="action" value="Reboot"></div></td></tr>
 </table>
--- a/webserver.lua
+++ b/webserver.lua
@ -2,9 +2,28 @@
 local configFile="config.lua"
 local httpSending=false
 local sentBytes=0
+
+-- Source https://stackoverflow.com/questions/28916182/parse-parameters-out-of-url-in-lua#28921280
+function urldecode(s)
+  s = s:gsub('+', ' ')
+       :gsub('%%(%x%x)', function(h)
+                           return string.char(tonumber(h, 16))
+                         end)
+  return s
+end
+
 function sendPage(conn, nameOfFile, replaceMap)
  collectgarbage()
  print("Sending " .. nameOfFile .. " " .. sentBytes .. "B already; " .. node.heap() .. "B in heap")
+  if (sentBytes == 0) then
+    -- print status status
+    local statusColor=string.char(0,128,0)
+    if ((inv46 ~= nil) and (inv46 == "on")) then
+        ws2812.write(string.char(0,0,0):rep(55) .. statusColor:rep(2) .. string.char(0,0,0):rep(5) .. statusColor .. string.char(0,0,0):rep(49))
+    else
+        ws2812.write(string.char(0,0,0):rep(57) .. statusColor .. string.char(0,0,0):rep(5) .. statusColor:rep(2) .. string.char(0,0,0):rep(49))
+    end
+  end
  conn:on("sent", function(conn) 
    if (sentBytes == 0) then
        conn:close() 
@ -32,6 +51,9 @@ function sendPage(conn, nameOfFile, replaceMap)
    local line = file.readline()
    
    while (line ~= nil) do
+         -- increase the amount of sent bytes
+        sentBytes=sentBytes+string.len(line)
+
        -- all placeholder begin with a $, so search for it in the current line
        if (line:find("$") ~= nil) then
            -- Replace the placeholder with the dynamic content
@ -42,10 +64,6 @@ function sendPage(conn, nameOfFile, replaceMap)
                end
            end
        end
-
-        
-        -- increase the amount of sent bytes
-        sentBytes=sentBytes+string.len(line)
        
        buf = buf .. line
        
@ -67,6 +85,13 @@ function sendPage(conn, nameOfFile, replaceMap)
    if (string.len(buf) > 0) then
        conn:send(buf)
        print("Sent rest")
+        -- print status status
+        local statusColor=string.char(128,0,0)
+        if ((inv46 ~= nil) and (inv46 == "on")) then
+            ws2812.write(string.char(0,0,0):rep(55) .. statusColor:rep(2) .. string.char(0,0,0):rep(5) .. statusColor .. string.char(0,0,0):rep(49))
+        else
+            ws2812.write(string.char(0,0,0):rep(57) .. statusColor .. string.char(0,0,0):rep(5) .. statusColor:rep(2) .. string.char(0,0,0):rep(49))
+        end
    end
  end
 end
@ -107,6 +132,14 @@ function fillDynamicMap()
    return replaceMap   
 end

+function readHex(source, variable)
+	local hexColor=string.sub(source, 4)
+	local red = tonumber(string.sub(hexColor, 1, 2), 16)
+	local green = tonumber(string.sub(hexColor, 3, 4), 16)
+	local blue = tonumber(string.sub(hexColor, 5, 6), 16)
+	file.write(variable.."=string.char(" .. green .. "," .. red .. "," .. blue .. ")\n")
+end
+
 function startWebServer()
 srv=net.createServer(net.TCP)
 srv:listen(80,function(conn)
@ -119,10 +152,10 @@ function startWebServer()
    httpSending=true
   if (color == nil) then
        color=string.char(0,128,0)
-    end
-    ws2812.write(string.char(0,0,0):rep(56) .. color:rep(2) .. string.char(0,0,0):rep(4) .. color:rep(2) .. string.char(0,0,0):rep(48))
+    end    
    if (sendPage ~= nil) then
       print("Sending webpage.html (" .. tostring(node.heap()) .. "B free) ...")
+       mydofile("config")
       -- Load the sendPagewebcontent
       replaceMap=fillDynamicMap()
       sendPage(conn, "webpage.html", replaceMap)
@ -156,68 +189,47 @@ function startWebServer()
        file.remove(configFile .. ".new")
        sec, _ = rtctime.get()
        file.open(configFile.. ".new", "w+")
-          file.write("-- Config\n" .. "station_cfg={}\nstation_cfg.ssid=\"" .. _POST.ssid .. "\"\nstation_cfg.pwd=\"" .. _POST.password .. "\"\nstation_cfg.save=false\nwifi.sta.config(station_cfg)\n")
-          file.write("sntpserverhostname=\"" .. _POST.sntpserver .. "\"\n" .. "timezoneoffset=\"" .. _POST.timezoneoffset .. "\"\n".. "inv46=\"" .. tostring(_POST.inv46) .. "\"\n" .. "dim=\"" .. tostring(_POST.dim) .. "\"\n")
+          file.write("-- Config\n" .. "station_cfg={}\nstation_cfg.ssid='" .. urldecode(_POST.ssid) .. "'\nstation_cfg.pwd='" .. urldecode(_POST.password) .. "'\nstation_cfg.save=false\nwifi.sta.config(station_cfg)\n")
+          file.write("sntpserverhostname=\"" .. _POST.sntpserver .. "\"\n" .. "timezoneoffset=\"" .. _POST.timezoneoffset .. "\"\n".. "inv46=nil\n")
        
        if ( _POST.fcolor ~= nil) then
            -- color=string.char(_POST.green, _POST.red, _POST.blue)  
            print ("Got fcolor: " .. _POST.fcolor)
-            local hexColor=string.sub(_POST.fcolor, 4)
-            local red = tonumber(string.sub(hexColor, 1, 2), 16)
-            local green = tonumber(string.sub(hexColor, 3, 4), 16)
-            local blue = tonumber(string.sub(hexColor, 5, 6), 16)
-            file.write("color=string.char(" .. green .. "," .. red .. "," .. blue .. ")\n")
-            -- fill the current values
-            color=string.char(green, red, blue)
+	    readHex(_POST.fcolor, "color")
        end
-        if ( _POST.colorMin1  ~= nil) then
-            local hexColor=string.sub(_POST.colorMin1, 4)
-            local red = tonumber(string.sub(hexColor, 1, 2), 16)
-            local green = tonumber(string.sub(hexColor, 3, 4), 16)
-            local blue = tonumber(string.sub(hexColor, 5, 6), 16)
-            file.write("color1=string.char(" .. green .. "," .. red .. "," .. blue .. ")\n")
-            -- fill the current values
-            color1=string.char(green, red, blue)
+        if ( _POST.mcolor1  ~= nil) then
+	    readHex(_POST.mcolor1, "color1")
        end
-        if ( _POST.colorMin2  ~= nil) then
-            local hexColor=string.sub(_POST.colorMin2, 4)
-            local red = tonumber(string.sub(hexColor, 1, 2), 16)
-            local green = tonumber(string.sub(hexColor, 3, 4), 16)
-            local blue = tonumber(string.sub(hexColor, 5, 6), 16)
-            file.write("color2=string.char(" .. green .. "," .. red .. "," .. blue .. ")\n")
-            -- fill the current values
-            color2=string.char(green, red, blue)
+        if ( _POST.mcolor2  ~= nil) then
+	    readHex(_POST.mcolor2, "color2")
        end
-        if ( _POST.colorMin3  ~= nil) then
-            local hexColor=string.sub(_POST.colorMin3, 4)
-            local red = tonumber(string.sub(hexColor, 1, 2), 16)
-            local green = tonumber(string.sub(hexColor, 3, 4), 16)
-            local blue = tonumber(string.sub(hexColor, 5, 6), 16)
-            file.write("color3=string.char(" .. green .. "," .. red .. "," .. blue .. ")\n")
-            -- fill the current values
-            color3=string.char(green, red, blue)
+        if ( _POST.mcolor3  ~= nil) then
+	    readHex(_POST.mcolor3, "color3")
        end
-        if ( _POST.colorMin4  ~= nil) then
-            local hexColor=string.sub(_POST.colorMin4, 4)
-            local red = tonumber(string.sub(hexColor, 1, 2), 16)
-            local green = tonumber(string.sub(hexColor, 3, 4), 16)
-            local blue = tonumber(string.sub(hexColor, 5, 6), 16)
-            file.write("color4=string.char(" .. green .. "," .. red .. "," .. blue .. ")\n")
-            -- fill the current values
-            color4=string.char(green, red, blue)
+        if ( _POST.mcolor4  ~= nil) then
+	    readHex(_POST.mcolor4, "color4")
        end
        if ( _POST.bcolor  ~= nil) then
            local hexColor=string.sub(_POST.bcolor, 4)
-            local red = tonumber(string.sub(hexColor, 1, 2), 16)
-            local green = tonumber(string.sub(hexColor, 3, 4), 16)
-            local blue = tonumber(string.sub(hexColor, 5, 6), 16)
-            file.write("colorBg=string.char(" .. green .. "," .. red .. "," .. blue .. ")\n")
-            -- fill the current values
-            colorBg=string.char(green, red, blue)
+	    readHex(_POST.bcolor, "colorBg")
        end
        if (getTime ~= nil) then
            time = getTime(sec, timezoneoffset)
            file.write("print(\"Config from " .. time.year .. "-" .. time.month .. "-" .. time.day .. " " .. time.hour .. ":" .. time.minute .. ":" .. time.second .. "\")\n")
+        end
+	    if (_POST.web ~= nil) then
+            file.write("web=true\n")
+            -- fill the current values
+            web=true
+        else
+            file.write("web=nil\n") -- use webserver instead of mqtt or telnet
+            -- fill the current values
+            web=nil
+        end
+        if (_POST.dim ~= nil) then
+            file.write("dim=\"" .. tostring(_POST.dim) .. "\"\n")
+        else
+            file.write("dim=nil\n") -- unset dimming functionality
        end
        if (_POST.threequater ~= nil) then
            file.write("threequater=true\n")
@ -237,6 +249,7 @@ function startWebServer()
            print("Successfully")
 	    local mytimer = tmr.create()
 	    mytimer:register(50, tmr.ALARM_SINGLE, function (t)
+		mydofile("config")
                replaceMap=fillDynamicMap()
                replaceMap["$ADDITIONAL_LINE"]="<h2><font color=\"green\">New configuration saved</font></h2>"
                print("Send success to client")
@ -291,25 +304,5 @@ function startWebServer()

 end

-
-- start the webserver module 
-collectgarbage()
-wifi.setmode(wifi.SOFTAP)
-cfg={}
-cfg.ssid="wordclock"
-cfg.pwd="wordclock"
-wifi.ap.config(cfg)
-
-- Write the buffer to the LEDs
-local color=string.char(0,128,0)
-local white=string.char(0,0,0)
-local ledBuf= white:rep(6) .. color .. white:rep(7) .. color:rep(3) .. white:rep(44) .. color:rep(3) .. white:rep(50)
-ws2812.write(ledBuf)
-color=nil
-white=nil
-ledBuf=nil
-
-print("Waiting in access point >wordclock< for Clients")
-print("Please visit 192.168.4.1")
 startWebServer()
-collectgarbage()
+collectgarbage()
--- a/wordclock.lua
+++ b/wordclock.lua
@ -192,4 +192,4 @@ M = {
    showText = showText
 }
 end
-wc = M
+return M
Author	SHA1	Message	Date
Ollo	eb703a1165	Handle special characters of HTTP POST	2023-04-09 14:33:26 +02:00
Ollo	8001a8e1d4	dim value is set, webserver access is shown via the characters: W E B	2023-03-04 19:21:47 +01:00
Ollo	bf61184217	Stop download on failure during generation	2023-03-04 19:20:41 +01:00
Ollo	a13d74e005	log NTP synchronization	2023-03-02 21:19:32 +01:00
Ollo	d6cc8f73cc	Selected colors are shown in expected position	2023-03-02 20:50:49 +01:00
Ollo	a2df4e3137	Removed heap logging messages	2023-03-02 20:34:07 +01:00
Ollo	6160e00e17	Changed to python3	2023-03-02 20:20:28 +01:00
Ollo	f440ccf684	More cleanup before starting the webserver	2022-12-14 21:18:21 +01:00
Ollo	1755c9ef5a	Telnet server is not started, if webserver is prepared	2022-12-14 20:58:53 +01:00
Ollo	a755a1e5b3	Clear rgb buffer before updating it	2022-12-09 23:47:01 +01:00
Ollo	017aef74f6	Handle checkboxes on webserver	2022-12-09 23:22:27 +01:00
Ollo	689ef10922	Fixed splitting of webpage into several packages	2022-12-09 22:56:07 +01:00
Ollo	ad9beccadc	Websever can be started at runtime	2022-12-09 22:32:40 +01:00
Ollo	db3a1e5e20	All colors can be set via webpage	2022-12-09 22:19:27 +01:00
Ollo	35a802009b	Increase button reaction loop	2022-12-09 21:48:43 +01:00
Ollo	bba21e562b	Merged	2022-12-09 20:48:13 +01:00
Ollo	7e7736e12f	Refactored files to modules	2022-01-23 18:30:46 +01:00
Ollo	e676f6f8cf	Create diet files	2022-01-23 18:29:02 +01:00
Ollo	0b72ed49bf	Removed generated file	2022-01-23 18:07:09 +01:00