fooooo.pl

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

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

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

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

//perl
sub init {
    my $self = shift;
    $self->{domain} = "fooooo.com";
    $self->{handle} = ".";
}
 
sub needs_content { 1 }
 
sub find {
    my ($self, $args) = @_;
    my $url;
    my $enclosure = Plagger::Enclosure->new;

    if($args->{content} =~ qr|www.youtube.com/v/|) {
       ($url) = $args->{content} =~ /value="(.+?)" name="movie"/;
    }
    elsif($args->{content} =~ qr|www.veoh.com/videos/|) {
        my ($permalinkid) = $args->{content} =~ /permalinkId=(\w+)/;
        $url = "http://www.veoh.com/videodetails2.swf?permalinkId=$permalinkid&id=anonymous&player=videodetailsembedded&videoAutoPlay=1";
    }
    elsif($args->{content} =~ qr|www.nicovideo.jp/watch|) {
        my ($id) = $args->{content} =~ /\/watch\/(\w+)/;
        $url = "http://ext.nicovideo.jp/thumb_watch/$id";
    }
    elsif($args->{content} =~ qr|dailymotion.com/swf/|) {
        ($url) = $args->{content} =~ /<embed src="(.+?)"/;
    }
    elsif($args->{content} =~ qr|vision.ameba.jp/watch.do|) {
       #my($id, $jpg) = $args->{content} =~ m!Paste\.init\('\d+','(.*?)','(http://.*?\.jpg)'\)!;  # iframe 
       #$url = "http://vm1-1.vision.ameba.jp/mcb.swf?id=$id&width=590&height=510";
    }
    elsif($args->{content} =~ qr|videocast.yahoo.co.jp/player/|) {
        ($url) = $args->{content} =~ /<embed src="(.+?)"/;
    }
    elsif($args->{content} =~ qr|video.fc2.com/flv2.swf|) {
        ($url) = $args->{content} =~ /<embed src="(.+?)"/;
        $enclosure->width(424);    
        $enclosure->height(360);
    }
    elsif($args->{content} =~ qr|<!--Start iframe -->|) {  #(youtube,veoh)埋め込み無効分
       ($url) = $args->{content} =~ /<iframe src="(.+?)"/;
    }

    $enclosure->url("$url");
    $enclosure->type('application/x-shockwave-flash');
    return $enclosure;
}

//perl
# http://www.fooooo.com/list.php?genre=0
sub init {
    my $self = shift;
    $self->{domain} = "fooooo.com";
    $self->{handle} = ".";
}
 
sub needs_content { 1 }
 
sub find {
    my ($self, $args) = @_;
    my $url;
    my $enclosure = Plagger::Enclosure->new;

    if($args->{content} =~ qr|www.youtube.com/v/|) {
       ($url) = $args->{content} =~ /value="(.+?)" name="movie"/;
    }
    elsif($args->{content} =~ qr|www.veoh.com/videos/|) {
        my ($permalinkid) = $args->{content} =~ /permalinkId=(\w+)/;
        $url = "http://www.veoh.com/videodetails2.swf?permalinkId=$permalinkid&id=anonymous&player=videodetailsembedded&videoAutoPlay=1";
    }
    elsif($args->{content} =~ qr|www.nicovideo.jp/watch|) {
        my ($id) = $args->{content} =~ /\/watch\/(\w+)/;
        $url = "http://ext.nicovideo.jp/thumb_watch/$id";
    }
    elsif($args->{content} =~ qr|dailymotion.com/swf/|) {
        ($url) = $args->{content} =~ /<embed src="(.+?)"/;
    }
    elsif($args->{content} =~ qr|vision.ameba.jp/watch.do|) {
       #my($id, $jpg) = $args->{content} =~ m!Paste\.init\('\d+','(.*?)','(http://.*?\.jpg)'\)!;  # iframe 
       #$url = "http://vm1-1.vision.ameba.jp/mcb.swf?id=$id&width=590&height=510";
    }
    elsif($args->{content} =~ qr|videocast.yahoo.co.jp/player/|) {
        ($url) = $args->{content} =~ /<embed src="(.+?)"/;
    }
    elsif($args->{content} =~ qr|video.fc2.com/flv2.swf|) {
        ($url) = $args->{content} =~ /<embed src="(.+?)"/;
        $enclosure->width(424);    
        $enclosure->height(360);
    }
    elsif($args->{content} =~ qr|<!--Start iframe -->|) {  #(youtube,veoh)埋め込み無効分
       ($url) = $args->{content} =~ /<iframe src="(.+?)"/;
    }

    $enclosure->url("$url");
    $enclosure->type('application/x-shockwave-flash');
    return $enclosure;
}