Changeset 22487
- Timestamp:
- 2010-07-23T00:39:55+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/video/trunk/perllib/plugins/VideoPlugin.pm
r22432 r22487 344 344 = &VideoConverter::identify($filename, $outhandle, $verbosity); 345 345 346 if ($video_duration =~ m/^(\d\d):(\d\d):(\d\d)\.(\d )$/) {346 if ($video_duration =~ m/^(\d\d):(\d\d):(\d\d)\.(\d\d)$/) { 347 347 $video_duration = $1*3600 + $2*60 + $3 + ($4/10.0); 348 348 } 349 349 350 #if ($vfps eq "unknown") {351 #print $outhandle "Unknown framerate, defaulting to 25 frames per second.\n";352 #$vfps = 25;353 #}350 if ($vfps eq "unknown") { 351 print $outhandle "Unknown framerate, defaulting to 25 frames per second.\n"; 352 $vfps = 25; 353 } 354 354 355 355 #my ($dur_hour,$dur_min,$dur_sec) … … 361 361 $self->{'video-fps'} = $vfps; 362 362 $self->{'num-total-frames'} = $total_dur_secs * $vfps; 363 #print STDERR "****\nTotal_dur_secs= $total_dur_secs vfps= $vfps\n****\n"; 363 364 364 365 # Convert the video to a new type (if required). … … 375 376 my ($hh,$mm,$ss,$ms); 376 377 377 if ($exp_duration =~ m/^(\d\d):(\d\d):(\d\d)\.?(\d \d)?/) {378 if ($exp_duration =~ m/^(\d\d):(\d\d):(\d\d)\.?(\d)$/) { 378 379 $hh = $1; 379 380 $mm = $2;
Note:
See TracChangeset
for help on using the changeset viewer.