Changeset 696

Show
Ignore:
Timestamp:
05/10/06 14:59:50
Author:
miyagawa
Message:

misc bug fix on 2chRSSContent

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r695 r696  
    1818    my $body = $args->{entry}->body; 
    1919    if ($body =~ s!^([^:]*):(\d{4}/\d\d/\d\d)\(.*?\) (\d\d:\d\d:\d\d)\.\d\d (ID:\S+)  ?!!) { 
    20         my($email, $day, $time, $id) = ($1, $2, $3, $4); 
     20        my($from, $day, $time, $id) = ($1, $2, $3, $4); 
    2121 
    2222        my $date = Plagger::Date->strptime('%Y/%m/%d %H:%M:%S', "$day $time"); 
    …… 
    2626 
    2727        $args->{entry}->date($date); 
    28         $args->{entry}->author( $email ? "$id <$email>" : $id ); 
     28        $args->{entry}->author( $from ? "$from $id" : $id ); 
     29        $args->{entry}->body($body); 
    2930    } elsif ($args->{entry}->title =~ /^\d+\-$/) { 
    3031        $context->log(info => "Strip 2ch bogus entry " . $args->{entry}->title);