09/09/27 13:13:22
--- get_flash_videos-1.15.orig 2009-09-27 11:48:37.000000000 +0900
+++ get_flash_videos-1.15 2009-09-27 13:12:42.000000000 +0900
@@ -2010,7 +2010,7 @@ use URI::Escape;
sub find_video {
my ($self, $browser, $embed_url) = @_;
- my $id = ($embed_url =~ /(sm\d+)/)[0];
+ my $id = ($embed_url =~ /([sn]m\d+)/)[0];
die "No ID found\n" unless $id;
my $base = "URLﾘﾝｸ(ext.nicovideo.jp)";
@@ -2029,7 +2029,9 @@ sub find_video {
$browser->get($base . "/$playkey");
my $url = uri_unescape(($browser->content =~ /url=([^&]+)/)[0]);
- return $url, title_to_filename($title);
+ $url =~ m{/smile\?(.)=} or die;
+ my $type = { qw( v flv m mp4 s swf ) }->{$1} or die;
+ return $url, title_to_filename($title, $type);
}
1;
@@ -3318,6 +3320,9 @@ sub check_magic {
# Other QuickTime
} elsif(substr($data, 4, 4) eq 'moov' || substr($data, 4, 4) eq 'mdat') {
return 1;
+ # SWF
+ } elsif(substr($data, 0, 3) eq 'CWS') {
+ return 1;
}
return 0;