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

Fix careless capitalization error

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.3x@661 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2006-09-24 00:53:01 +00:00
parent d218bfea82
commit 9028958307
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lib/Qpsmtpd/SMTP.pm
View File

@ -243,7 +243,7 @@ sub auth {
return $self->respond(501, $mechanism || "Syntax error in command") return $self->respond(501, $mechanism || "Syntax error in command")
unless ($ok == OK); unless ($ok == OK);
$mechanism = lc($mechanism); $mechanism = uc($mechanism);
#they AUTH'd once already #they AUTH'd once already
@ -611,10 +611,18 @@ sub data {
# if we get here without seeing a terminator, the connection is # if we get here without seeing a terminator, the connection is
# probably dead. # probably dead.
$self->respond(451, "Incomplete DATA"), return 1 unless $complete; unless ( $complete ) {
$self->respond(451, "Incomplete DATA");
$self->reset_transaction; # clean up after ourselves
return 1;
}
#$self->respond(550, $self->transaction->blocked),return 1 if ($self->transaction->blocked); #$self->respond(550, $self->transaction->blocked),return 1 if ($self->transaction->blocked);
$self->respond(552, "Message too big!"),return 1 if $max_size and $size > $max_size; if ( $max_size and $size > $max_size ) {
$self->respond(552, "Message too big!");
$self->reset_transaction; # clean up after ourselves
return 1;
}
($rc, @msg) = $self->run_hooks("data_post"); ($rc, @msg) = $self->run_hooks("data_post");
if ($rc == DONE) { if ($rc == DONE) {