Gecko [ tsuru-no-tsurugi.tokyo ]

Linux tsuru-no-tsurugi 5.15.0-186-generic #196-Ubuntu SMP Sat Jun 20 16:09:34 UTC 2026 x86_64
Apache/2.4.52 (Ubuntu)
Server IP : 192.168.0.18 & Your IP : 216.73.216.68
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
2ch.cgi	4.64 KB	-rw-r--r--	2024-01-10 03:01
README.eng	1.83 KB	-rw-r--r--	2024-01-10 03:01
README.ja	2.5 KB	-rw-r--r--	2024-01-10 03:01
backslash_to_slash.cgi	151 B	-rw-r--r--	2024-01-10 03:01
goodict.cgi	1.15 KB	-rw-r--r--	2024-01-10 03:01
google.cgi	577 B	-rw-r--r--	2024-01-10 03:01
html2latex	10.32 KB	-rw-r--r--	2024-01-10 03:01
htmldump	198 B	-rw-r--r--	2024-01-10 03:01
makeref	4.78 KB	-rw-r--r--	2024-01-10 03:01
oldconfigure.sh	3.95 KB	-rw-r--r--	2024-01-10 03:01
scanhist.rb	1.62 KB	-rw-r--r--	2024-01-10 03:01
smb.cgi	9.27 KB	-rw-r--r--	2024-01-10 03:01
utf8.cgi	474 B	-rw-r--r--	2024-01-10 03:01
wrap3m	450 B	-rw-r--r--	2024-01-10 03:01

Rename

#!/usr/bin/perl

# ~/.w3m/urimethodmap
# e:      file:/cgi-bin/goodict.cgi?%s    Englich-Japanese
# w:      file:/cgi-bin/goodict.cgi?%s    Japanese-English
# j:      file:/cgi-bin/goodict.cgi?%s    Japanese
# a:      file:/cgi-bin/goodict.cgi?%s    All
#
# e:0:word  start with word
# e:1:word  perfect match
# e:2:word  end with word
# e:3:word  search body text
# e:6:word  search title
# e:word    perfect match

use Encode;
use Encode::Guess qw/euc-jp utf8/;
$url = "http://dictionary.goo.ne.jp";
$_ = $ENV{"QUERY_STRING"};
if (/^e:/) {
    $kind = 'ej';
} elsif (/^w:/) {
    $kind = 'je';
} elsif (/^j:/) {
    $kind = 'jn';
} elsif (/^a:/) {
    $kind = 'all'
}
s@^[ewja]:@@ && s@^//@@ && s@/$@@;
if (/^([01236]):/) {
    $mode=$1;
    s/^[01236]://;
}else{
    $mode="1";
}
if ($_) {
	s/\+/ /g;
	s/%([\da-f][\da-f])/pack('C', hex($1))/egi;
	$_ = encode("utf8", decode("Guess", $_));
	s/[\000-\040\+:#?&%<>"\177-\377]/sprintf('%%%02X', unpack('C', $&))/eg;
	$url .= "/srch/$kind/$_/m$mode"."u/";
} 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