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

Send data to the remote server in large chunks.

Browse Source 
Reduces a lot the sending time when running on slow CPUs.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@922 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Radu Greab 2008-06-02 16:48:20 +00:00 committed by Ask Bjørn Hansen
parent 4c93c85f55
commit b03dddcb48
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
plugins/async/queue/smtp-forward
View File

@ -261,10 +261,19 @@ sub cmd_data {
# $self->{state} = ST_DATA; # $self->{state} = ST_DATA;
$self->datasend($self->{tran}->header->as_string); $self->datasend($self->{tran}->header->as_string);
$self->{tran}->body_resetpos; $self->{tran}->body_resetpos;
my $write_buf = '';
while (my $line = $self->{tran}->body_getline) { while (my $line = $self->{tran}->body_getline) {
$self->log(LOGDEBUG, ">> $line");
$line =~ s/\r?\n/\r\n/; $line =~ s/\r?\n/\r\n/;
$self->datasend($line); $write_buf .= $line;
if (length($write_buf) >= 131072) { # 128KB, arbitrary value
$self->log(LOGDEBUG, ">> $write_buf");
$self->datasend($write_buf);
$write_buf = '';
}
}
if (length($write_buf)) {
$self->log(LOGDEBUG, ">> $write_buf");
$self->datasend($write_buf);
} }
$self->write(".\r\n"); $self->write(".\r\n");
$self->{command} = "DATAEND"; $self->{command} = "DATAEND";