JFIF x x C
C "
} !1AQa"q2#BR$3br
%&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz
w !1AQaq"2B #3Rbr#!/usr/bin/perl
# send.cgi
# Send a key to the keyserver
require './gnupg-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'send_title'}, "");
@keys = &list_keys();
$key = $keys[$in{'idx'}];
print &text('send_desc', $key->{'name'}->[0],
"$config{'keyserver'}"),"\n";
$cmd = "$gpgpath --keyserver ".quotemeta($config{'keyserver'}).
" --send-key ".quotemeta($key->{'key'});
$out = &backquote_command("$cmd 2>&1");
if ($?) {
print "
",&text('send_failed', "
$out
"),"\n";
}
else {
print "
$text{'send_success'}
\n";
}
&ui_print_footer("list_keys.cgi", $text{'keys_return'},
"", $text{'index_return'});