2016-06-19 16:33:02 +02:00
-------------
--- The webpage for the Webserver
function sendWebPage ( conn , answertype )
if ( ssid == nil ) then
ssid = " Not set "
end
if ( sntpserverhostname == nil ) then
sntpserverhostname = " ptbtime1.ptb.de "
end
if ( timezoneoffset == nil ) then
timezoneoffset = 1
end
2016-06-19 22:48:44 +02:00
-- Set the default color, if nothing is set
if ( color == nil ) then
color = string.char ( 0 , 0 , 250 )
end
2016-06-19 16:33:02 +02:00
local buf = " HTTP/1.1 200 OK \n Server: NodeMCU \n Content-Type: text/html \n \n "
if ( node.heap ( ) < 8000 ) then
buf = buf .. " <h1>Busy, please come later again</h1> "
else
buf = buf .. " <html> "
buf = buf .. " <head><title>WordClock Setup Page</title> "
buf = buf .. " </head><body> \n "
2016-06-19 22:48:44 +02:00
buf = buf .. " <h1>Welcome to the WordClock</h1> "
2016-06-19 16:33:02 +02:00
buf = buf .. " <form action= \" \" method= \" POST \" > "
2016-06-19 22:48:44 +02:00
buf = buf .. " <table> "
buf = buf .. " <tr><th>WIFI-SSID</b></th><td><input name= \" ssid \" value= \" " .. ssid .. " \" ></td><td /></tr> "
buf = buf .. " <tr><th>WIFI-Password</th><td><input name= \" password \" ></td><td /></tr> "
buf = buf .. " <tr><th>SNTP Server</th><td><input name= \" sntpserver \" value= \" " .. sntpserverhostname .. " \" ></td><td>ntp server to sync the time</tr> "
2016-06-19 23:09:43 +02:00
buf = buf .. " <tr><th>Offset to UTC time</th><td><input type= \" number \" name= \" timezoneoffset \" value= \" " .. timezoneoffset .. " \" ></td><td>Define the offset to UTC time in hours. E.g +1</tr> "
2016-06-19 22:48:44 +02:00
buf = buf .. " <tr><th>Red</th><td><input type= \" number \" name= \" red \" value= \" " .. string.byte ( color , 1 ) .. " \" ></td><td /></tr> "
buf = buf .. " <tr><th>Green</th><td><input type= \" number \" name= \" green \" value= \" " .. string.byte ( color , 2 ) .. " \" ></td><td /></tr> "
buf = buf .. " <tr><th>Blue</th><td><input type= \" number \" name= \" blue \" value= \" " .. string.byte ( color , 3 ) .. " \" ></td><td>All Colors: 0 - 255</td></tr> "
2016-06-19 23:09:43 +02:00
buf = buf .. " <tr><th>Three quater</th><td><input type= \" checkbox \" name= \" threequater \" " .. ( threequater and " checked " or " " ) .. " ></td><td>Dreiviertel Joa/nei</td></tr> "
2016-06-19 16:33:02 +02:00
buf = buf .. " <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> "
2016-06-19 18:09:33 +02:00
buf = buf .. " <tr><td colspan= \" 3 \" ><div align= \" center \" ><input type= \" submit \" name= \" action \" value= \" Reboot \" ></div></td></tr> "
2016-06-19 16:33:02 +02:00
buf = buf .. " </table></form> "
if answertype == 2 then
buf = buf .. " <h2><font color= \" green \" >New configuration saved</font></h2 \n > "
elseif answertype == 3 then
buf = buf .. " <h2><font color= \" red \" >ERROR</font></h2 \n > "
elseif answertype == 4 then
buf = buf .. " <h2><font color= \" orange \" >Not all parameters set</font></h2 \n > "
end
buf = buf .. " \n </body></html> "
end
conn : send ( buf )
buf = nil
collectgarbage ( )
2016-06-19 22:48:44 +02:00
end
