X-Git-Url: http://git.pippins.net/embedvideo/.git/static/gitweb.js?a=blobdiff_plain;ds=sidebyside;f=organize_videos;h=f666e84f0eb56660e2b8bea198d5824d161253bf;hb=94227bbee2187ea0763853bde8bdb124592ef861;hp=0b252eab0cfbb6d362c421653f4bd1bc42965869;hpb=d479508edd42fc325ede515aa6ffeceff258dea1;p=videoscripts%2F.git diff --git a/organize_videos b/organize_videos index 0b252ea..f666e84 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"; @@ -107,15 +101,20 @@ sub create_playlists { print " Skipping $file since we can't extract the year and month from it\n"; } } - } + + # Fix the permissions + system("chown $owner \"$dstdir/\"*.$playlist_extension"); + system("chgrp $group \"$dstdir/\"*.$playlist_extension"); + system("chmod $mode \"$dstdir/\"*.$playlist_extension"); + } } # Sanity checks / Option processing 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