require "cgi-lib.pl"; print "Content-type: text/html; charset=Shift_JIS\n\n"; print <

掲示板

タイトル
メッセージ
お名前
e-mail
 
EOL &ReadParse(*form); $namae = $form{"namae"}; $mail = $form{"mail"}; $title = $form{"title"}; $message = $form{"message"}; open(IN, "icgio.txt"); @log = ; close(IN); if ($message ne "") { &deltag($namae); &deltag($mail); &deltag($title); &deltag($message); $message =~ s/\r\n/
/g; # Windows系(\r\n) $message =~ s/\r/
/g; # Mac系(\r) $message =~ s/\n/
/g; # UNIX系(\n) unshift @log, "$namae\t$mail\t$title\t$message\n"; open(OUT, "+< icgio.txt"); flock(OUT, 2); truncate(OUT, 0); seek(OUT, 0, 0); print OUT @log; close(OUT); } foreach $data (@log) { chop $data; ($namae, $mail, $title, $message) = split(/\t/, $data); print $title; print "  投稿者："; if ($mail ne "") {print "";} print $namae; if ($mail ne "") {print "";} print "

\n"; print "$message
\n"; print "
\n"; } print "\n\n"; sub deltag { $_[0] =~ s//>/g; }