videonifty.pl

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

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

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

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

//perl
sub init {
    my $self = shift;
    $self->{domain} = "video.nifty.com";
    $self->{handle} = "/cs/catalog/video_metadata/";
}

sub needs_content { 1 }

sub find {
    my ($self, $args) = @_;
    my ($user_id,$catalog_id,$category_id) = $args->{content} =~ m!user_id=(\d+)&catalog_id=(\d+)&category_id=(\d)!
        or return;

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url("http://dl.video.nifty.com/player.swf?dom=dl.video.nifty.com&user_id=$user_id&catalog_id=$catalog_id&category_id=$category_id");
    $enclosure->type('application/x-shockwave-flash');
    $enclosure->width(470);    
    $enclosure->height(380);
    return $enclosure;
}

//perl
# http://video.nifty.com/cs/catalog/video_metadata/lst/srt_new/efg_0/pgcnf_9/1.htm
sub init {
    my $self = shift;
    $self->{domain} = "video.nifty.com";
    $self->{handle} = "/cs/catalog/video_metadata/";
}

sub needs_content { 1 }

sub find {
    my ($self, $args) = @_;
    my ($user_id,$catalog_id,$category_id) = $args->{content} =~ m!user_id=(\d+)&catalog_id=(\d+)&category_id=(\d)!
        or return;

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url("http://dl.video.nifty.com/player.swf?dom=dl.video.nifty.com&user_id=$user_id&catalog_id=$catalog_id&category_id=$category_id");
    $enclosure->type('application/x-shockwave-flash');
    $enclosure->width(470);    
    $enclosure->height(380);
    return $enclosure;
}