summaryrefslogtreecommitdiffstats
path: root/shorewall-edit-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'shorewall-edit-html.lsp')
-rw-r--r--shorewall-edit-html.lsp42
1 files changed, 32 insertions, 10 deletions
diff --git a/shorewall-edit-html.lsp b/shorewall-edit-html.lsp
index 98c4abe..86d5507 100644
--- a/shorewall-edit-html.lsp
+++ b/shorewall-edit-html.lsp
@@ -2,8 +2,40 @@
<html>
<body>
+
<h1>Edit configuration</h1>
+<? --[[ DEBUG INFORMATION...?>
+<span style='color:#D2691E;font-family:courier;'>------------ START DEBUG INFORMATION ------------
+<h3>THIS VIEW CONTAINS THE FOLLOWING VARIABLES/TABLES</h2>
+<?
+--print ("<span style='color:darkblue;font-family:courier;'>")
+for a,b in pairs(view) do
+ if not (type(b) == "table") then
+ print ("<b>" .. a .. "</b>: ><span2 style='color:black'>" .. b .. "</span2><<BR>")
+ else
+ print ("<b>" .. a .. "</b>:...<BR>")
+ for c,d in pairs(view[a]) do
+ if not (type(d) == "table") then
+ print ("<b> { " .. c .. "</b>: ><span2 style='color:black'>" .. d .. "</span2>< <B> }</B><BR>")
+ else
+ print ("<b> { " .. c .. "</b>:...<BR>")
+ for e,f in pairs(view[a][c]) do
+ if not (type(f) == "table") then
+ print ("<b> { { " .. e .. "</b>: ><span2 style='color:black'>" .. f .. "</span2>< <B> } }</B><BR>")
+ else
+ print ("<b> { { " .. e .. "</b>:... (table is not visible at the moment)<BR>")
+ end
+ end
+ end
+ end
+ end
+a,b,c,d,e,f,g,h,i,j = nil,nil,nil,nil,nil,nil,nil,nil,nil,nil
+end
+print ("------------ END DEBUG INFORMATION ------------</span>")
+?>
+<? --]] ?>
+
<h2>Details</h2>
<dt>File name</dt>
@@ -23,16 +55,6 @@
<input type="submit" name="cmd" value="update"><p class="error"><?= view.filecontent.errtxt ?></p></form>
-<? --[[ DEBUG INFORMATION...?>
-<h2>DEUB INFO</h2>
-<?
-for a,b in pairs(view.filecontent) do
-print (a,b .. "<BR>")
-end
-?>
-<? --]] ?>
-
-
</body>
</html>