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

Annotation of embedaddon/axTLS/www/lua/overview.lp, revision 1.1.1.1

1.1       misho       1: <?lua
                      2: -- Tries to load known libraries
                      3: for _, t in ipairs { "lxp", "luasql.postgres", "luasql.mysql", "luasql.oci8", "luasql.sqlite", "luasql.odbc", "socket", "xmlrpc", "soap", "lualdap", "logging", "md5", "zip", "stable", "copas", } do
                      4:        pcall (require, t)
                      5: end
                      6: 
                      7: libraries = { "lxp", "luasql", "socket", "xmlrpc", "soap", "lualdap", "logging", "md5", "zip", "stable", "copas", }
                      8: 
                      9: local colors = { "#999999", "#CCCCCC", "#FFFFFF", }
                     10: local i = 0
                     11: function color () i = math.mod (i + 1, 3) return colors[i + 1] end
                     12: 
                     13: function pack_name (p) return string.gsub (p, "^([^.]+).-", "%1") end
                     14: 
                     15: function idx (t, f) return _G[t][f] or _G[t]["_"..f] or "" end
                     16: ?>
                     17: <html>
                     18: <head><title>CGILua installation overview</title></head>
                     19: 
                     20: <body bgcolor="#FFFFFF">
                     21: <h1>CGILua installation overview</h1>
                     22: 
                     23: <table>
                     24:   <tr>
                     25:     <th bgcolor="#999999">Version
                     26:     <th bgcolor="#999999">Copyright
                     27:     <th bgcolor="#999999">Description
                     28:   </tr>
                     29: <?lua
                     30: local support = {
                     31:        { "Lua", "_VERSION" },
                     32:        { "compat-5.1", "_COMPAT51" },
                     33: }
                     34: for _, l in ipairs (support) do bg = color()
                     35: ?>
                     36:   <tr>
                     37:     <td bgcolor = "<%= bg %>"><%= tostring(_G[l[2]]) %>
                     38:     <td bgcolor = "<%= bg %>">
                     39:     <td bgcolor = "<%= bg %>">
                     40:   </tr>
                     41: <? end ?>
                     42:   <tr><td colspan="4"></tr>
                     43: <?lua
                     44: local pack = {}
                     45: for i, p in ipairs (libraries) do
                     46:        local s = _G[p]
                     47:        local n = pack_name(p)
                     48:        if type(_G[n]) == "table" and _G[n]._VERSION then
                     49:                pack[n] = true
                     50:                table.insert (pack, n)
                     51:        end
                     52: end
                     53: table.sort (pack)
                     54: for _, p in ipairs (pack) do bg = color() ?>
                     55:   <tr>
                     56:     <td bgcolor = "<%= bg %>"><%= idx(p,"VERSION") %>
                     57:     <td bgcolor = "<%= bg %>"><small><%= idx(p,"COPYRIGHT") %></small>
                     58:     <td bgcolor = "<%= bg %>"><small><%= idx(p,"DESCRIPTION") %></small>
                     59:   </tr>
                     60: <?lua end ?>
                     61: </table>
                     62: 
                     63: </body>
                     64: </html>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>