ぜろちゃんねるアシストスクリプト

210 ：masa(ry：03/11/23 08:35 ID:???

とりあえず、あぼーんは対応したよ
abone.cgiの26行〜33行を

my($aid,$apass,$right,$fname)=split(/<>/,$_);
if($apass eq $pass && $aid eq $id){
my($nam,$lev)=split(/=/,$right);
$lev=$right;
if($comm=~/^settingformat/ && $lev=~/^Administrators/){
unlink("./setting.cgi");
ERROR::error("SETTING FORMAT","初期化を行います。<br>
<a href=\"./sakusen.cgi\">ここ</a>をクリックしてください。");}
elsif($lev=~/^(Administrators|delete)/i){

にして、admindef.cgiのところをusers.cgiにするとOKだと思う