%args> $secret => undef $doit => undef %args>
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_CLEAR_SECRET_DESCRIPTION') %>
<& /service/open_form.mhtml &> <& /lib/html/hidden.mhtml, 'name' => 'secret', 'value' => $secret &> <& /lib/html/hidden.mhtml, 'name' => 'doit', 'value' => '1' &> <& /service/send_form.mhtml &> <& /service/close_form.mhtml &> <%init> if (defined $doit and $doit) { ## somebody submitted the form # protect against XSRF by checking for $__session_id (see # /service/workflow/activity/autohandler for details) if (! $m->request_args()->{'__session_id'}) { die "This looks like XSRF to me ..."; } my $msg = $context->{client}->send_receive_command_msg ( "clear_secret", {SECRET => $secret}); if ($msg->{SERVICE_MSG} eq "ERROR") { print "".$msg->{LIST}->[0]->{PARAMS}->{ERROR}."
\n"; return 1; } return $m->comp ('key_list.html'); } %init>