-- petit script de serveur WEB avec Active Server Page ZYX print("\n web_srv2.lua zf190127.1045 \n") -- send a file from memory to the client; max. line length = 1024 bytes! function send_file(zclient, zfilename) if zfilename == "" then zfilename = "index.html" end if file.open(zfilename, "r") then repeat local line=file.read('\n') if line then zclient:send(line) end until not line file.close() else zclient:send("

"..zfilename.." not found - 404 error

Home
") end end srv = net.createServer() 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(client, file_html) end end) conn:on("sent", function(c) c:close() end) end)