Changeset 431 for lang/perl/plagger/lib/Plagger/Plugin/Filter/FLVInfo.pm

Timestamp:

10/08/07 14:57:46 (14 months ago)

Author:

otsune

Message:

lang/perl/plagger/deps/Filter-FLVInfo.yaml: add deps
lang/perl/plagger/lib/Plagger/Plugin/Filter/FLVInfo.pm: add config and refactoring

Files:

• lang/perl/plagger/lib/Plagger/Plugin/Filter/FLVInfo.pm (modified) (4 diffs)

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

@@ -22 +22 @@
     my $enclosure = $entry->enclosure;
     if (!defined $enclosure) {
-        $context->log(error => q{Can't find an encosure.});
+        $context->log(error => q{Can't find an enclosure.});
         return;
     }
@@ -33 +33 @@
 
     my $local_path = $enclosure->local_path;
-    if ($enclosure->local_path !~ m/\.flv$/xmsg) {
+    if ($local_path !~ m/\.flv$/xmsg) {
         $context->log(warn => qq{Can't get info from $local_path.});
         return;
@@ -42 +42 @@
     $reader->parse($enclosure->local_path);
 
-    my %info =  $reader->get_info;
+    my %info = $reader->get_info;
+    my %flvinfo;
 
     my $height = $info{video_height} || $info{meta_height};
     my $width  = $info{video_width}  || $info{meta_width};
 
-    my $aspect;
-    if ($width/$height > 1.5) {
-        $aspect = '16:9';
-    }
-    else {
-        $aspect = '4:3';
-    }
-
-    $entry->meta->{flvinfo} = {
+    %flvinfo = (
         height => $height,
         width  => $width,
-        aspect => $aspect,
-    };
+        aspect => ($width/$height > 1.5) ? '16:9' : '4:3' ,
+    );
+
+    my $metadata_keys = $self->conf->{metadata};
+    $metadata_keys = [ $metadata_keys ] unless ref $metadata_keys;
+    map { $flvinfo{$_} = $info{$_} } @{$metadata_keys};
+
+    $entry->meta->{flvinfo} = \%flvinfo;
+    
 }
 
@@ -91 +91 @@
 =head1 CONFIG
 
+  - module: Filter::FLVInfo
+    config:
+      metadata:
+        - duration
+        - video_codec
+        - audio_rate
+
 =head1 AUTHOR
 
-Yohei Fushii
+Yohei Fushii, Masafumi Otsune
 
 =head1 SEE ALSO