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 ($login,$name)=(getpwuid($<))[0,6];
  56
  57 $from="$name <$login>";
  58
  59 while(<STDIN>)
  60 {
  61     last if($_ eq "\n");
  62
  63     if(/^COMMAND (\S+)/)
  64     {
  65         $command=$1;
  66     }
  67
  68     if(/^OPAQUE (\S+)/)
  69     {
  70         $address=$1;
  71     }
  72
  73     if(/^PROGRAM (\S+)/)
  74     {
  75         $program=$1;
  76     }
  77
  78     if(/^OPTION (\S+)/)
  79     {
  80         if($1=~/^verbose$/i)
  81         {
  82             $verbose++;
  83         }
  84         elsif($1=~/^no-verbose$/i)
  85         {
  86             $verbose--;
  87         }
  88     }
  89 }
  90
  91 $program="(unknown)" if(!defined($program));
  92
  93 if(!defined($address))
  94 {
  95     print STDERR "gpgkeys: no address provided\n";
  96     exit(1);
  97 }
  98
  99 # decode $address
 100
 101 ($address,$args)=split(/\?/,$address);
 102
 103 if(defined($args))
 104 {
 105     @pairs = split(/&/, $args);
 106     foreach $pair (@pairs)
 107     {
 108         ($hdr, $val) = split(/=/, $pair);
 109         $hdr =~ tr/+/ /;
 110         $hdr =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 111         $val =~ tr/+/ /;
 112         $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
 113 # we only handle "from" right now
 114         if($hdr=~/^from$/i)
 115         {
 116             $from=$val;
 117             last;
 118         }
 119     }
 120 }
 121
 122 while(<STDIN>)
 123 {
 124     last if($_ eq "\n");
 125
 126     chomp;
 127
 128     push(@keys,$_);
 129 }
 130
 131 # Send response
 132
 133 print "VERSION 1\n";
 134 print "OPTION OUTOFBAND\n\n";
 135
 136 # Email keyservers get and search the same way
 137
 138 if($command=~/get/i || $command=~/search/i)
 139 {
 140     if($command=~/search/i)
 141     {
 142         print "COUNT 0\n";
 143     }
 144
 145     foreach $key (@keys)
 146     {
 147         open(MAIL,"|$sendmail") || die "ERROR: Can't open $sendmail\n";
 148         print MAIL "From: $from\n";
 149         print MAIL "To: $address\n";
 150         if($command=~/get/i)
 151         {
 152             # mail keyservers don't like long-form keyids
 153
 154             if(substr($key,0,2) eq "0x")
 155             {
 156                 $key=substr($key,2);
 157             }
 158
 159             if(length($key)>8)
 160             {
 161                 $key=substr($key,-8);
 162             }
 163
 164             print MAIL "Subject: GET 0x$key\n\n";
 165         }
 166         else
 167         {
 168             print MAIL "Subject: GET $key\n\n";
 169         }
 170         print MAIL "GnuPG $program email keyserver request\n";
 171         close(MAIL);
 172
 173         # Tell GnuPG not to expect a key
 174         print "KEY $key OUTOFBAND\n";
 175
 176         if($verbose)
 177         {
 178             print STDERR "gpgkeys: key $key requested from $address\n";
 179         }
 180     }
 181 }
 182
 183 if($command=~/send/i)
 184 {
 185     while(!eof(STDIN))
 186     {
 187         open(MAIL,"|$sendmail") || die "ERROR: Can't open $sendmail\n";
 188         print MAIL "From: $name <$login>\n";
 189         print MAIL "To: $address\n";
 190         print MAIL "Subject: ADD\n\n";
 191
 192         while(<STDIN>)
 193         {
 194             if(/^KEY (\S+) BEGIN$/)
 195             {
 196                 $key=$1;
 197                 last;
 198             }
 199         }
 200
 201         while(<STDIN>)
 202         {
 203             if(/^KEY \S+ END$/)
 204             {
 205                 last;
 206             }
 207
 208             print MAIL;
 209         }
 210
 211         close(MAIL);
 212
 213         if($verbose)
 214         {
 215             print STDERR "gpgkeys: key $key sent to $address\n";
 216         }
 217     }
 218 }
 219
 220
 221 # Local Variables:
 222 # mode:perl
 223 # End: