ユーザーの記事削除を作成

画面は、こんな感じで

投稿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　前ページ　次ページ

今日のアクセス人目