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

[w3m-dev 03872] goodict.cgi

Browse Source 
* Bonus/goodict.cgi: adapt new goo dict web page
From: NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
This commit is contained in:
Fumitoshi UKAI
2003-04-12 14:28:55 +00:00
parent fecc8cd62e
commit dab57fc924
2 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Bonus/goodict.cgi
View File

@@ -4,19 +4,19 @@
# e: file:/cgi-bin/goodict.cgi?%s
# w: file:/cgi-bin/goodict.cgi?%s
# j: file:/cgi-bin/goodict.cgi?%s
# s: file:/cgi-bin/goodict.cgi?%s
use NKF;
#$mode = 0; # substring
$mode = 1; # perfect match
#$mode = 3; # search body text
$url = "http://dictionary.goo.ne.jp";
$_ = $ENV{"QUERY_STRING"};
if (/^e:/) {
$switch = 0;
$kind = 'ej';
} elsif (/^w:/) {
$switch = 1;
$kind = 'je';
} elsif (/^j:/) {
$switch = 2;
} elsif (/^s:/) {
$switch = 3;
$kind = 'jn';
}
s@^[ewjs]:@@ && s@^//@@ && s@/$@@;
if ($_) {
@@ -24,7 +24,7 @@ if ($_) {
s/%([\da-f][\da-f])/pack('C', hex($1))/egi;
$_ = nkf("-e", $_);
s/[\000-\040\+:#?&%<>"\177-\377]/sprintf('%%%02X', unpack('C', $&))/eg;
$url .= "/cgi-bin/dict_search.cgi?MT=$_&sw=$switch";
$url .= "/search.php?MT=$_&kind=$kind&mode=$mode";
} else {
$input = "w3m-control: GOTO_LINK";
}