<% 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_CA_ID') %> <% 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' => $ca &> <%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' => $ca &> <%perl> print "
<%init> my $msg = $context->{client}->send_receive_command_msg ("get_ca_list"); my $list = $msg->{PARAMS};