Changeset 23189

Show
Ignore:
Timestamp:
21.10.2010 00:26:37 (9 years ago)
Author:
davidb
Message:

Better parsing of video duration extracted from video file

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/video-and-audio/trunk/src/perllib/plugins/VideoPlugin.pm

    r22487 r23189  
    344344    = &VideoConverter::identify($filename, $outhandle, $verbosity); 
    345345 
    346     if ($video_duration =~ m/^(\d\d):(\d\d):(\d\d)\.(\d\d)$/) { 
     346    if ($video_duration =~ m/^(\d\d):(\d\d):(\d\d)\.(\d+)$/) { 
    347347    $video_duration = $1*3600 + $2*60 + $3 + ($4/10.0); 
    348348    } 
     
    368368 
    369369    # shorten duration prcessed for experimentation purposes 
    370     my $exp_duration = undef; 
     370   my $exp_duration = undef; 
     371##    my $exp_duration = "00:00:30"; 
    371372     
    372373    my $excerpt_duration = $self->{'excerpt_duration'};