File:  [ELWIX - Embedded LightWeight unIX -] / embedaddon / axTLS / www / lua / test_session.lua
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs - revision graph
Fri Sep 28 11:55:55 2012 UTC (11 years, 9 months ago) by misho
Branches: v1_4_8, MAIN
CVS tags: datecs, HEAD
axTLS

cgilua.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 cgi.field then
	if not cgilua.session.data.field then
		cgilua.session.data.field = {}
	end
	table.insert (cgilua.session.data.field, cgi.field)
end
cgilua.htmlheader()
if cgilua.session then
	cgilua.put "cgi = {<br>\n"
	pt (cgi)
	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 (cgi.field or "")
	cgilua.put [["><br>
  <input type="submit"><br>
</form>]]
else
	cgilua.put "Sessions library is not available or not well configured"
end

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>