3 # $Id: fetchkey.cgi,v 1.4 2004/11/18 14:23:05 joey Exp $
4 # (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
12 my %config = &Util::ReadConfigFile;
13 for my $key (keys %config) {
19 print "Content-type: text/plain\n\n";
21 my $fp = $query->param('fingerprint');
22 $fp =~ /^([A-Fa-f0-9]+)$/;
26 my $key = &Util::FetchKey($fp, 0);
30 print "Sorry, no key found matching fingerprint $fp\n";
33 print "No fingerprint given\n";