webServer.lua

local sendHttpResponse = require("sendHttpResponse")

     
local unescape = function (s)
   s = string.gsub(s, "+", " ")
   s = string.gsub(s, "%%(%x%x)", function (h)
         return string.char(tonumber(h, 16))
      end)
   return s
end

-- Small footprint webserver to serve files from flash
local function webServer(connection, request)
    local match = request:match("GET / ")

    -- Default to index.html if no file specified
    if match then
        match = "index.html"
    else
        match = request:match("/(%w*%.%w*)")
    end
   
        local _, _, method, path, vars = string.find(request, "([A-Z]+) (.+)?(.+) HTTP");
           if(method == nil)then
               _, _, method, path = string.find(request, "([A-Z]+) (.+) HTTP")
           end
           local _GET = {}
           if (vars ~= nil)then
               for k, v in string.gmatch(vars, "(%w+)=([^%&]+)&*") do
                   _GET[k] = unescape(v)
               end
           end
           
         --  print(_GET.ap)
         --  print(_GET.key)
           if (_GET.key ~= nil and _GET.ap ~= nil) then
              connection:send("Saving wifi confiuguration..")
              file.open("wifiSettings.lua", "w")
              file.writeline('local wifiSettings = {}')

              file.writeline('wifiSettings.ssid = "' .. _GET.ap .. '"')
              file.writeline('wifiSettings.key = "' .. _GET.key .. '"')
              if (_GET.ip ~= nil) then
                file.writeline('wifiSettings.ip = "' .. _GET.ip .. '"')
              end
              if (_GET.nm ~= nil) then
                file.writeline('wifiSettings.netmask = "' .. _GET.nm .. '"')
              end
              if (_GET.gw ~= nil) then
                file.writeline('wifiSettings.gateway = "' .. _GET.gw .. '"')  
              end
              file.writeline('return wifiSettings')
              file.close()
              node.compile("wifiSettings.lua")
              file.remove("wifiSettings.lua")
              
              tmr.delay(1000 * 1000)
              node.restart()
           end

           if (_GET.pwmFreq ~= nil) then
              connection:send("Saving PWM configuration..")
              file.open("pwmSettings.lua", "w")
              file.writeline('local pwmSettings = {}')
              file.writeline('pwmSettings.pwmFreq = "' .. _GET.pwmFreq .. '"')
              file.writeline('return pwmSettings')
              file.close()
              node.compile("pwmSettings.lua")
              file.remove("pwmSettings.lua")
              node.restart();
           end

    if match then
        local fileSize = file.list()[match]

        if fileSize == nil or string.sub(match, -4) == ".lua"
        or string.sub(match, -3) == ".lc" or string.sub(match, -4) == ".conf" then
            sendHttpResponse(connection, "File not found")
        else
            connection:send("HTTP/1.1 200 OK\r\nConnection: close\r\nContent-Type: text/html; charset=ISO-8859-4\r\nContent-Length: " .. fileSize .. "\r\n\r\n")

            file.open(match, "r")
            local usableMemory = node.heap() / 4
            if usableMemory > 1024 then usableMemory = 1024 end
            local contents = file.read(usableMemory)

            while contents ~= nil do
                connection:send(contents)
                contents = file.read(usableMemory)
            end

            file.close()
            return true
        end
    end

    return false
end

return webServer