Fixes
[mirror/userdir-ldap.git] / web / fetchkey.cgi
1 #!/usr/bin/perl
2
3 use strict;
4 use CGI;
5 use Util;
6
7 # Global settings...
8 my %config = &Util::ReadConfigFile;
9
10 my $query = new CGI;
11 print "Content-type: text/plain\n\n";
12
13 my $fp = $query->param('fingerprint');
14
15 if ($fp) {
16   my $key = &Util::FetchKey($fp);
17   if ($key) {
18     print $key;
19   } else {
20     print "Sorry, no key found matching fingerprint $fp\n";
21   }
22 } else {
23   print "No fingerprint given\n";
24 }
25
26 exit 0;
27