summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKlaus Schmidinger <vdr@tvdr.de>2002-02-26 17:20:19 +0100
committerKlaus Schmidinger <vdr@tvdr.de>2002-02-26 17:20:19 +0100
commit90af5a1bd94255222debf6c05ee159e2ca044680 (patch)
treebdf9900567d37c1a3bd4d5cdd2d1309d77a87765
parentbddab7107d92bdb9013dc15c078edf138d7a35e6 (diff)
downloadvdr-90af5a1bd94255222debf6c05ee159e2ca044680.tar.gz
vdr-90af5a1bd94255222debf6c05ee159e2ca044680.tar.bz2
Fixed parsing 'E' records
-rwxr-xr-xepg2html.pl4
1 files changed, 2 insertions, 2 deletions
diff --git a/epg2html.pl b/epg2html.pl
index 215eb735..80383ed3 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.2 2000/12/01 18:37:46 kls Exp $
+# $Id: epg2html.pl 1.3 2002/02/26 17:20:19 kls Exp $
@Index = ();
@@ -45,7 +45,7 @@ while (<>) {
push(@Index, qq{<a href="$Page">$Channel</a><br>\n});
my %Events = ();
while (<>) {
- if (/^E (.*) (.*) (.*)/) {
+ if (/^E (.*?) (.*?) (.*?)/) {
(my $Time, $Duration) = ($2, $3);
my $Title = "", $Subtitle = "", $Description = "";
while (<>) {