<%args> $identifier => undef

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_CHAIN_LIST_TITLE') %>

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_CHAIN_LIST_DESCRIPTION') %>

<& /lib/html/a.mhtml, 'target' => "../../binary/get_chain.html", 'params' => [["identifier", $identifier]], 'label' => i18nGettext('I18N_OPENXPKI_DOWNLOAD_CHAIN') &>

<%perl> foreach my $ca (sort keys %list) { print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; }
<% i18nGettext('I18N_OPENXPKI_CERT_SUBJECT') %> <% i18nGettext('I18N_OPENXPKI_CERT_NOTBEFORE') %> <% i18nGettext('I18N_OPENXPKI_CERT_NOTAFTER') %>
\n"; <& /lib/html/a.mhtml, 'target' => "ca_cert_info.html", 'params' => [["identifier", $ca]], 'label' => $list{$ca}->{BODY}->{SUBJECT} &> <%perl> print " \n"; print " ".join (" ", split "T", $list{$ca}->{BODY}->{NOTBEFORE})." UTC\n"; print " \n"; print " ".join (" ", split "T", $list{$ca}->{BODY}->{NOTAFTER})." UTC\n"; print "
<%init> my $msg = $context->{client}->send_receive_command_msg ( "get_chain", {'START_IDENTIFIER' => $identifier}); my $complete = $msg->{PARAMS}->{COMPLETE}; my %list = (); foreach my $ca (@{$msg->{PARAMS}->{IDENTIFIERS}}) { $msg = $context->{client}->send_receive_command_msg ( 'get_ca_cert', {'IDENTIFIER' => $ca}); $list{$ca} = $msg->{PARAMS}; }