diff options
Diffstat (limited to 'epg2html.pl')
| -rwxr-xr-x | epg2html.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/epg2html.pl b/epg2html.pl index 6b7b8c9..c6e6f9c 100755 --- a/epg2html.pl +++ b/epg2html.pl @@ -12,7 +12,7 @@ # See the main source file 'vdr.c' for copyright information and # how to reach the author. # -# $Id: epg2html.pl 1.4 2002/05/30 09:46:46 kls Exp $ +# $Id: epg2html.pl 1.5 2004/02/22 13:18:27 kls Exp $ @Index = (); @@ -47,13 +47,14 @@ while (<>) { while (<>) { if (/^E (.*?) (.*?) ([^ ]*)/) { (my $Time, $Duration) = ($2, $3); - my $Title = "", $Subtitle = "", $Description = ""; + my $Title = "", $Subtitle = "", $Description = "", $Vps = 0; while (<>) { if (/^T (.*)/) { $Title = Tags($1); } elsif (/^S (.*)/) { $Subtitle = Tags($1); } elsif (/^D (.*)/) { $Description = Tags($1); } + elsif (/^V (.*)/) { $Vps = $1; } elsif (/^e/) { - $Events{$Time} = [($Duration, $Title, $Subtitle, $Description)]; + $Events{$Time} = [($Duration, $Title, $Subtitle, $Description, $Vps)]; last; } } @@ -62,7 +63,7 @@ while (<>) { my @Schedule = (); my $Day = ""; for $t (sort keys %Events) { - (my $Duration, $Title, $Subtitle, $Description) = @{$Events{$t}}; + (my $Duration, $Title, $Subtitle, $Description, $Vps) = @{$Events{$t}}; my $d = GetDay($t); if ($d ne $Day) { push(@Schedule, "</table>\n") if ($Day && @Schedule); @@ -73,6 +74,7 @@ while (<>) { my $Entry = $Title; $Entry .= "<br><i>$Subtitle</i>" if $Subtitle; $Entry .= "<br>$Description" if $Description; + $Entry .= "<br>(VPS = " . scalar localtime($Vps) . ")" if $Vps && $Vps != $t; push(@Schedule, "<tr><td valign=top>" . GetTime($t) . "</td><td>$Entry</td></tr>\n"); } push(@Schedule, "</table>\n") if (@Schedule); |