mirror of
https://github.com/vdr-projects/vdr.git
synced 2025-03-01 10:50:46 +00:00
a001a4bf97
- Fixed parsing 'E' records in epg2html.pl. - Fixed a deadlock when switching channels via Schedule/Now|Next/Switch (reported by Martin Hammerschmid). - Changed the meaning of the 'Ca' parameter in 'channels.conf'. Each channel can now define which decryption method it needs in order to be accessed. The new configuration file 'ca.conf' contains the defined values, and the default 'channels.conf' has been modifed to contain the new values for 'Premiere World' and 'ORF'. If you use the default 'channels.conf' and have the conditional access hardware to receive encrypted channels, please make sure you copy the file 'ca.conf' into your /video directory (or wherever your configuration files are located) and go into the "Setup" menu and set the CICAM values according to your hardware setup. Currently there are two possible CICAM entries per DVB card, so any card can implement up to two different conditional access modes (besides the default "Free To Air" mode, which is always assumed to be available on any DVB card). - Updated French language texts (thanks to Jean-Claude Repetto).
97 lines
3.2 KiB
Perl
Executable File
97 lines
3.2 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# A simple EPG to HTML converter
|
|
#
|
|
# Converts the EPG data written by 'vdr' into the file /video/epg.data
|
|
# into a simple HTML programme listing, consisting of one file per channel
|
|
# plus an 'index.htm' file. All output files are written into the current
|
|
# directory.
|
|
#
|
|
# Usage: epg2html.pl < /video/epg.data
|
|
#
|
|
# See the main source file 'vdr.c' for copyright information and
|
|
# how to reach the author.
|
|
#
|
|
# $Id: epg2html.pl 1.3 2002/02/26 22:10:47 kls Exp $
|
|
|
|
@Index = ();
|
|
|
|
sub GetDay
|
|
{
|
|
return substr(localtime(shift), 0, 10);
|
|
}
|
|
|
|
sub GetTime
|
|
{
|
|
return substr(localtime(shift), 11, 5);
|
|
}
|
|
|
|
sub Tags
|
|
{
|
|
my $s = shift;
|
|
$s =~ s/\&/&/g;
|
|
$s =~ s/</</g;
|
|
$s =~ s/>/>/g;
|
|
return $s;
|
|
}
|
|
|
|
while (<>) {
|
|
chomp;
|
|
if (/^C ([^ ]+) *(.*)/) {
|
|
my $Channel = $2;
|
|
(my $Page = $Channel) =~ y/\/ /-_/;
|
|
$Page .= ".htm";
|
|
$Channel = Tags($Channel);
|
|
push(@Index, qq{<a href="$Page">$Channel</a><br>\n});
|
|
my %Events = ();
|
|
while (<>) {
|
|
if (/^E (.*?) (.*?) (.*?)/) {
|
|
(my $Time, $Duration) = ($2, $3);
|
|
my $Title = "", $Subtitle = "", $Description = "";
|
|
while (<>) {
|
|
if (/^T (.*)/) { $Title = Tags($1); }
|
|
elsif (/^S (.*)/) { $Subtitle = Tags($1); }
|
|
elsif (/^D (.*)/) { $Description = Tags($1); }
|
|
elsif (/^e/) {
|
|
$Events{$Time} = [($Duration, $Title, $Subtitle, $Description)];
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
elsif (/^c/) {
|
|
my @Schedule = ();
|
|
my $Day = "";
|
|
for $t (sort keys %Events) {
|
|
(my $Duration, $Title, $Subtitle, $Description) = @{$Events{$t}};
|
|
my $d = GetDay($t);
|
|
if ($d ne $Day) {
|
|
push(@Schedule, "</table>\n") if ($Day && @Schedule);
|
|
push(@Schedule, "<h2>$d</h2>\n");
|
|
push(@Schedule, "<table cellspacing=2>\n");
|
|
$Day = $d;
|
|
}
|
|
my $Entry = $Title;
|
|
$Entry .= "<br><i>$Subtitle</i>" if $Subtitle;
|
|
$Entry .= "<br>$Description" if $Description;
|
|
push(@Schedule, "<tr><td valign=top>" . GetTime($t) . "</td><td>$Entry</td></tr>\n");
|
|
}
|
|
push(@Schedule, "</table>\n") if (@Schedule);
|
|
open(PAGE, ">$Page") or die "$Page: $!\n";
|
|
print PAGE "<html>\n<head><title>$Channel</title><head>\n<body>\n";
|
|
print PAGE "<h1>$Channel</h1>\n";
|
|
print PAGE @Schedule;
|
|
print PAGE "</body>\n</html>\n";
|
|
close(PAGE);
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
open(INDEX, ">index.htm") or die "index.htm: $!\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 "</body>\n</html>\n";
|
|
close(INDEX);
|
|
|