Fixed bug in how dates were extracted from video files

[videoscripts/.git] / organize_movies

diff --git a/organize_movies b/organize_movies
index 6feee994672eb9cd475a1b803452ae599dc78131..f2c92151eefffc04a063496b72e0bde533403f60 100755 (executable)
--- 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;