Refactorisation des dosiers

ZYX-html-framework/web_srv2.lua

@@ -0,0 +1,53 @@
+-- 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)
+
+