1 files changed, 38 insertions, 0 deletions
diff --git a/dnscache-status-html.lsp b/dnscache-status-html.lsp
new file mode 100644
index 0000000..c70ea95
--- /dev/null
+++ b/dnscache-status-html.lsp
@@ -0,0 +1,38 @@
+<? 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>
+<? 
+local myform = form.status 
+local tags = { "status", "version", "autostart", }
+displayinfo(myform,tags,"viewonly")
+?>
+</DL>
+
+<H2>PROGRAM SPECIFIC OPTIONS/INFORMATION</H2>
+<DL>
+<? 
+local tags ={ "bgpstats", "iproute", }
+for k,v in pairs(tags) do
+	local myform = form.status[v]
+	if (myform) then
+		io.write("\t<DT")
+		if (#myform.errtxt > 0) then io.write(" class='error'") end
+		io.write(">" .. myform.label .. "</DT>\n")
+		io.write("\t\t<DD>\n")
+		io.write("\t\t<PRE>"..myform.value.."</PRE>\n")
+		io.write("\t\t</DD>\n")
+	end
+end
+?>
+
+</DL>