Changeset 25518
- Timestamp:
- 2012-05-02T22:16:34+12:00 (12 years ago)
- Location:
- gs2-extensions/video-and-audio/trunk/src/perllib/plugins
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/video-and-audio/trunk/src/perllib/plugins/VideoConverter.pm
r25516 r25518 339 339 340 340 # Use the MediaInfo command to get the file specs 341 my $command = " MediaInfo \"$video\"";341 my $command = "mediainfo \"$video\""; 342 342 343 343 print $outhandle " $command\n" if ($verbosity > 2); … … 1173 1173 my $count = 1; 1174 1174 1175 ## print STDERR "**** timeline keys = ", join("; ", keys %$timeline), "\n"; 1175 1176 foreach my $t (sort { $timeline->{$a}->{'keyframeindex'} <=> $timeline->{$b}->{'keyframeindex'} } keys %$timeline) 1176 1177 { -
gs2-extensions/video-and-audio/trunk/src/perllib/plugins/VideoPlugin.pm
r25516 r25518 149 149 # Generate the keyframes with ffmpeg and hive 150 150 my $ifilename = $originalfilename || $filename; 151 151 152 my ($keyframe_cmd,$okeyframe_filename) = $self->ffKeyframe_cmd($ifilename); 152 153 … … 420 421 print STDERR "**** video width x height: $video_width x $video_height\n"; 421 422 422 if ( $vfps eq "unknown") {423 if (($vfps eq "unknown") || ($vfps eq "")) { 423 424 print $outhandle "Unknown framerate, defaulting to 25 frames per second.\n"; 424 425 $vfps = 25; … … 428 429 429 430 $self->{'video-fps'} = $vfps; 431 print STDERR "**** vfps = $vfps\n"; 432 430 433 $self->{'num-total-frames'} = $total_dur_secs * $vfps; 431 434 #print STDERR "****\nTotal_dur_secs= $total_dur_secs vfps= $vfps\n****\n"; … … 611 614 612 615 if ($self->{'create_keyframes'} eq "true") { 613 616 $self->extract_keyframes($doc_obj,$originalfilename,$filename,$video_width,$video_height); 614 617 } 615 618 … … 1044 1047 my ($expat, $element) = @_; 1045 1048 1049 ## print STDERR "*** element = $element\n"; 1050 1046 1051 if ($element eq "seg") { 1047 1052 1048 1053 $self->output_distributed_keyframes($self->{'keyframe_timeline'},$self->{'ffkeyframe_num_shots'}); 1049 1050 1054 1051 1055 print CUEOUT "</tags>\n";
Note:
See TracChangeset
for help on using the changeset viewer.