frodovdr/vdr
1
0
Fork 0
mirror of https://github.com/VDR4Arch/vdr.git synced 2023-10-10 13:36:52 +02:00
Code Issues Releases Wiki Activity

Added the system's character set to the page header in the epg2html script

Browse Source
This commit is contained in:
Klaus Schmidinger 2013-03-04 12:14:09 +01:00
parent 4da13b57ec
commit aaffda3119
3 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CONTRIBUTORS
View File

@ -2826,6 +2826,8 @@ Alex Lasnier <alex@fepg.org>
Dimitar Petrovski <dimeptr@gmail.com> Dimitar Petrovski <dimeptr@gmail.com>
for translating OSD texts to the Macedonian language for translating OSD texts to the Macedonian language
for pointing out a missing character set in the header of HTML pages generated by
the epg2html script
Eric Valette <eric.valette@free.fr> Eric Valette <eric.valette@free.fr>
for adding handling of EnhancedAC3DescriptorTag for adding handling of EnhancedAC3DescriptorTag

2
HISTORY
View File

@ -7697,3 +7697,5 @@ Video Disk Recorder Revision History
- Added a note about the new default sort order of recordings to the release notes of - Added a note about the new default sort order of recordings to the release notes of
version 1.7.29 and the UPDATE-2.0.0 file (pointed out by Wolfgang Rohdewald). version 1.7.29 and the UPDATE-2.0.0 file (pointed out by Wolfgang Rohdewald).
- Fixed a faulty UTF-8 character in cs_CZ.po. - Fixed a faulty UTF-8 character in cs_CZ.po.
- Added the system's character set to the page header in the epg2html script (pointed
out by Dimitar Petrovski).

24
epg2html
View File

@ -12,9 +12,11 @@
# 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 2.1 2011/12/04 14:17:35 kls Exp $ # $Id: epg2html 2.2 2013/03/04 12:13:11 kls Exp $
@Index = (); @Index = ();
($Charset = $ENV{LANG}) =~ s/^[^.]*\.?(.*)/$1/;
$Charset = "utf-8" unless $Charset || $ENV{LANG} == 'C';
sub GetDay sub GetDay
{ {
@ -79,10 +81,16 @@ while (<>) {
} }
push(@Schedule, "</table>\n") if (@Schedule); push(@Schedule, "</table>\n") if (@Schedule);
open(PAGE, ">$Page") or die "$Page: $!\n"; open(PAGE, ">$Page") or die "$Page: $!\n";
print PAGE "<html>\n<head><title>$Channel</title><head>\n<body>\n"; print PAGE "<html>\n";
print PAGE "<head>\n";
print PAGE "<title>$Channel</title>\n";
print PAGE "<meta http-equiv=\"Content-Type\" content=\"text/html;charset=$Charset\">\n";
print PAGE "</head>\n";
print PAGE "<body>\n";
print PAGE "<h1>$Channel</h1>\n"; print PAGE "<h1>$Channel</h1>\n";
print PAGE @Schedule; print PAGE @Schedule;
print PAGE "</body>\n</html>\n"; print PAGE "</body>\n";
print PAGE "</html>\n";
close(PAGE); close(PAGE);
last; last;
} }
@ -91,7 +99,13 @@ while (<>) {
} }
open(INDEX, ">index.htm") or die "index.htm: $!\n"; 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";
print INDEX "<head>\n";
print INDEX "<title>EPG Index</title>\n";
print INDEX "<meta http-equiv=\"Content-Type\" content=\"text/html;charset=$Charset\">\n";
print INDEX "</head>\n";
print INDEX "<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";
print INDEX "</html>\n";
close(INDEX); close(INDEX);