- } 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");
+ }
+}
+
+# Tell the user which videos we are going to merge
+foreach $ext (sort keys %videos) {
+ foreach $video (sort keys %{$videos{$ext}}) {
+ foreach $srcfile (@{$videos{$ext}{$video}}) {
+ print " merging \"$srcfile\" into \"$video\"\n";
+ }
+ }
+}
+
+# Now actually do the merging
+print "\n";
+foreach $ext (sort keys %videos) {
+ foreach $video (sort keys %{$videos{$ext}}) {
+
+ my $videos = join(',', @{$videos{$ext}{$video}});
+
+ # Only merge the videos if there is more than 1
+ #my $num_videos = $#{$videos{$ext}{$video}} + 1;
+ #if($num_videos <= 1) { next; }
+
+ if($video =~ /(\d+)-(\d+)-(\d+)/) {
+ $year = $1;
+ $month = $2;
+ $day = sprintf("%02d",$3);
+ }
+
+ 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($use_compute_host) { $cmd .= "'"; }
+ if(defined $opt_t) {
+ print "\n-> Creating \"$video\"\n";
+ print "$cmd\n";
+ if(defined $opt_r) {
+ foreach $video (@{$videos{$ext}{$video}}) {
+ print("rm -f $video\n");
+ }
+ }
+ } else {
+ # Create the merged video
+ my $errno = system("$cmd");
+ $errno = $errno >> 8;
+ 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{$ext}{$video}}) {
+ system("rm -f $video");
+ }