diff options
Diffstat (limited to 'httemplate/view/svc_cert.cgi')
-rw-r--r-- | httemplate/view/svc_cert.cgi | 67 |
1 files changed, 66 insertions, 1 deletions
diff --git a/httemplate/view/svc_cert.cgi b/httemplate/view/svc_cert.cgi index 28a269bcc..48494d2d2 100644 --- a/httemplate/view/svc_cert.cgi +++ b/httemplate/view/svc_cert.cgi @@ -83,8 +83,9 @@ my @fields = ( "<TD>$hash{notBefore} - $hash{notAfter}</TD></TR>". '</TABLE>'; + my $svcnum = $svc_cert->svcnum; + if ( $hash{'selfsigned'} ) { - my $svcnum = $svc_cert->svcnum; $out .= qq(<BR> <A HREF="${p}misc/svc_cert-generate.html?action=generate_selfsigned;svcnum=$svcnum">Re-generate self-signed</A>). ' '. include('/elements/popup_link.html', { @@ -113,6 +114,70 @@ my @fields = ( } }, }, + { 'field'=>'cacert', + 'value'=> sub { + my $svc_cert = shift; + if ( $svc_cert->cacert ) { + + my %hash = $svc_cert->check_cacert; + + tie my %w, 'Tie::IxHash', + 'subject' => 'Issued to', + 'issuer' => 'Issued by', + ; + + my $out = '<TABLE><TR><TD>'; + + foreach my $w ( keys %w ) { + + $out .= include('/elements/table-grid.html'). #'<TABLE>'. + '<TR><TH COLSPAN=2 BGCOLOR="#cccccc" ALIGN="center">'. + $w{$w}. '</TH></TR>'; + + my $col = $svc_cert->subj_col; + + my $subj = $hash{$w}; + foreach my $key (keys %$col) { #( keys %$subj ) { + $out .= "<TR><TD>". $labels{$col->{$key}}. "</TD>". + "<TD>". $subj->{$key}. "</TD></TR>"; + } + + $out .= '</TABLE></TD><TD>'; + } + $out .= '</TD></TR></TABLE>'; + + $out .= '<TABLE>'. + '<TR><TH ALIGN="right">Serial number</TH>'. + "<TD>$hash{serial}</TD></TR>". + '<TR><TH ALIGN="right">Valid</TH>'. + "<TD>$hash{notBefore} - $hash{notAfter}</TD></TR>". + '</TABLE>'; + + $out .= '<PRE><FONT STYLE="font-family:monospace">'. + $svc_cert->certificate. + '</FONT><PRE>'; + + $out; + + } else { + + my $svcnum = $svc_cert->svcnum; + + include('/elements/popup_link.html', { + 'action' => $p."edit/svc_cert/import_cacert.html". + "?svcnum=$svcnum", + 'label' => 'Import certificate authority chain',#link + 'actionlabel' => 'Import certificate authority chain',#title + #opt + 'width' => '544', + 'height' => '368', + #'color' => '#ff0000', + }). ' (optional)'. + '<BR>'; + + } + }, + }, ); </%init> |