aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--ChangeLog8
-rw-r--r--scripts/w3mhelp-funcdesc.en.pl.in2
-rw-r--r--scripts/w3mhelp-funcdesc.ja.pl.in2
-rw-r--r--scripts/w3mhelp.cgi.in7
4 files changed, 15 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 761b32a..212842a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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 $
diff --git a/scripts/w3mhelp-funcdesc.en.pl.in b/scripts/w3mhelp-funcdesc.en.pl.in
index 924db7c..d854b59 100644
--- a/scripts/w3mhelp-funcdesc.en.pl.in
+++ b/scripts/w3mhelp-funcdesc.en.pl.in
@@ -1,3 +1,5 @@
+# charset
+$charset = 'US-ASCII';
# Buffer selection mode
diff --git a/scripts/w3mhelp-funcdesc.ja.pl.in b/scripts/w3mhelp-funcdesc.ja.pl.in
index 5dcfb3b..051c888 100644
--- a/scripts/w3mhelp-funcdesc.ja.pl.in
+++ b/scripts/w3mhelp-funcdesc.ja.pl.in
@@ -1,3 +1,5 @@
+# charset
+$charset = 'EUC-JP';
# Buffer selection mode
diff --git a/scripts/w3mhelp.cgi.in b/scripts/w3mhelp.cgi.in
index 92af2d3..135b835 100644
--- a/scripts/w3mhelp.cgi.in
+++ b/scripts/w3mhelp.cgi.in
@@ -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>