diff options
Diffstat (limited to 'Bonus')
| -rw-r--r-- | Bonus/README | 78 | ||||
| -rwxr-xr-x | Bonus/goodict.cgi | 34 |
2 files changed, 63 insertions, 49 deletions
diff --git a/Bonus/README b/Bonus/README index af019ce..0b97112 100644 --- a/Bonus/README +++ b/Bonus/README @@ -1,30 +1,30 @@ 2ch.cgi [w3m-dev 03635] 2ch.cgi - 2ch の dat を直読みする local CGI です。 + 2ch dat 頑帥 local CGI с w3m file:/cgi-bin/2ch.cgi?http://pc.2ch.net/test/read.cgi/unix/1035755937/ - wget の差分転送(-c)を使います。 - 読んだ dat は ~/.w3m2ch/ 以下に保存します。 - 書き込みはできません。 + wget 綏荵∫(-c)篏帥障 + 茯 dat ~/.w3m2ch/ 篁ヤ篆絖障 + 吾莨若帥с障 smb.cgi [w3m-dev 03634] smb.cgi - SMB にアクセスする local CGI です。 - nmblookup,smbclient を使うので sabma がインストールされている - 必要があります。 - パスワードは、 - 1) ~/.w3m/smb にパスワードが設定されており、 - smbclient の -A オプションを使えるなら - smbclient -A ~/.w3m/smb として渡します。 - 2) 環境変数 PASSWD_FILE (パスワードのみのファイル)が設定 - されている場合は、環境変数 PASSWD_FILE を使います。 - 3) ~/.w3m/smb にパスワードが設定されていれば、 - 環境変数 PASSWD_FD を使って標準入力経由で渡します。 - どちらにせよ、あまり良い事ではないので SMB(CIFS)プロトコルを - 喋る版を希望。 + SMB ≪祉鴻 local CGI с + nmblookup,smbclient 篏帥 sabma ゃ潟鴻若 + 綽荀障 + 鴻若 + 1) ~/.w3m/smb 鴻若荐絎 + smbclient -A 激с潟篏帥 + smbclient -A ~/.w3m/smb 羝＜障 + 2) 医紊 PASSWD_FILE (鴻若帥＜ゃ)荐絎 + 翫医紊 PASSWD_FILE 篏帥障 + 3) ~/.w3m/smb 鴻若荐絎違 + 医紊 PASSWD_FD 篏帥ｃ罔羣ュ腟宴ф検障 + ＜障篋с SMB(CIFS)潟 + 絽 google.cgi @@ -32,49 +32,49 @@ google.cgi html2latex - HTMLの文書をLaTeX に変換します．Rubyスクリプトです．不完全です． - ある程度の役には立つかもしれません． + HTML吾LaTeX 紊障鐚Ruby鴻с鐚筝絎с鐚 + 腮綺綵鴻腴ゃ障鐚 - 使用法 + 篏睡羈 html2latex file.html > file.tex - ここに置いてある理由 + 臀 - makeref のための部品取りです :-) + makeref с :-) makeref - HTMLの文書を読み，アンカーに番号を振ります．番号を振った文書を - 標準出力に書き出し，最後にその一覧を出力します．Ruby スクリプトです． + HTML吾茯随≪潟若垩障鐚垩ｃ吾 + 罔羣阪吾冴鐚緇筝荀с阪障鐚Ruby 鴻с鐚 - 使用法 + 篏睡羈 makeref [-url base_url] [file] - -url: 文書のURLを指定します．リンクの一覧を出すときに，そのURLを - 補完するために使います． + -url: 吾URL絎障鐚潟筝荀с冴鐚URL + 茖絎篏帥障鐚 - バグ + - HTMLの記述ミス( < ではなく < を使う，&... の最後に ; を付けない - 等)があると，悲惨な結果になることがあります． + HTML荐菴違( < с < 篏帥鐚&... 緇 ; 篁 + 膈)鐚我腟障鐚 - 半角カナ(JIS X-0201カナ)に対応していません． + 茹(JIS X-0201)絲上障鐚 htmldump - URL からHTML文書を読み，アンカーに番号を振って整形し，標準出力に - 書き出します． + URL HTML吾茯随≪潟若垩ｃ翫就鐚罔羣阪 + 吾冴障鐚 - 使用法 + 篏睡羈 dumphtml [URL] - URL を省略すると，$WWW_HOME の内容を読みます． + URL ャ鐚$WWW_HOME 絎鴻茯帥障鐚 - バグ + - URL の指す文書がHTMLでなかった場合，かわいそうなことになります． - makeref を使っているので，makeref がうまく処理できない文書の表示 - は変になります． + URL 吾HTMLсｃ翫鐚障鐚 + makeref 篏帥ｃэmakeref 障с吾茵腓 + 紊障鐚 diff --git a/Bonus/goodict.cgi b/Bonus/goodict.cgi index 8f443c1..5fb6581 100755 --- a/Bonus/goodict.cgi +++ b/Bonus/goodict.cgi @@ -1,14 +1,20 @@ #!/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 +# 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 NKF; -#$mode = 0; # substring -$mode = 1; # perfect match -#$mode = 3; # search body text +use Encode; +use Encode::Guess qw/euc-jp utf8/; $url = "http://dictionary.goo.ne.jp"; $_ = $ENV{"QUERY_STRING"}; if (/^e:/) { @@ -17,14 +23,22 @@ if (/^e:/) { $kind = 'je'; } elsif (/^j:/) { $kind = 'jn'; +} elsif (/^a:/) { + $kind = 'all' +} +s@^[ewja]:@@ && s@^//@@ && s@/$@@; +if (/^([01236]):/) { + $mode=$1; + s/^[01236]://; +}else{ + $mode="1"; } -s@^[ewjs]:@@ && s@^//@@ && s@/$@@; if ($_) { s/\+/ /g; s/%([\da-f][\da-f])/pack('C', hex($1))/egi; - $_ = nkf("-e", $_); + $_ = encode("utf8", decode("Guess", $_)); s/[\000-\040\+:#?&%<>"\177-\377]/sprintf('%%%02X', unpack('C', $&))/eg; - $url .= "/search.php?MT=$_&kind=$kind&mode=$mode"; + $url .= "/srch/$kind/$_/m$mode"."u/"; } else { $input = "w3m-control: GOTO_LINK"; } |