★三　【スクリプト改造工房 PART 8 】　★三

★三　【スクリプト� ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

720:807@丸投げスレ
 05/07/19 00:34:13 
#選んだ記事を一旦削除して編集投稿フォーム表示、※ 
#投稿するときにパスワードがあえばログをそのデータで書き換えて終了。 
#パスワードが合わなければ、一旦削除した記事をログに追加して終了。 
#･･･という処理を考えた。この処理が問題であれば突っ込んでください。 
#苦し紛れに考えた処理なのでサーバー負荷とかわかりません。 
#なお、今作っているルーチンは※だけ、しかも途中。 
#======================== 
# 記事削除 
#======================== 
sub userdel { 
　# ロック処理 
　if ($lockkey == 1) { &lock1; } 
　elsif ($lockkey == 2) { &lock2; } 
　open(IN,"$logfile") || &error("$logfileが開けません。"); 
　@lines = <IN>; 
　close(IN); 
　$top = shift(@lines); 
 
＜つづく＞

721:807@丸投げスレ
 05/07/19 00:34:55 
############################ 
ここから 
########################### 
　$flag=0; 
　foreach (@lines) { 
　　($no,$reno,$date,$name,$mail,$subject,$icon,$icon2,$message,$color,$url,$host,$pw) = split(/<>/, $_); 
　　if ($flag == 0 && $eno eq "$no") { 
　　　$PW = $pw; 
　　　if ($reno eq "") { $flag=2; } 
　　　else { $flag=1; } 
　　} 
　　elsif ($flag == 2 && $FORM{'no'} eq "$reno") { next; } 
　　else { push(@new,$_); } 
　} 
　if ($FORM{'pwd'} eq '') {　&error("パスワードが入力されていません。","lock");} 
　if ($flag == 0) { &error("該当記事が見当たりません。","lock"); } 
　if ($PW eq '') { &error("パスワードが設定されていません。","lock"); } 
##################### 
ここまで、どうすればよいかわからないのでデフォルトのまま。 
##################### 
＜つづく＞

次ページ