projects
/
videoscripts
/
.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d0bb8d7
)
Restored correct minage setting
author
Alan J. Pippin
<alan@pippins.net>
Sat, 24 Dec 2011 22:43:18 +0000
(15:43 -0700)
committer
Alan J. Pippin
<ajp@pippins.net>
Sat, 24 Dec 2011 22:43:18 +0000
(15:43 -0700)
organize_videos
patch
|
blob
|
history
diff --git
a/organize_videos
b/organize_videos
index e8b02db03b4cc8a213912178f0d829e559be1985..ef624b7ee247f3d56b61f94ceecf858d20429c68 100755
(executable)
--- a/
organize_videos
+++ b/
organize_videos
@@
-14,7
+14,7
@@
use File::Pid;
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 $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 = "+
0
"; # Video file creation dates must not have changed in the last X minutes to process any of the video files
+my $minage = "+
15
"; # 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 $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