diff options
| author | Fumitoshi UKAI <ukai@debian.or.jp> | 2004-03-22 17:03:13 +0000 |
|---|---|---|
| committer | Fumitoshi UKAI <ukai@debian.or.jp> | 2004-03-22 17:03:13 +0000 |
| commit | 6fc7a64a5a2eb94338b775d2ca5449e946197ea5 (patch) | |
| tree | 364701dc52d8b08beb35b9d37acb6129fab2e216 /scripts | |
| parent | rerun aclocal, autoconf (diff) | |
| download | w3m-6fc7a64a5a2eb94338b775d2ca5449e946197ea5.tar.gz w3m-6fc7a64a5a2eb94338b775d2ca5449e946197ea5.zip | |
* scripts/w3mhelp.cgi.in: use charset parramter
* scripts/w3mhelp-funcdesc.en.pl.in: add charset
* scripts/w3mhelp-funcdesc.ja.pl.in: ditto
From: Fumitoshi UKAI <ukai@debian.or.jp>
Diffstat (limited to '')
| -rw-r--r-- | scripts/w3mhelp-funcdesc.en.pl.in | 2 | ||||
| -rw-r--r-- | scripts/w3mhelp-funcdesc.ja.pl.in | 2 | ||||
| -rw-r--r-- | scripts/w3mhelp.cgi.in | 7 |
3 files changed, 8 insertions, 3 deletions
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 = ( '<', '<', @@ -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> |