From e503c04ed27e63ffcfbc658314337f982412796a Mon Sep 17 00:00:00 2001 From: John Peacock Date: Fri, 25 Feb 2005 16:18:08 +0000 Subject: [PATCH] * lib/Qpsmtpd/SMTP.pm 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 --- lib/Qpsmtpd/SMTP.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm index a7b72b7..d7f1b95 100644 --- a/lib/Qpsmtpd/SMTP.pm +++ b/lib/Qpsmtpd/SMTP.pm @@ -130,6 +130,8 @@ sub connection { sub helo { 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; return $self->respond (503, "but you already said HELO ...") if $conn->hello; @@ -150,6 +152,8 @@ sub helo { sub ehlo { 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; return $self->respond (503, "but you already said HELO ...") if $conn->hello;