From 7675a3125618bad993398d89e2ef91eb238c8bc3 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Fri, 29 Aug 2008 17:48:19 +0000
Subject: Added config to fetchmail to configure globals and multiple entries. 
 Also added ability to run once and test.  Still need support for ETRN and
 SSL.

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

(limited to 'fetchmail-listentries-html.lsp')

diff --git a/fetchmail-listentries-html.lsp b/fetchmail-listentries-html.lsp
new file mode 100644
index 0000000..2b2e54e
--- /dev/null
+++ b/fetchmail-listentries-html.lsp
@@ -0,0 +1,40 @@
+<% local data, viewlibrary, page_info, session = ... 
+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>")
+--]]
+%>
+
+<% displaycommandresults({"deleteentry"}, session) %>
+
+<h1>Edit/View Fetchmail Entries</h1>
+<DL>
+<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="padding-right:20px;white-space:nowrap;text-align:left;" class="header">Entry</TD>
+		<TD style="padding-right:20px;white-space:nowrap;text-align:left;" class="header">Enabled</TD>
+		<TD style="white-space:nowrap;text-align:left;" class="header">Method</TD>
+	</TR>		
+<% for i,entry in ipairs(data.value) do %>
+	<TR>
+		<TD style="padding-right:20px;white-space:nowrap;">
+			<% io.write(html.link{value = "editentry?entry=" .. entry.entry, label="Edit " }) %>
+			<% io.write(html.link{value = "deleteentry?entry=" .. entry.entry, label="Delete " }) %>
+		</TD>
+		<TD style="padding-right:20px;white-space:nowrap;"><%= entry.entry %></TD>
+		<TD style="padding-right:20px;white-space:nowrap;"><%= entry.enabled %></TD>
+		<TD style="white-space:nowrap;" width="90%"><%= entry.method %></TD>
+	</TR>
+<% end %>
+</TABLE>
+
+<DT>Add new entry</DT>
+<DD><form action="<%= page_info.script .. page_info.prefix .. page_info.controller .. "/createentry" %>" method="POST">
+<input type=submit value="New" class="submit">
+</form></DD>
+</DL>
-- 
cgit v1.2.3