JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr#!/usr/bin/perl # recv.cgi # Fetch a key from the keyserver require './gnupg-lib.pl'; &ReadParse(); &ui_print_header(undef, $text{'recv_title'}, ""); $in{'id'} =~ s/^0x//i; print "

",&text('recv_desc', $in{'id'}, "$config{'keyserver'}"),"

\n"; ($ok, $msg) = &fetch_gpg_key($in{'id'}); if ($ok == 1 || $ok == 3) { print "

",&text('recv_failed', "

$msg
"),"

\n"; } elsif ($ok == 2) { print "

",&text('recv_same', $msg->{'name'}->[0]),"

\n"; } else { print "

",&text('recv_success', $msg->{'name'}->[0]),"

\n"; } if ($in{'return'}) { &ui_print_footer($in{'return'}, $in{'returnmsg'}); } else { &ui_print_footer("list_keys.cgi", $text{'keys_return'}, "", $text{'index_return'}); }