GETの場合 ;; connect (with-open-stream (stream (connect "www1.odn.ne.jp" 80)) (format stream "GET /ymtz/archive/packages.l HTTP/1.0\n\n") (while (setq in (read-line stream nil)) (insert in "\n"))) ;; netinstaller (with-open-stream (stream …

しかしEmacsの方のとかみたいに閲覧の方まで考慮してないのでかなり微妙。もう少し試してみないと、変な動作すると鯖に迷惑が掛かりそうだし。悲惨なバグとかありそうなので、少し試してからどこかに置く予定。

digets・・・ ぢげｓｔ・・・digestの野郎。適当にmd5すれば良いかと思ったけど、なんか知らんが日本語が通らない罠。 PHPの方の文字コードの設定とかかな。■メモ xyzzyの方は (si:md5 "ああ") => "784f1907a415de9a857c88f61cf90da2"pukiwikiの方は何故か "…