X-Git-Url: http://git.pippins.net/embedvideo/.git/?a=blobdiff_plain;f=organize_movies;h=f2c92151eefffc04a063496b72e0bde533403f60;hb=3574551ce37f9611e12420e4b39d4e68dd20c884;hp=6feee994672eb9cd475a1b803452ae599dc78131;hpb=c99a50a0fd63d9bb9eb0fa9d1232366e9e2d444f;p=videoscripts%2F.git diff --git a/organize_movies b/organize_movies index 6feee99..f2c9215 100755 --- a/organize_movies +++ b/organize_movies @@ -13,8 +13,8 @@ use File::Pid; # Configuration parameters my $movie_src_dir = "/naspool/dropbox/New Movies"; my $mobile_movie_src_dir = "/naspool/dropbox/New Movies/Mobile"; -my $movie_dst_dir = "/naspool/movies"; -my $mobile_movie_dst_dir = "/naspool/movies/Mobile"; +my $movie_dst_dir = "/movpool/movies"; +my $mobile_movie_dst_dir = "/movpool/movies/Mobile"; my $movie_done_dir = "/naspool/dropbox/Encoded"; my $log = "/var/log/organize/organize_movies.log"; my $encode_log = "/var/log/organize/organize_movies_encode.log"; @@ -32,7 +32,7 @@ exit if $pidfile->running(); $pidfile->write(); # Encode the movies -encode_movies($mobile_movie_src_dir, $mobile_movie_dst_dir); +#encode_movies($mobile_movie_src_dir, $mobile_movie_dst_dir); encode_movies($movie_src_dir, $movie_dst_dir); sub encode_movies { @@ -56,6 +56,7 @@ sub encode_movies { my $stat = stat("$movie"); if($stat->mtime < ($now - $minage*60)) { my ($base, $dir, $ext) = fileparse($movie,'\..*'); + $base =~ s/_t\d+$//g; # remove any extra title numbers from the name my $output = "$movie_dst_dir/$category/$base.mkv"; print "-> Encoding $movie => $output\n"; my $date = `date`; chomp $date;