-foreach $ext (sort keys %videos) {
- foreach $video (sort keys %{$videos{$ext}}) {
-
- my $videos = join(',', @{$videos{$ext}{$video}});
-
- 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($requantize_input_video) { $cmd .= ' -q'; }
- if($recompress_input_video) { $cmd .= ' -z'; }
- 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}}) {
- print("rm -f $video\n");
+foreach $dstfile (sort keys %videos) {
+
+ my $videos = join(',', @{$videos{$dstfile}});
+
+ if($dstfile =~ /(\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 \"$dstfile\" -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 \"$dstfile\"\n";
+ print "$cmd\n";
+ if(!defined $opt_k) {
+ foreach $video (@{$videos{$dstfile}}) {
+ if($opt_v) { print " $ffmpeg -i $video 2>&1 | grep \"compatible_brands\" | tail -n 1\n"; }
+ my $brands=`$ffmpeg -i $video 2>&1 | grep "compatible_brands" | tail -n 1`; chomp($brands);
+ if(($save_originals) && ($video =~ /\.$originals_file_ext/) && (!$brands || $brands !~ /$originals_no_copy_brands/)) {
+ 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");