root/plagger/trunk/lib/Plagger/Plugin/CustomFeed/Xmltv.pm

package Plagger::Plugin::CustomFeed::Xmltv;
use strict;
use warnings;
use base qw( Plagger::Plugin );

use XML::Simple;
use DateTime::Format::Strptime;

sub register {
    my($self, $context) = @_;
    $context->register_hook(
        $self,
        'subscription.load' => \&load,
    );
}

sub load {
    my($self, $context) = @_;
    my $feed = Plagger::Feed->new;
    $feed->aggregator(sub { $self->aggregate(@_) });
    $context->subscription->add($feed);
}

sub aggregate {
    my($self, $context, $args) = @_;

    my $feed = Plagger::Feed->new;
    $feed->type('xmltv');
    $feed->title('xmltv');

    my $tv = `tv_grab_jp`;
    my $xml = XMLin($tv);
    for (@{$xml->{programme}}){
        my $entry = Plagger::Entry->new;

        # ¥«¥Æ¥Ž¥ê
        my $category;
        if(ref($_->{category}) eq 'ARRAY'){
            for (@{$_->{category}}){
                if($_->{lang} eq 'ja_JP'){
                    $entry->add_tag($_->{content});
                }
            }
        }

        # ¥¿¥€¥È¥ë
        my $title;
        if(ref($_->{title}) eq 'ARRAY'){
            for (@{$_->{title}}){
                if($_->{lang} eq 'ja_JP'){
                    $entry->title($_->{content});
                }
            }
        }
        else {
            $entry->title($_->{title}->{content});
        }

        # »þ¹ï
        my $format = DateTime::Format::Strptime->new(pattern => '%Y%m%d%H%M%s %z');
        $entry->date( Plagger::Date->parse($format, $_->{start}) );

        $feed->add_entry($entry);
    }

    $context->update->add($feed);
}

1;