keyserver/gpgkeys_test.in

   1 #!@PERL@
   2
   3 # gpgkeys_test - keyserver code tester
   4 # Copyright (C) 2001 Free Software Foundation, Inc.
   5 #
   6 # This file is part of GnuPG.
   7 #
   8 # GnuPG is free software; you can redistribute it and/or modify
   9 # it under the terms of the GNU General Public License as published by
  10 # the Free Software Foundation; either version 2 of the License, or
  11 # (at your option) any later version.
  12 #
  13 # GnuPG is distributed in the hope that it will be useful,
  14 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16 # GNU General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU General Public License
  19 # along with this program; if not, write to the Free Software
  20 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
  21
  22 use Getopt::Std;
  23 $Getopt::Std::STANDARD_HELP_VERSION=1;
  24
  25 $|=1;
  26
  27 sub VERSION_MESSAGE ()
  28 {
  29     print STDOUT "gpgkeys_test (GnuPG) @VERSION@\n";
  30 }
  31
  32 sub HELP_MESSAGE ()
  33 {
  34     print STDOUT <<EOT
  35
  36 --help     Print this help
  37 --version  Print the version
  38 EOT
  39 }
  40
  41
  42 getopts('o:');
  43
  44 print STDERR "gpgkeys_test starting\n";
  45
  46 if(defined($opt_o))
  47 {
  48     print STDERR "Using output file $opt_o\n";
  49     open(STDOUT,">$opt_o") || die "Can't open output file $opt_o\n";
  50 }
  51
  52 if(@ARGV)
  53 {
  54     print STDERR "Using input file $ARGV[0]\n";
  55     open(STDIN,$ARGV[0]) || die "Can't open input file $ARGV[0]\n";
  56 }
  57
  58 # Get the command block
  59
  60 print STDERR "Command block:\n";
  61
  62 while(<STDIN>)
  63 {
  64     last if($_ eq "\n");
  65     print STDERR "--command-> $_";
  66
  67     if(/^COMMAND (\w+)/)
  68     {
  69         $command=$1;
  70     }
  71 }
  72
  73 # Get the keylist block
  74
  75 print STDERR "Keylist block:\n";
  76
  77 while(<STDIN>)
  78 {
  79     last if($_ eq "\n");
  80     print STDERR "--keylist-> $_";
  81 }
  82
  83 # If it's a SEND, then get the key material
  84
  85 if($command eq "SEND")
  86 {
  87     print STDERR "Key material to send:\n";
  88
  89     while(<STDIN>)
  90     {
  91         print STDERR "$_";
  92     }
  93 }
  94
  95 printf STDERR "gpgkeys_test finished\n";
  96
  97 # Local Variables:
  98 # mode:perl
  99 # End: