gametrailers.pl

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

「gametrailers.pl」(2008/12/20 (土) 21:33:17) の最新版変更点

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

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

# upgrades http://www.gametrailers.com/rssgenerate.php?game1id=6364&orderby=newest&limit=20
use Web::Scraper;
sub init {
    my $self = shift;
    $self->{domain} = "gametrailers.com";
    $self->{handle} = '/player/\d+.html';
}

sub needs_content { 1 }

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

    my $uri = URI->new($args->{url});

    my($mid) = $uri->path =~ m!/(\d+)\.html! or return;

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

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url("http://www.gametrailers.com/flash/gt6player224n.swf?mid=$mid");
    $enclosure->width(480);
    $enclosure->height(392);
    $enclosure->type("application/x-shockwave-flash");    
    $enclosure->thumbnail({ url => $scraper->{thumbnail} });
    return $enclosure;
}

sub upgrade {
    my($self, $args) = @_;
    my $enclosure = $args->{enclosure};
    return unless $enclosure->type eq 'application/x-shockwave-flash';

    my($mid) = $args->{entry}->link =~ m!/(\d+)\.html! or return;
    if ($args->{entry}->title =~ /\sHD$/) {
        $enclosure->url("http://www.gametrailers.com/flash/gt6playerhd202k.swf?mid=$mid");
        $enclosure->width(960);
        $enclosure->height(572);
    }
}

# upgrades http://www.gametrailers.com/rssgenerate.php?game1id=6364&orderby=newest&limit=20
# http://www.gametrailers.com/rssgenerate.php?s1=&favplats[pc]=pc&vidformat[flv]=on&type[review]=on&embed=on&quality[hd]=on&agegate[no]=on&orderby=newest&limit=20
use Web::Scraper;
sub init {
    my $self = shift;
    $self->{domain} = "gametrailers.com";
    $self->{handle} = '/player/\d+.html';
}

sub needs_content { 1 }

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

    my $uri = URI->new($args->{url});

    my($mid) = $uri->path =~ m!/(\d+)\.html! or return;

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

    my $enclosure = Plagger::Enclosure->new;
    $enclosure->url("http://www.gametrailers.com/flash/gt6player224n.swf?mid=$mid");
    $enclosure->width(480);
    $enclosure->height(392);
    $enclosure->type("application/x-shockwave-flash");    
    $enclosure->thumbnail({ url => $scraper->{thumbnail} });
    return $enclosure;
}

sub upgrade {
    my($self, $args) = @_;
    my $enclosure = $args->{enclosure};
    return unless $enclosure->type eq 'application/x-shockwave-flash';

    my($mid) = $args->{entry}->link =~ m!/(\d+)\.html! or return;
    if ($args->{entry}->title =~ /\sHD$/) {
        $enclosure->url("http://www.gametrailers.com/flash/gt6playerhd202k.swf?mid=$mid");
        $enclosure->width(960);
        $enclosure->height(572);
    }
}