Changeset 7635

Timestamp:

03/07/08 22:26:31 (9 months ago)

Author:

woremacx

Message:

lang/perl/misc/fetch-nico-video.pl: apply video types patch from http://www.smallstyle.com/20080307.html#p01 (thanks to id:otsune)

Files:

• lang/perl/misc/fetch-nico-video.pl (modified) (1 diff)

lang/perl/misc/fetch-nico-video.pl

@@ -26 +26 @@
     warn "Found FLV URL $flv_url";
 
-    my $path = "$video_id.flv";
+    $flv_url =~ m!^http://[^/]+(?:smilevideo|nicovideo)\.jp/smile\?(\w)=(?:[^.]+)\.\d+(?:low)?!;
+    my %video_type_of = (
+        v => 'flv',
+        m => 'mp4',
+        s => 'swf',
+    );
+    my $ext = exists( $video_type_of{$1} ) ? $video_type_of{$1} : "flv";
+    my $path = "$video_id.$ext";
 
     unless ( -e $path ) {