diff options
| author | Fumitoshi UKAI <ukai@debian.or.jp> | 2003-04-12 14:28:55 +0000 |
|---|---|---|
| committer | Fumitoshi UKAI <ukai@debian.or.jp> | 2003-04-12 14:28:55 +0000 |
| commit | dab57fc9240db698979ded098c2ddfdc2b168c6a (patch) | |
| tree | 821d18c401dc4caa151c1f75661e1af619b1ef1d | |
| parent | * configure.in (AUXBIN_TARGETS): don't reset, move to head (diff) | |
| download | w3m-dab57fc9240db698979ded098c2ddfdc2b168c6a.tar.gz w3m-dab57fc9240db698979ded098c2ddfdc2b168c6a.zip | |
[w3m-dev 03872] goodict.cgi
* Bonus/goodict.cgi: adapt new goo dict web page
From: NAKAJIMA Mikio <minakaji@osaka.email.ne.jp>
| -rwxr-xr-x | Bonus/goodict.cgi | 14 | ||||
| -rw-r--r-- | ChangeLog | 7 |
2 files changed, 13 insertions, 8 deletions
diff --git a/Bonus/goodict.cgi b/Bonus/goodict.cgi index afea7ac..8f443c1 100755 --- 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"; } @@ -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 @@ -7727,4 +7732,4 @@ a * [w3m-dev 03276] compile error on EWS4800 * release-0-2-1 * import w3m-0.2.1 -$Id: ChangeLog,v 1.821 2003/04/10 17:10:03 ukai Exp $ +$Id: ChangeLog,v 1.822 2003/04/12 14:28:55 ukai Exp $ |