Changeset 23189


Ignore:
Timestamp:
2010-10-21T00:26:37+13:00 (11 years ago)
Author:
davidb
Message:

Better parsing of video duration extracted from video file

File:
1 edited

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'};
Note: See TracChangeset for help on using the changeset viewer.