[vdr] master-timer, timer names in TITLE~SUBTITLE format

[Richard Cieply <richard.cieply@web.de>]

Hi list,

as the new formula 1 season starts soon I used master-timer to record 
all formula 1 on RTL ( yes I know, it' crazy ;-> )
Unfortunetly RTL has chosen a ':' in the title like "Formel I: Rennen" 
and so on.
The epg bugfix in parseepgdata.pl convertst this to title = "Formel I" 
and subtitle = "Rennen".
This seems feasible to me.

One could remove this bugfix in such that the above title results in a 
timer with title = "Formel I: Das Rennen".
But however transfertimer.pl passes the timers via SVDRP and there the 
':' is used as a token delimiter -> the above timer is programmed with 
the title "Formel I".
This results in multiple "Formel I" (with no addition sub) timer entries 
so it's cumbersome to see what the recordings really are.
Since I'm very lazy I don't want to programm multiple entries in 
torecord each maching a "Formel I" subcategory like "Rennen", 
"Qualifying" and so on. I would like to program timers with the 
TITLE/SUBTITLE scheme like vdr does.

Therefor I use the following scheme (it's quite quick and dirty):
In to record I define "Timertitle" = TITLE~SUB.
I modified processprogram.pl to check if Timertitle was set in torecord 
   and if it is equal to "TITLE~SUB".
If so the timertitle is set to TITLE~SUBTITLE giving the recording a 
directory structure like "Formel I"->"Rennen".
If subtitle is not set in the epg-data then timertitle is simply set to 
TITLE.

here is the patch (2nd chunk):
--- processprogram.pl.bak       Fri Mar  1 16:26:09 2002
+++ processprogram.pl   Fri Mar  1 19:30:50 2002
@@ -74,7 +74,7 @@
         $rPEntry = $$rProgram{$title}{$channel}{$time};

         # If already tested, or done, or blacklisted then next
-       if ( $$rPEntry{torecord} || $$rPEntry{done} || 
$$rPEntry{deepblack} == 2) {
+       if ( $$rPEntry{torecord} || $$rPEntry{done} || 
($$rPEntry{deepblack} && ($$rPEntry{deepblack} == 2))) {
           next;
         }

@@ -107,7 +107,13 @@

           # What Title to use for the timer
           if ($$rToEntry{timertitle}) {
-           $timertitle = $$rToEntry{timertitle}
+            if ($$rToEntry{timertitle} =~ /^TITLE~SUB$/) {
+              $timertitle = $title;
+              $timertitle .= "~" . $$rPEntry{subtitle} if 
($$rPEntry{subtitle});
+            }
+            else {
+             $timertitle = $$rToEntry{timertitle}
+            }
           }
           else {
             $timertitle = $title;

The first chunk only removes some warnings during processing.

Have fun.
   Richard