byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix whitelisting support in uribl

Browse Source 
(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
This commit is contained in:
Robert Spier 2008-05-15 05:16:56 +00:00
parent 502e1d286e
commit d0a8432c16
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plugins/uribl
View File

@ -334,8 +334,8 @@ sub data_handler {
my $cutoff = exists my $cutoff = exists
$strict_twolevel_cctlds{$host_domains[$#host_domains]} ? 3 : 2; $strict_twolevel_cctlds{$host_domains[$#host_domains]} ? 3 : 2;
if (exists $self->{whitelist_zones}->{ 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'"); $self->log(LOGINFO, "Skipping whitelist URI domain '$host'");
} else { } else {
while (@host_domains >= $cutoff) { while (@host_domains >= $cutoff) {