Changeset 6

Show
Ignore:
Timestamp:
10/03/06 01:11:15
Author:
yohei
Message:

Brash up CustomFeed?::FileList?

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • plagger/trunk/my-plugins/CustomFeed-FileList/FileList.pm

    r4 r6  
    33use base qw( Plagger::Plugin ); 
    44 
     5use Encode; 
    56use Plagger::UserAgent; 
    6 use Plagger::Util qw( decode_content ); 
    77use Plagger::Date; 
    88use Digest::MD5 qw(md5_hex); 
    …… 
    3737    } 
    3838 
    39     my $content = decode_content($res); 
     39    my $content = decode_utf8($res->content); 
    4040 
    4141    my $feed = Plagger::Feed->new; 
    …… 
    5454 
    5555        my $title  = $infos[9]; 
     56        next if ($title =~ /^\.\.?$/);  
    5657        my $author = $infos[2]; 
    5758        my $date   = join ' ', $infos[5], $infos[6], $infos[7], $infos[8]; 
     59 
     60        $context->log(debug => $date); 
    5861 
    5962        my $entry = Plagger::Entry->new; 
    …… 
    6265        $entry->author($author); 
    6366        $entry->date(Plagger::Date->strptime('%m %d %T %Y', $date)); 
    64         $entry->id(md5_hex($file)); 
     67        $entry->id(md5_hex(encode_utf8($file))); 
    6568 
    6669        $feed->add_entry($entry);