Continuing to work on openssl. Not done yet.

git-svn-id: svn://svn.alpinelinux.org/acf/openssl/trunk@1127 ab2d0c66-481e-0410-8bed-d214d4d58bed

1 files changed, 27 insertions, 2 deletions

diff --git a/openssl-html.lsp b/openssl-html.lsp
index 60f659a..54b4f57 100644
--- a/openssl-html.lsp
+++ b/openssl-html.lsp
@@ -7,18 +7,43 @@ 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 ?>
+<? else ?>
+<TABLE>
+	<TR style="background:#eee;font-weight:bold;">
+		<? if session.permissions.openssl.approve then ?>
+			<TD style="padding-right:20px;white-space:nowrap;" class="header">Approve</TD>
+		<? end ?>
+		<TD style="padding-right:20px;white-space:nowrap;" class="header">User</TD>
+		<TD style="padding-right:20px;white-space:nowrap;" class="header">Cert Type</TD>
+		<TD style="white-space:nowrap;" class="header">Common Name</TD>
+	<? for i,request in ipairs(view.value.pending.value) do ?>
+		<TR>
+		<? if session.permissions.openssl.approve then ?>
+			<TD><?= html.link{value="approve?request="..request.name, label="Approve"} ?></TD>
+		<? end ?>
+		<TD><?= request.user ?></TD>
+		<TD><?= request.certtype ?></TD>
+		<TD><?= request.commonName ?></TD>
+		</TR>
+	<? end ?>
+</TABLE>
+<? 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
+	for i,name in ipairs(view.value.approved.value) do
+		io.write(name..'<br>')
+	end
 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
+	for i,name in ipairs(view.value.revoked.value) do
+		io.write(name..'<br>')
+	end
 end ?>