Mon serveur WEB ASP commence à fonctionner, je ne suis pas très content car pour l'instant c'est mono-tâche à cause des variables globales

This commit is contained in:
Christian Zufferey
2019-01-27 14:15:04 +01:00
parent 4220e224b5
commit 9d328ead2c
2 changed files with 19 additions and 7 deletions

View File

@@ -15,7 +15,8 @@
La température est:
<%
zout(ztemp.."oC")
ztemp=ztemp+1
zout(ztemp.."°C")
%>
<br>Mais il fait encore trop froid !<br>

View File

@@ -1,9 +1,16 @@
-- petit script de serveur WEB avec Active Server Page ZYX
print("\n web_srv2.lua zf190127.1127 \n")
print("\n web_srv2.lua zf190127.1340 \n")
ztemp=12
-- send a file from memory to the client; max. line length = 1024 bytes!
function send_file(zclient, zfilename)
zzclient=zclient
function zout(zstring)
zzclient:send(zstring)
end
if zfilename == "" then zfilename = "index.html" end
if file.open(zfilename, "r") then
repeat
@@ -11,14 +18,18 @@ function send_file(zclient, zfilename)
if line then
if string.find(line, "<%%") then
print("start lua...")
lua_code = true
flag_lua_code = true
lua_code = ""
elseif string.find(line, "%%>") then
print("stop lua...")
lua_code = false
elseif lua_code then
print(line)
flag_lua_code = false
print("Et voici le code lua inline:\n"..lua_code)
loadstring(lua_code)() --on exécute ici le code lua inline !
elseif flag_lua_code then
-- print(line)
lua_code =lua_code..line
else
zclient:send(line)
zout(line)
end
end
until not line