summaryrefslogtreecommitdiffstats
path: root/shorewall-status-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'shorewall-status-html.lsp')
-rw-r--r--shorewall-status-html.lsp51
1 files changed, 35 insertions, 16 deletions
diff --git a/shorewall-status-html.lsp b/shorewall-status-html.lsp
index 12b2a98..2dc6a2c 100644
--- a/shorewall-status-html.lsp
+++ b/shorewall-status-html.lsp
@@ -1,26 +1,45 @@
-<? local view = ... ?>
+<? local form = ... ?>
-<h1>SYSTEM INFO</h1>
+<?
+function informationform(myform,tags)
+ io.write("<DL>")
+ for k,v in pairs(tags) do
+ if (myform[v]) then
+ local val = myform[v]
+ io.write("\t<DT")
+ if (#val.errtxt > 0) then io.write(" class='error'") end
+ io.write(">" .. val.label .. "</DT>\n")
-<DL>
-<dt>Program status</dt>
-<DD><?= view.status.status ?></DD>
-</DL>
+ io.write("\t\t<DD>" .. val.value .. "\n")
+ if (val.descr) and (#val.descr > 0) then io.write("\t\t<P CLASS='descr'>" .. string.gsub(val.descr, "\n", "<BR>") .. "</P>\n") end
+ if (#val.errtxt > 0) then io.write("\t\t<P CLASS='error'>" .. string.gsub(val.errtxt, "\n", "<BR>") .. "</P>\n") end
+ io.write("\t\t</DD>\n")
+ end
+ end
+ io.write("</DL>")
+end
+?>
-<DL>
-<dt>Program version</dt>
-<dd><?= view.status.version ?></dd>
-</DL>
+<H1>SYSTEM INFO</H1>
+<?
+local myform = form.status
+local tags = { "status", "version", }
+informationform(myform,tags)
+?>
<H2>PROGRAM SPECIFIC OPTIONS/INFORMATION</H2>
-<DL>
-<dt>Program reports</dt>
-<dd><?= view.status.state ?></dd>
-</DL>
+<?
+local myform = form.status
+local tags = { "state", }
+informationform(myform,tags)
+?>
+
<?
--[[ DEBUG INFORMATION
-require("debugs")
-io.write(debugs.variables(view))
+io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
+io.write(html.cfe_unpack(form))
+io.write("</span>")
--]]
?>
+