List of bbs-ex0/bbs-r.cgi

Mon Dec 10 12:12:49 2018

戻る

TEXTAREA で表示(カット&ペーストむき)

#!/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";

戻る