Changeset 25346 for gs2-extensions/video-and-audio/trunk/src/perllib/plugins/VideoConverter.pm

Timestamp:

2012-04-05T15:53:05+12:00 (12 years ago)

Author:

davidb

Message:

Updates to code that take account of changes in the central PM modules

File:

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

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

@@ -717 +717 @@
     my $post_opts = "-f mp4 -O $video_processing_parameters -e x264 -b $streaming_HQ_VideoBitrate -a 1 -E faac -6 dpl2 -R Auto -B $streaming_HQ_AudioBitrate -D 0.0 -x ref=2:bframes=2:subq=6:mixed-refs=0:weightb=0:8x8dct=0:trellis=0";
 
-    my $handbrake_cmd = "HandbrakeCLI.exe -i \"$ivideo_filename_gsdlenv\" $pre_opts -o \"$omp4_filename_gsdlenv\" $post_opts";
+    my $handbrake_cmd = "HandBrakeCLI -i \"$ivideo_filename_gsdlenv\" $pre_opts -o \"$omp4_filename_gsdlenv\" $post_opts";
 
     #print STDERR "****\nHandbrake command: $handbrake_cmd\n****\n";
@@ -1005 +1005 @@
     my $ivideo_filename_gsdlenv = $self->gsdlhome_independent($ivideo_filename);
 
-     # If ever reused, then needs to change to newer hashmap method
-     #my ($vtype, $width, $height, $duration, $vsize,
-        #   $vcodec ,$fps ,$atype ,$afreq ,$achan ,$arate) = identify($ivideo_filename_gsdlenv,$outhandle,0);
+    # If ever reused, then needs to change to newer hashmap method
+    #my ($vtype, $width, $height, $duration, $vsize,
+    #   $vcodec ,$fps ,$atype ,$afreq ,$achan ,$arate) = identify($ivideo_filename_gsdlenv,$outhandle,0);
     
     #print STDERR "***** grabbing keyframe as 50% of $video_duration\n";
@@ -1015 +1015 @@
     $command = "ffmpeg  -ss $ss_opt -i \"$ivideo_filename_gsdlenv\" -ss 4.5 -an -vframes 1 -f image2 -s ${thumbnailwidth}x${thumbnailheight} -deinterlace -y \"$thumbnailfile_gsdlenv\"";
     #$command = "ffmpeg -ss 4.5 -i \"$ivideo_filename_gsdlenv\" -ss 4.5 -an -vframes 1 -f image2 -s ${thumbnailwidth}x${thumbnailheight} -deinterlace -y \"$thumbnailfile_gsdlenv\"";
+
+##  $command = "ffmpeg -i \"$ivideo_filename_gsdlenv\"  -ss 10.5 -vframes 1 -f image2 -s ${thumbnailwidth}x${thumbnailheight} -deinterlace -y \"$thumbnailfile_gsdlenv\"";
+
+    $command = "ffmpeg -i \"$ivideo_filename_gsdlenv\"  -ss 16.5 -vframes 1 -f image2 -s ${thumbnailwidth}x${thumbnailheight} -deinterlace -y \"$thumbnailfile_gsdlenv\"";
+
 
     # fmpeg -i input.dv -r 1 -f image2 -s 120x96 images%05d.png