summaryrefslogtreecommitdiff
path: root/epg2html
diff options
context:
space:
mode:
authorKlaus Schmidinger <vdr@tvdr.de>2013-03-04 12:14:09 +0100
committerKlaus Schmidinger <vdr@tvdr.de>2013-03-04 12:14:09 +0100
commitaaffda3119dd72b9c0e01f2229d65d52ca1b98ff (patch)
treef6bc8aa861c29a9a8a4665bff664958b607b25d7 /epg2html
parent4da13b57ec170c10df81862f8475daa242836576 (diff)
downloadvdr-aaffda3119dd72b9c0e01f2229d65d52ca1b98ff.tar.gz
vdr-aaffda3119dd72b9c0e01f2229d65d52ca1b98ff.tar.bz2
Added the system's character set to the page header in the epg2html script
Diffstat (limited to 'epg2html')
-rwxr-xr-xepg2html24
1 files changed, 19 insertions, 5 deletions
diff --git a/epg2html b/epg2html
index 8b9e7b1f..5062e70f 100755
--- a/epg2html
+++ b/epg2html
@@ -12,9 +12,11 @@
# See the main source file 'vdr.c' for copyright information and
# 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 = ();
+($Charset = $ENV{LANG}) =~ s/^[^.]*\.?(.*)/$1/;
+$Charset = "utf-8" unless $Charset || $ENV{LANG} == 'C';
sub GetDay
{
@@ -79,10 +81,16 @@ while (<>) {
}
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 "<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 @Schedule;
- print PAGE "</body>\n</html>\n";
+ print PAGE "</body>\n";
+ print PAGE "</html>\n";
close(PAGE);
last;
}
@@ -91,7 +99,13 @@ while (<>) {
}
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 "</body>\n</html>\n";
+print INDEX "</body>\n";
+print INDEX "</html>\n";
close(INDEX);