Changeset 932

Show
Ignore:
Timestamp:
06/08/06 21:34:38
Author:
miyagawa
Message:

cache based on domain

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Rule/URLBL.pm

    r931 r932  
    2727    return unless $url; 
    2828 
    29     if (exists $self->{dnscache}->{$url}) { 
    30         return $self->{dnscache}->{$url}; 
     29    my $uri = URI->new($url); 
     30    my $domain = $uri->host; 
     31    $domain =~ s/^www\.//; 
     32 
     33    if (exists $self->{dnscache}->{$domain}) { 
     34        return $self->{dnscache}->{$domain}; 
    3135    } 
    3236 
    …… 
    3539       $dnsbl = [ $dnsbl ] unless ref $dnsbl; 
    3640 
    37     my $uri = URI->new($url); 
    38     my $domain = $uri->host; 
    39     $domain =~ s/^www\.//; 
    40  
    4141    for my $dns (@$dnsbl) { 
    4242        Plagger->context->log(debug => "looking up $domain.$dns"); 
    …… 
    4444        if ($q && $q->answer) { 
    4545            Plagger->context->log(info => "$domain.$dns found."); 
    46             return $self->{dnscache}->{$url} = 0; 
     46            return $self->{dnscache}->{$domain} = 0; 
    4747        } 
    4848    } 
    4949 
    50     return $self->{dnscache}->{$url} = 1; 
     50    return $self->{dnscache}->{$domain} = 1; 
    5151} 
    5252