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