From 337584d2a16c3a22551ab31c6eff7beb1c942815 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Thu, 26 Jun 2008 19:16:25 +0000
Subject: Rewrite of DNScache.

git-svn-id: svn://svn.alpinelinux.org/acf/dnscache/trunk@1262 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 dnscache-listdomains-html.lsp | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 dnscache-listdomains-html.lsp

(limited to 'dnscache-listdomains-html.lsp')

diff --git a/dnscache-listdomains-html.lsp b/dnscache-listdomains-html.lsp
new file mode 100644
index 0000000..9c7ba20
--- /dev/null
+++ b/dnscache-listdomains-html.lsp
@@ -0,0 +1,34 @@
+<? 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>")
+--]]
+?>
+
+<h1>Configuration</h1>
+<h2>Edit/View DNS server entries</h2>
+<TABLE>
+	<TR style="background:#eee;font-weight:bold;">
+		<TD style="padding-right:20px;white-space:nowrap;text-align:left;" class="header">Action</TD>
+		<TD style="white-space:nowrap;text-align:left;" class="header">Domain</TD>
+	</TR>		
+<? for i,domain in ipairs(data.value) do ?>
+	<TR>
+		<TD style="padding-right:20px;white-space:nowrap;">
+			<? io.write(html.link{value = "editdomain?domain=" .. domain, label="Edit " }) ?>
+			<? if domain ~= "@" then 
+				io.write(html.link{value = "deletedomain?domain=" .. domain, label="Delete " })
+			end ?>
+		</TD>
+		<TD style="white-space:nowrap;" width="90%"><?= domain ?></TD>
+	</TR>
+<? end ?>
+</TABLE>
+
+<? if viewlibrary and viewlibrary.dispatch_component then
+	viewlibrary.dispatch_component("createdomain")
+end ?>
-- 
cgit v1.2.3