#*************************************************************** # news_form.pl # プールクラブWEB管理プログラム 新着情報部分 # 2003.8 T.Koike @ avalon-sd.Inc #*************************************************************** require 'subroutine.pl'; #--------# #新規情報# #--------# #---書き込みフォーム sub news_form_new1{ &form_upper; print "
\n" ; print "\n" ; print "\n" ; print "
\n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; &form_button("2"); print "
新着情報G
更新日時G
新規追加情報G
\n" ; print "
\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "
\n" ; } #---書き込み実行 sub news_form_new2{ &form_upper; print "\n" ; print "\n" ; print "
\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n"; my$news_text = "$_[0]"; my$news_time = "$_[1]"; $news_text = &text("$news_text"); my$write_data = "$news_time\t$news_text\t"; open (ADD,">>../newsg/news.dat") || die &error("ファイル呼び出しに失敗しました。"); print ADD "$write_data\n"; close (ADD); print "
新着情報G　追加完了
追加完了しました。
\n" ; print "
\n" ; print "
\n" ; print qq|
戻る
|; } #--------# #編集編集 #--------# #---編集記事選択 sub news_form_edit1{ open(EDIT,"../newsg/news.dat") || die &error("ファイル呼び出しに失敗しました。"); my@EDIT = ; close(EDIT); @EDIT = reverse @EDIT; &form_upper; print "
\n" ; print "\n" ; print "\n" ; print "
\n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print ""; unless(-z "../newsg/news.dat"){ my$i = 0; foreach (@EDIT){ my($news_time,$news_text) = split(/\t/,$_); print "\n"; print "\n" ; print "\n" ; print "\n"; $i++; } &form_button("2"); } else{ print " \n" ; print " \n" ; print " \n" ; } print ""; print "
新着情報G　編集
$news_text
記事はありません
\n" ; print "
\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "
\n" ; } #---編集フォーム sub news_form_edit2{ open(EDIT,"../newsg/news.dat") || die &error("ファイル呼び出しに失敗しました。"); my@EDIT = ; close(EDIT); @EDIT = reverse @EDIT; &form_upper; print "
\n" ; print "\n" ; print "\n" ; print "
\n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print ""; my$i = 0; foreach (@EDIT){ my($news_time,$news_text) = split(/\t/,$_); $news_text = &text_r("$news_text"); if($_[4] == $i){ print "\n"; print "\n" ; print "\n" ; print "\n"; print "\n"; print "\n" ; print "\n" ; print "\n"; last; } $i++; } print ""; &form_button("2"); print "
新着情報G　編集
更新日時$news_time
編集内容G
\n" ; print "
\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "
\n" ; } #---編集実行 sub news_form_edit3{ &form_upper; print "\n" ; print "\n" ; print "
\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n"; open(FILE,"../newsg/news.dat") || die &error("ファイル呼び出しに失敗しました。"); my@FILE = ; @FILE = reverse @FILE; my$i = 0; my@write; foreach(@FILE){ chop($_); if($_[0] == $i){ my($news_time,$news_text) = split(/\t/,$_); my$news_text_edit = &text("$_[1]"); my$edit_write_data ="$news_time\t$news_text_edit\t\n"; unshift(@write,"$edit_write_data"); } if($_[0] != $i){unshift(@write,"$_\n");} $i++; } open(WRITE,">../newsg/news.dat") || die &error("ファイル呼び出しに失敗しました。"); print WRITE "@write"; close(WRITE); print "
新着情報G　編集完了
編集完了しました。G
\n" ; print "
\n" ; print "
\n" ; print qq|
戻る
|; } #--------# #記事削除 #--------# #---削除記事選択 sub news_form_delete1{ open(EDIT,"../newsg/news.dat") || die &error("ファイル呼び出しに失敗しました。"); my@EDIT = ; close(EDIT); @EDIT = reverse @EDIT; my$read = @EDIT; &form_upper; print "
\n" ; print "\n" ; print "\n" ; print "
\n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print ""; unless(-z "../newsg/news.dat"){ my$i = 0; foreach (@EDIT){ my($news_time,$news_text) = split(/\t/,$_); print "\n"; print "\n" ; print "\n" ; print "\n"; $i++; } &form_button("2"); } else{ print " \n" ; print " \n" ; print " \n" ; } print ""; print "
新着情報G　削除選択
$news_text
記事はありません
\n" ; print "
\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "\n" ; print "
\n" ; } #---削除実行 sub news_form_delete2{ open(FILE,"../newsg/news.dat") || die &error("ファイル呼び出しに失敗しました。");my@FILE = ; close(FILE); @FILE = reverse @FILE; &form_upper; print "\n" ; print "\n" ; print "
\n" ; print " \n" ; print " \n" ; print " \n" ; print " \n" ; print "\n" ; print "\n" ; print "\n"; print ""; my$i = 0; my@delete_write; foreach(@FILE){ chomp($_); my$no = $_[1] -> {$i}; if($no ne $i){unshift(@delete_write,"$_\n");} $i++ } open(WRITE,">../newsg/news.dat") || die &error("ファイル呼び出しに失敗しました。"); print WRITE "@delete_write"; close(WRITE); print ""; print "
新着情報G　削除実行
削除完了しました。
\n" ; print "
\n" ; print "
\n" ; print qq|
戻る
|; } 1;