File manager - Edit - /usr/local/usermin-1.860/gnupg/delkey.cgi
Back
#!/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"); }
| ver. 1.4 |
Github
|
.
| PHP 7.4.33 | Generation time: 0.42 |
proxy
|
phpinfo
|
Settings