Changeset 1402

Show
Ignore:
Timestamp:
08/19/06 17:38:05
Author:
miyagawa
Message:

add test file for Filter::2chRSSContent. Remove ad entry. Thanks to 33rpm

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin/Filter/2chRSSContent.pm

    r905 r1402  
    1919    if ($body =~ s!^([^:]*):(\d{4}/\d\d/\d\d)\(.*?\) (\d\d:\d\d:\d\d)(?:\.\d\d)? (ID:\S+)?  ?!!) { 
    2020        my($from, $day, $time, $id) = ($1, $2, $3, $4); 
    21  
    2221        my $date = Plagger::Date->strptime('%Y/%m/%d %H:%M:%S', "$day $time"); 
    2322        $date->set_time_zone('Asia/Tokyo'); 
    …… 
    2827        $args->{entry}->author( $from ? "$from $id" : $id ); 
    2928        $args->{entry}->body($body); 
    30     } elsif ($args->{entry}->title =~ /^\d+\-$/) { 
     29    } elsif ($args->{entry}->title =~ /^\d+\-$/ 
     30             || $args->{entry}->body =~ m!http://www\.2ch\.net/ad\.html *powerd by Big-Server\.!) { 
    3131        $context->log(info => "Strip 2ch bogus entry " . $args->{entry}->title); 
    3232        $args->{feed}->delete_entry($args->{entry});