1
0
mirror of https://github.com/VDR4Arch/vdr.git synced 2023-10-10 13:36:52 +02:00

Fixed parsing 'E' records

This commit is contained in:
Klaus Schmidinger 2002-02-26 17:20:19 +01:00
parent bddab7107d
commit 90af5a1bd9

View File

@ -12,7 +12,7 @@
# See the main source file 'vdr.c' for copyright information and # See the main source file 'vdr.c' for copyright information and
# how to reach the author. # how to reach the author.
# #
# $Id: epg2html.pl 1.2 2000/12/01 18:37:46 kls Exp $ # $Id: epg2html.pl 1.3 2002/02/26 17:20:19 kls Exp $
@Index = (); @Index = ();
@ -45,7 +45,7 @@ while (<>) {
push(@Index, qq{<a href="$Page">$Channel</a><br>\n}); push(@Index, qq{<a href="$Page">$Channel</a><br>\n});
my %Events = (); my %Events = ();
while (<>) { while (<>) {
if (/^E (.*) (.*) (.*)/) { if (/^E (.*?) (.*?) (.*?)/) {
(my $Time, $Duration) = ($2, $3); (my $Time, $Duration) = ($2, $3);
my $Title = "", $Subtitle = "", $Description = ""; my $Title = "", $Subtitle = "", $Description = "";
while (<>) { while (<>) {