#############################################################################
#
# main.pl
#
# $boardfile: ログファイル
# $maxmsg: 最大コメント表示数
#
# mfi Perl
#
# Coded by S.Kubo
#
#############################################################################
print "Content-type: text/html\n\n";
#############################################################################
#自身の環境を設定
#############################################################################
$boardfile = "bbs.log";
$maxmsg = 100;
require 'C:\InetPub\cgi-bin\jcode.pl';
#############################################################################
#ページをHTMLで構築
#############################################################################
print '';
print '';
#############################################################################
#自分の好み
print '';
print '「ヘルシーフーズふじ」掲示板';
print '';
print '掲示板
';
print '';
print '半角カナの使用はできません。';
print '';
print '';
print '
';
print '';
print '
';
print '';
print '発言者「氏名」と発言「本文」が無ければ掲示板に反映されません。
';
print '発言者「氏名」は、匿名でもかまいません。そのままで匿名になります。';
print '
';
print '発言総数が100を越えると古い順に削除されます。
';
print '';
print '';
print '';
print '
';
#############################################################################
require "comment.pl";