[vdr] Premiere Start "Problem" with Master-Timer

[Matthias Schniedermeyer <ms@citd.de>]

#Include <hallo.h>



As you probably know on Premiere-Start movies/series are shown at the same
time as on another (Premiere)-channel. But with "<Channel-Name> " in Front
of the title.

This patch skips EPG-Entries with a channel-Name in front.
(There is no point in removing the channel-name. The same event is also
running on the "right(tm)" channel.)

This patch requires the "MOVIESERIES"-Macro.
(Updated MOVIESERIES section below the patch)


-- patch --
--- master-timer-0.5.2a/parseepgdata.pl Fri Apr 19 19:44:12 2002
+++ mt-current/parseepgdata.pl  Wed May  1 18:59:59 2002
@@ -31,7 +31,7 @@
 require "svdr.pl";

 #Variables used
-use vars qw(%Config %Program %Dest %Channels %Opts %Todo %Vars $rVars);
+use vars qw(%Config %Program %Dest %Channels %Opts %Todo %Macros %Vars
$rVars);

 # Default-Config
 $Config{configdir} = "$ENV{HOME}/.master-timer";
@@ -48,6 +48,7 @@
 $Vars{Channels}  = \%Channels;
 $Vars{Opts}      = \%Opts;
 $Vars{Todo}      = \%Todo;
+$Vars{Macros}    = \%Macros;

 # Inits
 initcommandline($rVars);
@@ -58,6 +59,7 @@
 # Retrieve "Todo" and "Channels"-Files
 retrieveTodo ($rVars);
 retrievehash ($rVars, \%Channels, "channels") or die ("Missing channels.dat. Did you start hash-config.pl?");
+retrievehash ($rVars, \%Macros, "macros");

 # If exists fetch program.dat, add epg.data then store program.dat & todo.dat and be done
 if (!$Config{uselste} && ! -s "epg.data") {
--- master-timer-0.5.2a/processprogram.pl       Sat Apr 13 21:24:45 2002
+++ mt-current/processprogram.pl        Wed May  1 19:32:31 2002
@@ -477,6 +477,7 @@
   my ($rProgram) = $$rVars{Program};
   my ($rConfig) = $$rVars{Config};
   my ($rDest) = $$rVars{Dest};
+  my ($rMacros) = $$rVars{Macros};
   my ($channel, $time);
   my (@lines, $line, $count, $ret);
   my (@templines);
@@ -552,6 +553,13 @@
          next;
        }

+       # Skip Entries with Channel-Names in Title (Premiere Start)
+       if ($$rMacros{MOVIESERIES}) {
+         if ($$line{title} =~ /^(?:$$rMacros{MOVIESERIES})\s*/i) {
+           next;
+         }
+       }
+
        # Work around the different Bugs in the data
        correct_epg_data($rVars, $line, $channel);
-- ende --

-- macros --
[MOVIESERIES]
Premiere Serie
Premiere Start
Premiere 1
Premiere 2
Premiere 3
Premiere 4
Premiere 5
Premiere 6
Premiere 7
Premiere Nostalgie
Studio Universal
Disney Channel
Krimi .Co
Junior
K-Toon
Fox-Kids
13th Street
Beate.Uhse.TV
Planet
-- ende --







Bis denn

-- 
Real Programmers consider "what you see is what you get" to be just as
bad a concept in Text Editors as it is in women. No, the Real Programmer
wants a "you asked for it, you got it" text editor -- complicated,
cryptic, powerful, unforgiving, dangerous.