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:
parent
bddab7107d
commit
90af5a1bd9
@ -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 (<>) {
|
||||||
|
Loading…
Reference in New Issue
Block a user