From f5c07571ff282baeabea6102966babe2737df7dd Mon Sep 17 00:00:00 2001
From: Penny Leach <penny@mjollnir.org>
Date: Thu, 28 Jul 2011 16:28:20 +0200
Subject: [PATCH] more pattern matching stuff

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

diff --git a/bin/renametv.pl b/bin/renametv.pl
index 6a62dd0..4470b8f 100755
--- a/bin/renametv.pl
+++ b/bin/renametv.pl
@@ -14,7 +14,7 @@ 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
-    proper bufu notyou kfv immerse
+    proper bufu notyou kfv immerse ctu webrip avdroid
 /;
 
 GetOptions(
@@ -42,7 +42,7 @@ while (<$inputdir/*>) {
         $series =~ s/(_|\.)//g;
         $epno =~ s/.(.*)/$1/g;
         $title =~ s/\./_/g;
-        $title =~ s/_(avi|mkv|mov|srt)/.$1/;
+        $title =~ s/_(mp4|avi|mkv|mov|srt)/.$1/;
         if ($epno =~ /^\d$/) {
             $epno = "0$epno";
         }
-- 
2.39.5