#!/usr/bin/perl
#↑この行はサーバーのPerlの場所に応じて変えてください
utime time(), time(), __FILE__;
############################################################
# nukunuku BBS	(C) nukunuku 2000-
############################################################
require "config.cgi";		# CGIのデフォルト設定
require "bbslib.cgi";		# BBSのエンジン

if ($ENV{'REQUEST_METHOD'} eq "POST") {
	binmode(STDIN); read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
	&messagewrite( $query_string, $messagefile );
}
&bbsview( $templatefile, $messagefile, $0 );

exit(0);