From 9cf197c9ac5226e9ebe142acee231fcef5b8f801 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Mon, 1 Dec 2008 13:47:35 +0000
Subject: Rewrote cron to make it do something.

git-svn-id: svn://svn.alpinelinux.org/acf/alpine-baselayout/trunk@1613 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 cron-listjobs-html.lsp | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 cron-listjobs-html.lsp

(limited to 'cron-listjobs-html.lsp')

diff --git a/cron-listjobs-html.lsp b/cron-listjobs-html.lsp
new file mode 100644
index 0000000..6f21673
--- /dev/null
+++ b/cron-listjobs-html.lsp
@@ -0,0 +1,37 @@
+<% local view, viewlibrary, page_info, session = ... %>
+<% require("viewfunctions") %>
+
+<% displaycommandresults({"editjob", "deletejob"}, session) %>
+<% displaycommandresults({"createjob"}, session, true) %>
+
+<% if viewlibrary and viewlibrary.dispatch_component then
+	viewlibrary.dispatch_component("status")
+end %>
+
+<H1>Cron Jobs</H1>
+<% for i,tabl in ipairs(view.value) do %>
+<H2><%= tabl.period %></H2>
+	<% if #tabl.jobs == 0 then %>
+No jobs
+	<% else %>
+<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">Job</TD>
+	</TR>
+		<% for i,job in ipairs(tabl.jobs) do %>
+	<TR>
+		<TD style="padding-right:20px;white-space:nowrap;">
+			<%= html.link{value=page_info.script..page_info.prefix..page_info.controller.."/editjob?name="..job.."&redir="..page_info.orig_action, label="Edit "} %>
+			<%= html.link{value=page_info.script..page_info.prefix..page_info.controller.."/deletejob?name="..job, label="Delete "} %>
+		</TD>
+		<TD style="white-space:nowrap;"><%= string.gsub(job, "^.*/", "") %></TD>
+	</TR>
+		<% end %>
+</TABLE>
+	<% end %>
+<% end %>
+
+<% if viewlibrary and viewlibrary.dispatch_component and session.permissions.cron.createjob then
+	viewlibrary.dispatch_component("createjob")
+end %>
-- 
cgit v1.2.3