w3m

commit c74d1282729f33e9a1e8bea0960b60e1d68a63bd
parent e4c377a9d55d1b66305a3caa12e009b274e2356d
Author: ukai <ukai>
Date:   Fri, 21 Dec 2001 19:21:13 +0000

more restrict tlang

Diffstat:
M
scripts/w3mhelp.cgi.in
 | 
1
+

1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/scripts/w3mhelp.cgi.in b/scripts/w3mhelp.cgi.in
@@ -28,6 +28,7 @@ if (defined($ENV{'QUERY_STRING'})) {
 	local($tlang) = $2;
 	$tlang =~ s/\+|%([0-9A-Fa-f][0-9A-Fa-f])/$& eq '+' ? ' ' : pack('C', hex($1))/ge;
 	$tlang =~ tr/A-Z/a-z/;
+	$tlang =~ s/([a-z][a-z]).*/$1/;	# lang code is 'en', 'ja', ...
 	print "tlang=$tlang\n";
 	eval {require "w3mhelp-funcdesc.$tlang.pl";};
 	if (defined(%funcdesc)) {