Changeset 7636 for lang/perl/plagger/lib/Plagger/Plugin/Filter

Timestamp:

03/07/08 22:28:04 (9 months ago)

Author:

yusukebe

Message:

apply to SP1 see http://www.smallstyle.com/20080306.html

Files:

• lang/perl/plagger/lib/Plagger/Plugin/Filter/FetchNicoVideo.pm (modified) (2 diffs)

lang/perl/plagger/lib/Plagger/Plugin/Filter/FetchNicoVideo.pm

@@ -74 +74 @@
         Encode::from_to( $filename, "utf-8", $self->conf->{filename_encode} );
     }
-    my $path = File::Spec->catfile( $self->conf->{dir}, $filename . ".flv" );
+
+    $enclosure->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 = File::Spec->catfile( $self->conf->{dir}, $filename . ".$ext" );
 
     unless ( -e $path ) {
@@ -113 +122 @@
         $enclosure->length( $res->header('Content-Length') );
     }
+    $enclosure->type( Plagger::Util::mime_type_of($path) );
     $entry->add_enclosure($enclosure);
 }