ユーザーの記事削除を作成 画面は、こんな感じで 投稿NO/削除キー/ <form method="POST" action="$script"> <input type="hidden" name="mode" value="userkill"> 投稿NO/<input type="text" name="delno" size="8">削除キー/<input type="password" name="delkey" size="8"><input type="submit" value="削除"> </form> フォームに追加し、削除処理を作成する。 #----------------------------------------------------------- # ユーザー記事削除処理 #----------------------------------------------------------- sub userkill() { &dataload; ## データ読み込み foreach $room_data (@room_datas){ my @logs = split(/<>/,$room_data); my $delno = $in{'delno'}; my $delkey = $in{'delkey'}; if($delno eq $logs[0]){ if($delkey eq $logs[7]){ $saveflag=1; $room_data =~ s/.*\n//; my @img = split(/\,/,$logs[6]); if (-e "$ImgDir$room/$img[0]") { unlink("$ImgDir$room/$img[0]"); } } last; } } if($saveflag == 1){ &datasave; ## データ保管 } &roomdatas_view; } LINUX TOP 前ページ 次ページ
ユーザーの記事削除を作成
画面は、こんな感じで 投稿NO/削除キー/ <form method="POST" action="$script"> <input type="hidden" name="mode" value="userkill"> 投稿NO/<input type="text" name="delno" size="8">削除キー/<input type="password" name="delkey" size="8"><input type="submit" value="削除"> </form> フォームに追加し、削除処理を作成する。 #----------------------------------------------------------- # ユーザー記事削除処理 #----------------------------------------------------------- sub userkill() { &dataload; ## データ読み込み foreach $room_data (@room_datas){ my @logs = split(/<>/,$room_data); my $delno = $in{'delno'}; my $delkey = $in{'delkey'}; if($delno eq $logs[0]){ if($delkey eq $logs[7]){ $saveflag=1; $room_data =~ s/.*\n//; my @img = split(/\,/,$logs[6]); if (-e "$ImgDir$room/$img[0]") { unlink("$ImgDir$room/$img[0]"); } } last; } } if($saveflag == 1){ &datasave; ## データ保管 } &roomdatas_view; }
画面は、こんな感じで
投稿NO/削除キー/
フォームに追加し、削除処理を作成する。
#----------------------------------------------------------- # ユーザー記事削除処理 #----------------------------------------------------------- sub userkill() { &dataload; ## データ読み込み foreach $room_data (@room_datas){ my @logs = split(/<>/,$room_data); my $delno = $in{'delno'}; my $delkey = $in{'delkey'}; if($delno eq $logs[0]){ if($delkey eq $logs[7]){ $saveflag=1; $room_data =~ s/.*\n//; my @img = split(/\,/,$logs[6]); if (-e "$ImgDir$room/$img[0]") { unlink("$ImgDir$room/$img[0]"); } } last; } } if($saveflag == 1){ &datasave; ## データ保管 } &roomdatas_view; }
LINUX TOP 前ページ 次ページ