w3m

commit bd136d5b26a676c4416df48e94240ca64c3e485a
parent 12e307240561f238b4e56dcf30809f5d5b78b25f
Author: ukai <ukai>
Date:   Sat, 12 Apr 2003 14:28:55 +0000

[w3m-dev 03872] goodict.cgi
* Bonus/goodict.cgi: adapt new goo dict web page
From: NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>

Diffstat:
M
Bonus/goodict.cgi
 | 
14
+++++++-------
M
ChangeLog
 | 
5
+++++

2 files changed, 12 insertions(+), 7 deletions(-)
diff --git a/Bonus/goodict.cgi b/Bonus/goodict.cgi
@@ -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";
 }
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-12  NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
+
+	* [w3m-dev 03872] goodict.cgi
+	* Bonus/goodict.cgi: adapt new goo dict web page
+
 2003-04-11  Fumitoshi UKAI  <ukai@debian.or.jp>
 
 	* configure.in (AUXBIN_TARGETS): don't reset, move to head