From fcbf3b0ad4a8e6590fe31a981d562cc148f7fade Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= <ask@develooper.com>
Date: Tue, 10 Sep 2002 13:42:06 +0000
Subject: [PATCH] return DECLINED if no dnsbl's are configured

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@67 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/dnsbl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/plugins/dnsbl b/plugins/dnsbl
index 564cde1..19d1459 100644
--- a/plugins/dnsbl
+++ b/plugins/dnsbl
@@ -8,10 +8,11 @@ sub register {
 
 sub connect_handler {
   my ($self, $transaction) = @_;
+
   my $remote_ip = $self->qp->connection->remote_ip;
 
   my %dnsbl_zones = map { (split /\s+/, $_, 2)[0,1] } $self->qp->config('dnsbl_zones');
-  return unless %dnsbl_zones;
+  return DECLINED unless %dnsbl_zones;
 
   my $reversed_ip = join(".", reverse(split(/\./, $remote_ip)));