X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=blobdiff_plain;f=fetchkey.cgi;h=d2d5881378b87694dff53f437ad2bf65a02b7b7a;hp=11257c5a509ed4f7ba81a68a12983e456feddf59;hb=HEAD;hpb=9d15404b25430911d40ae7973359a48dac718df2

diff --git a/fetchkey.cgi b/fetchkey.cgi
index 11257c5..d2d5881 100755
--- a/fetchkey.cgi
+++ b/fetchkey.cgi
@@ -1,6 +1,6 @@
 #!/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 '.';
@@ -19,6 +19,8 @@ my $query = new CGI;
 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);