From 693030035ed1152f8ec7144a622e9122c373c026 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Wed, 31 Dec 2008 15:49:13 +0000
Subject: Added postfix controller with basic functionality.

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

(limited to 'postfix-listfiles-html.lsp')

diff --git a/postfix-listfiles-html.lsp b/postfix-listfiles-html.lsp
new file mode 100644
index 0000000..ea54404
--- /dev/null
+++ b/postfix-listfiles-html.lsp
@@ -0,0 +1,39 @@
+<% 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({"expert", "startstop"}, session) %>
+
+<% if viewlibrary and viewlibrary.dispatch_component then
+	viewlibrary.dispatch_component("status")
+end %>
+
+<h1><%= data.label %></h1>
+
+<TABLE>
+	<TR style="background:#eee;font-weight:bold;">
+		<TD style="padding-right:20px;white-space:nowrap;text-align:left;" class="header">File</TD>
+		<TD style="padding-right:20px;white-space:nowrap;text-align:left;" class="header">Size</TD>
+		<TD style="white-space:nowrap;text-align:left;" class="header">Last Modified</TD>
+	</TR>		
+
+
+<% for i,file in ipairs(data.value) do %>
+	<TR>
+		<TD style="padding-right:20px;white-space:nowrap;"><%=  html.link{value = "expert?filename=" .. file.filename.."&redir="..page_info.orig_action, label=file.filename} %></TD>
+		<TD style="padding-right:20px;white-space:nowrap;"><%= file.filesize %></TD>
+		<TD style="white-space:nowrap;" width="90%"><%= file.mtime %></TD>
+	</TR>
+<% end %>
+</TABLE>
+
+<% if viewlibrary and viewlibrary.dispatch_component then
+	viewlibrary.dispatch_component("startstop")
+end %>
-- 
cgit v1.2.3