X-Git-Url: http://git.pippins.net/embedvideo/.git/%27%20%20%20%20.%20%24GLOBALS%5B%27phpgw%27%5D-%3Elink%28%27inc/jquery/static/gitweb.css?a=blobdiff_plain;f=organize_videos;h=4e1ad7ff95bd95c29ffb28cd442304680a820592;hb=c91b8b9feda0a1fc3221cffd3e28cee33e919b5a;hp=0b252eab0cfbb6d362c421653f4bd1bc42965869;hpb=d479508edd42fc325ede515aa6ffeceff258dea1;p=videoscripts%2F.git diff --git a/organize_videos b/organize_videos index 0b252ea..4e1ad7f 100755 --- a/organize_videos +++ b/organize_videos @@ -10,19 +10,13 @@ use Time::localtime; use File::Pid; #################################################################################################### -# Configuration parameters - CHANGE THESE TO SUITE YOUR NEEDS -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 = "+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 $playlist_extension = "pls"; # The extension to use when creating playlist files -my $video_suffix = "000"; # What number to start with when adding an incrementing suffix to the end of the final video clip to avoid name collisions -my $movie_file_ext = "-iregex \".*\.mov\" -o -iregex \".*\.3gp\" -o -iregex \".*\.mp4\" -o -iregex \".*\.mts\" -o -iregex \".*\.mkv\""; -my $find_changed_cmd = "find \"$srcpathname/\" -not -cmin $minage -a \\( $movie_file_ext \\)"; -my $find_cmd = "find \"$srcpathname/\" $movie_file_ext"; +# Configuration parameters +$mydir = `cd \$(dirname $0) 2>/dev/null; pwd`; chomp($mydir); unshift @INC,("$mydir"); +# Default configuration values +require "organize_videos.conf"; +# Override defaults with local customizations +if( -f "$mydir/organize_videos.conf.local") { require "organize_videos.conf.local"; } + #################################################################################################### # Sanity check @@ -82,7 +76,7 @@ sub is_folder_empty { sub create_playlists { my ($dstdirs) = @_; - foreach $dstdir (@{$dstdirs}) { + foreach $dstdir (keys %{$dstdirs}) { print "-> Recreating playlists in: $dstdir\n"; print "-> Creating playlists for each month & year of clips from this directory: $video_directory\n"; opendir(VIDEODIR, "$dstdir") or die "-E- could not open: $dstdir\n"; @@ -114,8 +108,8 @@ sub create_playlists { if(defined $opt_h) { usage(); exit 1; } if(defined $opt_p) { if(defined $opt_d) { - my @dstdirs = ("$opt_d"); - create_playlists(\@dstdirs); + my %dstdirs = ("$opt_d",1); + create_playlists(\%dstdirs); } else { die "-E- You must specify the -d