$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 {
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;