Diff for scripts/perl/mail-gnupg/mail-gnupg-encrypt.pl between version 1.2 and 1.3
| version 1.2, 2005/01/15 02:19:28 |
version 1.3, 2005/01/16 19:57:27 |
|
|
| # | /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.1 2005/01/13 17:07:15 rajo Exp $ |
# $Platon: scripts/perl/mail-gnupg/mail-gnupg-encrypt.pl,v 1.2 2005/01/15 02:19:28 rajo Exp $ |
| |
|
| use strict; |
use strict; |
| use warnings; |
use warnings; |
| Line 124 if (my $pid = fork()) { # parent |
|
| Line 124 if (my $pid = fork()) { # parent |
|
| $old_content_type = $line; |
$old_content_type = $line; |
| } |
} |
| else { |
else { |
| print CHILD_WTR $line, $header_line; # one header line completes, ship it out |
print CHILD_WTR $header_line, $line; # one header line completes, ship it out |
| $header_line = ""; |
$header_line = ""; |
| } |
} |
| } # }}} |
} # }}} |
Platon Group <platon@platon.org> http://platon.org/
|
|