From 7b53b6cc73de349af77ecd73e00f60a9e679abd2 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Thu, 26 Feb 2009 15:40:33 +0000
Subject: Added fetch-crl ACF.

git-svn-id: svn://svn.alpinelinux.org/acf/fetch-crl/trunk@1709 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 fetchcrl-startstop-html.lsp | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 fetchcrl-startstop-html.lsp

(limited to 'fetchcrl-startstop-html.lsp')

diff --git a/fetchcrl-startstop-html.lsp b/fetchcrl-startstop-html.lsp
new file mode 100644
index 0000000..b28dc97
--- /dev/null
+++ b/fetchcrl-startstop-html.lsp
@@ -0,0 +1,21 @@
+<% local data, viewlibrary, page_info = ... %>
+
+<H1>Management</H1>
+<DL>
+<form action="<%= html.html_escape(page_info.script .. page_info.prefix .. page_info.controller .. "/" .. page_info.action) %>" method="POST">
+<DT>Download CRL</DT>
+<DD><input class="submit" type="submit" name="action" value="Download"></DD>
+<DT>Delete Local CRLs</DT>
+<DD><input class="submit" type="submit" name="action" value="Delete"></DD>
+</form>
+
+<% if data.value.result then %>
+<DT>Previous action result</DT>
+<DD>
+<% if data.value.result.value ~= "" then %>
+<P CLASS='descr'><%= string.gsub(html.html_escape(data.value.result.value), "\n", "<BR>") %></P>
+<% end if data.value.result.errtxt then %>
+<P CLASS='error'><%= string.gsub(html.html_escape(data.value.result.errtxt), "\n", "<BR>") %></P>
+<% end end %>
+</DD>
+</DL>
-- 
cgit v1.2.3