From 64a4cac9126cb6d79fc243cdb65ae22e6c3d6350 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Tue, 3 Mar 2009 21:55:09 +0000
Subject: Added postgresql first cut.

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

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

diff --git a/postgresql-listfiles-html.lsp b/postgresql-listfiles-html.lsp
new file mode 100644
index 0000000..f94653b
--- /dev/null
+++ b/postgresql-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><%= html.html_escape(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;"><%= html.html_escape(file.filesize) %></TD>
+		<TD style="white-space:nowrap;" width="90%"><%= html.html_escape(file.mtime) %></TD>
+	</TR>
+<% end %>
+</TABLE>
+
+<% if viewlibrary and viewlibrary.dispatch_component then
+	viewlibrary.dispatch_component("startstop")
+end %>
-- 
cgit v1.2.3