From 0343e8ffb74ad31f812cbfc10d3136f6f1a56752 Mon Sep 17 00:00:00 2001
From: Penny Leach <penny@mjollnir.org>
Date: Tue, 1 May 2012 09:34:34 +0200
Subject: [PATCH] fixed a bug & added some more exclusions to renametv

---
 bin/renametv.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/bin/renametv.pl b/bin/renametv.pl
index a7d8079..b763adc 100755
--- 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;
-- 
2.39.5