abhinav
/
yobutton


			
				
					
						
						
							1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798
							function broadcastAP()
  SETUP = true
  wifi.sta.disconnect()
  debugMsg("WiFi disconnected")
  wifi.setmode(wifi.STATIONAP)
  stationConfig = {}
  stationConfig.ssid = "YoButtonSetup"
  stationConfig.pwd = "password"
  stationConfig.auth = wifi.OPEN
  wifi.ap.config(stationConfig)
  wifi.ap.dhcp.start()
  debugMsg("Wifi station + access point")
end

function updateWiFiCreds(payload)
      ssidIndex = {payload:find("newssid=")}
      passIndex = {payload:find("&newpass=")}
      recipientIndex = {payload:find("&newrecipient=")}
      submitIndex = {payload:find("&Submit=")}

      if(ssidIndex[1]~=nil and payload:find("?")~=nil) then
        wifi.setmode(wifi.STATION)

        debugMsg(ssidIndex[1]..", "..ssidIndex[2])
        debugMsg(passIndex[1]..", "..passIndex[2])
        debugMsg(recipientIndex[1]..", "..recipientIndex[2])
        debugMsg(submitIndex[1]..", "..submitIndex[2])
        newssid = string.gsub(string.sub(payload, ssidIndex[2]+1, passIndex[1]-1), "+", " ")
        newpassword = string.gsub(string.sub(payload, passIndex[2]+1, recipientIndex[1]-1), "+", " ")
        newrecipient = string.upper(string.sub(payload, recipientIndex[2]+1, submitIndex[1]-1))
        debugMsg(newssid)
        debugMsg(newpassword)
        debugMsg(newrecipient)
        wifi.sta.config(newssid, newpassword)
        file.open("yorecipient.txt", "w+")
        file.write(newrecipient)
        file.close()
      end
      SETUP = false -- currently: attempts to send Yos regardless of connection status, as long as form is submitted
end

function serveFile(c, f)
  
end

function setupServerResponses()
  if(srv~=nil) then
    srv:close()
    srv=nil
  end
  srv=net.createServer(net.TCP)
  srv:listen(80,function(conn)
    conn:on("receive",function(conn,payload)
      debugMsg("request received")
      ind = {string.find(payload, "\n")}
      if(ind[1] ~= nil)then
        payload = string.sub(payload, 1, ind[1])
      end
      --payload is reduced to the first line
      debugMsg(payload)
      updateWiFiCreds(payload)

      file.open("yorecipient.txt", "r")
      recipient = string.gsub(file.readline(), "\n", "", 1)
      file.close()

      ssid, password = wifi.sta.getconfig()
      ip = wifi.sta.getip()
      if(ip==nil) then
        ip="0.0.0.0"
      end

      conn:send("<body><h1>YO Button setup</h1>"
      .."Current wifi SSID: <br>"
      .."<input type=\"text\" value=\""..ssid .."\" readonly><br>"
      .."Current wifi password: <br>"
      .."<input type=\"text\" value=\""..password .."\" readonly><br>"
      .."Yo Button's IP address: <br>"
      .."<input type=\"text\" value=\""..ip.."\" readonly><br>"
      .."Yo recipient: <br>"
      .."<input type=\"text\" value=\""..recipient.."\" readonly><br>"
      .."<form>New SSID: <br>"
      .."<input type=\"text\" name=\"newssid\" value=\""..ssid .."\"><br>"
      .."New password: <br>"
      .."<input type=\"text\" name=\"newpass\" value=\""..password .."\"><br>"
      .."New recipient: <br>"
      .."<input type=\"text\" name=\"newrecipient\" value=\""..recipient.."\"><br>"
      .."<input type=\"submit\" name=\"Submit\">"
      .."</form></body>")
    end)
    conn:on("sent", function(conn)
                      conn:close()
                    end)
  end)
end

broadcastAP()
setupServerResponses()