-- petit script de serveur WEB avec Active Server Page Zyx

print("\n web_srv2.lua   zf190126.1658   \n")

-- send a file from memory to the client; max. line length = 1024 bytes!
function send_file(client, filename)
  if file.open(filename, "r") then
    repeat
      local line=file.read('\n')
      if line then
        client:send(line)
      end
    until not line    
    file.close()
  end
end

srv = net.createServer(net.TCP)
srv:listen(80, function(conn)
  conn:on("receive", function(client, request)
     _, _, method, path, vars = string.find(request, "([A-Z]+) (.+)?(.+) HTTP")

    print("\n\nweb_srv debug")
    print("request: \n---\n"..request.."---")
    print("method: ",method)
    print("path: ",path)
    print("vars: ",vars)

    if not string.find(request, "/favicon.ico") then
        print("coucou")
        if (method == nil) then
         _, _, method, path = string.find(request, "([A-Z]+) (.+) HTTP")
        end
        _GET = {}
        if (vars ~= nil) then
          for k, v in string.gmatch(vars, "(%w+)=(%w+)&*") do
            _GET[k] = v
            print(k..": "..v)
          end
        end
        file_html=string.gsub(path, "/", "")
        print("file_html: ",file_html)

        send_file(conn, file_html)
        
--        conn:send("<h1> ESP8266<BR>Server is working!</h1>\n\n")
        
    end
  end)
  conn:on("sent", function(c) c:close() end)
end)