vimeo.pl

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

「vimeo.pl」(2008/12/20 (土) 15:49:16) の最新版変更点

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

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

//perl
# http://vimeo.com/
# 1. find    -> embed SWF from clip_id
# 2. upgrade -> Set autoplay
use Web::Scraper;
sub init {
    my $self = shift;
    $self->{domain} = "vimeo.com";
    $self->{handle} = ".";
}

sub needs_content { 1 }

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

    my $scraper = scraper {
        process '#brozar_current_clip img',thumbnail => '@src';
    }->scrape($args->{content}, $args->{url});

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url("http://vimeo.com/moogaloop.swf?clip_id=$video_id");
    $enclosure->type('application/x-shockwave-flash');
    $enclosure->thumbnail({ url => $scraper->{thumbnail} });

    return $enclosure;
}

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

    my $uri = URI->new($args->{enclosure}->url);
    return unless $uri->path eq '/moogaloop.swf';

    $uri->query_param(autoplay => 1);
    $args->{enclosure}->url($uri->as_string);

    # There should be a way to detect this, but for now we could assume it's 16x9 video
    $args->{enclosure}->width(1024);
    $args->{enclosure}->height(576);
}