From 6cb727c05b7562dd7eb428da8494f09210e3dac0 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Tue, 23 Sep 2008 15:36:59 +0000
Subject: Modified ipsectools to use new libraries and lsp files.

git-svn-id: svn://svn.alpinelinux.org/acf/ipsec-tools/trunk@1483 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 ipsectools-details-html.lsp | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 ipsectools-details-html.lsp

(limited to 'ipsectools-details-html.lsp')

diff --git a/ipsectools-details-html.lsp b/ipsectools-details-html.lsp
new file mode 100644
index 0000000..b16da64
--- /dev/null
+++ b/ipsectools-details-html.lsp
@@ -0,0 +1,41 @@
+<% local data, viewlibrary = ... 
+require("viewfunctions")
+--[[ DEBUG INFORMATION
+io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
+io.write(html.cfe_unpack(data))
+io.write("</span>")
+--]]
+%>
+
+<% viewlibrary.dispatch_component("status") %>
+
+<H2><%= data.label %></H2>
+<DL>
+<%
+if not data.value.show_isakmp or #data.value.show_isakmp.value == 0 then
+	io.write("No status details available")
+else
+	for i,entry in pairs(data.value.show_isakmp.value) do
+		if (type(entry) ==  "table") and (entry.Destination) and (entry.Destination.value) and (#entry.Destination.value > 0) then
+			io.write("<H3><IMG SRC='/skins/static/tango/16x16/status/network-")
+			if (tonumber(entry.St.value) < 9) then
+				io.write("error")
+			else
+				io.write("idle")
+			end
+			io.write(".png' width='16' height='16'> ".. entry.Destination.value .. "</H3>")
+			io.write("<TABLE>\n")
+			local tags = {"Created","Source","Destination", "St", "Phase2details"}
+			for j,tag in pairs(tags) do
+				io.write("<TR><TD STYLE='font-weight:bold;width:120px;border:none;'>" .. 
+					(entry[tag].label or "") .. "</TD><TD STYLE='border:none;'>"..(entry[tag].value or ""))
+				if (entry[tag].descr) and (#entry[tag].descr > 0) then io.write(" (".. entry[tag].descr .. ")") end
+				io.write("</TD></TR>")
+			end
+			io.write("</TABLE>")
+		end
+	end
+end
+--displayitem(data.value.ip_xfrm_policy)
+%>
+</DL>
-- 
cgit v1.2.3