From 008e476ed54a6d9d3050f38dfc445de0cc2bd052 Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Fri, 30 Nov 2007 09:51:20 +0000
Subject: 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
---
 openvpn-client_config-html.lsp | 28 +++++++++++++++++++++++++---
 1 file changed, 25 insertions(+), 3 deletions(-)

(limited to 'openvpn-client_config-html.lsp')

diff --git a/openvpn-client_config-html.lsp b/openvpn-client_config-html.lsp
index ef0bdaf..c2395ca 100644
--- a/openvpn-client_config-html.lsp
+++ b/openvpn-client_config-html.lsp
@@ -4,11 +4,33 @@
 <h1>Client config '<?= view.config.name ?>'</h1>
 
 <? --[[ DEBUG INFORMATION...?>
-<h2>DEUB INFO</h2>
+<span style='color:#D2691E;font-family:courier;'>------------ START DEBUG INFORMATION ------------
+<h3>THIS VIEW CONTAINS THE FOLLOWING VARIABLES/TABLES</h2>
 <?
-for a,b in pairs(view.config) do
-print ("<b>" .. a .. "</b>: >" .. b .. "<<BR>")
+--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>")
 ?>
 <? --]] ?>
 
-- 
cgit v1.2.3