summaryrefslogtreecommitdiffstats
path: root/openvpn-read-html.lsp
diff options
context:
space:
mode:
authorMika Havela <mika.havela@gmail.com>2007-11-30 09:51:20 +0000
committerMika Havela <mika.havela@gmail.com>2007-11-30 09:51:20 +0000
commit008e476ed54a6d9d3050f38dfc445de0cc2bd052 (patch)
tree6c12ea469022896071d1ea8a80e1150ba3071910 /openvpn-read-html.lsp
parent4914226cda432c9d865b83dd116ecce005182e26 (diff)
downloadacf-openvpn-008e476ed54a6d9d3050f38dfc445de0cc2bd052.tar.bz2
acf-openvpn-008e476ed54a6d9d3050f38dfc445de0cc2bd052.tar.xz
Adding debuginfo for further programming and make config-edit function.
git-svn-id: svn://svn.alpinelinux.org/acf/openvpn/trunk@394 ab2d0c66-481e-0410-8bed-d214d4d58bed
Diffstat (limited to 'openvpn-read-html.lsp')
-rw-r--r--openvpn-read-html.lsp33
1 files changed, 33 insertions, 0 deletions
diff --git a/openvpn-read-html.lsp b/openvpn-read-html.lsp
index 58c079d..75215ef 100644
--- a/openvpn-read-html.lsp
+++ b/openvpn-read-html.lsp
@@ -3,6 +3,39 @@
<html>
<body>
<h1>Welcome</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>Available configs</h2>
<TABLE BORDER=0 WIDTH="100%">
<TR style="background:#eee;font-weight:bold;vertical-align:top;">