load the Util.pm, I guess)
-#!/usr/bin/perl
+#!/usr/bin/perl -wT
-# $Id: fetchkey.cgi,v 1.2 1999/09/26 01:20:39 tausq Exp $
+# $Id: fetchkey.cgi,v 1.3 2004/11/18 14:22:04 joey Exp $
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
+use lib '.';
use strict;
use CGI;
use Util;
# Global settings...
my %config = &Util::ReadConfigFile;
+for my $key (keys %config) {
+ $key =~ /(.*)/;
+ $config{$key} = $1;
+}
my $query = new CGI;
print "Content-type: text/plain\n\n";
my $fp = $query->param('fingerprint');
if ($fp) {
- my $key = &Util::FetchKey($fp);
+ my $key = &Util::FetchKey($fp, 0);
if ($key) {
print $key;
} else {