<%args> $type => undef $secret => undef $passwd => undef $part => undef

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_SET_SECRET_TITLE') %>

<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_API_SET_SECRET_DESCRIPTION') %>

<& /service/open_form.mhtml &> <& /lib/html/hidden.mhtml, 'name' => 'type', 'value' => $type &> <& /lib/html/hidden.mhtml, 'name' => 'secret', 'value' => $secret &> % if ($type eq "plain") { % }
<% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_TABLE_HEAD_NAME') %> <% i18nGettext('I18N_OPENXPKI_CLIENT_HTML_MASON_TABLE_HEAD_VALUE') %>
<% i18nGettext('I18N_OPENXPKI_SET_SECRET_PART_NUMBER') %> <& /lib/html/input.mhtml, name => 'part' &>
<% i18nGettext('I18N_OPENXPKI_SET_SECRET_PASSWD') %> <& /lib/html/input.mhtml, name => 'passwd', type => 'password' &>
<& /service/send_form.mhtml &> <& /service/close_form.mhtml &> <%init> if (defined $passwd and length $passwd) { ## somebody entered data into the form my %params = ("SECRET" => $secret, "VALUE" => $passwd); $params{PART} = $part if (defined $part and length $part); my $msg = $context->{client}->send_receive_command_msg ( "set_secret_part", \%params); if ($msg->{SERVICE_MSG} eq "ERROR") { print "

".$msg->{LIST}->[0]->{LABEL}."

\n"; print "

".$msg->{LIST}->[0]->{PARAMS}->{ERROR}."

\n"; return 1; } return $m->comp ('key_list.html'); }