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

* lib/Qpsmtpd/SMTP.pm

Browse Source 
Require a domain/address be given in HELO or EHLO command


git-svn-id: https://svn.perl.org/qpsmtpd/trunk@374 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2005-02-25 16:18:08 +00:00
parent 72eb14dcfb
commit e503c04ed2
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Qpsmtpd/SMTP.pm
View File

@ -130,6 +130,8 @@ sub connection {
sub helo { sub helo {
my ($self, $hello_host, @stuff) = @_; my ($self, $hello_host, @stuff) = @_;
return $self->respond (501,
"helo requires domain/address - see RFC-2821 4.1.1.1") unless $hello_host;
my $conn = $self->connection; my $conn = $self->connection;
return $self->respond (503, "but you already said HELO ...") if $conn->hello; return $self->respond (503, "but you already said HELO ...") if $conn->hello;
@ -150,6 +152,8 @@ sub helo {
sub ehlo { sub ehlo {
my ($self, $hello_host, @stuff) = @_; my ($self, $hello_host, @stuff) = @_;
return $self->respond (501,
"ehlo requires domain/address - see RFC-2821 4.1.1.1") unless $hello_host;
my $conn = $self->connection; my $conn = $self->connection;
return $self->respond (503, "but you already said HELO ...") if $conn->hello; return $self->respond (503, "but you already said HELO ...") if $conn->hello;