Platon Technologies
neprihlásený Prihlásiť Registrácia
SlovakEnglish
open source software development oslavujeme 10 rokov vývoja otvoreného softvéru! Pondelok, 26. október 2026
[BACK] [TXT][DIR] Vyššie na [Platon] / scripts / perl / mail-gnupg

Rozdiely pre scripts/perl/mail-gnupg/mail-gnupg-encrypt.pl medzi verziami 1.3 a 1.4

verzia 1.3, 2005/01/16 19:57:27 verzia 1.4, 2010/10/05 23:03:09
Riadok 29 
Riadok 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;
Riadok 53  $| = 1;
Riadok 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 = '';
Riadok 162  else { # child
Riadok 164  else { # child
                 print;                  print;
         }          }
         # print terminator          # print terminator
         print "\n--$boundary--";          print "\n--$boundary--\n";
 }  }
   
 close CIPHER;  close CIPHER;
Legend:
Odstranené z verzie1.3  
zmenené riadky
  Pridané vo verzii1.4
Platon Group <platon@platon.sk> http://platon.sk/
Copyright © 2002-2006 Platon Group
Stránka používa redakčný systém Metafox 		Na začiatok