Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Friday, October 16, 2026
[BACK] [TXT][DIR] Up to [Platon] / scripts / perl / mail-gnupg

Diff for scripts/perl/mail-gnupg/mail-gnupg-encrypt.pl between version 1.3 and 1.4

version 1.3, 2005/01/16 19:57:27 version 1.4, 2010/10/05 23:03:09
Line 29 
Line 29 
 # | /path/to/mail-gnupg-encrypt.pl -r your@email.address.com  # | /path/to/mail-gnupg-encrypt.pl -r your@email.address.com
 #  #
   
 # $Platon: scripts/perl/mail-gnupg/mail-gnupg-encrypt.pl,v 1.2 2005/01/15 02:19:28 rajo Exp $  # $Platon: scripts/perl/mail-gnupg/mail-gnupg-encrypt.pl,v 1.3 2005/01/16 19:57:27 rajo Exp $
   
 use strict;  use strict;
 use warnings;  use warnings;
Line 53  $| = 1;
Line 53  $| = 1;
   
 $VERSION        = do { my @r = (q$Revision$=~/\d+/g); sprintf "%d." . "%02d" x $#r, @r };  $VERSION        = do { my @r = (q$Revision$=~/\d+/g); sprintf "%d." . "%02d" x $#r, @r };
   
 $boundary = "mail-gnupg-ver-$VERSION-pid-$PID";  my @char=("A".."Z", "a".."z", 0..9);
   $boundary = join("", @char[map{rand @char} (1..16)]);
   
 $new_content_type = "Content-Type: multipart/encrypted; protocol=\"application/pgp-encrypted\";\n\tboundary=\"$boundary\"\n";  $new_content_type = "Content-Type: multipart/encrypted; protocol=\"application/pgp-encrypted\";\n\tboundary=\"$boundary\"\n";
 $old_content_type = '';  $old_content_type = '';
 $header_line = '';  $header_line = '';
Line 162  else { # child
Line 164  else { # child
                 print;                  print;
         }          }
         # print terminator          # print terminator
         print "\n--$boundary--";          print "\n--$boundary--\n";
 }  }
   
 close CIPHER;  close CIPHER;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top