むつの日記

6652a2bd :むつ 2006-02-25 15:32 6652a2bdx.pl

こんなん書きました。
新月の www で公開されているファイルをファイル名を頼りに探せるかもしれない perl スクリプトです。

動機：
　（例えば過去ログ等の）大きなファイルを公開したいと思ったとき、新月に添付するのは無理だ
　→www ディレクトリに置けばいけるじゃん。誰もデフォルト以上には使っていないあの機能
　→あ、でも、それ、自分が公開をやめたらそれまでだよな（ミラーしてくれないかな）

機能：
　朔のノードリストを元にファイル名で HEAD して見つかれば GET
　（GET 先は自分の www ディレクトリなので自動的にミラー）
　→新月ノードが増えると使いものにならない可能性大

必要なもの：
　Perl 5.8 以上
　HTTP::Lite モジュール

設定：
　$node は朔の node.txt
　$search は朔の search.txt
　$www は朔の www ディレクトリ

使用方法：
　perl kono_script.pl sagasu_filename

使用例：
　perl kono_script.pl sgp.pl

まー、こんなスクリプトを使うより
「http://mutumin.ddo.jp:8000/sgp.pl スレッドを用いた習作 perl スクリプトです。ミラーしてください」
「http://example.com:8000/sgp.pl ミラーしました」
とかやるのが確実なんですが。
でもま、（ミラーしてもいいけど、掲示板に書くのだりーな）とかいう場合にはいいかもしれません。

以上、先週の金曜日に書いたスクリプトでした。
win32gui バージョンを作ろうとして諦めた残骸です。