#!/usr/bin/perl -wT
-# $Id: fetchkey.cgi,v 1.3 2004/11/18 14:22:04 joey Exp $
+# $Id: fetchkey.cgi,v 1.4 2004/11/18 14:23:05 joey Exp $
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
use lib '.';
print "Content-type: text/plain\n\n";
my $fp = $query->param('fingerprint');
+$fp =~ /^([A-Fa-f0-9]+)$/;
+$fp = $1;
if ($fp) {
my $key = &Util::FetchKey($fp, 0);