#!/usr/local/bin/perl5
# bbs-r.cgi
# 1997/09/01 Ver.0.01
#
# (C) 1997 がま
# e-mail addr : gama@mvg.biglobe.ne.jp
$FILE="bbs.dat";
$back="index.htm";
$time=localtime;
print "Content-type: text/html\n\n";
print "<HTML>";
print "<HEAD><TITLE>掲示板</TITLE></HEAD>";
print "<BODY BGCOLOR=\"#FFFFFF\">\n";
print "<HR>\n";
print $time;
print "<CENTER>\n";
print '<A HREF="bbs-w.htm">書き込む</A>';
print "|<A HREF=\"$back\">戻る</A>";
print "</CENTER>\n";
print "<HR>\n";
print "<BLOCKQUOTE>\n";
open(FCTR,"<$FILE");
while (<FCTR>) {
print $_;
}
close(FCTR);
print "</BLOCKQUOTE>\n";
print $time;
print "<CENTER>\n";
print '<A HREF="bbs-w.htm">書き込む</A>';
print "|<A HREF=\"$back\">戻る</A>";
print "</CENTER>\n";
print "</BODY>\n";
print "</HTML>\n";