w3m

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:
A
Bonus/goodict.cgi
 | 
38
++++++++++++++++++++++++++++++++++++++
M
ChangeLog
 | 
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)