From: Penny Leach <penny@mjollnir.org>
Date: Thu, 28 Jul 2011 14:28:20 +0000 (+0200)
Subject: more pattern matching stuff
X-Git-Url: http://git.mjollnir.org/gw?a=commitdiff_plain;h=f5c07571ff282baeabea6102966babe2737df7dd;p=scripts.git

more pattern matching stuff
---

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";
         }