byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix bug in -async where the body_file (via body_filename) wouldn't have the headers in it.

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@947 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2008-09-26 18:59:12 +00:00 committed by Ask Bjørn Hansen
parent 59b826d4bb
commit 77582b0b10
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lib/Qpsmtpd/PollServer.pm
View File

@ -279,6 +279,7 @@ sub got_data {
my $header = Mail::Header->new(\@header_lines, my $header = Mail::Header->new(\@header_lines,
Modify => 0, MailFrom => "COERCE"); Modify => 0, MailFrom => "COERCE");
$self->transaction->header($header); $self->transaction->header($header);
$self->transaction->body_write($self->{header_lines});
$self->{header_lines} = ''; $self->{header_lines} = '';
#$header->add("X-SMTPD", "qpsmtpd/".$self->version.", http://smtpd.develooper.com/"); #$header->add("X-SMTPD", "qpsmtpd/".$self->version.", http://smtpd.develooper.com/");