<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_ISSUER_LIST_TITLE') %>

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_ISSUER_LIST_DESCRIPTION') %>

<%perl> foreach my $ca (@list) { print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; }
<% i18nGettext('I18N_OPENXPKI_HTML_COMMON_NAME') %> <% i18nGettext('I18N_OPENXPKI_CA_STATUS') %> <% i18nGettext('I18N_OPENXPKI_CERT_NOTBEFORE') %> <% i18nGettext('I18N_OPENXPKI_CERT_NOTAFTER') %> <% i18nGettext('I18N_OPENXPKI_CA_CHAIN') %>
\n"; <& /lib/html/a.mhtml, 'target' => "ca_cert_info.html", 'params' => [["identifier", $ca->{'IDENTIFIER'}]], 'label' => $ca->{CN} &> <%perl> print " ". i18nGettext($ca->{'STATUS'}) ."\n"; print $ca->{'NOTBEFORE'}; print " \n"; print $ca->{'NOTAFTER'}; print " \n"; <& /lib/html/a.mhtml, 'target' => "chain_list.html", 'params' => [["identifier", $ca->{'IDENTIFIER'}]], 'label' => $ca->{CN} &> <%perl> print "
<%init> my $msg = $context->{client}->send_receive_command_msg ("get_ca_list"); my @list; foreach my $ca ( @{ $msg->{PARAMS} } ) { my %dn_hash = OpenXPKI::DN->new( $ca->{SUBJECT} )->get_hashed_content(); my $cn = $dn_hash{'CN'}->[0]; $ca->{CN} = $cn; my $dt = DateTime->from_epoch(epoch => $ca->{'NOTBEFORE'}); $ca->{'NOTBEFORE'} = $dt->strftime("%Y-%m-%d %H:%M:%S UTC"); $dt = DateTime->from_epoch(epoch => $ca->{'NOTAFTER'}); $ca->{'NOTAFTER'} = $dt->strftime("%Y-%m-%d %H:%M:%S UTC"); push @list, $ca; } <%once> use OpenXPKI::DN; use DateTime;