From aef508cb7b94311093c4a66f896b364653da6413 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Thu, 24 Mar 2005 19:17:46 +0000
Subject: [PATCH] Don't check the HELO host for rfc-ignorant compliance (maybe
 this should be an option?)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@397 958fd67b-6ff1-0310-b445-bb7760255be9
---
 Changes       | 3 +++
 plugins/rhsbl | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 720a248..2c95e48 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 0.30 - 
 
+  Don't check the HELO host for rfc-ignorant compliance
+
+
 0.29 - 2005/03/03
 
   Store entire incoming message in spool file (so that scanners can read
diff --git a/plugins/rhsbl b/plugins/rhsbl
index ee45e6c..759f9f0 100644
--- a/plugins/rhsbl
+++ b/plugins/rhsbl
@@ -20,9 +20,9 @@ sub mail_handler {
     my %rhsbl_zones = map { (split /\s+/, $_, 2)[0,1] } $self->qp->config('rhsbl_zones');
 
   if ($sender->format ne '<>' and %rhsbl_zones) {
-    my $helo = $self->qp->connection->hello_host;
     push(my @hosts, $sender->host);
-    push(@hosts, $helo) if $helo && $helo ne $sender->host;
+    #my $helo = $self->qp->connection->hello_host;
+    #push(@hosts, $helo) if $helo && $helo ne $sender->host;
     for my $host (@hosts) {
     for my $rhsbl (keys %rhsbl_zones) {
         $self->log(LOGDEBUG, "Checking $host.$rhsbl for A record in the background");