- 338 名前：nobodyさん mailto:sage [2009/07/13(月) 20:21:37 ID:???]
- >>337
よし、俺が野性の勘でやってみるぜ
たぶん pref.cgi の killcheck って関数に
if($kill_file){
++use IO::File;
++my $fh = new IO::File($sanka_file);
$kill_file = $folder . "/" . $kill_file;
if(-f $kill_file){
と、
if( $killf == $killc ){print "Status: 404\n\n";exit;}
}
}
++elsif($fh->getlines > 3){print "Status: 403\n\n";exit;}
else {open(DB,">$kill_file");close(DB);}
}
}#killcheck END アクセス制限ここまで
って感じで++入れといた行を付け加えるといいかも
ちなみに+＋は取り除いてね
※実験なんてしてないので何が起きても知りません
