Changeset 1900

Show
Ignore:
Timestamp:
12/02/06 06:55:54
Author:
miyagawa
Message:

CustomFeed?::Mailman: work with wrapped subject

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/lib/Plagger/Plugin/CustomFeed/Mailman.pm

    r480 r1900  
    7171 
    7272    my @matches; 
    73     while ($content =~ m!<LI><A HREF="(\d+\.html)">(.*?)\n</A><A NAME="(\d+)">&nbsp;</A>\n<I>(.*?)\n</I>!g) { 
    74         push @matches,
     73    while ($content =~ m!<LI><A HREF="(\d+\.html)">(.*?)\n</A><A NAME="(\d+)">&nbsp;</A>\n<I>(.*?)\n</I>!sg) { 
     74        my $data =
    7575            link    => $1, 
    7676            subject => $2, 
     
    7878            from    => $4, 
    7979        }; 
     80        $data->{subject} =~ tr/\n//d; 
     81        push @matches, $data; 
    8082    } 
    8183