diff options
| author | Klaus Schmidinger <vdr@tvdr.de> | 2002-05-30 09:50:19 +0200 |
|---|---|---|
| committer | Klaus Schmidinger <vdr@tvdr.de> | 2002-05-30 09:50:19 +0200 |
| commit | 2107ffa7eefae3148389ccea1163d2a46c0e49d2 (patch) | |
| tree | 048f3dc46625b2015aacff27fac3a456838dad51 /epg2html.pl | |
| parent | 73c91b2672b5e0848a9e123cb904bc985fb98254 (diff) | |
| download | vdr-2107ffa7eefae3148389ccea1163d2a46c0e49d2.tar.gz vdr-2107ffa7eefae3148389ccea1163d2a46c0e49d2.tar.bz2 | |
Fixed parsing 'E' records
Diffstat (limited to 'epg2html.pl')
| -rwxr-xr-x | epg2html.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/epg2html.pl b/epg2html.pl index 80383ed3..6b7b8c94 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.3 2002/02/26 17:20:19 kls Exp $ +# $Id: epg2html.pl 1.4 2002/05/30 09:46:46 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 (<>) { |