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:
Ask Bjørn Hansen 2001-10-30 10:05:15 +00:00
parent c148b0f829
commit 615c00ea97

View File

@ -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;