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
This commit is contained in:
Ask Bjørn Hansen 2005-03-24 19:17:46 +00:00
parent 6ecc991a20
commit aef508cb7b
2 changed files with 5 additions and 2 deletions

View File

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

View File

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