frodovdr
/
vdr
mirror of https://github.com/VDR4Arch/vdr.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Fixed handling of channel names that contain '/'

This commit is contained in:
Klaus Schmidinger 2000-12-01 18:37:46 +01:00
parent d2fec89529
commit c8a1be81af
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
epg2html.pl
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.1 2000/11/26 15:23:39 kls Exp $ # $Id: epg2html.pl 1.2 2000/12/01 18:37:46 kls Exp $
@Index = (); @Index = ();
@ -39,9 +39,10 @@ while (<>) {
chomp; chomp;
if (/^C ([^ ]+) *(.*)/) { if (/^C ([^ ]+) *(.*)/) {
my $Channel = $2; my $Channel = $2;
(my $Page = $Channel) =~ s/ /_/g; (my $Page = $Channel) =~ y/\/ /-_/;
$Page .= ".htm";
$Channel = Tags($Channel); $Channel = Tags($Channel);
push(@Index, qq{<a href="$Page.htm">$Channel</a><br>\n}); push(@Index, qq{<a href="$Page">$Channel</a><br>\n});
my %Events = (); my %Events = ();
while (<>) { while (<>) {
if (/^E (.*) (.*) (.*)/) { if (/^E (.*) (.*) (.*)/) {
@ -75,7 +76,7 @@ while (<>) {
push(@Schedule, "<tr><td valign=top>" . GetTime($t) . "</td><td>$Entry</td></tr>\n"); push(@Schedule, "<tr><td valign=top>" . GetTime($t) . "</td><td>$Entry</td></tr>\n");
} }
push(@Schedule, "</table>\n") if (@Schedule); push(@Schedule, "</table>\n") if (@Schedule);
open(PAGE, ">$Page.htm") or die $!; open(PAGE, ">$Page") or die "$Page: $!\n";
print PAGE "<html>\n<head><title>$Channel</title><head>\n<body>\n"; print PAGE "<html>\n<head><title>$Channel</title><head>\n<body>\n";
print PAGE "<h1>$Channel</h1>\n"; print PAGE "<h1>$Channel</h1>\n";
print PAGE @Schedule; print PAGE @Schedule;
@ -87,7 +88,7 @@ while (<>) {
} }
} }
open(INDEX, ">index.htm") or die $!; open(INDEX, ">index.htm") or die "index.htm: $!\n";
print INDEX "<html>\n<head><title>EPG Index</title><head>\n<body>\n"; print INDEX "<html>\n<head><title>EPG Index</title><head>\n<body>\n";
print INDEX sort { lc($a) cmp lc($b) } @Index; print INDEX sort { lc($a) cmp lc($b) } @Index;
print INDEX "</body>\n</html>\n"; print INDEX "</body>\n</html>\n";