PAL.C.T MINI SHELL
#!/usr/bin/perl
# delkey.cgi
# Delete a key, perhaps after asking for confirmation
require './gnupg-lib.pl';
&ReadParse();
@keys = &list_keys();
$key = $keys[$in{'idx'}];
if ($key->{'secret'} && !$in{'confirm'}) {
# For a secret key, ask the user if he is sure
&ui_print_header(undef, $text{'delkey_title'}, "");
print &ui_confirmation_form("delkey.cgi",
&text('delkey_rusure', $key->{'name'}->[0],
$key->{'email'}->[0]),
[ [ 'idx', $in{'idx'} ] ],
[ [ 'confirm', $text{'delkey_ok'} ] ],
);
&ui_print_footer("list_keys.cgi", $text{'keys_return'},
"", $text{'index_return'});
}
else {
# Just do it
&delete_key($key);
&redirect("list_keys.cgi");
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`