mirror of
https://github.com/vdr-projects/vdr.git
synced 2025-03-01 10:50:46 +00:00
771986b89f
- Re-implemented handling of DVB-S2, which first appeared in version 1.5.14, but was revoked in version 1.5.15 in favor of making a stable version 1.6.0. VDR now requires the "multiproto" DVB driver, e.g. from http://jusst.de/hg/multiproto. Note that the channels.conf file now supports additional parameters, so you may want to make sure you have a backup of this file in case you need to go back to the previous version of VDR! - Fixed displaying transponder data when it is modified (thanks to Reinhard Nissl). - Fixed handling the counter in detection of pre 1.3.19 PS data (thanks to Reinhard Nissl). - Improved logging system time changes to avoid problems on slow systems under heavy load (suggested by Helmut Auer). - Now setting the thread name, so that it can be seen in 'top -H' (thanks to Rolf Ahrenberg). - Fixed initializing the timer's flags in the cTimer copy constructor (thanks to Andreas Mair). - Fixed setting the OSD level in the 'osddemo' example (thanks to Wolfgang Rohdewald). - Increased the time between checking the CAM status to 500ms to avoid problems with some CAMs (reported by Arthur Konovalov).
98 lines
3.4 KiB
Perl
Executable File
98 lines
3.4 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 2.0 2006/04/17 12:19:08 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 = "", $Vps = 0;
|
|
while (<>) {
|
|
if (/^T (.*)/) { $Title = Tags($1); }
|
|
elsif (/^S (.*)/) { $Subtitle = Tags($1); }
|
|
elsif (/^D (.*)/) { $Description = Tags($1); $Description =~ s/\|/<br>/g; }
|
|
elsif (/^V (.*)/) { $Vps = $1; }
|
|
elsif (/^e/) {
|
|
$Events{$Time} = [($Duration, $Title, $Subtitle, $Description, $Vps)];
|
|
last;
|
|
}
|
|
}
|
|
}
|
|
elsif (/^c/) {
|
|
my @Schedule = ();
|
|
my $Day = "";
|
|
for $t (sort keys %Events) {
|
|
(my $Duration, $Title, $Subtitle, $Description, $Vps) = @{$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;
|
|
$Entry .= "<br>(VPS = " . scalar localtime($Vps) . ")" if $Vps && $Vps != $t;
|
|
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);
|