netstar.pl

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

「netstar.pl」(2008/12/20 (土) 15:58:46) の最新版変更点

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

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

//perl
# author: Tatsuhiko Miyagawa
sub init {
    my $self = shift;
    $self->{domain} = "www.nhk-ep.co.jp";
    $self->{handle} = "/netstar/.*mov_";
}

sub needs_content { 1 }

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

    $args->{content} =~ m!<embed src="(.*?)\.swf"!i
        or return;

    my $id = $1;
    (my $thumb_id = $id) =~ s/sono(\d+)/s$1/;
    $thumb_id =~ s/novem(\d+)/nov$1/; #11月サムネイル

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url("http://www.nhk-ep.co.jp/netstar/flv/${id}.flv");
    $enclosure->type("video/x-flv");
    $enclosure->thumbnail({ url => "http://www.nhk-ep.co.jp/netstar/img/mov_thumb_${thumb_id}.jpg" });
    return $enclosure;
}

//perl
sub init {
    my $self = shift;
    $self->{domain} = "www.nhk-ep.co.jp";
    $self->{handle} = "/netstar/.*mov_";
}

sub needs_content { 1 }

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

    $args->{content} =~ m!<embed src="(.*?)\.swf"!i
        or return;

    my $id = $1;
    (my $thumb_id = $id) =~ s/sono(\d+)/s$1/;
    $thumb_id =~ s/novem(\d+)/nov$1/; #11月サムネイル

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url("http://www.nhk-ep.co.jp/netstar/flv/${id}.flv");
    $enclosure->type("video/x-flv");
    $enclosure->thumbnail({ url => "http://www.nhk-ep.co.jp/netstar/img/mov_thumb_${thumb_id}.jpg" });
    return $enclosure;
}