if((defined $opt_q || defined $opt_z) && !$use_compute_host && ! -x "$handbrake") { die "-E- Unable to find required program: handbrake\n"; }
if(! -d $srcpathname) { &usage; print "-E- Can't find srcpath: $srcpathname\n"; exit 1; }
if(defined $opt_h) { $compute_host = $opt_h; }
if((defined $opt_q || defined $opt_z) && !$use_compute_host && ! -x "$handbrake") { die "-E- Unable to find required program: handbrake\n"; }
if(! -d $srcpathname) { &usage; print "-E- Can't find srcpath: $srcpathname\n"; exit 1; }
if(defined $opt_h) { $compute_host = $opt_h; }
if((! -f "$srcfile") && (! -f "$srcdir/$srcfile")) { next; }
# Throw out encoded files left over from a previous run
if((! -f "$srcfile") && (! -f "$srcdir/$srcfile")) { next; }
# Throw out encoded files left over from a previous run
# Make a note of the month, year, and day this video was taken (from the modification time of the file)
$date_taken = ctime(stat("$srcdir/$srcfile")->mtime);
# Make a note of the month, year, and day this video was taken (from the modification time of the file)
$date_taken = ctime(stat("$srcdir/$srcfile")->mtime);
- if(($save_originals) && ($video =~ /\.$originals_file_ext/)) {
+ 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");
print "-> Saving the original video $video\n";
if(index($video, basename(dirname($video))) == -1) {
print("mv $video \"$origpathname/".basename(dirname($video))."_".basename($video)."\n");
my $errno = system("$cmd");
$errno = $errno >> 8;
if($errno) { die "-E- make_mkv encountered some errors with exit code $errno\n"; }
my $errno = system("$cmd");
$errno = $errno >> 8;
if($errno) { die "-E- make_mkv encountered some errors with exit code $errno\n"; }
- if(($save_originals) && ($srcvideo =~ /\.$originals_file_ext/)) {
+ if($opt_v) { print " $ffmpeg -i $srcvideo 2>&1 | grep \"compatible_brands\" | tail -n 1\n"; }
+ my $brands=`$ffmpeg -i $srcvideo 2>&1 | grep "compatible_brands" | tail -n 1`; chomp($brands);
+ if(($save_originals) && ($srcvideo =~ /\.$originals_file_ext/) && (!$brands || $brands !~ /$originals_no_copy_brands/)) {
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));
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));