weblocal

-- v12345vtm youtube https://youtu.be/MzH8zR34x0Y
--http://www.instructables.com/editInstructable/publish/EDRHQW8IG415EAG


-----uart mode
uart.setup(0,9600,8,0,1)


-- Your Wifi  connection data
local SSID = "yourSSID"
local SSID_PASSWORD = "yourSSIDpassword"
local rtctijd = "15:50"

local var1 = "initvar1"
local var2 = "initvar2"
local var3 = "initvar3"


local function connect (conn, data)
webcode=" ";
webcode = webcode .. "<html>"
webcode = webcode .. "<body>"
webcode = webcode .. "<br><hr>"
webcode = webcode .. " <form method=\"get\"> "
webcode = webcode .. "p1,ssid: <input type=\"text\" name=\"p1\"  value=\"".. var1.."\"><br>"
webcode = webcode .. "p2,passw: <input type=\"text\" name=\"p2\"  value=\"".. var2.."\"  ><br> "
webcode = webcode .. "p3,time: <input type=\"text\" name=\"p3\"  value=\"".. var3.."\"  ><br> "
webcode = webcode .. "<input type=\"submit\" value=\"SET\"> <INPUT TYPE=\"button\" onClick=\"history.go(0)\" VALUE=\"GET\"></form> "
webcode = webcode .. "</body>"
webcode = webcode .. "</html>"

conn:on ("receive",function (cn, req_data)

--print("wat is dat hier")
 print (req_data)
--  print("staat er hier iet boven")


if string.match(req_data, "p1") then


positiep1 = string.find(req_data, "p1")
positiep2 = string.find(req_data, "p2")
positiep3 = string.find(req_data, "p3")
positieEnd = string.find(req_data, "HTTP/")

valuep1 =  (string.sub(req_data, positiep1+3, positiep2-2))
valuep2 = (string.sub(req_data, positiep2+3 , positiep3-2))
valuep3 = (string.sub(req_data, positiep3+3 , positieEnd-2))
 uart.write (0, valuep1 , "\r\n")
 uart.write (0, valuep2 , "\r\n")
uart.write (0, valuep3 , "\r\n")  -- = time-15-10-23-12-27-35-4

var1 = valuep1
var2 = valuep2
var3 = valuep3 --webfomtijd opslaan

else
--  print ("geen data in form ingevuld gewest of de browser vroeg zijn favicon.ico daarnet ook nog")
end
        cn:send (webcode)
         -- Close the connection for the request
         cn:close ( )

      end)
end


function wait_for_wifi_conn ( )
   tmr.alarm (1, 1000, 1, function ( )
      if wifi.sta.getip ( ) == nil then
         print ("Waiting for Wifi connection")
      else
         tmr.stop (1)
         print ("ESP8266 mode is: " .. wifi.getmode ( ))
         print ("The module MAC address is: " .. wifi.ap.getmac ( ))
         print ("Config done, IP is " .. wifi.sta.getip ( ))
         ---gpio.write(led1, gpio.HIGH)
      end
   end)
end


-- Configure the ESP as a station (client)
wifi.setmode (wifi.STATION)
wifi.sta.config (SSID, SSID_PASSWORD)
wifi.sta.autoconnect (1)

-- Hang out until we get a wifi connection before the httpd server is started.
wait_for_wifi_conn ( )

-- Create the httpd server
svr = net.createServer (net.TCP, 30)

-- Server listening on port 80, call connect function if a request is received
svr:listen (80, connect)


print ("uart.setup(0,9600,8,0,1) finished")
print ("waiting for serial data....")