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: