diff options
| author | Klaus Schmidinger <vdr@tvdr.de> | 2000-11-26 15:23:39 +0100 |
|---|---|---|
| committer | Klaus Schmidinger <vdr@tvdr.de> | 2000-11-26 15:23:39 +0100 |
| commit | ad8610d5d0b78fccdb0576ab49fb84706477cd1e (patch) | |
| tree | 4389d507bf4285a578f9d767763d8b9d9bbf683f /epg2html.pl | |
| parent | c50513accdb3d5d0e5560a4899b1f45569aeb46f (diff) | |
| download | vdr-ad8610d5d0b78fccdb0576ab49fb84706477cd1e.tar.gz vdr-ad8610d5d0b78fccdb0576ab49fb84706477cd1e.tar.bz2 | |
Dumping EPG data every ten minutes
Diffstat (limited to 'epg2html.pl')
| -rwxr-xr-x | epg2html.pl | 95 |
1 files changed, 95 insertions, 0 deletions
diff --git a/epg2html.pl b/epg2html.pl new file mode 100755 index 00000000..06d76b74 --- /dev/null +++ b/epg2html.pl @@ -0,0 +1,95 @@ +#!/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.1 2000/11/26 15:23:39 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) =~ s/ /_/g; + $Channel = Tags($Channel); + push(@Index, qq{<a href="$Page.htm">$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.htm") or die $!; + 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 $!; +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); + |