> 
> # boolean isSafe(IO::File file)
> sub isSafe {
>     # ファイルを検査し安全ならば真を返す
> }
> だれか実装せれ

	if($rext ne "")
を
	$rext = ($htmlext == 0 ? 'htm' : 'txt') if($ctype eq "text/html");
	if($rext ne "")
で少しはマシに成ると思う

参考：2001/09/24(月)00時05分37秒