woopie.pl

「woopie.pl」の編集履歴（バックアップ）一覧はこちら

「woopie.pl」(2009/01/17 (土) 21:16:16) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

//perl
# http://www.woopie.jp/feed/ranking/channel
use Web::Scraper;
sub init {
    my $self = shift;
    $self->{domain} = "woopie.jp";
    $self->{handle} = 'channel/watch/\d+';
}

sub needs_content { 1 }

sub find {
    my ($self, $args) = @_;
    my $uri = URI->new($args->{url});
    my($video_id) = $uri =~ m!/channel/watch/(\d+)!
        or return;

    my $res = scraper {
         process 'span.image-video img', thumbnail => '@src';
    }->scrape($args->{content}, $args->{url});

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url("http://www.woopie.jp/swf/ChannelPlayer-embed480.swf?channel_id=$video_id");
    $enclosure->type('application/x-shockwave-flash');
    $enclosure->thumbnail({ url => $res->{thumbnail} });
    return $enclosure;
}

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

    my $enclosure = $args->{enclosure};
    return unless $enclosure->type eq 'application/x-shockwave-flash';

    my $uri = URI->new($enclosure->url);
    unless ($uri->query_param('autostart')) {
        $enclosure->url($enclosure->url . "&autostart=1");
    }

    $enclosure->width(480);
    $enclosure->height(400);
}

//perl
# http://www.woopie.jp/feed/ranking/channel
use Web::Scraper;
sub init {
    my $self = shift;
    $self->{handle} = 'channel/watch/\d+';
}

sub needs_content { 1 }


sub find {
    my ($self, $args) = @_;
    my $uri = URI->new($args->{url});
    my($video_id) = $uri =~ m!/channel/watch/(\d+)!
        or return;

    my $res = scraper {
         process 'span.image-video img', thumbnail => '@src';
    }->scrape($args->{content}, $args->{url});

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url("http://www.woopie.jp/swf/ChannelPlayer-embed480.swf?channel_id=$video_id");
    $enclosure->type('application/x-shockwave-flash');
    $enclosure->thumbnail({ url => $res->{thumbnail} });
    return $enclosure;
}

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

    my $enclosure = $args->{enclosure};
    return unless $enclosure->type eq 'application/x-shockwave-flash';

    my $uri = URI->new($enclosure->url);
    unless ($uri->query_param('autostart')) {
        $enclosure->url($enclosure->url . "&autostart=1");
    }

    $enclosure->width(480);
    $enclosure->height(400);
}