| 書き込みフォームは下にあり | \n"; print "|
| 伝言タイトル一覧 | \n"; print "内容を表\示したいタイトルにチェックをつけてください。"; print " （最大記事番号=$maxnumb） | \n"; print "
| \n";
print " "; print "\n"; print "\n"; print " The story begins thirty years before when the Earnshaw family lived at Wuthering Heights consisting \n"; print "of, as well as the mother and father, Hindley, a boy of fourteen, and six-year-old Catherine, the same \n"; print "person that he had dreamt about and the mother of the present mistress. In that year, Mr Earnshaw \n"; print "travels to Liverpool where he finds a homeless, gypsy boy of about seven whom he decides to adopt as \n"; print "his son. He names him \"Heathcliff\". Hindley, who finds himself excluded from his father's affections by \n"; print "this newcomer, quickly learns to hate him but Catherine grows very attached to him. Soon Heathcliff and \n"; print "Catherine are like twins, spending hours on the moors together and hating every moment apart.\n"; print "\n"; print " |
| ";
print " \n"; # # --- 記事保存ファイルの読込、htmlの組立 --- $delkey = $FORM{'PASWRD'}; $kjdspln = 0; open(IN, $msg_logfile); $kjheader[0] = 0; while ( \n"; } if ($delkey eq $adminiPass || $delkey eq $kjheader[4]) { print " \n"; print "$kjban："; print "$kjheader[1]"; ## print " 投稿者：$kjheader[2]"; ## print " $kjheader[3]"; if ($kjheader[2] eq "" || $kjheader[2] =~ /省略/) { print " "; } else { print " 投稿者：$kjheader[2]"; } if ($delkey eq $adminiPass) { print " ($kjheader[4])"; } print "\n \n"; } else { print " \n"; print "$kjban："; print "$kjheader[1]"; if ($kjheader[2] eq "" || $kjheader[2] =~ /省略/) { print " "; } else { print " 投稿者：$kjheader[2]"; } print " \n"; print "---（パスワードが違う）--- \n"; $dspflg = 0; } } } else { if ($dspflg == 1) {print;} # これが無いと出ない } } close(IN); print " \n"; print " |
削除指示の確認\n"; print "\n"; rmdir($msg_lockfda); # <--- File unlock ------ exit(0); } # # --- When 削除 ------------------------------------------------------------------ # if ($ARGV[0] eq "innyou" && $FORM{'DELKUB'} eq "削除する") { $wildel = $FORM{'DELBAN'}; $nowban = 0; $nowkey = ""; $delcnt = 0; # 削除該当あったか否か $delkey = $FORM{'DELKEY'}; # # --- Copy log -> tmp --- open(IN, $msg_logfile); open(OUT, "> $msg_tmpfile"); $msgnumb[0] = 0; while (
\n"; print "確かに削除するとき、下をクリック。 削除キャンセルなら戻って下さい。
\n"; print "\n"; print "記事番号 （$wildel） password（$wilkey）
"; print "
| \n";
if ($henkub eq "変更") {print " \n"; print "$kjban："; print "$kjheader[1]"; if ($kjheader[2] eq "" || $kjheader[2] =~ /省略/) { print " "; } else { print " 投稿者：$kjheader[2]"; } print " \n"; } else { print; } } elsif ($henkub eq "変更") { if ($_ =~ /\e/) { # \eがあれば if ($kjcnt == 1) { last; } # Loopから出る @kjheader = split(/\e/, $_); # \eで分解 $kjban = $kjheader[0]; if ($kjban == $henban) { $kjcnt = 1; print " \n"; print "$kjban："; print "$kjheader[1]"; if ($kjheader[2] eq "" || $kjheader[2] =~ /省略/) { print " "; } else { print " 投稿者：$kjheader[2]"; } print " \n"; } } else { if ($kjcnt == 1) {print;} } } } close(IN); print " \n"; print " |