From d0a8432c16598d22934b117b68d540868c8fb896 Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Thu, 15 May 2008 05:16:56 +0000
Subject: [PATCH] fix whitelisting support in uribl (bug in extracting the
 "base" portion of the domain name.)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@906 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/uribl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/plugins/uribl b/plugins/uribl
index da950e1..ac45966 100644
--- a/plugins/uribl
+++ b/plugins/uribl
@@ -334,8 +334,8 @@ sub data_handler {
             my $cutoff = exists
                 $strict_twolevel_cctlds{$host_domains[$#host_domains]} ? 3 : 2;
             if (exists $self->{whitelist_zones}->{
-                    join('.', @host_domains[($cutoff-1)..$#host_domains])}) {
-
+		join('.', 
+		     @host_domains[($#host_domains-$cutoff+1)..$#host_domains])}) {
                 $self->log(LOGINFO, "Skipping whitelist URI domain '$host'");
             } else {
                 while (@host_domains >= $cutoff) {