blob: 0e997a2d57b11bb4b3a2b7153bf4f6cb1a6e8bef (
plain)
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
|
cgilua.htmlheader()
cgilua.put[[
<html>
<head><title>Script Lua Test</title></head>
<body>
cgi = {
]]
for i,v in pairs (cgi) do
if type(v) == "table" then
local vv = "{"
for a,b in pairs(v) do
vv = string.format ("%s%s = %s<br>\n", vv, a, tostring(b))
end
v = vv.."}"
end
cgilua.put (string.format ("%s = %s<br>\n", i, tostring(v)))
end
cgilua.put "}<br>\n"
cgilua.put ("Remote address: "..cgilua.servervariable"REMOTE_ADDR")
cgilua.put "<br>\n"
cgilua.put ("Is persistent = "..tostring (SAPI.Info.ispersistent).."<br>\n")
cgilua.put ("ap="..tostring(ap).."<br>\n")
cgilua.put ("lfcgi="..tostring(lfcgi).."<br>\n")
-- Checking Virtual Environment
local my_output = cgilua.put
cgilua.put = nil
local status, err = pcall (function ()
assert (cgilua.put == nil, "cannot change cgilua.put value")
end)
cgilua.put = my_output
assert (status == true, err)
-- Checking require
local status, err = pcall (function () require"unknown_module" end)
assert (status == false, "<tt>unknown_module</tt> loaded!")
-- assert (package == nil, "Access to <tt>package</tt> table allowed!")
cgilua.put[[
<p>
</body>
</html>
]]
cgilua = nil
|
