#!/usr/bin/perl

print "Content-type: text/html\n\n";


#データ読み込み
if (!open(IN,"bbs.log")) { &fileerror; }
flock(IN, 1);
@file = <IN>;
close(IN);


#ヘッダー 〜 投稿フォーム
print "<HTML><HEAD>\n";
print "<META http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">\n";
print "<TITLE>掲示板</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "<H1 align=\"center\">掲示板</H1>\n";
print "<FORM method=\"POST\" action=\"reg.cgi\"><CENTER><TABLE><TBODY>\n";
print "<TR><TD>お名前</TD><TD><INPUT size=\"25\" type=\"text\" name=\"name\"></TD></TR>\n";
print "<TR><TD>件名</TD><TD><INPUT size=\"30\" type=\"text\" name=\"title\"></TD></TR>\n";
print "<TR><TD>本文</TD><TD><TEXTAREA rows=\"7\" cols=\"50\" name=\"body\"></textarea></TD></TR>\n";
print "</TBODY></TABLE><BR><INPUT type=\"submit\" value=\"送信\"> <INPUT type=\"reset\" value=\"リセット\"></FORM><HR><BR><BR>\n";

#記事表示
foreach $i (@file) {
    ($name,$title,$body)=split(/<>/,$i);
    print "<TABLE border=\"1\" width=\"640\"><TBODY>\n";
    print "<TR><TD>\n";
    print "<TABLE cellpadding=\"3\"><TBODY>\n";
    print "<TR><TD>名前</TD><TD>$name</TD></TR>\n";
    print "<TR><TD>件名</TD><TD>$title</TD></TR>\n";
    print "<TR><TD valign=\"top\">本文</TD><TD>$body</TD></TR>\n";
    print "</TBODY></TABLE>\n";
    print "</TD></TR>\n";
    print "</TBODY></TABLE>\n";
    print "<BR><BR>\n";
}

#フッター
print "</CENTER></BODY></HTML>\n";

# ファイルエラー表示
sub fileerror {
print "<CENTER><B>ファイルが開けません!</B></CENTER>";
exit;
}