Changeset 353

Show
Ignore:
Timestamp:
03/07/06 00:49:02
Author:
mizzy
Message:

Obsolete reload_period in CustomFeed?::iTunesRecentPlay to use Rule::Fresh.
Use pubish.entry instead of publish.feed in Publish::Playlog.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plagger/lib/Plagger/Plugin/CustomFeed/iTunesRecentPlay.pm

    r282 r353  
    4343 
    4444    open my $fh, "<:encoding(utf-8)", $file 
    45         or return $class->log(error => "$file: $!"); 
     45        or return $context->log(error => "$file: $!"); 
    4646 
    4747    my $feed = Plagger::Feed->new; 
    …… 
    6565                my $entry = Plagger::Entry->new; 
    6666 
    67                 my $dt = DateTime::Format::W3CDTF->parse_datetime($data->{date}); 
    68                 unless ($dt) { 
    69                     $context->log( warn => "Can't parse $data->{date}"); 
    70                     next; 
    71                 } 
    72                 if( $data->{date} and $data->{artist} and $dt->epoch > time - $self->conf->{reload_period} ){ 
     67                if( $data->{date} and $data->{artist} ){ 
     68                    my $dt = DateTime::Format::W3CDTF->parse_datetime($data->{date}); 
     69                    unless ($dt) { 
     70                        $context->log( warn => "Can't parse $data->{date}"); 
     71                        next; 
     72                    } 
    7373                    for my $key (keys %$data){ 
    7474                        $entry->meta->{$key} = $data->{$key}; 
    7575                    } 
    76                     $context->log( info => $data->{artist} . ' ' . $data->{track}); 
     76                    $entry->date(Plagger::Date->from_epoch($dt->epoch)); 
     77                    $context->log( debug => $data->{artist} . ' ' . $data->{track}); 
    7778                    $feed->add_entry($entry); 
    7879                } 

  • trunk/plagger/lib/Plagger/Plugin/Publish/Playlog.pm

    r280 r353  
    66use XML::Atom::Entry; 
    77 
    8 sub rule_hook { 'publish.feed' } 
    9  
    108sub register { 
    119    my($self, $context) = @_; 
    1210    $context->register_hook( 
    1311        $self, 
    14         'publish.feed' => \&feed, 
     12        'publish.entry' => \&entry, 
    1513    ); 
    1614} 
    1715 
    18 sub feed { 
     16sub entry { 
    1917    my($self, $context, $args) = @_; 
    2018 
    …… 
    2321    $api->password($self->conf->{password}); 
    2422 
    25    for (@{$args->{feed}->entries}){ 
    26         my $entry = XML::Atom::Entry->new; 
    27         my $otolog = XML::Atom::Namespace->new(otolog => 'http://otolog.org/ns/music#'); 
    28         for my $key (keys %{$_->meta}){ 
    29             $entry->set($otolog, 'otolog:' . $key, $_->meta->{$key}); 
    30         } 
    31         $context->log( info => $_->meta->{artist} . ' ' . $_->meta->{track}); 
    32         $api->createEntry('http://mss.playlog.jp/playlog', $entry); 
     23    my $entry = XML::Atom::Entry->new; 
     24    my $otolog = XML::Atom::Namespace->new(otolog => 'http://otolog.org/ns/music#'); 
     25    for my $key (keys %{$args->{entry}->meta}){ 
     26        $entry->set($otolog, 'otolog:' . $key, $args->{entry}->meta->{$key}); 
    3327    } 
     28    $context->log( info => $args->{entry}->meta->{artist} . ' ' . $args->{entry}->meta->{track}); 
     29    $api->createEntry('http://mss.playlog.jp/playlog', $entry); 
    3430} 
    3531 
    …… 
    4743      username: your-playlog-id 
    4844      password: xxxxxxxx 
     45    rule: 
     46      module: Fresh 
     47      mtime: 
     48        path: /tmp/iTunesRecentPlay.tmp 
     49        autoupdate: 1 
    4950 
    5051=head1 DESCRIPTION