summaryrefslogtreecommitdiffstats
path: root/quagga-expert-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'quagga-expert-html.lsp')
-rw-r--r--quagga-expert-html.lsp23
1 files changed, 14 insertions, 9 deletions
diff --git a/quagga-expert-html.lsp b/quagga-expert-html.lsp
index 3f1fedc..4f77e5e 100644
--- a/quagga-expert-html.lsp
+++ b/quagga-expert-html.lsp
@@ -1,7 +1,13 @@
-<? local form = ... ?>
-<?
+<? local form = ...
require("viewfunctions")
?>
+<?
+--[[ DEBUG INFORMATION
+io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
+io.write(html.cfe_unpack(form))
+io.write("</span>")
+--]]
+?>
<H1>SYSTEM INFO</H1>
<DL>
@@ -12,7 +18,6 @@ displayinfo(myform,tags,"viewonly")
?>
</DL>
-
<form name="myform" action="" method="POST">
<h1>CONFIGURATION</h1>
<H2>Expert config</H2>
@@ -39,15 +44,15 @@ displayinfo(myform,tags)
?>
</DL>
-
-<H1>MANAGEMENT</H1>
-<DL>
<?
+-- Management buttons
local myform = form.management
local tags = { "start", "stop", "restart" }
-displaymanagement(myform,tags)
+if (myform) then
+ io.write("<H1>MANAGEMENT</H1>\n<DL>")
+ displaymanagement(myform,tags)
+ io.write("</DL>")
+end
?>
-</DL>
-
</form>