vdrseriestimer / ProSieben EPG: Episodenname nun in Subtitle, leider aber mit anderen Info

--- /usr/share/perl5/Eplists.pm    2008-06-10 19:25:42.000000000 +0200
+++ /usr/share/perl5/Eplists_fixed.pm    2014-06-24 15:59:56.758679999 +0200
@@ -372,20 +372,23 @@


###############
# EPG Bufixes #
###############
sub epg_bugfixes {
+
  ##################################################################################
  #    1  Move stubtitle which is found in title to subtitle                       #
  #    2  If subtitle is found in title remove it from title                       #
  #    4  Remove episode number from title                                         #
  #    8  Remove episode number from subtitle                                      #
  #   16  Remove ", +Teil \d+" from title                                          #
  #   32  Remove " (\d+\/\d+\)" from title                                         #
  #   64  Remove "Folgen +(\d+) +- +(\d+)" from subtitle                           #
  #  128  If no subtitle but summary, take first sentence from summary as subtitle #
  #  256  Remove "(Subtitle, Part n)" from subtitle                                #
+  #  512  Remove "0/X " from start of subtitle                                     #
+  # 1024  Remove ", Category, Land Year" from end of Subtitle                      #
  ##################################################################################
  # 1
  if ( ! $Config{Subtitle} && $Config{Title} =~ /^(.*\w)\s*(:| -)\s+(\w.*?)$/ ) {
    $Config{Title}        = $1;
    $Config{Subtitle}        = $3;
@@ -439,20 +442,28 @@
      $Config{Bugfixes}++;
      $Config{BugfixesCode}    += 64;
    }
  }
  # 128
-  if ( ! $Config{Subtitle} && $Config{Summary} =~ /^([\w\s]*?)\. / ) {
+  if ( ! $Config{Subtitle} && $Config{Summary} =~ /^([\d\w\s\/]*)(\. |\n)/ ) {
    $Config{Subtitle}        = $1;
    $Config{BugfixesCode}    += 128;
  }
  # 256
  # Heimat (Home, Part 1) (1)
  if ( $Config{Subtitle} && $Config{Subtitle} =~ /^(.+?)\s+\(.+,\s+(?:Teil|Part)\s+\d+\)\s+\((\d+)\)$/ ) {
    $Config{Subtitle}        = $1 . ", " . $2;
    $Config{BugfixesCode}    += 256;
-  }  
+  }
+  # 512
+  if ( $Config{Subtitle} && $Config{Subtitle} =~ s/^[0-9]*\/[IVX]* // ) {
+    $Config{BugfixesCode}    += 512;
+  }
+  #1024
+  if ( $Config{Subtitle} && $Config{Subtitle} =~ s/[\.,].*,.*$// ) {
+    $Config{BugfixesCode}    += 1024;
+  }
}


###########################
# distance and GuessTitle #
###########################
@@ -919,10 +930,13 @@
      if ( $Line =~ // ) {
        %LineField = ( Season => $1, Episode => $2, EpisodeOverAll => $3, Subtitle => $4 );
        next    if ( $LineField{Season} < $Config{StartWithSeason} );
        $EpSub = $LineField{Subtitle};
        $EpSub = cleansub($LineField{Subtitle}, $k) if $k;
+    if ( $EpSub =~ / - / && !($Subtitle =~ / - /) ) {
+        $EpSub =~ s/ - .*$// ;
+    }
        if ( abs(length($Subtitle) - length($EpSub)) > $ldmax ) {
          $ldtmp = abs(length($Subtitle) - length($EpSub));
        } else {
          $ldtmp = StrDistance ($Subtitle, $EpSub);
        }

--- /usr/share/perl5/Eplists.pm     2014-07-08 11:18:53.621889001 +0200
+++ /usr/share/perl5/Eplists_fixed.pm 2014-07-08 20:11:06.636380002 +0200
@@ -384,7 +384,23 @@
   #   64  Remove "Folgen +(\d+) +- +(\d+)" from subtitle                           #
   #  128  If no subtitle but summary, take first sentence from summary as subtitle #
   #  256  Remove "(Subtitle, Part n)" from subtitle                                #
+  #  512  Remove "0/X " from start of subtitle                                     #
+  # 1024  Remove ", Category, Land Year" from end of Subtitle                      #
+  # 2048  Remove "Wiederholung vom ..." from the summary for better results in 128 #
   ##################################################################################
+  # 2048
+  if ( $Config{Summary} && $Config{Summary} =~ s/\n*Wiederholung([äöüßÄÖÜ\d\w\s\,\:]*). /. / ) {
+    $Config{Bugfixes}++;
+    $Config{BugfixesCode}	+= 2048;
+  }
+  # 128
+  # moved here because some series title with '-' make problems, so if summary is available 
+  # take it at first 
+  if ( ! $Config{Subtitle} && $Config{Summary} =~ /^[\'\"]*([äöüßÄÖÜ\d\w\s\/\'\"\,\:\-\?\!]*)[\'\"]*(\. +|\n|\r)/ ) {
+    $Config{Subtitle}		= $1;
+    $Config{Bugfixes}++;
+    $Config{BugfixesCode}	+= 128;
+  }
   # 1
   if ( ! $Config{Subtitle} && $Config{Title} =~ /^(.*\w)\s*(:| -)\s+(\w.*?)$/ ) {
     $Config{Title}		= $1;
@@ -440,17 +456,22 @@
       $Config{BugfixesCode}	+= 64;
     }
   }
-  # 128
-  if ( ! $Config{Subtitle} && $Config{Summary} =~ /^([\w\s]*?)\. / ) {
-    $Config{Subtitle}		= $1;
-    $Config{BugfixesCode}	+= 128;
-  }
   # 256
   # Heimat (Home, Part 1) (1)
   if ( $Config{Subtitle} && $Config{Subtitle} =~ /^(.+?)\s+\(.+,\s+(?:Teil|Part)\s+\d+\)\s+\((\d+)\)$/ ) {
     $Config{Subtitle}		= $1 . ", " . $2;
+    $Config{Bugfixes}++;
     $Config{BugfixesCode}	+= 256;
   }  
+  # 512
+  if ( $Config{Subtitle} && $Config{Subtitle} =~ s/^[0-9]*\/[IVX]* // ) {
+    $Config{BugfixesCode}    += 512;
+  }
+  #1024
+  if ( $Config{Subtitle} && $Config{Subtitle} =~ s/[\.,].*,.*$// ) {
+    $Config{Bugfixes}++;
+    $Config{BugfixesCode}    += 1024;
+  }
 }
 
 ###########################
@@ -921,6 +942,9 @@
         next	if ( $LineField{Season} < $Config{StartWithSeason} );
         $EpSub = $LineField{Subtitle};
         $EpSub = cleansub($LineField{Subtitle}, $k) if $k;
+        if ( $EpSub =~ / - / && !($Subtitle =~ / - /) ) {
+           $EpSub =~ s/ - .*$// ;
+        }
         if ( abs(length($Subtitle) - length($EpSub)) > $ldmax ) {
           $ldtmp = abs(length($Subtitle) - length($EpSub));
         } else {

root@vdrserver:~# apt-get install vdr-addon-seriestimer --reinstall
Paketlisten werden gelesen... Fertig
Abhängigkeitsbaum wird aufgebaut       
Statusinformationen werden eingelesen... Fertig
0 aktualisiert, 0 neu installiert, 1 erneut installiert, 0 zu entfernen und 0 nicht aktualisiert.
Es müssen noch 0 B von 47,3 kB an Archiven heruntergeladen werden.
Nach dieser Operation werden 0 B Plattenplatz zusätzlich benutzt.
(Lese Datenbank ... 90885 Dateien und Verzeichnisse sind derzeit installiert.)
Vorbereitung zum Ersetzen von vdr-addon-seriestimer 0.3.0~beta6-2yavdr1~precise (durch .../vdr-addon-seriestimer_0.3.0~beta6-2yavdr1~precise_all.deb) ...
Ersatz für vdr-addon-seriestimer wird entpackt ...
Trigger für man-db werden verarbeitet ...
vdr-addon-seriestimer (0.3.0~beta6-2yavdr1~precise) wird eingerichtet ...


root@vdrserver:~# patch /usr/share/perl5/Eplists.pm < vdrseriestimer_eplists_2014-07-09_2206.diff 
patching file /usr/share/perl5/Eplists.pm

--- /usr/share/perl5/Eplists.pm	2012-10-13 22:42:39.000000000 +0200
+++ Eplists_fixed.pm	2014-07-09 22:04:36.480171437 +0200
@@ -384,7 +384,23 @@
   #   64  Remove "Folgen +(\d+) +- +(\d+)" from subtitle                           #
   #  128  If no subtitle but summary, take first sentence from summary as subtitle #
   #  256  Remove "(Subtitle, Part n)" from subtitle                                #
+  #  512  Remove "0/X " from start of subtitle                                     #
+  # 1024  Remove ", Category, Land Year" from end of Subtitle                      #
+  # 2048  Remove "Wiederholung vom ..." from the summary for better results in 128 #
   ##################################################################################
+  # 2048
+  if ( $Config{Summary} && $Config{Summary} =~ s/\n*Wiederholung([äöüßÄÖÜ\d\w\s\,\:]*). /. / ) {
+    $Config{Bugfixes}++;
+    $Config{BugfixesCode}	+= 2048;
+  }
+  # 128
+  # moved here because some series title with '-' make problems, so if summary is available 
+  # take it at first 
+  if ( ! $Config{Subtitle} && $Config{Summary} =~ /^[\'\"]*([äöüßÄÖÜ\d\w\s\/\'\"\,\:\-\?\!]*)[\'\"]*(\. +|\n|\r)/ ) {
+    $Config{Subtitle}		= $1;
+    $Config{Bugfixes}++;
+    $Config{BugfixesCode}	+= 128;
+  }
   # 1
   if ( ! $Config{Subtitle} && $Config{Title} =~ /^(.*\w)\s*(:| -)\s+(\w.*?)$/ ) {
     $Config{Title}		= $1;
@@ -440,17 +456,22 @@
       $Config{BugfixesCode}	+= 64;
     }
   }
-  # 128
-  if ( ! $Config{Subtitle} && $Config{Summary} =~ /^([\w\s]*?)\. / ) {
-    $Config{Subtitle}		= $1;
-    $Config{BugfixesCode}	+= 128;
-  }
   # 256
   # Heimat (Home, Part 1) (1)
   if ( $Config{Subtitle} && $Config{Subtitle} =~ /^(.+?)\s+\(.+,\s+(?:Teil|Part)\s+\d+\)\s+\((\d+)\)$/ ) {
     $Config{Subtitle}		= $1 . ", " . $2;
+    $Config{Bugfixes}++;
     $Config{BugfixesCode}	+= 256;
   }  
+  # 512
+  if ( $Config{Subtitle} && $Config{Subtitle} =~ s/^[0-9]*\/[IVX]* // ) {
+    $Config{BugfixesCode}    += 512;
+  }
+  #1024
+  if ( $Config{Subtitle} && $Config{Subtitle} =~ s/[\.,].*,.*$// ) {
+    $Config{Bugfixes}++;
+    $Config{BugfixesCode}    += 1024;
+  }
 }
 
 ###########################
@@ -921,6 +942,9 @@
         next	if ( $LineField{Season} < $Config{StartWithSeason} );
         $EpSub = $LineField{Subtitle};
         $EpSub = cleansub($LineField{Subtitle}, $k) if $k;
+        if ( $EpSub =~ / - / && !($Subtitle =~ / - /) ) {
+           $EpSub =~ s/ - .*$// ;
+        }
         if ( abs(length($Subtitle) - length($EpSub)) > $ldmax ) {
           $ldtmp = abs(length($Subtitle) - length($EpSub));
         } else {