TXTファイル削除システム

プレイヤーデータが削除されてもなお残っている
図鑑や倉庫のログファイルを一括削除します

sakujyo.cgiで以下を保存

#!/perl/bin/perl
require "ebs_sub1.cgi";

$ver = "1.1";

@foruda = ("zukan","bukiko","souko");#ログフォルダ名

$SCRIPTNM="sakujyo.cgi";



if($FORM{'sentaku'}){&SAKUJO;}
&MEIN;

sub MEIN{



&HEADER;
foreach(@foruda){

$SENTAKU.="<option value=$_>$_";
}
&JScfm(checkRE,"実行する前に必ずバックアップを取ってください。よろしいですか？");
print <<"_HTML_";


<table><tr><td>
<h2>TXTファイル削除システム</h2>
<h3 style="color:red;">必ず、バックアップを取ってから使用して下さい。</h3>
</td>
</tr>
<tr><td>
_HTML_


if($sakujyofairu){


print "$sakujyofairuのファイルを削除しました";
}


print <<"_HTML_";
</td></tr>
<tr><td>
<form action=$SCRIPTNM method=POST>
<input type=radio name=kakutyousi value=txt checked>拡張子 txt
</td></tr>

<tr><td>
<input type=radio name=kakutyousi value=cgi>拡張子 cgi
</td></tr>

<tr><td>
<input type=radio name=kakutyousi value=log>拡張子 log
</td></tr>

<tr><td>
<select name=sentaku $STYLE_B1>$SENTAKU</select>
<input type=submit value=決定 $STYLE_B1 onclick="return checkRE()">
</form>


</tr>
</table>
_HTML_
}


sub SAKUJO{

&LOCK;

$SENTAKU=$FORM{'sentaku'};
$kakutyousi=$FORM{'kakutyousi'};

my @unit=();
&DBM_INPORT(P);



@name=();
opendir(DIR,"$SENTAKU") || &ERROR('指定されたファイルが開けません。');;
foreach (readdir(DIR)){

push @name,$1 if /(.*)\.$kakutyousi$/;


}
closedir(DIR);


foreach (@name){

&DBM_CONVERT('P',"$_");

if(!@PL_VALUES){
$sakujyofairu.="$_<br>";
my $LOG="$SENTAKU/$_\.$kakutyousi";
if (-e $LOG){unlink $LOG;}
}

}
&UNLOCK;
&MEIN;
exit;
}
1;

削除された人のｔｘｔファイルを削除するのがめんどくさいだけのの為に作ったものです
セキリュティは完全無視してあるので自分で何とかしてください
使用する前のバックアップをとってから使用してください
削除できるのは「プレイヤー名.txt」の保存形式だけです
CGIファイルの場合はtxtをcgiに変更してください

対応拡張子は txt cgi log です

なんか強引かつ無駄な書き方ですが許してください（−−；

フレームが無かったらココをクリックしてください