# http://vision.ameba.jp/rss/new.do
sub init {
my $self = shift;
$self->{handle} = "watch.do";
}
sub find {
my ($self, $args) = @_;
my($id, $jpg) = $args->{content} =~ m!Paste\.init\('\d+','(.*?)','(http://.*?\.jpg)'\)!
or return;
my $enclosure = Plagger::Enclosure->new;
$enclosure->url("http://vm1-1.vision.ameba.jp/mcb.swf?id=$id");
$enclosure->type('application/x-shockwave-flash');
$enclosure->thumbnail({ url => $jpg });
return $enclosure;
}
sub upgrade {
my($self, $args) = @_;
my $enclosure = $args->{enclosure};
return unless $enclosure->type eq 'application/x-shockwave-flash';
my $id = URI->new($enclosure->url)->query_param('id')
or return;
$enclosure->url("http://vm1-1.vision.ameba.jp/mcb.swf?id=$id&width=640&height=470");
$enclosure->width(480);
$enclosure->height(360);
}
最終更新:2009年01月17日 22:01