home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 June / PCWorld_2005-06_cd.bin / software / vyzkuste / firewally / firewally.exe / framework-2.3.exe / gpgkeys_mailto < prev    next >
Encoding:
Text File  |  2004-01-18  |  3.5 KB  |  203 lines
  1. #!/bin/perl -w
  2.  
  3. # gpgkeys_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 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. $sendmail="/usr/sbin/sendmail -t";
  24.  
  25. ###
  26.  
  27. getopts('o:');
  28.  
  29. if(defined($opt_o))
  30. {
  31.     open(STDOUT,">$opt_o") || die "Can't open output file $opt_o\n";
  32. }
  33.  
  34. if(@ARGV)
  35. {
  36.     open(STDIN,$ARGV[0]) || die "Can't open input file $ARGV[0]\n";
  37. }
  38.  
  39. ($login,$name)=(getpwuid($<))[0,6];
  40.  
  41. $from="$name <$login>";
  42.  
  43. while(<STDIN>)
  44. {
  45.     last if($_ eq "\n");
  46.  
  47.     if(/^COMMAND (\S+)/)
  48.     {
  49.     $command=$1;
  50.     }
  51.  
  52.     if(/^OPAQUE (\S+)/)
  53.     {
  54.     $address=$1;
  55.     }
  56.  
  57.     if(/^PROGRAM (\S+)/)
  58.     {
  59.     $program=$1;
  60.     }
  61.  
  62.     if(/^OPTION (\S+)/)
  63.     {
  64.     if($1=~/^verbose$/i)
  65.     {
  66.         $verbose++;
  67.     }
  68.     elsif($1=~/^no-verbose$/i)
  69.     {
  70.         $verbose--;
  71.     }
  72.     }
  73. }
  74.  
  75. $program="(unknown)" if(!defined($program));
  76.  
  77. if(!defined($address))
  78. {
  79.     print STDERR "gpgkeys: no address provided\n";
  80.     exit(1);
  81. }
  82.  
  83. # decode $address
  84.  
  85. ($address,$args)=split(/\?/,$address);
  86.  
  87. if(defined($args))
  88. {
  89.     @pairs = split(/&/, $args);
  90.     foreach $pair (@pairs)
  91.     {
  92.     ($hdr, $val) = split(/=/, $pair);
  93.     $hdr =~ tr/+/ /;
  94.     $hdr =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  95.     $val =~ tr/+/ /;
  96.     $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  97. # we only handle "from" right now
  98.     if($hdr=~/^from$/i)
  99.     {
  100.         $from=$val;
  101.         last;
  102.     }
  103.     }
  104. }
  105.  
  106. while(<STDIN>)
  107. {
  108.     last if($_ eq "\n");
  109.  
  110.     chomp;
  111.  
  112.     push(@keys,$_);
  113. }
  114.  
  115. # Send response
  116.  
  117. print "VERSION 0\n";
  118. print "OPTION OUTOFBAND\n\n";
  119.  
  120. # Email keyservers get and search the same way
  121.  
  122. if($command=~/get/i || $command=~/search/i)
  123. {
  124.     if($command=~/search/i)
  125.     {
  126.     print "COUNT 0\n";
  127.     }
  128.  
  129.     foreach $key (@keys)
  130.     {
  131.     open(MAIL,"|$sendmail") || die "ERROR: Can't open $sendmail\n";
  132.     print MAIL "From: $from\n";
  133.     print MAIL "To: $address\n";
  134.     if($command=~/get/i)
  135.     {
  136.         # mail keyservers don't like long-form keyids
  137.  
  138.         if(substr($key,0,2) eq "0x")
  139.         {
  140.         $key=substr($key,2);
  141.         }
  142.  
  143.         if(length($key)>8)
  144.         {
  145.         $key=substr($key,-8);
  146.         }
  147.  
  148.             print MAIL "Subject: GET 0x$key\n\n";
  149.     }
  150.     else
  151.     {
  152.         print MAIL "Subject: GET $key\n\n";
  153.     }
  154.     print MAIL "GnuPG $program email keyserver request\n";
  155.     close(MAIL);
  156.  
  157.     # Tell GnuPG not to expect a key
  158.     print "KEY $key OUTOFBAND\n";
  159.  
  160.     if($verbose)
  161.     {
  162.         print STDERR "gpgkeys: key $key requested from $address\n";
  163.     }
  164.     }
  165. }
  166.  
  167. if($command=~/send/i)
  168. {
  169.     while(!eof(STDIN))
  170.     {
  171.     open(MAIL,"|$sendmail") || die "ERROR: Can't open $sendmail\n";
  172.     print MAIL "From: $name <$login>\n";
  173.     print MAIL "To: $address\n";
  174.     print MAIL "Subject: ADD\n\n";
  175.  
  176.     while(<STDIN>)
  177.     {
  178.         if(/^KEY (\S+) BEGIN$/)
  179.         {
  180.         $key=$1;
  181.         last;
  182.         }
  183.     }
  184.  
  185.     while(<STDIN>)
  186.     {
  187.         if(/^KEY \S+ END$/)
  188.         {
  189.         last;
  190.         }
  191.  
  192.         print MAIL;
  193.     }
  194.  
  195.     close(MAIL);
  196.  
  197.     if($verbose)
  198.     {
  199.         print STDERR "gpgkeys: key $key sent to $address\n";
  200.     }
  201.     }
  202. }
  203.