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