|
Lines 4469-4489
Link Here
|
| 4469 |
### # to reduce likelyhood of a qmail bare-LF bug (bare LF reported when |
4469 |
### # to reduce likelyhood of a qmail bare-LF bug (bare LF reported when |
| 4470 |
### # CR and LF are separated by a TCP packet boundary) one may use this |
4470 |
### # CR and LF are separated by a TCP packet boundary) one may use this |
| 4471 |
### # 'while' loop, reading line by line, instead of the normal one below |
4471 |
### # 'while' loop, reading line by line, instead of the normal one below |
| 4472 |
### for (undef $!; defined($buff=$msg->getline); undef $!) { |
4472 |
for (undef $!; defined($buff=$msg->getline); undef $!) { |
| 4473 |
### $smtp_handle->datasend($buff) |
4473 |
$smtp_handle->datasend($buff) |
| 4474 |
### or die "datasend timed out while sending body"; |
4474 |
or die "datasend timed out while sending body"; |
| 4475 |
### } |
4475 |
} |
| 4476 |
### defined $buff || $!==0 or die "Error reading: $!"; |
4476 |
defined $buff || $!==0 or die "Error reading: $!"; |
| 4477 |
|
4477 |
|
| 4478 |
# must flush buffering through $smtp_data_fh, as from now on |
4478 |
# must flush buffering through $smtp_data_fh, as from now on |
| 4479 |
# we'll be calling Net::Cmd::datasend directly for speed |
4479 |
# we'll be calling Net::Cmd::datasend directly for speed |
| 4480 |
$smtp_data_fh->flush or die "Error flushing smtp_data_fh: $!"; |
4480 |
$smtp_data_fh->flush or die "Error flushing smtp_data_fh: $!"; |
| 4481 |
|
4481 |
|
| 4482 |
while (($nbytes=$msg->read($buff,16384)) > 0) { |
4482 |
### while (($nbytes=$msg->read($buff,16384)) > 0) { |
| 4483 |
$smtp_handle->datasend($buff) |
4483 |
### $smtp_handle->datasend($buff) |
| 4484 |
or die "datasend timed out while sending body"; |
4484 |
### or die "datasend timed out while sending body"; |
| 4485 |
} |
4485 |
### } |
| 4486 |
defined $nbytes or die "Error reading: $!"; |
4486 |
### defined $nbytes or die "Error reading: $!"; |
| 4487 |
} |
4487 |
} |
| 4488 |
$smtp_data_fh->close or die "Error closing smtp_data_fh: $!"; |
4488 |
$smtp_data_fh->close or die "Error closing smtp_data_fh: $!"; |
| 4489 |
$smtp_data_fh = undef; |
4489 |
$smtp_data_fh = undef; |
