w3m

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/w3m.git/
Log | Files | Refs | README

commit 3ed71e3cfbe7ba4846474dea431112433620f2b9
parent 670406bf9ede84c1bde0d1ed32872cacbe6e79ce
Author: ukai <ukai>
Date:   Tue, 28 Jan 2003 16:36:49 +0000

[w3m-dev 03705] goodict.cgi (was: Re: google.cgi (was: Re: keymap key SEARCH string))
* Bonus/goodict.cgi: added
From: NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>

Diffstat:
ABonus/goodict.cgi | 38++++++++++++++++++++++++++++++++++++++
MChangeLog | 5+++++
2 files changed, 43 insertions(+), 0 deletions(-)

diff --git a/Bonus/goodict.cgi b/Bonus/goodict.cgi @@ -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 diff --git a/ChangeLog b/ChangeLog @@ -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> * [w3m-dev 03700] Re: google.cgi (was: Re: keymap key SEARCH string)