<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_ISSUER_LIST_TITLE') %>

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_ISSUER_LIST_DESCRIPTION') %>

<%perl> foreach my $ca (sort keys %{$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", $list->{$ca}->{'identifier'}]], 'label' => $list->{$ca}->{CN} &> <%perl> print " \n"; if ($list->{$ca}->{'status'}) { print " ".i18nGettext('I18N_OPENXPKI_CA_STATUS_USABLE')."\n"; } else { print " ".i18nGettext('I18N_OPENXPKI_CA_STATUS_UNUSABLE')."\n"; } print " \n"; print " ".join (" ", split "T", $list->{$ca}->{'notbefore'})." UTC\n"; print " \n"; print " ".join (" ", split "T", $list->{$ca}->{'notafter'})." UTC\n"; print " \n"; <& /lib/html/a.mhtml, 'target' => "chain_list.html", 'params' => [["identifier", $list->{$ca}->{'identifier'}]], 'label' => $list->{$ca}->{CN} &> <%perl> print "
<%init> my $msg = $context->{client}->send_receive_command_msg ("get_ca_list"); my $list = $msg->{PARAMS}; CA: foreach my $ca (keys %{ $list }) { my $id = $list->{$ca}->{identifier}; if (! defined $id) { delete $list->{$ca}; next CA; } my $msg = $context->{client}->send_receive_command_msg('get_cert', { IDENTIFIER => $id, }, ); my $subject = $msg->{PARAMS}->{BODY}->{SUBJECT}; my $cn = ''; my %dn_hash = OpenXPKI::DN->new($subject)->get_hashed_content(); $cn = $dn_hash{'CN'}->[0]; $list->{$ca}->{CN} = $cn; } <%once> use OpenXPKI::DN;