Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

apply http://gist.github.com/201516

  • Loading branch information...
commit c02c5c38cbaf2768eac62c82a3a0aaa15af878b7 1 parent 1988e6d
@miyagawa authored
Showing with 5 additions and 2 deletions.
  1. +3 −0  Changes
  2. +2 −2 lib/WWW/NicoVideo/Download.pm
View
3  Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension WWW::NicoVideo::Download
+0.03 Mon Oct 5 01:14:15 PDT 2009
+ - Fixed FLV URI and login regular expression (cho45)
+
0.02 Fri Feb 13 14:55:15 PST 2009
- Use Any::Moose
View
4 lib/WWW/NicoVideo/Download.pm
@@ -39,7 +39,7 @@ sub prepare_download {
$self->login($video_id);
}
- $res = $ua->get("http://www.nicovideo.jp/api/getflv?v=$video_id");
+ $res = $ua->get("http://www.nicovideo.jp/api/getflv/$video_id");
if ($res->is_error) {
croak "getflv API error: ", $res->status_line;
}
@@ -56,7 +56,7 @@ sub prepare_download {
sub is_logged_out {
my($self, $res) = @_;
- $res->content =~ /id="login_bar"/;
+ $res->content =~ qr|<strong>ゲスト</strong>|;
}
sub login {
Please sign in to comment.
Something went wrong with that request. Please try again.