<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_CRL_LIST_TITLE') %>

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_CRL_LIST_DESCRIPTION') %>

<%perl> foreach my $item (@list) { print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; }
<% i18nGettext('I18N_OPENXPKI_CA_ID') %> <% i18nGettext('I18N_OPENXPKI_CRL_FORMAT') %> <% i18nGettext('I18N_OPENXPKI_CA_STATUS') %> <% i18nGettext('I18N_OPENXPKI_CA_NOTBEFORE') %> <% i18nGettext('I18N_OPENXPKI_CA_NOTAFTER') %>
\n"; <& /lib/html/a.mhtml, 'target' => "../../binary/get_crl.html", 'params' => [["ca_id", $item->{LABEL}], ["filename", $item->{FILENAME}], ["format", $item->{FORMAT}]], 'label' => $item->{LABEL} &> <%perl> print " \n"; print " ".$item->{FORMAT}."\n"; print " \n"; if ($item->{STATUS}) { print " ".i18nGettext('I18N_OPENXPKI_CA_STATUS_USABLE')."\n"; } else { print " ".i18nGettext('I18N_OPENXPKI_CA_STATUS_UNUSABLE')."\n"; } print " \n"; print " ".join (" ", split "T", $item->{NOTBEFORE})." UTC\n"; print " \n"; print " ".join (" ", split "T", $item->{NOTAFTER})." UTC\n"; print "
<%init> my $msg = $context->{client}->send_receive_command_msg ("get_ca_list"); my @list = (); foreach my $ca (sort keys %{$msg->{PARAMS}}) { next if (not $msg->{PARAMS}->{$ca}->{crl_publication}); foreach my $crl (@{$msg->{PARAMS}->{$ca}->{crl_files}}) { push @list, {"LABEL" => $ca, "STATUS" => $msg->{PARAMS}->{$ca}->{status}, "NOTBEFORE" => $msg->{PARAMS}->{$ca}->{notbefore}, "NOTAFTER" => $msg->{PARAMS}->{$ca}->{notafter}, "FILENAME" => $crl->{FILENAME}, "FORMAT" => $crl->{FORMAT} }; } }