summaryrefslogtreecommitdiffstats
path: root/openssl-html.lsp
blob: 54b4f573a4cba416a4eb2d3b811a49e4e858fa53 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
<? 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 ?>
<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 ?>