Fixed timeout bug when the client sent DATA and then stopped before

sending the next line. (Gergely Risko <risko@risko.hu>)


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@138 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2003-04-15 18:10:44 +00:00
parent 3c80ae667f
commit 933d76ecf9
3 changed files with 7 additions and 0 deletions

View File

@ -24,5 +24,7 @@ Changes file.
Kee Hinckley <nazgul@somewhere.com>: Sent me the correct strftime Kee Hinckley <nazgul@somewhere.com>: Sent me the correct strftime
format for the dates in the "Received" headers. format for the dates in the "Received" headers.
Gergely Risko <risko@risko.hu>: Fixed timeout bug when the client sent
DATA and then stopped before sending the next line.
... and many others per the Change file! ... and many others per the Change file!

View File

@ -1,5 +1,8 @@
0.26-dev 0.26-dev
Fixed timeout bug when the client sent DATA and then stopped before
sending the next line. (Gergely Risko <risko@risko.hu>)
unrecognized_command hook and a count_unrecognized_commands unrecognized_command hook and a count_unrecognized_commands
plugin. (Rasjid Wilcox) plugin. (Rasjid Wilcox)

View File

@ -320,6 +320,8 @@ sub data {
my $timeout = $self->config('timeout'); my $timeout = $self->config('timeout');
alarm $timeout;
while (<STDIN>) { while (<STDIN>) {
$complete++, last if $_ eq ".\r\n"; $complete++, last if $_ eq ".\r\n";
$i++; $i++;