Mailing List archive
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[vdr] Premiere Start "Problem" with Master-Timer
#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.
Home |
Main Index |
Thread Index