掲示板を全削除機能にしたいのですが
現在使っている掲示板は投稿を個別に削除は出来るのですが、一括削除は出来ません。一括削除だけしたいのですが、一括削除できる定型文のようなものはあるのでしょうか？よろしくお願いします。（Iモード用BBSです。本CGIスクリプトのメンテ部分です。）
sub mainte
{
my($del) = (0);
if($form{'pass'} ne $mainte_pass){
&error ("bad password.");
}
$out_val{'pass'} = $form{'pass'};
if($form{'id'}){ # delete
if(&lock($log_file, 5)){
open (IN, "< $log_file") or &error ("can't open $log_file to read. $!");
open (OUT, "> $log_file.$$") or &error ("can't open $log_file.$$ to write $!");
$del = 0;
while(<IN>){
if(/^$form{'id'}\t/){
$del = 1;
next;
}else{
print OUT $_;
}
}
close IN;
close OUT;
if($del){
rename $log_file, "$log_file.bak";
rename "$log_file.$$", $log_file;
chmod 0666, $log_file;
$msg = qq|$form{'id'}番の投稿を削除しました。<BR>\n
<A href="$out_val{'cgi_name'}">戻る</A>|;
&error($msg);
}else{
unlink "$log_file.$$";
$msg = qq|$form{'id'}番の投稿は存在しません。<BR>\n
<A href="$out_val{'cgi_name'}">戻る</A>|;
&error($msg);
}
}
}else{
if(&lock($log_file, 5)){
open (IN, "< $log_file") or &error ("can't open $log_file to read. $!");
while(<IN>){
($id, $time, $name, undef, $title ) = split "\t";
$out_val{'del_list'} .= qq|$id, $time, $name, $title<BR>\n|;
}
&page_out($mainte_page);
}
}
unlock($log_file);
return 1;
}
