jimoconnell · February 12, 2017 21:05 · vishalishere · May 9, 2016 · hbouzas · Jul 2, 2016
diff --git a/init.lua b/init.lua
 --http://www.instructables.com/id/ESP8266-based-web-configurable-wifi-general-purpos-1/
 --Code by HoracioBouzas, formatted for use with ESPlorer by jimoconnell
 print("WIFI control");
 -- put module in AP mode
 wifi.setmode(wifi.SOFTAP);
 print("ESP8266 mode is: " .. wifi.getmode());
 cfg={};
 -- Set the SSID of the module in AP mode and access password
 cfg.ssid="ESP8266";
 cfg.pwd="passwordpassword";
 if ssid and password then
 print("ESP8266 SSID is: " .. cfg.ssid .. " and PASSWORD is: " .. cfg.password);
 end;
 -- Now you should see an SSID wireless router named ESP_STATION when you scan for available WIFI networks
 -- Lets connect to the module from a computer of mobile device. So, find the SSID and connect using the password selected
 wifi.ap.config(cfg);
 ap_mac = wifi.ap.getmac();
 -- create a server on port 80 and wait for a connection, when a connection is coming in function c will be executed
 sv=net.createServer(net.TCP,30);
 sv:listen(80,function(c)
 c:on("receive", function(c, pl)
 -- print the payload pl received from the connection
 print(pl);
 print(string.len(pl));
 -- wait until SSID comes back and parse the SSID and the password
 print(string.match(pl,"GET"));
 ssid_start,ssid_end=string.find(pl,"SSID=");
 if ssid_start and ssid_end then
 amper1_start, amper1_end =string.find(pl,"&", ssid_end+1);
 if amper1_start and amper1_end then
 http_start, http_end =string.find(pl,"HTTP/1.1", ssid_end+1);
 if http_start and http_end then
 ssid=string.sub(pl,ssid_end+1, amper1_start-1);
 password=string.sub(pl,amper1_end+10, http_start-2);
 print("ESP8266 connecting to SSID: " .. ssid .. " with PASSWORD: " .. password);
 if ssid and password then
 sv:close();
 -- close the server and set the module to STATION mode
 wifi.setmode(wifi.STATIONAP);
 print("ESP8266 mode now is: " .. wifi.getmode());
 -- configure the module wso it can connect to the network using the received SSID and password
 wifi.sta.config(ssid,password);
 print("Setting up ESP8266 for station mode…Please wait.");
 --tmr.delay(10000000);
 --print("ESP8266 STATION IP now is: " .. wifi.sta.getip());
 --print("ESP8266 AP IP now is: " .. wifi.ap.getip());
 -- now the module is configured and connected to the network so lets start setting things up for the control logic
 gpio.mode(8,gpio.OUTPUT);
 gpio.mode(9,gpio.OUTPUT);
 tmr.delay(10) ;
 gpio.write(8,gpio.HIGH);
 tmr.delay(10);
 gpio.write(8,gpio.LOW);
 sv=net.createServer(net.TCP, 30) ;
 sv:listen(9999,function(c)
 c:on("receive", function(c, pl)
 if tonumber(pl) ~= nil then
 if tonumber(pl) >= 1 and tonumber(pl) <= 16 then
 print(tonumber(pl));
 tmr.delay(10);
 gpio.write(8,gpio.HIGH);
 tmr.delay(10);
 gpio.write(8,gpio.LOW);
 for count =1,tonumber(pl) do
 print(count);
 tmr.delay(10) ;
 gpio.write(9,gpio.LOW);
 tmr.delay(10);
 gpio.write(9,gpio.HIGH);
 c:send("Sequence finished") ;
 end;
 end;
 end;
 --print("ESP8266 STATION IP now is: " .. new_ip);
 --c:send("ESP8266 STATION IP now is: " .. new_ip) ;
 c:send("Action completed") ;
 end);
 end);
 end;
 end;
 end;
 end;
 -- this is the web page that requests the SSID and password from the user
 c:send("<!DOCTYPE html> ")
 c:send("<html> ")
 c:send("<body> ")
 c:send("<h1>ESP8266 Wireless control setup</h1>")
 mac_mess1 = "The module MAC address is: " .. ap_mac
 mac_mess2 = "You will need this MAC address to find the IP address of the module, please take note of it."
 c:send("<h2>" .. mac_mess1 .. "</h2>")
 c:send("<h2>" .. mac_mess2 .. "</h2>")
 c:send("<h2>Enter SSID and Password for your WIFI router</h2>")
 c:send("</form> </html>")
 c:send("<form action='' method='get'>")
 c:send("SSID:")
 c:send("<input type='text' name='SSID' value='' maxlength='100'/>")
 c:send("<br/>")
 c:send("Password:")
 c:send("<input type='text' name='Password' value='' maxlength='100'/>")
 c:send("<input type='submit' value='Submit' />")
 end);
 end);
	--http://www.instructables.com/id/ESP8266-based-web-configurable-wifi-general-purpos-1/
	--Code by HoracioBouzas, formatted for use with ESPlorer by jimoconnell
	print("WIFI control");
	-- put module in AP mode
	wifi.setmode(wifi.SOFTAP);
	print("ESP8266 mode is: " .. wifi.getmode());
	cfg={};
	-- Set the SSID of the module in AP mode and access password
	cfg.ssid="ESP8266";
	cfg.pwd="passwordpassword";
	if ssid and password then
	print("ESP8266 SSID is: " .. cfg.ssid .. " and PASSWORD is: " .. cfg.password);
	end;
	-- Now you should see an SSID wireless router named ESP_STATION when you scan for available WIFI networks
	-- Lets connect to the module from a computer of mobile device. So, find the SSID and connect using the password selected
	wifi.ap.config(cfg);
	ap_mac = wifi.ap.getmac();
	-- create a server on port 80 and wait for a connection, when a connection is coming in function c will be executed
	sv=net.createServer(net.TCP,30);
	sv:listen(80,function(c)
	c:on("receive", function(c, pl)
	-- print the payload pl received from the connection
	print(pl);
	print(string.len(pl));
	-- wait until SSID comes back and parse the SSID and the password
	print(string.match(pl,"GET"));
	ssid_start,ssid_end=string.find(pl,"SSID=");
	if ssid_start and ssid_end then
	amper1_start, amper1_end =string.find(pl,"&", ssid_end+1);
	if amper1_start and amper1_end then
	http_start, http_end =string.find(pl,"HTTP/1.1", ssid_end+1);
	if http_start and http_end then
	ssid=string.sub(pl,ssid_end+1, amper1_start-1);
	password=string.sub(pl,amper1_end+10, http_start-2);
	print("ESP8266 connecting to SSID: " .. ssid .. " with PASSWORD: " .. password);
	if ssid and password then
	sv:close();
	-- close the server and set the module to STATION mode
	wifi.setmode(wifi.STATIONAP);
	print("ESP8266 mode now is: " .. wifi.getmode());
	-- configure the module wso it can connect to the network using the received SSID and password
	wifi.sta.config(ssid,password);
	print("Setting up ESP8266 for station mode…Please wait.");
	--tmr.delay(10000000);
	--print("ESP8266 STATION IP now is: " .. wifi.sta.getip());
	--print("ESP8266 AP IP now is: " .. wifi.ap.getip());
	-- now the module is configured and connected to the network so lets start setting things up for the control logic
	gpio.mode(8,gpio.OUTPUT);
	gpio.mode(9,gpio.OUTPUT);
	tmr.delay(10) ;
	gpio.write(8,gpio.HIGH);
	tmr.delay(10);
	gpio.write(8,gpio.LOW);
	sv=net.createServer(net.TCP, 30) ;
	sv:listen(9999,function(c)
	c:on("receive", function(c, pl)
	if tonumber(pl) ~= nil then
	if tonumber(pl) >= 1 and tonumber(pl) <= 16 then
	print(tonumber(pl));
	tmr.delay(10);
	gpio.write(8,gpio.HIGH);
	tmr.delay(10);
	gpio.write(8,gpio.LOW);
	for count =1,tonumber(pl) do
	print(count);
	tmr.delay(10) ;
	gpio.write(9,gpio.LOW);
	tmr.delay(10);
	gpio.write(9,gpio.HIGH);
	c:send("Sequence finished") ;
	end;
	end;
	end;
	--print("ESP8266 STATION IP now is: " .. new_ip);
	--c:send("ESP8266 STATION IP now is: " .. new_ip) ;
	c:send("Action completed") ;
	end);
	end);
	end;
	end;
	end;
	end;
	-- this is the web page that requests the SSID and password from the user
	c:send("<!DOCTYPE html> ")
	c:send("<html> ")
	c:send("<body> ")
	c:send("<h1>ESP8266 Wireless control setup</h1>")
	mac_mess1 = "The module MAC address is: " .. ap_mac
	mac_mess2 = "You will need this MAC address to find the IP address of the module, please take note of it."
	c:send("<h2>" .. mac_mess1 .. "</h2>")
	c:send("<h2>" .. mac_mess2 .. "</h2>")
	c:send("<h2>Enter SSID and Password for your WIFI router</h2>")
	c:send("</form> </html>")
	c:send("<form action='' method='get'>")
	c:send("SSID:")
	c:send("<input type='text' name='SSID' value='' maxlength='100'/>")
	c:send("<br/>")
	c:send("Password:")
	c:send("<input type='text' name='Password' value='' maxlength='100'/>")
	c:send("<input type='submit' value='Submit' />")
	end);
	end);