From 28804449df1f28067b9eba8475452b5c97b2a1ac Mon Sep 17 00:00:00 2001
From: Luke Stuart <lukestu@gmail.com>
Date: Wed, 10 Aug 2011 15:03:33 +0000
Subject: Weblog Updates including Squark support and revamped analysis.

---
 weblog-listfiles-html.lsp | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 weblog-listfiles-html.lsp

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

diff --git a/weblog-listfiles-html.lsp b/weblog-listfiles-html.lsp
new file mode 100644
index 0000000..c2fe301
--- /dev/null
+++ b/weblog-listfiles-html.lsp
@@ -0,0 +1,42 @@
+<% local view, viewlibrary, page_info, session = ... 
+require("viewfunctions")
+%>
+
+<% displaycommandresults({"editfile", "deletefile", "startstop"}, session) %>
+<% displaycommandresults({"createfile"}, session, true) %>
+
+
+<H1>File List</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="white-space:nowrap;text-align:left;" class="header">File</TD>
+	</TR>
+<% for i,file in ipairs(view.value) do %>
+	<TR>
+		<TD style="padding-right:20px;white-space:nowrap;">
+		<% if viewlibrary.check_permission("editfile") then %>	
+			<%= html.link{value=page_info.script..page_info.prefix..page_info.controller.."/editfile?filename="..file.."&redir="..page_info.orig_action, label="Edit "} %>
+		<% end %>
+		<% if viewlibrary.check_permission("deletefile") then %>	
+			<%= html.link{value=page_info.script..page_info.prefix..page_info.controller.."/deletefile?filename="..file, label="Delete "} %>
+		<% end %>
+		</TD>
+		<TD style="white-space:nowrap;"><%= html.html_escape(file) %></TD>
+	</TR>
+<% end %>
+</TABLE>
+</DL>
+
+<% if viewlibrary and viewlibrary.dispatch_component and viewlibrary.check_permission("createfile") then
+	local createform = viewlibrary.dispatch_component("createfile", nil, true) %>
+<H2><%= html.html_escape(createform.label) %></H2>
+<%
+	createform.action = page_info.script .. page_info.prefix .. page_info.controller .. "/createfile"
+	displayform(createform)
+end %>
+
+<% if viewlibrary and viewlibrary.dispatch_component and viewlibrary.check_permission("startstop") then
+	viewlibrary.dispatch_component("startstop")
+end %>
-- 
cgit v1.2.3