From af360b084b8b5c787a0141cba65191d13e2a4aa4 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Fri, 16 May 2008 16:07:43 +0000
Subject: Saving incomplete openssl pages

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

(limited to 'openssl-html.lsp')

diff --git a/openssl-html.lsp b/openssl-html.lsp
new file mode 100644
index 0000000..60f659a
--- /dev/null
+++ b/openssl-html.lsp
@@ -0,0 +1,24 @@
+<? local view, viewlibrary, pageinfo, session = ... ?>
+
+<? --[[ DEBUG INFORMATION
+io.write(html.cfe_unpack(view))
+--]] ?>
+
+<H1>Pending certificate requests<? if view.value.user then?> for <?= view.value.user.value ?><? end ?></H1>
+<? if not view.value.pending or #view.value.pending.value == 0 then ?>
+	No certificates pending
+<? else
+end ?>
+	
+<H1>Approved certificate requests<? if view.value.user then?> for <?= view.value.user.value ?><? end ?></H1>
+<? if not view.value.approved or #view.value.approved.value == 0 then ?>
+	No certificates approved
+<? else
+end ?>
+	
+<H1>Revoked certificates<? if view.value.user then?> for <?= view.value.user.value ?><? end ?></H1>
+<? if not view.value.revoked or #view.value.revoked.value == 0 then ?>
+	No certificates revoked
+<? else
+end ?>
+
-- 
cgit v1.2.3