fixed a bug & added some more exclusions to renametv

diff --git a/bin/renametv.pl b/bin/renametv.pl
index a7d80790ac9d72ca539c51cd7c047b0457ac287a..b763adcd113e868a2f4f8fad8d52581bdc4577ba 100755 (executable)
--- a/bin/renametv.pl
+++ b/bin/renametv.pl
@@ -13,7 +13,7 @@ my $somethingtodo = 0;
 my @usualsuspects = qw/
     xvid xor ffndvd repack preair aaf 720p x264 dimension dvdrip
     hdtv 0tv fqm 2hd notv ws pdtv lol vtv xii dvdscr sys fov dot
-    vostfr p0w4 caph fihtv flatline brrip ac3 flawl3ss asap
+    vostfr p0w4 caph fihtv flatline brrip ac3 flawl3ss asap afg
     proper bufu notyou kfv immerse ctu webrip avdroid haggis orenji
 /;
 
@@ -32,12 +32,13 @@ while (<$inputdir/*>) {
     s/'//g;
     s/-/_/g;
     s/[\[\]]//g;
+    s/_?season_?(\d+)[_|\.]?episode_(\d+)\./.$1$2./;
     s/\.[S|s]?(\d+)\.?[E|e|x|X]?(\d+)\./.$1$2./;
     s/\.0/./g;
     foreach my $bad (@usualsuspects) {
         s/(\[|\.|_|-)?$bad(\]|-)?//g;
     }
-    if (/^(.*\/(?!.*\/))([a-z0-9_.]*)((?:_|\.)[0-9]*)(?:_|\.)+([a-z_.,&]*)$/) {
+    if (/^(.*\/(?!.*\/))([a-z0-9_.]*)((?:_|\.)[0-9]*)(?:_|\.)+([a-z0-9_.,&]*)$/) {
         my ($path, $series, $epno, $title) = ($1, $2, $3, $4);
         $series =~ s/(_|\.)//g;
         $epno =~ s/.(.*)/$1/g;