Changeset 60

Show
Ignore:
Timestamp:
02/09/06 15:49:59
Author:
miyagawa
Message:

moved URLBL filter into update.fixup phase. Fixes #26

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin/Filter/URLBL.pm

    r36 r60  
    1313    $context->register_hook( 
    1414        $self, 
    15         'filter.content' => \&content, 
     15        'update.fixup' => \&filter, 
    1616    ); 
    1717} 
    1818 
    19 sub content { 
     19sub filter { 
    2020    my($self, $context, $args) = @_; 
     21 
     22    for my $feed ($context->update->feeds) { 
     23        for my $entry ($feed->entries) { 
     24            $self->urlbl_filter($context, $entry); 
     25        } 
     26    } 
     27} 
     28 
     29sub urlbl_filter { 
     30    my($self, $context, $entry) = @_; 
    2131 
    2232    my @urls; 
    …… 
    3040        }, 
    3141    ); 
    32     $finder->find(\$args->{content}); 
     42 
     43    my $content = $entry->text; 
     44    $finder->find(\$content); 
    3345 
    3446    my $res = Net::DNS::Resolver->new; 
    …… 
    4961                my $rate = $self->conf->{rate} || -1; 
    5062                $context->log(warn => "$domain.$dns found. Add rate $rate"); 
    51                 $args->{entry}->add_rate($rate); 
     63                $entry->add_rate($rate); 
    5264            } 
    5365        }