* gpgkeys_hkp.c (get_key): Use options=mr when getting a key so keyserver
[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
24 $|=1;
25
26 print STDERR "gpgkeys_test starting\n";
27
28 getopts('o:');
29
30 if(defined($opt_o))
31 {
32     print STDERR "Using output file $opt_o\n";
33     open(STDOUT,">$opt_o") || die "Can't open output file $opt_o\n";
34 }
35
36 if(@ARGV)
37 {
38     print STDERR "Using input file $ARGV[0]\n";
39     open(STDIN,$ARGV[0]) || die "Can't open input file $ARGV[0]\n";
40 }
41
42 # Get the command block
43
44 print STDERR "Command block:\n";
45
46 while(<STDIN>)
47 {
48     last if($_ eq "\n");
49     print STDERR "--command-> $_";
50
51     if(/^COMMAND (\w+)/)
52     {
53         $command=$1;
54     }
55 }
56
57 # Get the keylist block
58
59 print STDERR "Keylist block:\n";
60
61 while(<STDIN>)
62 {
63     last if($_ eq "\n");
64     print STDERR "--keylist-> $_";
65 }
66
67 # If it's a SEND, then get the key material
68
69 if($command eq "SEND")
70 {
71     print STDERR "Key material to send:\n";
72
73     while(<STDIN>)
74     {
75         print STDERR "$_";
76     }
77 }
78
79 printf STDERR "gpgkeys_test finished\n";