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

modified: Bonus/goodict.cgi, use Encode.pm instead of NKF

Browse Source
This commit is contained in:
yshl
2015-07-28 20:58:02 +09:00
parent 86ad49c1b0
commit 9a82b18c72
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Bonus/goodict.cgi
View File

@@ -5,7 +5,8 @@
# w: file:/cgi-bin/goodict.cgi?%s # w: file:/cgi-bin/goodict.cgi?%s
# j: file:/cgi-bin/goodict.cgi?%s # j: file:/cgi-bin/goodict.cgi?%s
use NKF; use Encode;
use Encode::Guess qw/euc-jp utf8/;
#$mode = 0; # substring #$mode = 0; # substring
$mode = 1; # perfect match $mode = 1; # perfect match
#$mode = 3; # search body text #$mode = 3; # search body text
@@ -22,7 +23,7 @@ s@^[ewjs]:@@ && s@^//@@ && s@/$@@;
if ($_) { if ($_) {
s/\+/ /g; s/\+/ /g;
s/%([\da-f][\da-f])/pack('C', hex($1))/egi; s/%([\da-f][\da-f])/pack('C', hex($1))/egi;
$_ = nkf("-e", $_); $_ = encode("utf8", decode("Guess", $_));
s/[\000-\040\+:#?&%<>"\177-\377]/sprintf('%%%02X', unpack('C', $&))/eg; s/[\000-\040\+:#?&%<>"\177-\377]/sprintf('%%%02X', unpack('C', $&))/eg;
$url .= "/search.php?MT=$_&kind=$kind&mode=$mode"; $url .= "/search.php?MT=$_&kind=$kind&mode=$mode";
} else { } else {