|
Lines 28-33
Link Here
|
| 28 |
# - continue long header lines I construct |
28 |
# - continue long header lines I construct |
| 29 |
|
29 |
|
| 30 |
use Proc::WaitStat qw(close_die); |
30 |
use Proc::WaitStat qw(close_die); |
|
|
31 |
use Email::Date::Format qw(email_date); |
| 31 |
|
32 |
|
| 32 |
(my $Me = $0) =~ s-.*/--; |
33 |
(my $Me = $0) =~ s-.*/--; |
| 33 |
my # new line required for makemaker |
34 |
my # new line required for makemaker |
|
Lines 491-496
Link Here
|
| 491 |
|
492 |
|
| 492 |
push @output, cont "To: ", join(", ", @to), "\n" if @to; |
493 |
push @output, cont "To: ", join(", ", @to), "\n" if @to; |
| 493 |
push @output, cont "Cc: ", join(", ", @cc), "\n" if @cc; |
494 |
push @output, cont "Cc: ", join(", ", @cc), "\n" if @cc; |
|
|
495 |
push @output, cont "Date: ", email_date, "\n"; |
| 494 |
push @output, cont "Subject: $subject\n" if $subject ne ''; |
496 |
push @output, cont "Subject: $subject\n" if $subject ne ''; |
| 495 |
|
497 |
|
| 496 |
push @output, $header if $header ne ''; |
498 |
push @output, $header if $header ne ''; |
