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