1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/env cgilua.cgi
function link_dir (dir, base)
local path = base.."/"..dir
local mode = lfs.attributes (path).mode
if mode == "directory" then
return string.format ('<a href="%s">%s</a>',
cgilua.mkurlpath ("test_fs.lua", { dir = path }),
dir)
else
return dir
end
end
cgilua.htmlheader ()
cgilua.put ("<h1>Testing Filesystem library</h1>\n")
cgilua.put ("<table>\n")
cgilua.put ("<tr><td colspan=2>Testing <b>dir</b></td></tr>\n")
local i = 0
local dir = cgilua.QUERY.dir or "."
for file in lfs.dir (dir) do
i = i+1
cgilua.put ("<tr><td>"..i.."</td><td>"..link_dir(file, dir).."</td></tr>\n")
end
cgilua.put ("</table>\n")
|
