summaryrefslogtreecommitdiffstats
path: root/openssl-status-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'openssl-status-html.lsp')
-rw-r--r--openssl-status-html.lsp18
1 files changed, 16 insertions, 2 deletions
diff --git a/openssl-status-html.lsp b/openssl-status-html.lsp
index a49b7ac..37d45fc 100644
--- a/openssl-status-html.lsp
+++ b/openssl-status-html.lsp
@@ -1,4 +1,4 @@
-<? local view, viewlibrary = ... ?>
+<? local view, viewlibrary, pageinfo, session = ... ?>
<? require("viewfunctions") ?>
<? --[[ DEBUG INFORMATION
@@ -10,5 +10,19 @@ io.write(html.cfe_unpack(view))
<? displayitem(view.value.version) ?>
<? displayitem(view.value.conffile) ?>
<? displayitem(view.value.cacert) ?>
-<? displayitem(view.value.cacertcontents) ?>
+<? displayitem(view.value.cakey) ?>
</DL>
+
+<? if not view.value.cacert.errtxt and not view.value.cakey.errtxt then ?>
+<H1>CA Certificate contents</H1>
+<pre><?= view.value.cacertcontents.value ?></pre>
+<? elseif not view.value.version.errtxt and not view.value.conffile.errtxt then
+ if viewlibrary and viewlibrary.dispatch_component then
+ if session.permissions.openssl.putcacert then
+ viewlibrary.dispatch_component("putcacert")
+ end
+ if session.permissions.openssl.generatecacert then
+ viewlibrary.dispatch_component("generatecacert")
+ end
+ end
+end ?>