diff options
author | ivan <ivan> | 2010-11-07 00:56:35 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-11-07 00:56:35 +0000 |
commit | 2d73473ce78c22160b618e93802a9551c9c77d69 (patch) | |
tree | 8d994b6c1ee7deccdd38140f49feb1ecafbc3986 /httemplate/view/svc_cert.cgi | |
parent | 36c606eedba19978d1b5e0e1bf30d3069f28be64 (diff) |
certificates ala communigate, RT#7515
Diffstat (limited to 'httemplate/view/svc_cert.cgi')
-rw-r--r-- | httemplate/view/svc_cert.cgi | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/httemplate/view/svc_cert.cgi b/httemplate/view/svc_cert.cgi new file mode 100644 index 000000000..92902d6d2 --- /dev/null +++ b/httemplate/view/svc_cert.cgi @@ -0,0 +1,34 @@ +<% include('elements/svc_Common.html', + 'table' => 'svc_cert', + 'labels' => \%labels, + #'html_foot' => $html_foot, + 'fields' => \@fields, + ) +%> +<%init> + +my $fields = FS::svc_cert->table_info->{'fields'}; +my %labels = map { $_ => ( ref($fields->{$_}) + ? $fields->{$_}{'label'} + : $fields->{$_} + ); + } + keys %$fields; + +my @fields = ( + { field=>'privatekey', + value=> sub { + my $svc_cert = shift; + if ( $svc_cert->privatekey && $svc_cert->check_privatekey ) { + '<FONT COLOR="#33ff33">Verification OK</FONT>'; + } elsif ( $svc_cert->privatekey ) { + '<FONT COLOR="#ff0000">Verification error</FONT>'; + } else { + '<I>(none)</I>'; + } + }, + }, + qw( organization organization_unit city state country cert_contact ) +); + +</%init> |