ぜろちゃんねるスクリプト総合質問スレ Part7

206 ：◆hikArinCL2 ：2005/10/08(土) 10:38:26 ID:???0

>>203
$this->{'THREADS'}->Add($oSys->Get('KEY'),$elem[0],1);
の上に下のソースコードを追加してください

if($this->{'THREADS'}->GetNum >= $oSys->Get('SUBMAX')){
my ($ln, $deleteFile);
my $buf = [];
$this->{'THREADS'}->GetKeySet('ALL', '', $buf);
$ln = [split /<>/, (pop @$buf)]->[0];

$deleteFile = $oSys->Get('BBSPATH') . '/' . $oSys->Get('BBS') . '/dat/' . $ln . '.dat';
chmod 0666, $deleteFile;
unlink $deleteFile;
$this->{'THREADS'}->Delete($ln);
}