<%args> $heading => 1 > <% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_KEY_LIST_TITLE') %> >

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_KEY_LIST_DESCRIPTION') %>

<%perl> foreach my $secret (sort keys %secrets) { print " \n"; print " \n"; if ($secrets{$secret}->{STATUS}) { print " \n"; print " \n"; } else { print " \n"; print " \n"; } print " \n"; }
<% i18nGettext('I18N_OPENXPKI_SECRET_LABEL') %> <% i18nGettext('I18N_OPENXPKI_SECRET_STATUS') %> <% i18nGettext('I18N_OPENXPKI_SECRET_ACTION') %>
".i18nGettext($secrets{$secret}->{LABEL})."".i18nGettext('I18N_OPENXPKI_SECRET_COMPLETE')."\n"; $m->comp ('/lib/html/a.mhtml', 'target' => $context->{menu}->get_root() . "/service/api/clear_secret.html", 'params' => [["secret", $secret]], 'label' => i18nGettext('I18N_OPENXPKI_SECRET_LOGOUT_LINK_LABEL')); print " ".i18nGettext('I18N_OPENXPKI_SECRET_INCOMPLETE')."\n"; $m->comp ('/lib/html/a.mhtml', 'target' => $context->{menu}->get_root() . "/service/api/set_secret.html", 'params' => [["secret", $secret], ["type", $secrets{$secret}->{TYPE}]], 'label' => i18nGettext('I18N_OPENXPKI_SECRET_LOGIN_LINK_LABEL')); print "
<%init> my $msg = $context->{client}->send_receive_command_msg ("get_secrets"); my %secrets = (); foreach my $secret (keys %{$msg->{PARAMS}}) { my $msg_s = $context->{client}->send_receive_command_msg ("is_secret_complete", {SECRET => $secret}); $secrets{$secret}->{STATUS} = $msg_s->{PARAMS}; $secrets{$secret}->{LABEL} = $msg->{PARAMS}->{$secret}->{LABEL}; $secrets{$secret}->{TYPE} = $msg->{PARAMS}->{$secret}->{TYPE}; }