[BACK]Return to test_main.lua CVS log [TXT] [DIR] Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / axTLS / www / lua

Annotation of embedaddon/axTLS/www/lua/test_main.lua, revision 1.1

1.1     ! misho       1: cgilua.htmlheader()
        !             2: cgilua.put[[
        !             3: <html>
        !             4: <head><title>Script Lua Test</title></head>
        !             5: 
        !             6: <body>
        !             7: cgi = {
        !             8: ]]
        !             9: 
        !            10: for i,v in pairs (cgi) do
        !            11:        if type(v) == "table" then
        !            12:                local vv = "{"
        !            13:                for a,b in pairs(v) do
        !            14:                        vv = string.format ("%s%s = %s<br>\n", vv, a, tostring(b))
        !            15:                end
        !            16:                v = vv.."}"
        !            17:        end
        !            18:        cgilua.put (string.format ("%s = %s<br>\n", i, tostring(v)))
        !            19: end
        !            20: cgilua.put "}<br>\n"
        !            21: cgilua.put ("Remote address: "..cgilua.servervariable"REMOTE_ADDR")
        !            22: cgilua.put "<br>\n"
        !            23: cgilua.put ("Is persistent = "..tostring (SAPI.Info.ispersistent).."<br>\n")
        !            24: cgilua.put ("ap="..tostring(ap).."<br>\n")
        !            25: cgilua.put ("lfcgi="..tostring(lfcgi).."<br>\n")
        !            26: 
        !            27: -- Checking Virtual Environment
        !            28: local my_output = cgilua.put
        !            29: cgilua.put = nil
        !            30: local status, err = pcall (function ()
        !            31:        assert (cgilua.put == nil, "cannot change cgilua.put value")
        !            32: end)
        !            33: cgilua.put = my_output
        !            34: assert (status == true, err)
        !            35: 
        !            36: -- Checking require
        !            37: local status, err = pcall (function () require"unknown_module" end)
        !            38: assert (status == false, "<tt>unknown_module</tt> loaded!")
        !            39: -- assert (package == nil, "Access to <tt>package</tt> table allowed!")
        !            40: 
        !            41: cgilua.put[[
        !            42: <p>
        !            43: </body>
        !            44: </html>
        !            45: ]]
        !            46: cgilua = nil
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>