* configure.ac: --enable-ftp is on by default, --with-libcurl is off by
[gnupg.git] / 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 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) 1.3.91-cvs\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: