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

8
ChangeLog
View File

@@ -1,3 +1,9 @@
2004-03-23 Fumitoshi UKAI <ukai@debian.or.jp>
* scripts/w3mhelp.cgi.in: use charset parramter
* scripts/w3mhelp-funcdesc.en.pl.in: add charset
* scripts/w3mhelp-funcdesc.ja.pl.in: ditto
2004-03-22 Fumitoshi UKAI <ukai@debian.or.jp>
* main.c (main): don't use SystemCharset for default of
@@ -8341,4 +8347,4 @@ a * [w3m-dev 03276] compile error on EWS4800
* release-0-2-1
* import w3m-0.2.1
$Id: ChangeLog,v 1.910 2004/03/22 03:32:27 ukai Exp $
$Id: ChangeLog,v 1.911 2004/03/22 17:03:13 ukai Exp $

2
scripts/w3mhelp-funcdesc.en.pl.in
View File

@@ -1,3 +1,5 @@
# charset
$charset = 'US-ASCII';
# Buffer selection mode

2
scripts/w3mhelp-funcdesc.ja.pl.in
View File

@@ -1,3 +1,5 @@
# charset
$charset = 'EUC-JP';
# Buffer selection mode

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>