gpgkey2ssh: clean up varargs
[gnupg.git] / keyserver / gpg2keys_mailto.in
1 #!@PERL@ -w
2
3 # gpg2keys_mailto - talk to a email keyserver 
4 # Copyright (C) 2001, 2002 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 3 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, see <http://www.gnu.org/licenses/>.
20 use Getopt::Std;
21 $Getopt::Std::STANDARD_HELP_VERSION=1;
22 $sendmail="@SENDMAIL@ -t";
23
24 ###
25
26 sub VERSION_MESSAGE ()
27 {
28     print STDOUT "gpg2keys_mailto (GnuPG) @VERSION@\n";
29 }
30
31 sub HELP_MESSAGE ()
32 {
33     print STDOUT <<EOT
34
35 --help     Print this help
36 --version  Print the version
37 -o FILE    Write output to FILE
38 EOT
39 }
40
41
42
43 getopts('o:');
44
45 if(defined($opt_o))
46 {
47     open(STDOUT,">$opt_o") || die "Can't open output file $opt_o\n";
48 }
49
50 if(@ARGV)
51 {
52     open(STDIN,$ARGV[0]) || die "Can't open input file $ARGV[0]\n";
53 }
54
55 while(<STDIN>)
56 {
57     last if($_ eq "\n");
58
59     if(/^COMMAND (\S+)/)
60     {
61         $command=$1;
62     }
63
64     if(/^OPAQUE (\S+)/)
65     {
66         $address=$1;
67     }
68
69     if(/^PROGRAM (\S+)/)
70     {
71         $program=$1;
72     }
73
74     if(/^OPTION (\S+)/)
75     {
76         if($1=~/^verbose$/i)
77         {
78             $verbose++;
79         }
80         elsif($1=~/^no-verbose$/i)
81         {
82             $verbose--;
83         }
84         elsif($1=~/^mail-from=(.+)$/i)
85         {
86             $from=$1;
87         }
88         elsif($1=~/^no-mail-from$/i)
89         {
90             undef $from;
91         }
92
93     }
94 }
95
96 if(!defined($from))
97 {
98     ($login,$name)=(getpwuid($<))[0,6];
99     $from="$name <$login>";
100 }
101
102 $program="(unknown)" if(!defined($program));
103
104 if(!defined($address))
105 {
106     print STDERR "gpgkeys: no address provided\n";
107     exit(1);
108 }
109
110 while(<STDIN>)
111 {
112     last if($_ eq "\n");
113
114     chomp;
115
116     push(@keys,$_);
117 }
118
119 # Send response
120
121 print "VERSION 1\n";
122 print "OPTION OUTOFBAND\n\n";
123
124 # Email keyservers get and search the same way
125
126 if($command=~/get/i || $command=~/search/i)
127 {
128     if($command=~/search/i)
129     {
130         print "COUNT 0\n";
131     }
132
133     foreach $key (@keys)
134     {
135         open(MAIL,"|$sendmail") || die "ERROR: Can't open $sendmail\n";
136         print MAIL "From: $from\n";
137         print MAIL "To: $address\n";
138         if($command=~/get/i)
139         {
140             # mail keyservers don't like long-form keyids
141
142             if(substr($key,0,2) eq "0x")
143             {
144                 $key=substr($key,2);
145             }
146
147             if(length($key)>8)
148             {
149                 $key=substr($key,-8);
150             }
151
152             print MAIL "Subject: GET 0x$key\n\n";
153         }
154         else
155         {
156             print MAIL "Subject: GET $key\n\n";
157         }
158         print MAIL "GnuPG $program email keyserver request\n";
159         close(MAIL);
160
161         # Tell GnuPG not to expect a key
162         print "KEY $key OUTOFBAND\n";
163
164         if($verbose)
165         {
166             print STDERR "gpgkeys: key $key requested from $address\n";
167         }
168     }
169 }
170
171 if($command=~/send/i)
172 {
173     while(!eof(STDIN))
174     {
175         open(MAIL,"|$sendmail") || die "ERROR: Can't open $sendmail\n";
176         print MAIL "From: $name <$login>\n";
177         print MAIL "To: $address\n";
178         print MAIL "Subject: ADD\n\n";
179
180         while(<STDIN>)
181         {
182             if(/^KEY (\S+) BEGIN$/)
183             {
184                 $key=$1;
185                 last;
186             }
187         }
188
189         while(<STDIN>)
190         {
191             if(/^KEY \S+ END$/)
192             {
193                 last;
194             }
195
196             print MAIL;
197         }
198
199         close(MAIL);
200
201         if($verbose)
202         {
203             print STDERR "gpgkeys: key $key sent to $address\n";
204         }
205     }
206 }
207
208
209 # Local Variables: 
210 # mode:perl
211 # End: