Author: robert
Date: Wed May 14 22:16:56 2008
New Revision: 906
Modified:
trunk/plugins/uribl
Log:
fix whitelisting support in uribl
(bug in extracting the "base" portion of the domain name.)
Modified: trunk/plugins/uribl
==============================================================================
--- trunk/plugins/uribl (original)
+++ trunk/plugins/uribl Wed May 14 22:16:56 2008
@@ -334,8 +334,8 @@
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) {
