- } else {
- # Create the merged video
- my $errno = system("$cmd");
- if($errno > 0) { $errno = $errno - 255; }
- if($errno) { die "-E- make_mkv encountered some errors with exit code $errno\n"; }
- # Fix the permissions
- system("chown $owner \"$video\"");
- system("chgrp $group \"$video\"");
- system("chmod $mode \"$video\"");
- # Remove the individual video files
- if(defined $opt_r) {
- foreach $video (@{$videos{$video}}) {
- system("rm -f $video");
+
+ my $pwd = `pwd`; chomp($pwd);
+ my $cmd = "";
+ if($use_compute_host) { $cmd .= "ssh $compute_host 'cd \"$pwd\";"; }
+ $cmd .= "$make_mkv -t \"$video_title_prefix $year-$month-$day\" -o \"$video\" -i $videos";
+ if($requantize_input_video) { $cmd .= ' -q'; }
+ if($recompress_input_video) { $cmd .= ' -z'; }
+ if($opt_v) { $cmd .= ' -v'; }
+ if($use_compute_host) { $cmd .= "'"; }
+ if(defined $opt_t) {
+ # Print what will be done, but don't actually do it
+ print "\n-> Creating \"$video\"\n";
+ print "$cmd\n";
+ if(!defined $opt_k) {
+ foreach $video (@{$videos{$ext}{$video}}) {
+ if(($save_originals) && ($video =~ /\.$originals_file_ext/)) {
+ print "-> Saving the original video $video\n";
+ if(index($video, basename(dirname($video))) == -1) {
+ print("mv $video \"$origpathname/".basename(dirname($video))."_".basename($video)."\n");
+ } else {
+ print("mv $video \"$origpathname/".basename($video)."\n");
+ }
+ } else {
+ print "-> Removing the original video $video\n";
+ print("/bin/bash -c '[[ -e $video ]] && rm -f $video'\n");
+ }
+ }
+ }
+ } else {
+ # Create the merged video
+ print "$ext: $cmd" if($opt_v);
+ my $errno = system("$cmd");
+ $errno = $errno >> 8;
+ if($errno) { die "-E- make_mkv encountered some errors with exit code $errno\n"; }
+ system("ls -l \"$srcpathname/\" > /dev/null"); # Make sure the video file is there
+ # Fix the permissions
+ if(-f "$video") {
+ system("chown $owner \"$video\"");
+ system("chgrp $group \"$video\"");
+ system("chmod $mode \"$video\"");
+ }
+ # Remove the individual video files
+ if(!defined $opt_k) {
+ foreach $srcvideo (@{$videos{$ext}{$video}}) {
+ if(($save_originals) && ($srcvideo =~ /\.$originals_file_ext/)) {
+ print "-> Saving the original video $srcvideo to $origpathname\n";
+ if(index($srcvideo, basename(dirname($srcvideo))) == -1) {
+ system("mv $srcvideo \"$origpathname/".basename(dirname($srcvideo))."_".basename($srcvideo));
+ } else {
+ system("mv $srcvideo \"$origpathname/".basename($srcvideo));
+ }
+ } else {
+ print "-> Removing the original video $srcvideo\n";
+ system("/bin/bash -c '[[ -e $srcvideo ]] && rm -f $srcvideo'");
+ }
+ }