bark and abort properly when "DATA" is being called without MAIL and RCPT first.
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@2 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
c148b0f829
commit
615c00ea97
4
qpsmtpd
4
qpsmtpd
@ -154,8 +154,8 @@ sub rcpt {
|
||||
}
|
||||
|
||||
sub data {
|
||||
respond(503, "MAIL first") unless $state{transaction}->{from};
|
||||
respond(503, "RCPT first") unless $state{transaction}->{rcpt};
|
||||
respond(503, "MAIL first"), return 1 unless $state{transaction}->{from};
|
||||
respond(503, "RCPT first"), return 1 unless $state{transaction}->{rcpt};
|
||||
respond(354, "go ahead");
|
||||
my $buffer;
|
||||
my $size = 0;
|
||||
|
Loading…
Reference in New Issue
Block a user