storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* scripts/w3mhelp.cgi.in: use charset parramter

Browse Source 
* scripts/w3mhelp-funcdesc.en.pl.in: add charset
* scripts/w3mhelp-funcdesc.ja.pl.in: ditto
From: Fumitoshi UKAI  <ukai@debian.or.jp>
This commit is contained in:
Fumitoshi UKAI
2004-03-22 17:03:13 +00:00
parent c9ab0d056a
commit 6fc7a64a5a
4 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
scripts/w3mhelp.cgi.in
View File

@@ -1,5 +1,5 @@
#!@PERL@
# $Id: w3mhelp.cgi.in,v 1.27 2003/10/20 16:49:11 ukai Exp $
# $Id: w3mhelp.cgi.in,v 1.28 2004/03/22 17:03:13 ukai Exp $
if ( $^O =~ /^(ms)?(dos|win(32|nt)?)/i ) {
$CYGPATH = 1;
@@ -16,6 +16,7 @@ unshift(@INC, $helpdir);
require "w3mhelp-funcname.pl";
require "w3mhelp-funcdesc.en.pl";
$lang = 'en';
$charset = 'US-ASCII';
%htmlesc = (
'<', '&lt;',
@@ -44,7 +45,7 @@ if (defined($ENV{'QUERY_STRING'})) {
if ($tlang !~ /^[a-z][a-z]$/) {
$tlang = 'en';
}
print "tlang=$tlang\n";
# print "tlang=$tlang\n";
eval {require "w3mhelp-funcdesc.$tlang.pl";};
if (defined(%funcdesc)) {
$lang = $tlang;
@@ -89,7 +90,7 @@ while (($key, $fname) = each %menu_keyfunc) {
}
print <<HEADING;
Content-Type: text/html
Content-Type: text/html; charset=$charset
<HTML>
<HEAD>