--
-- Simple NodeMCU web server (done is a not so nodeie fashion :-)
--
-- Highly modified by Bruce Meacham, based on work by Scott Beasley 2015
-- Open and free to change and use. Enjoy. [Beasley/Meacham 2015]
--
-- Meacham Update: I streamlined/improved the parsing to focus on simple HTTP GET request and their simple parameters
--  Also added the code to drive a servo/light.  Comment out as you see fit.
--
-- Usage: 
--  Change SSID and SSID_PASSPHRASE for your wifi network
--  Download to NodeMCU
--  node.compile("http_server.lua")
--  dofile("http_server.lc")
--  When the server is esablished it will output the IP address.
--  	http://{ip address}/?s0=1200&light=1
--  s0 is the servo position (actually the PWM hertz), 500 - 2000 are all good values
--   light chanel high(1)/low(0), some evaluation boards have LEDs pre-wired in a "pulled high" confguration, so '0' ground the emitter and turns it on backwards.
-- 
--  Add to init.lua if you want it to autoboot.
--

-- Your Wifi connection data
local SSID = "YOUR WIFI SSID"
local SSID_PASSWORD = "YOUR SSID PASSPHRASE"

-- General setup
local pinLight = 2 -- this is GPIO4
gpio.mode(pinLight,gpio.OUTPUT)
gpio.write(pinLight,gpio.HIGH)

servo = {}
servo.pin = 4 --this is GPIO2
servo.value = 1500
servo.id = "servo"
gpio.mode(servo.pin, gpio.OUTPUT)
gpio.write(servo.pin, gpio.LOW)

-- This alarm drives the servo
tmr.alarm(0,10,1,function() -- 50Hz 
    if servo.value then -- generate pulse
        gpio.write(servo.pin, gpio.HIGH)
        tmr.delay(servo.value)
        gpio.write(servo.pin, gpio.LOW)
    end
end)

local function connect (conn, data)
   local query_data

   conn:on ("receive",
   	function (cn, req_data)
	  params = get_http_req (req_data)
         cn:send("HTTP/1.1 200/OK\r\nServer: NodeLuau\r\nContent-Type: text/html\r\n\r\n")
	  cn:send ("<h1>ESP8266 Servo &amp; Light Server</h1>\r\n")
	  if (params["light"] ~= nil) then
	         if ("0" == params["light"]) then
	         	gpio.write(pinLight, gpio.LOW)
	         else
			gpio.write(pinLight, gpio.HIGH)	         
	         end
         end
         
         if (params["s0"] ~= nil) then
         	servo.value = tonumber(params["s0"]);
         end

	  -- Close the connection for the request
         cn:close ( )
      end)
end

-- Build and return a table of the http request data
function get_http_req (instr)
	local t = {}
	local str = string.sub(instr, 0, 200)
	local v = string.gsub(split(str, ' ')[2], '+', ' ')
	parts = split(v, '?')
	local params = {}
	if (table.maxn(parts) > 1) then
		for idx,part in ipairs(split(parts[2], '&'))  do
			parmPart = split(part, '=')
			params[parmPart[1]] = parmPart[2]
		end
	end
	return params
end

-- Source: http://lua-users.org/wiki/MakingLuaLikePhp
-- Credit: http://richard.warburton.it/
function split(str, splitOn)
    if (splitOn=='') then return false end
    local pos,arr = 0,{}
    for st,sp in function() return string.find(str,splitOn,pos,true) end do
        table.insert(arr,string.sub(str,pos,st-1))
        pos = sp + 1
    end
    table.insert(arr,string.sub(str,pos))
    return arr
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.
tmr.alarm (1, 800, 1, function ( )
  if wifi.sta.getip ( ) == nil then
     print ("Waiting for Wifi connection")
  else
     tmr.stop (1)
     print ("Config done, IP is " .. wifi.sta.getip ( ))
  end
end)

-- 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)