From: joey <>
Date: Thu, 18 Nov 2004 13:22:04 +0000 (+0000)
Subject: Update from samosa: Declare the local directory as library (in order to
X-Git-Tag: release-0.3.33~94
X-Git-Url: https://git.adam-barratt.org.uk/?p=mirror%2Fuserdir-ldap-cgi.git;a=commitdiff_plain;h=9d15404b25430911d40ae7973359a48dac718df2

Update from samosa: Declare the local directory as library (in order to
load the Util.pm, I guess)
---

diff --git a/fetchkey.cgi b/fetchkey.cgi
index a9d8539..11257c5 100755
--- a/fetchkey.cgi
+++ b/fetchkey.cgi
@@ -1,14 +1,19 @@
-#!/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";
@@ -16,7 +21,7 @@ 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 {