3 # $Id: fetchkey.cgi,v 1.2 1999/09/26 01:20:39 tausq Exp $
4 # (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
11 my %config = &Util::ReadConfigFile;
14 print "Content-type: text/plain\n\n";
16 my $fp = $query->param('fingerprint');
19 my $key = &Util::FetchKey($fp);
23 print "Sorry, no key found matching fingerprint $fp\n";
26 print "No fingerprint given\n";