added lua test cases

git-svn-id: svn://svn.code.sf.net/p/axtls/code/trunk@128 9a5d90b5-6617-0410-8a86-bb477d3ed2e3

www/lua/test_session.lua

@@ -0,0 +1,43 @@
+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