「nicoscience.pl」の編集履歴(バックアップ)一覧はこちら
「nicoscience.pl」(2009/01/17 (土) 21:50:12) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
//perl
sub init {
my $self = shift;
$self->{domain} = "nicoscience.blog50.fc2.com";
$self->{handle} = ".";
}
sub needs_content { 1 }
sub find {
my ($self, $args) = @_;
my($id) = $args->{content} =~ m!\/watch\/(\w+)!
or return;
my $enclosure = Plagger::Enclosure->new;
$enclosure->url("http://ext.nicovideo.jp/thumb_watch/$id");
$enclosure->type('application/javascript');
$enclosure->thumbnail({ url => $self->_thumbnail_for($id) });
return $enclosure;
}
sub _thumbnail_for {
my($self, $id) = @_;
if (0) {
my $res = Plagger::UserAgent->new->fetch("http://www.nicovideo.jp/api/getthumbinfo/$id");
unless ($res->is_error) {
my $doc = XML::LibXML->new->parse_string($res->content);
my @nodes = $doc->findnodes('//thumbnail_url');
if (@nodes) {
return $nodes[0]->textContent;
}
}
}
$id =~ s!^\w\w!!;
return "http://tn-skr1.smilevideo.jp/smile?i=$id";
}
//perl
# http://nicoscience.blog50.fc2.com/
sub init {
my $self = shift;
$self->{domain} = "nicoscience.blog50.fc2.com";
$self->{handle} = ".";
}
sub needs_content { 1 }
sub find {
my ($self, $args) = @_;
my($id) = $args->{content} =~ m!\/watch\/(\w+)!
or return;
my $enclosure = Plagger::Enclosure->new;
$enclosure->url("http://ext.nicovideo.jp/thumb_watch/$id");
$enclosure->type('application/javascript');
$enclosure->thumbnail({ url => $self->_thumbnail_for($id) });
return $enclosure;
}
sub _thumbnail_for {
my($self, $id) = @_;
if (0) {
my $res = Plagger::UserAgent->new->fetch("http://www.nicovideo.jp/api/getthumbinfo/$id");
unless ($res->is_error) {
my $doc = XML::LibXML->new->parse_string($res->content);
my @nodes = $doc->findnodes('//thumbnail_url');
if (@nodes) {
return $nodes[0]->textContent;
}
}
}
$id =~ s!^\w\w!!;
return "http://tn-skr1.smilevideo.jp/smile?i=$id";
}