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

[w3m-dev 03705] goodict.cgi (was: Re: google.cgi (was: Re: keymap key SEARCH string))

Browse Source 
* Bonus/goodict.cgi: added
From: NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
This commit is contained in:
Fumitoshi UKAI
2003-01-28 16:36:49 +00:00
parent 99bb92c0f5
commit b701883b27
2 changed files with 44 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
Bonus/goodict.cgi Executable file
View File

@@ -0,0 +1,38 @@
#!/usr/bin/perl
# ~/.w3m/urimethodmap
# 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;
$url = "http://dictionary.goo.ne.jp";
$_ = $ENV{"QUERY_STRING"};
if (/^e:/) {
$switch = 0;
} elsif (/^w:/) {
$switch = 1;
} elsif (/^j:/) {
$switch = 2;
} elsif (/^s:/) {
$switch = 3;
}
s@^[ewjs]:@@ && s@^//@@ && s@/$@@;
if ($_) {
s/\+/ /g;
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";
} else {
$input = "w3m-control: GOTO_LINK";
}
print <<EOF;
w3m-control: GOTO $url
w3m-control: DELETE_PREVBUF
w3m-control: SEARCH \\[
w3m-control: MOVE_RIGHT
${input}
EOF

7
ChangeLog
View File

@@ -1,3 +1,8 @@
2003-01-29 NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
* [w3m-dev 03705] goodict.cgi (was: Re: google.cgi (was: Re: keymap key SEARCH string))
* Bonus/goodict.cgi: added
2003-01-29 Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp> 2003-01-29 Hironori SAKAMOTO <hsaka@mth.biglobe.ne.jp>
* [w3m-dev 03700] Re: google.cgi (was: Re: keymap key SEARCH string) * [w3m-dev 03700] Re: google.cgi (was: Re: keymap key SEARCH string)
@@ -6881,4 +6886,4 @@ a * [w3m-dev 03276] compile error on EWS4800
* release-0-2-1 * release-0-2-1
* import w3m-0.2.1 * import w3m-0.2.1
$Id: ChangeLog,v 1.719 2003/01/28 16:34:24 ukai Exp $ $Id: ChangeLog,v 1.720 2003/01/28 16:36:49 ukai Exp $