Add script that shows how arguments are handled by server

This commit is contained in:
Marcos Kirsch 2015-02-22 16:05:35 -06:00
parent 5c1404dcea
commit 5fe2dfcf9d

27
http/args.lua Normal file
View File

@ -0,0 +1,27 @@
return function (connection, args)
connection:send("HTTP/1.0 200 OK\r\nContent-Type: text/html\r\Cache-Control: private, no-store\r\n\r\n")
connection:send('<!DOCTYPE html><html lang="en"><head><meta charset="utf-8"><title>Arguments</title></head>')
connection:send('<body>')
connection:send('<h1>Arguments</h1>')
local form = [===[
<form method="GET">
First name:<br><input type="text" name="firstName"><br>
Last name:<br><input type="text" name="lastName"><br>
<input type="radio" name="sex" value="male" checked>Male<input type="radio" name="sex" value="female">Female<br>
<input type="submit" value="Submit">
</form>
]===]
connection:send(form)
connection:send('<h2>Received the following values:</h2>')
connection:send("<ul>\n")
for name, value in pairs(args) do
if value == nil then value = "nil" end
connection:send('<li><b>' .. name .. ':</b> ' .. value .. "<br></li>\n")
end
connection:send("</ul>\n")
connection:send('</body></html>')
end