Changeset 23189 for gs2-extensions

Timestamp:

2010-10-21T00:26:37+13:00 (14 years ago)

Author:

davidb

Message:

Better parsing of video duration extracted from video file

File:

• gs2-extensions/video-and-audio/trunk/src/perllib/plugins/VideoPlugin.pm (modified) (2 diffs)

gs2-extensions/video-and-audio/trunk/src/perllib/plugins/VideoPlugin.pm

@@ -344 +344 @@
     = &VideoConverter::identify($filename, $outhandle, $verbosity);
 
-    if ($video_duration =~ m/^(\d\d):(\d\d):(\d\d)\.(\d\d)$/) {
+    if ($video_duration =~ m/^(\d\d):(\d\d):(\d\d)\.(\d+)$/) {
     $video_duration = $1*3600 + $2*60 + $3 + ($4/10.0);
     }
@@ -368 +368 @@
 
     # shorten duration prcessed for experimentation purposes
-    my $exp_duration = undef;
+   my $exp_duration = undef;
+##    my $exp_duration = "00:00:30";
     
     my $excerpt_duration = $self->{'excerpt_duration'};