my $srcpathname = "/naspool/pictures/New Photos"; # Path to look for videos to move from
my $dstpathname = "/naspool/videos/HomeVideos"; # Path to move the videos to
my $merge_videos_by_day = "/naspool/videos/bin/merge_videos_by_day";
-my $minage = "+30"; # Video file creation dates must not have changed in the last X minutes to process any of the video files
+my $minage = "+0"; # Video file creation dates must not have changed in the last X minutes to process any of the video files
my $owner = "ajp"; # The owner of the files after they are moved
my $group = "pip"; # The group of the files after they are moved
my $mode = "664"; # The mode to set on each file after they are moved
my $merge_opts = "";
if(defined $opt_t) { $merge_opts .= "-t "; }
if(defined $opt_r) { $merge_opts .= "-r "; }
-$errno=system("$merge_videos_by_day -s \"$srcpathname\" $merge_opts");
+$errno=system("$merge_videos_by_day -q -s \"$srcpathname\" $merge_opts");
$errno = $errno >> 8;
if($errno) { die "-E- $merge_videos_by_day encountered some errors with exit code $errno\n"; }
if(! defined $opt_t) {
$tmpdir=`tempfile`;
system("rm $tmpdir");
- system("mv \"$srcdir\" $tmpdir > /dev/null 2>/dev/null");
+ system("cp -R \"$srcdir\" $tmpdir > /dev/null 2>/dev/null");
+ system("rm -rf \"$srcdir\"");
print "-> Moved empty subdir $srcdir to $tmpdir\n" if($opt_v);
}
}