[freeside-commits] freeside/httemplate/view svc_cert.cgi,1.1,1.2
Ivan,,,
ivan at wavetail.420.am
Sat Nov 6 22:30:13 PDT 2010
Update of /home/cvs/cvsroot/freeside/httemplate/view
In directory wavetail.420.am:/tmp/cvs-serv31979/httemplate/view
Modified Files:
svc_cert.cgi
Log Message:
certificates ala communigate, RT#7515
Index: svc_cert.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/view/svc_cert.cgi,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- svc_cert.cgi 7 Nov 2010 00:56:35 -0000 1.1
+++ svc_cert.cgi 7 Nov 2010 05:30:11 -0000 1.2
@@ -28,7 +28,46 @@
}
},
},
- qw( organization organization_unit city state country cert_contact )
+ qw( common_name organization organization_unit city state country cert_contact
+ ),
+ { 'field'=>'csr',
+ 'value'=> sub {
+ my $svc_cert = shift;
+ if ( $svc_cert->csr ) { #display the subject etc?
+ '<FONT STYLE="font-family:monospace"><PRE>'. $svc_cert->csr.
+ '</PRE></FONT>';
+ } elsif ( $svc_cert->common_name ) {
+ my $svcnum = $svc_cert->svcnum;
+ qq(<A HREF="${p}misc/svc_cert-generate.html?action=generate_csr;svcnum=$svcnum">Generate</A>);
+ } else {
+ '';
+ }
+ },
+ },
+ { 'field'=>'certificate',
+ 'value'=> sub {
+ my $svc_cert = shift;
+ if ( $svc_cert->certificate ) {
+
+ my %hash = $svc_cert->check_certificate;
+ my $out = '<TABLE>'; #XXX better formatting
+ foreach my $key ( keys %hash ) {
+ $out .= "<TR><TD>$key</TD><TD>$hash{$key}</TD></TR>";
+ }
+ $out .= '</TABLE>';
+
+ $out .= '<FONT STYLE="font-family:monospace"><PRE>'.
+ $svc_cert->certificate.
+ '</PRE></FONT>';
+ $out;
+ } elsif ( $svc_cert->csr ) {
+ my $svcnum = $svc_cert->svcnum;
+ qq(<A HREF="${p}misc/svc_cert-generate.html?action=generate_selfsigned;svcnum=$svcnum">Generate self-signed</A>);
+ } else {
+ '';
+ }
+ },
+ },
);
</%init>
More information about the freeside-commits
mailing list