wwgetall --get html files recursively-- (Edit and Re-distribute by ZnZ)

wwgetall

おきまりの注意：めったやたらとページを取ってくるとサーバに負荷がかかりますので、御注意ください。

名称	wwgetall
制作者名	Yoshioka Tsuneo氏
改変者名	Kazuhiro NISHIYAMA
最終更新日時	2000/07/07
ファイルサイズ	7519バイト
ソフトウェア種別	元(wwgetall-3.22.tar.gz)と同じ(Copy,Edit,Re-distribute FREE)。
動作確認	Windows 98上のPerl for Win32 Build 316のJPerl。ActivePerl 522。

タブを4文字毎にした(普通はこうしているので)。usageのところはタブをやめた(DOS窓で表示した時にずれるので)。
$Version = "3.22.0.1";にしてみた。(変えなくてもいいけど一応)
check_existfcntlのwarnの中のi'tsをit'sにした。(typo?)
parse_urlのm|(http\|ftp)://([^:/]+)(:(\d+))?([^\#\?]*)|をm|(http\|ftp)://([^:/]+)(:(\d+))?([^\#]*)|にした。('?'以降を捨てないようにした。)
url2fnameに$url =~ s/[\\\:\*\?\"\<\>\|]/sprintf("%02X",unpack('C',$&))/eg;を付け加えた。(ファイル名に使えない文字を16進数の2文字に置き換える。\sも置き換えた方がいいかも。)
fullbodyの時の*.headへの書き込みの時にbinmode(FH);するようにした。(Windows上ではちょっと重要。これをしていないと改行がCR+CR+LFになっていた。)
*.headの最後に"\r\n"をつけるようにした。(最後に改行があった方が扱いやすいことが多いので。)
getlinksにwwgetall-3.21-win95.patchのパッチをあてた。

$Version = "3.22.0.2";にした。
URLをhttp://infonet.aist-nara.ac.jp/~tsuneo-y/wwgetall/wwgetall.htmlからhttp://openlab.ring.gr.jp/tsuneo/soft/wwgetall/wwgetall.htmlへ変更した。
自分の名前も入れてみた。

元の方では2000年2月23日に3.30がでているようです。