projects
/
mirror
/
userdir-ldap.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
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