some FHS cleanups
[mirror/userdir-ldap-cgi.git] / fetchkey.cgi
1 #!/usr/bin/perl
2
3 # $Id: fetchkey.cgi,v 1.2 1999/09/26 01:20:39 tausq Exp $
4 # (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
5
6 use strict;
7 use CGI;
8 use Util;
9
10 # Global settings...
11 my %config = &Util::ReadConfigFile;
12
13 my $query = new CGI;
14 print "Content-type: text/plain\n\n";
15
16 my $fp = $query->param('fingerprint');
17
18 if ($fp) {
19   my $key = &Util::FetchKey($fp);
20   if ($key) {
21     print $key;
22   } else {
23     print "Sorry, no key found matching fingerprint $fp\n";
24   }
25 } else {
26   print "No fingerprint given\n";
27 }
28
29 exit 0;
30