1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#!/usr/bin/env cgilua.cgi
cgilua.session = require"cgilua.session"
cgilua.session.setsessiondir"/tmp/"
cgilua.session.enablesession ()
function pt (tab)
for i, v in pairs (tab) do
local vv = v
if type(v) == "table" then
vv = ""
for _i, _v in pairs (v) do
vv = vv..string.format ("%s = %q, ", _i, _v)
end
vv = '{'..vv..'}'
end
cgilua.put (string.format ("%s = %s<br>\n", tostring (i), tostring (vv)))
end
end
if cgilua.POST.field then
if not cgilua.session.data.field then
cgilua.session.data.field = {}
end
table.insert (cgilua.session.data.field, cgilua.POST.field)
end
cgilua.htmlheader()
if cgilua.session then
cgilua.put "cgilua.POST = {<br>\n"
pt (cgilua.POST)
cgilua.put "}<br>\n"
cgilua.put "cgilua.session.data = {<br>\n"
pt (cgilua.session.data)
cgilua.put "}<br>\n"
cgilua.put [[<form action="]]
cgilua.put (cgilua.mkurlpath"test_session.lua")
cgilua.put [[" method="POST">
field: <input type="text" name="field" value="]]
cgilua.put (cgilua.POST.field or "")
cgilua.put [["><br>
<input type="submit"><br>
</form>]]
else
cgilua.put "Sessions library is not available or not well configured"
end
|
