JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr#!/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"); }