local view, viewlibrary, pageinfo, session = ... ?>
--[[ DEBUG INFORMATION
io.write(html.cfe_unpack(view))
--]] ?>
if view.value.cmdresult then ?>
Command Result
= string.gsub(view.value.cmdresult.value, "\n", "
") ?>
end ?>
Pending certificate requests if view.value.user then?> for = view.value.user.value ?> end ?>
if not view.value.pending or #view.value.pending.value == 0 then ?>
No certificates pending
else ?>
for i,request in ipairs(view.value.pending.value) do ?>
if session.permissions.openssl.viewrequest then
io.write(html.link{value="viewrequest?request="..request.name, label="View "})
end ?>
if session.permissions.openssl.approve then
io.write(html.link{value="approve?request="..request.name, label="Approve "})
end ?>
if session.permissions.openssl.deleterequest then
io.write(html.link{value="deleterequest?request="..request.name, label="Delete "})
end ?>
|
= request.user ?> |
= request.certtype ?> |
= request.commonName ?> |
end ?>
end ?>
local reverserevoked = {}
if view.value.revoked then
for i,serial in ipairs(view.value.revoked.value) do
reverserevoked[serial] = i
end
end ?>
Approved certificate requests if view.value.user then?> for = view.value.user.value ?> end ?>
if not view.value.approved or #view.value.approved.value == 0 then ?>
No certificates approved
else ?>
for i,cert in ipairs(view.value.approved.value) do ?>
if not reverserevoked[cert.serial] then ?>
if session.permissions.openssl.viewcert then ?>
= html.link{value="viewcert?cert="..cert.name, label="View "} ?>
end ?>
if session.permissions.openssl.getcert then ?>
= html.link{value="getcert?cert="..cert.name, label="Download "} ?>
end ?>
if session.permissions.openssl.revoke then ?>
= html.link{value="revoke?cert="..cert.name, label="Revoke "} ?>
end ?>
if session.permissions.openssl.deletecert then ?>
= html.link{value="deletecert?cert="..cert.name, label="Delete "} ?>
end ?>
|
= cert.user ?> |
= cert.certtype ?> |
= cert.commonName ?> |
= cert.serial ?> |
end ?>
end ?>
end ?>
Revoked certificates if view.value.user then?> for = view.value.user.value ?> end ?>
if not view.value.revoked or #view.value.revoked.value == 0 then ?>
No certificates revoked
else ?>
for i,cert in ipairs(view.value.approved.value) do ?>
if reverserevoked[cert.serial] then ?>
= cert.user ?> |
= cert.certtype ?> |
= cert.commonName ?> |
= cert.serial ?> |
end ?>
end ?>
end ?>
if session.permissions.openssl.getrevoked then ?>
Get revoked list (crl)
= html.link{value="getrevoked?crltype=PEM", label="Download PEM "} ?>
= html.link{value="getrevoked?crltype=DER", label="Download DER "} ?>
= html.link{value="getrevoked", label="Import to Firefox"} ?>
end ?>