Don't allow AUTH under HELO (rfc 821) connections

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@258 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2004-07-05 09:24:59 +00:00
parent 3d3b7823ee
commit fd8fcde7c0

View File

@ -221,6 +221,8 @@ sub Qpsmtpd::SMTP::auth {
return $self->respond( 503, "but you already said AUTH ..." )
if ( defined $self->{_auth}
and $self->{_auth} == OK );
return $self->respond( 503, "AUTH not defined for HELO" )
if ( $self->connection->hello eq "helo" );
return $self->{_auth} = Qpsmtpd::Auth::SASL( $self, $arg, @stuff );
}