#!/usr/local/bin/perl

use strict;
require 'jcode.pl';

### bbs.cgi ver 2.31 (2001/08/22)

# システム情報
use vars qw($KEEPLOGCOUNT);
$KEEPLOGCOUNT = 4096; # ログファイル保持数（システム設定）

#==================================================
#　システム関連（タイムゾーン・シグナル）
#==================================================

#タイムゾーンをセットする
{
	$ENV{'TZ'} = "JST-9";
}

#シグナル対処関数
sub SigExit {
	exit(0);
}

#対応シグナル
{
	$SIG{'PIPE'} = $SIG{'INT'} = $SIG{'HUP'} = $SIG{'QUIT'} = $SIG{'TERM'} = "SigExit";
}


#==================================================
#　初期情報の取得（POST）
#==================================================

{
	use vars qw(%FORM);
	use vars qw($buffer);
	my (@pairs, $name, $value, $check);
	$check = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
		@pairs = split /&/,$buffer;$buffer=undef;
		foreach (@pairs) {
			($name, $value) = split /=/;
			$value =~ tr/+/ /;
			$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
			$value =~ s/</&lt;/g;
			$value =~ s/>/&gt;/g;
			$value =~ s/\r\n|\r|\n/<br>/g;
			$value =~ s/^(?:<br>)+//g;
			$value =~ s/(?:<br>)+$//g;
			$value =~ s/(?:<br>){4,}/<br><br><br>/g;
			$value =~ s/($check)[\201-\237\340-\374]<br>/$1<br>/g;
			$buffer .= $value;
			$FORM{$name} = $value;
		}
	}
	if((&jcode'getcode(*buffer))[1] ne 'sjis'){
		DispError("ERROR！","ERROR：Sjisで書いてね。。。");
	}
	if($FORM{'submit'} !~ /^[\x81-\x95|\xE0-\xEF]/ || length($FORM{'submit'}) < 6){
		DispError("ERROR！","ERROR：文字化けしちゃうよ。。。");
	}
	if(length($FORM{'time'})<9){
		DispError("ERROR！","ERROR：フォーム情報が不正です！");
	}
}


#==================================================
#　設定
#==================================================

{
	use vars qw(%SETTING);
	use vars qw(%FLAG);
	use vars qw($HOST);
	use vars qw($DATE);
	use vars qw($ID);

	# 各種PATH生成
	use vars qw($WWWPATH);
	use vars qw($PATH);
	use vars qw($DATPATH);
	use vars qw($TEMPPATH);
	use vars qw($IMODEPATH);
	$FORM{'bbs'} =~ s/\0//g;
	$PATH = "../" . $FORM{'bbs'} . "/";
	$DATPATH = $PATH . "dat/";
	$TEMPPATH = $PATH . "html/";
	$IMODEPATH = $PATH . "i/";

	use vars qw($NOWTIME);
	$NOWTIME = time;

	$FLAG{'FROM'}=$FORM{'FROM'};
	$FLAG{'mail'}=$FORM{'mail'};
}


#==================================================
#　初期情報の取得（設定ファイル）
#==================================================

{
	# 設定ファイルを読む
	my ($m_pass,$m_key,$m_value);
	$m_pass = $PATH . "SETTING.TXT";
	if(-e $m_pass){
		open(FILE,$m_pass);
		foreach (<FILE>){
			chop;
			($m_key,$m_value) = split /=/;
			$SETTING{$m_key} = $m_value;
		}
		close(FILE);
	}else{
		# 設定ファイルがない（ERROR)
		DispError("ERROR！","ERROR：ユーザー設定が消失しています！");
	}

	# 欠落情報の補完
	unless($SETTING{'BBS_THREAD_NUMBER'}){$SETTING{'BBS_THREAD_NUMBER'}=20;}
	unless($SETTING{'BBS_CONTENTS_NUMBER'}){$SETTING{'BBS_CONTENTS_NUMBER'}=10;}
	unless($SETTING{'BBS_LINE_NUMBER'}){$SETTING{'BBS_LINE_NUMBER'} = 30;}
	unless($SETTING{'BBS_MAX_MENU_THREAD'}){$SETTING{'BBS_MAX_MENU_THREAD'}=100;}
	unless($SETTING{'BBS_BG_COLOR'}){$SETTING{'BBS_BG_COLOR'}="#FFFFFF";}
	unless($SETTING{'BBS_MENU_COLOR'}){$SETTING{'BBS_MENU_COLOR'}="#CCFFCC";}
	unless($SETTING{'BBS_MAKETHREAD_COLOR'}){$SETTING{'BBS_MAKETHREAD_COLOR'}="#CCFFCC";}
	unless($SETTING{'BBS_THREAD_COLOR'}){$SETTING{'BBS_THREAD_COLOR'}="#EFEFEF";}
	unless($SETTING{'BBS_SUBJECT_COLOR'}){$SETTING{'BBS_SUBJECT_COLOR'}="#FF0000";}
	unless($SETTING{'BBS_TEXT_COLOR'}){$SETTING{'BBS_TEXT_COLOR'}="#000000";}
	unless($SETTING{'BBS_NAME_COLOR'}){$SETTING{'BBS_NAME_COLOR'}="#008800";}
	unless($SETTING{'BBS_LINK_COLOR'}){$SETTING{'BBS_LINK_COLOR'}="#0000FF";}
	unless($SETTING{'BBS_ALINK_COLOR'}){$SETTING{'BBS_ALINK_COLOR'}="#FF0000";}
	unless($SETTING{'BBS_VLINK_COLOR'}){$SETTING{'BBS_VLINK_COLOR'}="#660099";}
	unless($SETTING{'BBS_TITLE_COLOR'}){$SETTING{'BBS_TITLE_COLOR'}="#000000";}
	unless($SETTING{'BBS_SUBJECT_COUNT'}){$SETTING{'BBS_SUBJECT_COUNT'}=64;}
	unless($SETTING{'BBS_NAME_COUNT'}){$SETTING{'BBS_NAME_COUNT'}=64;}
	unless($SETTING{'BBS_MAIL_COUNT'}){$SETTING{'BBS_MAIL_COUNT'}=64;}
	unless($SETTING{'BBS_MESSAGE_COUNT'}){$SETTING{'BBS_MESSAGE_COUNT'}=4096;}
	#unless($SETTING{'BBS_THREAD_TATESUGI'}){$SETTING{'BBS_THREAD_TATESUGI'}=5;}
	unless($SETTING{'timecount'}){$SETTING{'timecount'}=15;}
	unless($SETTING{'timeclose'}){$SETTING{'timeclose'}=15;}
	unless($SETTING{'BBS_WAIT_MINUTE'}){$SETTING{'BBS_WAIT_MINUTE'}=3;}
	unless($SETTING{'BBS_MAX_RES_COUNT'}){$SETTING{'BBS_MAX_RES_COUNT'}=1000;}
	unless($SETTING{'BBS_MAX_RES_SIZE'}){$SETTING{'BBS_MAX_RES_SIZE'}=500;}
}


#==================================================
#　初期情報の取得（日付）
#==================================================

{
	# 日付と時間をげとする
	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
	my ($myear, $mtd, $dday, $uruu);
	my ($wmon, $wmday, $wwday, $wdday);
	my ($nmon, $nday, $dtime, $nhour, $nmin, $nsec);
	my ($qyear, $quruu, $qmon, $qday, $qrokuyou);
	($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($NOWTIME);
	$myear = $year + 1900;
	$wday = ("日", "月", "火", "水", "木", "金", "土")[$wday];

	if ( $SETTING{'BBS_LUNISOLAR_CALENDAR'} ) {
		# 旧暦の計算（qreki.plが必要）
		# qreki.plの入手先 → http://www3.biwako.ne.jp/~nobuaki/qreki/
		require './qreki.pl';
		($qyear, $quruu, $qmon, $qday) = &qreki::calc_kyureki($myear, $mon + 1, $mday);
		$qrokuyou = ( $qmon + $qday ) % 6;
		$quruu = ("", "閏")[$quruu];
		$qrokuyou = ("大安", "赤口", "先勝", "友引", "先負", "仏滅")[$qrokuyou];
	}

	if (( $SETTING{'BBS_WORLD_CALENDAR'} ) || ( $SETTING{'BBS_DECIMAL_CALENDAR'} )) {

		# 閏年の判定
		if (( $myear % 4 == 0 ) && ( $myear % 100 != 0 ) || ( $myear % 400 == 0 )) {
			$uruu = 1;
		} else {
			$uruu = 0;
		}

		# 通日の計算 ( 0 〜 364 ( 平年 ), 365 ( 閏年 ) )
		$mtd = ( 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 )[$mon];
		$dday = $mtd + $mday - 1;
		if (( $uruu == 1 ) && ( $mon >= 2 )) {
			$dday++;
		}
	}

	if ( $SETTING{'BBS_WORLD_CALENDAR'} ) {
		# 世界暦の計算
		if (( $uruu == 1 ) && ( $dday >= 183 )) {
			$wdday = $dday - 1;
		} else {
			$wdday = $dday;
		}
		if (( $uruu == 1 ) && ( $dday == 182 )) {
			$wmon  =  6;
			$wmday = 31;
			$wwday = "世";
		} elsif (( $uruu == 1 ) && ( $dday == 365 ) || ( $uruu == 0 ) && ( $dday == 364 )) {
			$wmon  = 12;
			$wmday = 31;
			$wwday = "世";
		} else {
			$wmon = int ( $wdday / ( 91 / 3 )) + 1;
			$wmday = int ( $wdday - ( $wmon - 1 ) * ( 91 / 3 )) + 1;
			$wwday = ("日", "月", "火", "水", "木", "金", "土")[($wdday % 7)];
		}
	}

	if ( $SETTING{'BBS_DECIMAL_CALENDAR'} ) {
		# 10進の暦法の計算
		if ( $dday == 365 ) {
			$nmon =  9;
			$nday = 36;
		} else {
			$nmon = int ( $dday / 36.5 );
			$nday = int ( $dday - $nmon * 36.5 );
		}

		# 10進の時法の計算
		$dtime = ( $hour * 3600 + $min * 60 + $sec ) / 0.864;
		$nhour = int ( $dtime / 10000 );
		$nmin = int (( $dtime - $nhour * 10000 ) / 100 );
		$nsec = int ( $dtime - $nhour * 10000 - $nmin * 100 );
	}

	# 日付・時間の合成
	$DATE = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
	$myear, $mon + 1, $mday, $wday, $hour, $min);

	if ( $SETTING{'BBS_LUNISOLAR_CALENDAR'} ) {
		$DATE .= sprintf(" 旧暦：%04d/%s%02d/%02d(%s) %02d:%02d",
		$qyear, $quruu, $qmon, $qday, $qrokuyou, $hour, $min);
	}

	if ( $SETTING{'BBS_WORLD_CALENDAR'} ) {
		$DATE .= sprintf(" 世界暦：%04d/%02d/%02d(%s) %02d:%02d",
		$myear, $wmon, $wmday, $wwday, $hour, $min);
	}

	if ( $SETTING{'BBS_DECIMAL_CALENDAR'} ) {
		$DATE .= sprintf(" 十\進暦：%04d/%01d/%02d #%01d%02d",
		$myear, $nmon, $nday, $nhour, $nmin);
	}

	# ID 
	my $idnum = substr($ENV{'REMOTE_ADDR'}, 8); 
	my $idcrypt = substr(crypt($idnum * $idnum, substr($DATE, 8, 2)), -8); 
	$ID = " ID:".$idcrypt;

	# 有効期限をつくる
	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
	my $exp = 24 * 60 * 60; $exp *= 30; #有功日数を乗じる
	($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime($NOWTIME + $exp);
	$wday = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wday];
	$mon = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mon];
	$year = $year+1900;$mday = "0$mday" if ($mday < 10);
	$FLAG{'expires'} = "$wday, $mday-$mon-$year 00:00:00 GMT";
}


#==================================================
#　ホスト取得
#==================================================

{
	$FLAG{'PROXY'} = 0;
	my $host2;
	$HOST = $ENV{'REMOTE_ADDR'};
	if ($HOST =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) {
		$HOST = gethostbyaddr(pack('c4',split(/\./, $HOST)), 2) || $HOST;
	}
	if ($ENV{'HTTP_VIA'} =~ s/.*\s(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/) {
		$host2 = $ENV{'HTTP_VIA'};
	}
	if ($ENV{'HTTP_X_FORWARDED_FOR'} =~ s/^(\d+)\.(\d+)\.(\d+)\.(\d+)(\D*).*/$1.$2.$3.$4/) {
		$host2 = $ENV{'HTTP_X_FORWARDED_FOR'};
	}
	if ($ENV{'HTTP_FORWARDED'} =~ s/.*\s(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.$2.$3.$4/) {
		$host2 = $ENV{'HTTP_FORWARDED'};
	}
	$host2 = gethostbyaddr(pack('c4', split(/\./, $host2)), 2);
	$HOST .= "[$host2]" if ($host2);
	if ($HOST =~ /proxy/i && $host2 eq '') { $FLAG{'PROXY'} = 1; }
	if ($ENV{'HTTP_USER_AGENT'} =~ /ANONYMIZER/i) { $FLAG{'PROXY'} = 1; }
	if ($host2){ $FLAG{'PROXY'} = 1; }
}


#==================================================
#　i-mode検出
#==================================================

{
	$FLAG{'imode'}=0;
	if($FORM{'submit'} eq 'かきこむ'){$FLAG{'imode'}=1;}
	if($ENV{'HTTP_USER_AGENT'} =~ /DoCoMo\//){$FLAG{'imode'}=1;}
}


#==================================================
#　パス情報（名前）
#==================================================

{
	$FLAG{'cap'}='';
	if (-e "../caps.cgi" && $FORM{'mail'} =~ /#.+/) {
		my ($id1,$name1,$pass1);
		open(IN,"../caps.cgi");
		foreach (<IN>) {
			chop;
			($id1,$name1,$pass1) = split /<>/;
			if($FORM{'mail'} =~ /#$pass1/){
				$FLAG{'cap'} = "$name1 ★";$ID=" ID:???";
				last;
			}
		}
		close(IN);
	}
}


#==================================================
#　アクセス規制
#==================================================

{
	# 不正PROXY使用ですか、、、？

	# プロキシ制限の実施
	if($FLAG{'PROXY'} == 1 && $SETTING{'BBS_PROXY_CHECK'} eq "checked") {
		DispError("ERROR！","ERROR：PROXY規制中！");
	}
	if($HOST !~/jp$/ && $SETTING{'BBS_OVERSEA_PROXY'} eq "checked") {
		DispError("ERROR！","ERROR：PROXY規制中！");
	}
	if($HOST !~ /jp$/ && $FORM{'subject'} ne '' && $SETTING{'BBS_OVERSEA_THREAD'} eq "checked") {
		DispError("ERROR！","jpドメインからスレッド立ててください");
	}

	#-------------------------------ユーザー設定が異常です！
	if(-e "../z$FORM{'bbs'}/uerror.cgi"){
		open (IN,"../$FORM{'bbs'}/uerror.cgi");
		foreach (<IN>){
			chop;
			if ($HOST =~ /$_/) {
				DispError("ERROR！","ユーザー設定が異常です！");
			}
		}
		close(IN);
	}

	#-------------------------------リモートホストを公開します。
	if (-e "../$FORM{'bbs'}/chubo.cgi" && !($SETTING{'BBS_NEWSUBJECT'} && $FORM{'subject'})){
		open (IN,"../$FORM{'bbs'}/chubo.cgi");
		foreach (<IN>){
			chop;
			if ($HOST =~ /$_/) {
				$FORM{'MESSAGE'} .= '<br><br><font color=red><b>あなたのレスまたはスレッドの内容について問題があり、<br>';
				$FORM{'MESSAGE'} .= '管理人からの警告にもかかわらず内容に改善が見られませんでしたので、<br>';
				$FORM{'MESSAGE'} .= "あなたのリモートホスト</b>（$HOST）<b>を公開します。<br>";
				$FORM{'MESSAGE'} .= '解除申請は事務所にお願いします。</b></font>';
			}
		}
		close(IN);
	}

	#-------------------------------管理人から警告します。
	if (-e "../$FORM{'bbs'}/keikoku.cgi" && !($SETTING{'BBS_NEWSUBJECT'} && $FORM{'subject'})){
		open (IN,"../$FORM{'bbs'}/keikoku.cgi");
		foreach (<IN>){
			chop;
			if ($HOST =~ /$_/) {
				$FORM{'MESSAGE'} .= '<br><br><font color=orange><b>あなたのレスまたはスレッドの内容について、管理人から警告します。<br>';
				$FORM{'MESSAGE'} .= '内容に改善が見られない場合、あなたのリモートホストが公開されます。<br>';
				$FORM{'MESSAGE'} .= '解除申請は事務所にお願いします。</b></font>';
			}
		}
		close(IN);
	}

	#-------------------------------個別の規制
	if (-e "../$FORM{'bbs'}/arashi.cgi" && !($SETTING{'BBS_NEWSUBJECT'} && $FORM{'subject'})){
		open (IN,"../$FORM{'bbs'}/arashi.cgi");
		foreach (<IN>){
			chomp;
			my ($arashikey , $arashihost);
			($arashikey , $arashihost) = (split /<>/ , $_);
			if (($FORM{'key'} eq $arashikey) && ($HOST =~ /$arashihost/)) {
				DispError("ERROR！","荒らしさんの使ったリモートホストです。。。");
			}
		}
		close(IN);
	}
}


#==================================================
#　情報の修正（名前）
#==================================================

{
	#名前がなければ名無しさん（かちゅ〜しゃ使用者とそれ以外で振り分け）
	$FLAG{'NONAME'} = 0;
	unless($FORM{'FROM'}){
		if (($ENV{'HTTP_USER_AGENT'} =~ /Katjusha/) || ($ENV{'HTTP_USER_AGENT'} =~ /kage/)) {
			$FORM{'FROM'} = $SETTING{'BBS_NONAME_NAME_KA'};
		} else {
			$FORM{'FROM'} = $SETTING{'BBS_NONAME_NAME'};
		}
		$FLAG{'NONAME'} = 1;
		if ($FLAG{'cap'}) {$FORM{'FROM'}='';}
	}

	if (($ENV{'HTTP_USER_AGENT'} !~ /Katjusha/) && ($ENV{'HTTP_USER_AGENT'} !~ /kage/)) {
		if ($FORM{'FROM'} eq $SETTING{'BBS_NONAME_NAME_KA'}) {
			$FORM{'FROM'} = $SETTING{'BBS_NONAME_NAME'};
		}
	}
}


#==================================================
#　情報の修正（キー）
#==================================================

# サブジェクトがある場合はキーを現在に設定
# サブジェクト＆キーがない場合はエラー
# サブジェクトが無くキーがある場合はキーを受けとる
{
	if($FORM{'subject'}){
		$FORM{'key'} = $NOWTIME;
	}else{
		if(defined($FORM{'key'})){
			# キーが数字じゃない場合ばいばい！
			if($FORM{'key'} =~ /\D/){
				DispError("ERROR！","ERROR：キー情報が不正です！");
			}
		}else{
			if ($SETTING{'BBS_PASSWORD_CHECK'} eq "checked"){
print "Content-type: text/html; charset=shift_jis\n\n";
print <<EOF;
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<SCRIPT LANGUAGE="JavaScript">
<!--
Name = getCookie("NAME");
Mail = getCookie("MAIL");
function getCookie(key,	 tmp1, tmp2, xx1, xx2, xx3) {
	tmp1 = " " + document.cookie + ";";
	xx1 = xx2 = 0;
	len = tmp1.length;
	while (xx1 < len) {
		xx2 = tmp1.indexOf(";", xx1);
		tmp2 = tmp1.substring(xx1 + 1, xx2);
		xx3 = tmp2.indexOf("=");
		if (tmp2.substring(0, xx3) == key) {
			return(unescape(tmp2.substring(xx3 + 1, xx2 - xx1 - 1)));
		}
		xx1 = xx2 + 1;
	}
	return("");
}
// -->
</SCRIPT>
<TITLE>$SETTING{'BBS_TITLE'}</TITLE>
</HEAD>
<BODY TEXT="$SETTING{'BBS_TEXT_COLOR'}" BGCOLOR="$SETTING{'BBS_BG_COLOR'}" link="$SETTING{'BBS_LINK_COLOR'}" alink="$SETTING{'BBS_ALINK_COLOR'}" vlink="$SETTING{'BBS_VLINK_COLOR'}" background="$SETTING{'BBS_BG_PICTURE'}">
EOF
if($SETTING{'BBS_TITLE_PICTURE'}){
	print "<div align=center>";
	if($SETTING{'BBS_TITLE_LINK'}){ print "<a href=\"$SETTING{'BBS_TITLE_LINK'}\" border=0>"; }
	print "<img src=\"$SETTING{'BBS_TITLE_PICTURE'}\" border=0>";
	if($SETTING{'BBS_TITLE_LINK'}){ print "</a>"; }
		print "</div>";
	}else{
		print "<div align=center>";
		if($SETTING{'BBS_TITLE_LINK'}){ print "<a href=\"$SETTING{'BBS_TITLE_LINK'}\" border=0>"; }
		#	print "<FONT COLOR=\"$SETTING{'BBS_TITLE_COLOR'}\"><H1>$SETTING{'BBS_TITLE'}</H1></FONT>";
		if($SETTING{'BBS_TITLE_LINK'}){ print "</a>"; }
		print "</div>";
	}
print "\n";
print <<EOF;
<br><table border=1 cellspacing=8 cellpadding=2 width=95%  bgcolor="$SETTING{'BBS_MAKETHREAD_COLOR'}" align=center><tr><td align="center">
<form method=POST action="../test/bbs.cgi">
<TABLE BORDER="0" CELLPADDING="1" WIDTH="100%">
	<TR><TD nowrap COLSPAN="2">
		<font size=+1><b>$SETTING{'BBS_TITLE'}</b></font><br>
EOF
if ($SETTING{'BBS_PROXY_CHECK'} eq "checked") {
	print "		<font color=#FF0000>■PROXY規制中■</font><br>\n";
}
print "	</TD>\n";
print "	<TD width=10% ALIGN=\"right\">";

&HTM("../right.txt");

print <<EOF;
</TD>
	</TR>
	<TR><TD COLSPAN="3">
EOF

&HTM($PATH."head.txt");
print "	<br></TD></TR>\n";
print <<EOF;
<TR>
<TD nowrap ALIGN="right">タイトル：</TD>
<TD COLSPAN="2"><input type="text" name="subject" size="40">　<input type=submit value="新規スレッド作成" name="submit"></TD>
</TR><TR>
<TD nowrap ALIGN="right">名前：</TD>
<TD>
<SCRIPT Language="JavaScript">
<!--
	document.write("<INPUT TYPE=text NAME=FROM SIZE=20 VALUE=");
	document.write(Name, ">");
// -->
</SCRIPT>
<NOSCRIPT>
	<INPUT TYPE=text NAME=FROM SIZE=20>
</NOSCRIPT>
</TD>
<TD nowrap width=45%>E-mail<font size="1">（省略可）</font>：
<SCRIPT Language="JavaScript">
<!--
	document.write("<INPUT TYPE=text NAME=mail SIZE=20 VALUE=");
	document.write(Mail, ">");
// -->
</SCRIPT>
<NOSCRIPT>
	<INPUT TYPE=text NAME=mail SIZE=20>
</NOSCRIPT>
</TD>
<TD><br></TD></TR><TR>
<TD nowrap ALIGN="right" VALIGN="top">内容：</TD>
<TD COLSPAN="2">
<textarea rows=5 cols=60 wrap=OFF name=MESSAGE></textarea>
<input type=hidden name=bbs value=$FORM{'bbs'}>
<input type=hidden name=time value=$NOWTIME>
</TD></TR></TABLE>
EOF
&HTM("../bottom.txt");
print "<br><br>\n</form>\n";
print "</td></tr></table><br>\n";
exit;
			}
			DispError("ERROR！","ERROR：サブジェクトが存在しません！");
		}
	}
}


#==================================================
#　書き込み確認。
#==================================================

{
	if ($SETTING{'BBS_NEWSUBJECT'} && $FORM{'subject'}){
		$FORM{'subject'}=~s/&/&amp;/g;$FORM{'subject'}=~s/"/&quot;/g;
		$FLAG{'FROM'}=~s/&/&amp;/g;$FLAG{'FROM'}=~s/"/&quot;/g;
		$FORM{'mail'}=~s/&/&amp;/g;$FORM{'mail'}=~s/"/&quot;/g;
		$FORM{'MESSAGE'}=~s/&/&amp;/g;$FORM{'MESSAGE'}=~s/"/&quot;/g;
		if ($FORM{'mail'}=~/hirakata/){&hirakata;}
#		if ($SETTING{'BBS_HIRAKATA_CHECK'} eq "checked"){&hirakata;}
		my $message2=$FORM{'MESSAGE'};$FORM{'MESSAGE'} =~ s/<br>/\n/g;
#		my $message2=$FORM{'MESSAGE'};$FORM{'MESSAGE'} =~ s/ <br> /\n/g;
		print "Content-type: text/html; charset=shift_jis\n\n";
		if (!$FLAG{'imode'}){
			print <<EOF;
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache">
<TITLE>$SETTING{'BBS_TITLE'}</TITLE>
</HEAD><body bgcolor="#FFFFFF">
<font size=+1 color=#FF0000>書き込み確認。</font><br><br>
書き込みに関して様々なログ情報が記録されています。<br>
公序良俗に反したり、他人に迷惑をかける書き込みは控えて下さい<br>
	<form method=POST action="../test/subbbs.cgi">
	タイトル：$FORM{'subject'}
		<input type="hidden" name="subject" value="$FORM{'subject'}" size="40"><br>
	名前：$FLAG{'FROM'}
		<INPUT TYPE=hidden NAME=FROM SIZE=19 value="$FLAG{'FROM'}">
	E-mail<font size="1">（省略可）</font>： $FORM{'mail'}
		<INPUT TYPE=hidden NAME=mail SIZE=19 value="$FORM{'mail'}"><br>
	内容：<ul>$message2
		<input type=hidden name=MESSAGE value="$FORM{'MESSAGE'}"></ul>
<br>
<input type=hidden name=bbs value=$FORM{'bbs'}>
<input type=hidden name=time value=$FORM{'time'}>
<input type=submit value="全責任を負うことを承諾して書き込む" name="submit"><br>
</form>
変更する場合は戻るボタンで戻って書き直して下さい。<br>
</body></html>
EOF
			exit;
		} else {
			print <<EOF;
<html><head></head><body>
<font color=#FF0000>書き込み確認。</font><br><br>
書き込みに関して様々なログ情報が記録されています。<br>
公序良俗に反したり、他人に迷惑をかける書き込みは控えて下さい<br>
	<form method=POST action="../test/subbbs.cgi">
	タイトル：$FORM{'subject'}
		<input type="hidden" name="subject" value="$FORM{'subject'}" size="40"><br>
	名前：$FLAG{'FROM'}
		<INPUT TYPE=hidden NAME=FROM SIZE=19 value="$FLAG{'FROM'}">
	E-mail<font size="1">（省略可）</font>： $FORM{'mail'}
		<INPUT TYPE=hidden NAME=mail SIZE=19 value="$FORM{'mail'}"><br>
	内容：<ul>$message2
		<input type=hidden name=MESSAGE value="$FORM{'MESSAGE'}"></ul>
<br>
<input type=hidden name=bbs value=$FORM{'bbs'}>
<input type=hidden name=time value=$FORM{'time'}>
全責任を負うことを承諾して<input type=submit value="かきこむ" name="submit"><br>
</form>
変更する場合は戻るボタンで戻って書き直して下さい。<br>
</body></html>
EOF
			exit;
		}
	}
}


#==================================================
#　名前いれてちょ。。。
#==================================================

{
	if($SETTING{'NANASHI_CHECK'} eq 1 && $FLAG{'NONAME'} && $FLAG{'cap'} eq ''){
		DispError("ERROR！","ERROR：名前いれてちょ。。。");
	}
	if($SETTING{'SUBBBS_CGI_ON'} eq 1 && $ENV{'HTTP_COOKIE'} eq ''){
		if(!$FLAG{'imode'}){
			if($SETTING{'BBS_NAMECOOKIE_CHECK'} eq "checked"){
				print "Set-Cookie: NAME=$FLAG{'FROM'}; expires=$FLAG{'expires'}; path=/\n";
			}
			if($SETTING{'BBS_MAILCOOKIE_CHECK'} eq "checked"){
				print "Set-Cookie: MAIL=$FLAG{'mail'}; expires=$FLAG{'expires'}; path=/\n";
			}
		}
		DispError("ERROR！","ERROR：クッキーをオンにしてちょ。");
	}
}


#==================================================
#　ブラウザ変ですよん
#==================================================

{
	if($ENV{'HTTP_USER_AGENT'} =~ /Mozilla/){
		if($ENV{'HTTP_REFERER'} !~ /$ENV{'HTTP_HOST'}/){
			DispError("ERROR！","ERROR：ブラウザ変ですよん");
		}
		if($ENV{'HTTP_REFERER'} !~ /$FORM{'bbs'}/ && $FORM{'subject'} eq ''){
			DispError("ERROR！","ERROR：ブラウザ変ですよん");
		}
	}
}


#==================================================
#　スレッドの書き込み規制
#==================================================

{
	my $keyfile = $FORM{'key'} . ".dat";
	if(-s "$DATPATH$keyfile" > 550000) {
		DispError("ERROR！","ERROR：このスレッド大きすぎます");
	}

	if(-e "$DATPATH$keyfile"){
		#データを取得
		use vars qw(@keytemp);
		open(DAT,"$DATPATH$keyfile");
		@keytemp=<DAT>;
		close(DAT);
		my ($date, $subject);
		$date = (split /<>/,$keytemp[@keytemp-1])[2];
		$subject = (split /<>/,$keytemp[0])[4];
		chomp($subject);
		$FLAG{'subject'} = $subject;
		$FLAG{'subnum'} = @keytemp;
		
		if ($date =~/Over|\Qストッパー\E|停止/) {
			DispError("ERROR！","ERROR：このスレッドには書けません！");
		}
	}
}


#==================================================
#　フィールドサイズの判定
#==================================================

if(! $FLAG{'cap'}){
	# 末尾の空白を削る
	my $check = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
	$FORM{'FROM'} =~ s/($check)(?: |　)+$/$1/g;
	$FORM{'mail'} =~ s/($check)(?: |　)+$/$1/g;
	$FORM{'subject'} =~ s/($check)(?: |　)+$/$1/g;
	$FORM{'MESSAGE'} =~ s/($check)(?: |　)+<br>/$1<br>/g;
	$FORM{'MESSAGE'} =~ s/($check)(?: |　)+$/$1/g;
#	unless ($FORM{'FROM'}) {$FORM{'FROM'} = '　';}

	if(length($FORM{'subject'}) > $SETTING{'BBS_SUBJECT_COUNT'}){
		DispError("ERROR！","ERROR：サブジェクトが長すぎます！");
	}
	if(length($FORM{'FROM'}) > $SETTING{'BBS_NAME_COUNT'}){
		DispError("ERROR！","ERROR：名前が長すぎます！");
	}
	if(length($FORM{'mail'}) > $SETTING{'BBS_MAIL_COUNT'}){
		DispError("ERROR！","ERROR：メールアドレスが長すぎます！");
	}
	if(length($FORM{'MESSAGE'}) > $SETTING{'BBS_MESSAGE_COUNT'}){
		DispError("ERROR！","ERROR：本文が長すぎます！<br>このエラーが出る時は、掲示板が移転している場合があります。。");
	}
	if(length($FORM{'MESSAGE'}) == 0){
		DispError("ERROR！","ERROR：本文がありません！");
	}
}


#==================================================
#　NGワードチェック
#==================================================

#if (-e "../$FORM{'bbs'}/ngword.cgi" && !($SETTING{'BBS_NEWSUBJECT'} && $FORM{'subject'})){
if (-e "../$FORM{'bbs'}/ngword.cgi"){
	open (IN,"../$FORM{'bbs'}/ngword.cgi");
	foreach (<IN>){
		chomp;
		$_ =~ s/\r\n|\r|\n//g;
		$FORM{'MESSAGE'} =~ s/\Q$_\E/<b>（NGワード）<\/b>/g;
#		if ($FORM{'MESSAGE'} =~ /$_/) {
#			DispError("ERROR！","ERROR：NGワードが含まれています。書き直してちょ。");
#		}
	}
	close(IN);
}


#==================================================
#　スレッド立てすぎチェック
#==================================================

{
	if($FORM{'subject'} && $SETTING{'BBS_THREAD_TATESUGI'}>=2){
		my $file = $PATH . "RIP.cgi";
		my @IP;
		if(-e $file){
			open(RIP,"<$file");
			@IP = <RIP>;
			close(RIP);
			foreach(@IP){
				chop;
				if($HOST eq $_){
					DispError("ERROR！","ERROR：スレッド立てすぎです。。。");
				}
			}
			@IP=@IP[0..$SETTING{'BBS_THREAD_TATESUGI'}-2];
		}
		unshift(@IP,$HOST);
		open(WIP,">$file");
		eval{flock(WIP,2);};
		foreach(@IP){
			print WIP "$_\n";
		}
		eval{flock(WIP,8);};
		close(WIP);
		chmod(0666,$file);
	}
}


#==================================================
#　連続投稿規制
#==================================================

{
	if($SETTING{'timecount'}>=2){
		my ($key,$host1);my @IP;my $count=0;my $file = $PATH . "timecheck.cgi";
		if(-e $file){
			open(RIP,"<$file");
			@IP = <RIP>;
			close(RIP);
			foreach(@IP){
				chop;
				($key,$host1) = split /<>/;
				if($HOST eq $host1){
					if($FORM{'time'} eq $key){
						DispError("ERROR！","ERROR：2重カキコですか？？");
					}
					$count++;
				}
			}
			@IP=@IP[0..$SETTING{'timecount'}-2];
		}
		if($count >= $SETTING{'timecount'}) {
			DispError("ERROR！","ERROR：連続投稿ですか？？");
		}
		unshift(@IP,"$FORM{'time'}<>$HOST");
		open(WIP,">$file");
		eval{flock(WIP,2);};
		foreach(@IP){
			print WIP "$_\n";
		}
		eval{flock(WIP,8);};
		close(WIP);
		chmod(0666,$file);
	}
}


#==================================================
#　置き換え
#==================================================

{
	$FORM{'FROM'} =~s/◆/◇/g;
	if (($FORM{'FROM'} ne $SETTING{'BBS_NONAME_NAME'}) && ($FORM{'FROM'} ne $SETTING{'BBS_NONAME_NAME_KA'})){
		$FORM{'FROM'} =~s/★/☆/g;
	}

	$FORM{'FROM'} =~ s/&(rl[emo]|lr[emo]);//g;
	$FORM{'mail'} =~ s/&(rl[emo]|lr[emo]);//g;
	$FORM{'subject'} =~ s/&(rl[emo]|lr[emo]);//g;

	$FORM{'FROM'} =~s/削除/"削除"/g;
	$FORM{'FROM'} =~s/sakujyo/"sakujyo"/g;
	$FORM{'FROM'} =~s/管理人/"管理人"/g;
	$FORM{'FROM'} =~s/管直人/"管直人"/g;
	$FORM{'FROM'} =~s/菅直人/"菅直人"/g;

	# トリップ
	my ($key,$salt);
	$FORM{'FROM'} =~ s/&#/<&>/g;
	if($FORM{'FROM'}=~/#(.+)/){
		$key = $1;
		$salt = substr($key."H.", 1, 2);
		$salt =~ s/[^\.-z]/\./go;
		$salt =~ tr/:;<=>?@[\\]^_`/ABCDEFGabcdef/;
		$FLAG{'trip'} = substr(crypt($key, $salt),-10);
	}

	$FORM{'FROM'} =~ s/#.*//g;
	$FORM{'FROM'} =~ s/<&>/&#/g;
	$FORM{'mail'} =~ s/#.*//g;

	if($FLAG{'trip'}){
		$FORM{'FROM'}.=" "if($FORM{'FROM'});
		$FORM{'FROM'}.="<trip>";
	}

	if($FLAG{'cap'}){
		$FLAG{'cap'}="＠$FLAG{'cap'}"if($FORM{'FROM'});
		$FORM{'FROM'}.="$FLAG{'cap'}";
	}

	my $check = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
	$FORM{'FROM'} =~ s/($check)fusianasan/$1<f>/g;
		$FORM{'FROM'} =~ s/<f>/<\/b>$HOST<b>/g;

	if ($FORM{'FROM'} =~ /($check)nukeanasan/){
		$FORM{'FROM'} =~ s/($check)nukeanasan/$1<n>/g;
		my $USERAGENT = $ENV{'HTTP_USER_AGENT'};
		if ($USERAGENT =~ /[\0-\37\177-\377]/){
			DispError("ERROR！","ERROR：User Agentをいじってんじゃねぇよｺﾞﾙｧ(ﾟДﾟ)");
		}
		$USERAGENT =~ s/</&lt;/g;
		$USERAGENT =~ s/>/&gt;/g;
		$FORM{'FROM'} =~ s/<n>/<\/b><font color=red><small>$USERAGENT<\/small><\/font><b>/g;
	}

	$FORM{'FROM'} =~ s/<trip>/◆<\/b>$FLAG{'trip'}<b>/g;

	$FORM{'MESSAGE'} =~ s/\t//g;

	if ($FORM{'mail'} =~ /hirakata/){&hirakata;}
#	if ($SETTING{'BBS_HIRAKATA_CHECK'} eq "checked"){&hirakata;}

	$FORM{'MESSAGE'} =~ s/($check)[\201-\237\340-\374]&/$1&/g;
	$FORM{'MESSAGE'} =~ s/(&gt;&gt;\d+-?\d*)/<r>$1<\/r>/g;
	$FORM{'MESSAGE'} =~ s/<r>&gt;&gt;(\d+)-(\d+)<\/r>/<a href="..\/test\/read.cgi\/$FORM{'bbs'}\/$FORM{'key'}\/n$1-$2" target="_blank">&gt;&gt;$1-$2<\/a>/g;
	$FORM{'MESSAGE'} =~ s/<r>&gt;&gt;(\d+)-<\/r>/<a href="..\/test\/read.cgi\/$FORM{'bbs'}\/$FORM{'key'}\/$1n-" target="_blank">&gt;&gt;$1-<\/a>/g;
	$FORM{'MESSAGE'} =~ s/<r>&gt;&gt;(\d+)<\/r>/<a href="..\/test\/read.cgi\/$FORM{'bbs'}\/$FORM{'key'}\/$1" target="_blank">&gt;&gt;$1<\/a>/g;
	$FORM{'MESSAGE'} =~ s/<\/?r>//g;
}


#==================================================
#　情報の修正
#==================================================

{
	# UNICODE置き換え
	$FORM{'mail'} =~ s/&#[x0-9a-fA-F;]+/&;/g;
	$FORM{'subject'} =~ s/&#[x0-9a-fA-F;]+/&;/g;
	if ($SETTING{'BBS_UNICODE'} ne "pass"){
		$FORM{'FROM'} =~ s/&#[x0-9a-fA-F;]+/&;/g;
		$FORM{'MESSAGE'} =~ s/&#[x0-9a-fA-F;]+/？/g;
	}

	# 1行データからは改行を削ります
	$FORM{'FROM'} =~ s/<br>//g;
	$FORM{'mail'} =~ s/<br>//g;
	$FORM{'subject'} =~ s/<br>//g;

	# デカ文字対策
	$FORM{'FROM'} =~ s/"/&quot;/g;
	$FORM{'mail'} =~ s/"/&quot;/g;
	$FORM{'subject'} =~ s/"/&quot;/g;
	##$FORM{'mail'} =~ s/ //g;

	# 末尾にsjisの1バイト目があったら削る
	my $check1 = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
	my $check2 = '[\201-\237\340-\374]';
	$FORM{'FROM'} =~ s/($check1)$check2$/$1/g;
	$FORM{'mail'} =~ s/($check1)$check2$/$1/g;
	$FORM{'subject'} =~ s/($check1)$check2$/$1/g;
	$FORM{'MESSAGE'} =~ s/($check1)$check2$/$1/g;

	# mail欄にpreと入れると<pre>を、teletypeと入れると<tt>を挿入
	if ($FORM{'mail'} =~ /pre/) {
		$FORM{'MESSAGE'} = "<pre>$FORM{'MESSAGE'}</pre>";
		$FORM{'MESSAGE'} =~ s/ <br> / <br>/g;
	} elsif ($FORM{'mail'} =~ /teletype/) {
		$FORM{'MESSAGE'} = "<tt>$FORM{'MESSAGE'}</tt>";
	}
}


#==================================================
#　ID・IP表示
#==================================================

{
	if ($FORM{'mail'} ne '' && $SETTING{'BBS_FORCE_ID'} ne "checked") {
		$ID = " ID:???";
	}
	if ($SETTING{'BBS_ADMIN_NAME'} && $FLAG{'cap'} =~ /$SETTING{'BBS_ADMIN_NAME'}/) {
		$ID = " ID:$SETTING{'BBS_ADMIN_ID'}";
	}
	if ($SETTING{'BBS_NO_ID'} ne "checked") {
		$DATE .= $ID;
	}
	if ($SETTING{'BBS_DISP_IP'} eq "checked") {
		$DATE .=" <font size=1>[ $HOST ]</font>";
	}
}


#==================================================
#　ファイル操作（サブジェクトファイル読み込み）
#==================================================

{
	use vars qw(@PAGEFILE);
	use vars qw(%SUBJECT);
	use vars qw($FILENUM);
	my ($subtt,$subtm,$subval,$subnum);
	my ($file, $value, $filename);
	my $subject = $PATH . "subject.txt";
	my $keyfile = $FORM{'key'} . ".dat";
	undef $subtm;
	undef $subtt;

	# サブジェクトファイルを読み込む
	open(SUBR,"<$subject");
	eval{flock(SUBR,1);};
	foreach(<SUBR>){
		chop;
		($file, $value) = split /<>/;
		unless($file){next;}
		$filename = $DATPATH . $file;
		if(-e $filename){ # datが存在する場合順番に追加
			push(@PAGEFILE,$file);
			$SUBJECT{$file} = $value;
		}
	}
	eval{flock(SUBR,8);};
	close(SUBR);
	# サブジェクト数を取得
	$FILENUM=@PAGEFILE;
	if($FORM{'subject'}){$FILENUM++;}

	# ログを定数に揃える
	if($FILENUM > $KEEPLOGCOUNT){
		for(my $start=$KEEPLOGCOUNT;$start<$FILENUM;$start++){
			my ($key,$delfile);
			$delfile = $DATPATH . $PAGEFILE[$start];
			unlink($delfile);
			$key = $PAGEFILE[$start];
			$key =~ s/([^\.]*)\.dat/$1/;
			$delfile = $TEMPPATH . $key . ".html";
			unlink($delfile);
		}
		$FILENUM = $KEEPLOGCOUNT;
		my @temp;
		@temp = @PAGEFILE[0..$FILENUM];
		undef @PAGEFILE;
		@PAGEFILE = @temp;
	}

	# サブジェクトが存在するか？
	unless($FORM{'subject'}){ # 無い場合
		# データファイルがあるか検証
		unless(-e "$DATPATH$keyfile"){
			DispError("ERROR！","ERROR：該当スレッドがありません！");
		}
		$subval = $FLAG{'subject'};
		$subnum = $FLAG{'subnum'};
		$subnum++;
#		if($subnum > 999){$subnum++;}
	}else{
		# サブジェクトがある場合それは新規スレッドである・・
		$subval = $FORM{'subject'};
		$subnum = 1;
	}

	# レス数とdat容量が規定値を超えていたらレス数を+1する
	my $datafile = $DATPATH . $FORM{'key'} . ".dat";
	if ($subnum > ($SETTING{'BBS_MAX_RES_COUNT'} - 1)) {$subnum++;}
	if (-s "$datafile" >= ($SETTING{'BBS_MAX_RES_SIZE'} * 1024)) {$subnum++;}

	$subtt = "$subval ($subnum)";
	$subtm = "$keyfile<>$subtt";

	# サブジェクトハッシュを書き換える
	$SUBJECT{$keyfile}=$subtt;

	#スレの1と現在のメール欄からデフォルトのモードを判定
	unless ($FORM{'subject'}) {
		open (MODE,"../$FORM{'bbs'}/dat/$FORM{'key'}.dat");
		my @LOG = <MODE>;
		close (MODE);

		my $mailcom = (split /<>/,$LOG[0])[1];
		undef @LOG;
		if ($mailcom =~/hane/) {$FLAG{'submode'} = 'hane';}
		elsif ($mailcom =~/kage/) {$FLAG{'submode'} = 'kage';}
		elsif ($mailcom =~/sage/) {$FLAG{'submode'} = 'sage';}
		elsif ($mailcom =~/dame/) {$FLAG{'submode'} = 'dame';}
		else {$FLAG{'submode'} = '';}
	}
	if ($FORM{'mail'} =~/^age/) {$FLAG{'submode'} = '';}
	elsif ($FORM{'mail'} =~/hane/) {$FLAG{'submode'} = 'hane';}
	elsif ($FORM{'mail'} =~/kage/) {$FLAG{'submode'} = 'kage';}
	elsif ($FORM{'mail'} =~/sage/) {$FLAG{'submode'} = 'sage';}
	elsif ($FORM{'mail'} =~/dame/) {$FLAG{'submode'} = 'dame';}

	# サブジェクトテキストを開く
	{
		my $newsub;
		$newsub = "";

		# haneのときは適当な場所に飛ばす
		if ($FLAG{'submode'} eq 'hane') {
			my (@temp,$random);
			srand;
			$random = int(rand (@PAGEFILE - 1));
			foreach(@PAGEFILE){
				if(@temp == $random){
					$temp[@temp]=$keyfile;
					$newsub .= "$subtm\n";
				}
				if($_ ne $keyfile){
					$temp[@temp]=$_;
					$newsub .= "$_<>$SUBJECT{$_}\n";
				}
			}
			@PAGEFILE=@temp;
		# kageのときは真ん中に持ってくる
		} elsif ($FLAG{'submode'} eq 'kage') {
			my (@temp,$middle);
			$middle = int(@PAGEFILE / 2);
			foreach(@PAGEFILE){
				if(@temp == $middle){
					$temp[@temp]=$keyfile;
					$newsub .= "$subtm\n";
				}
				if($_ ne $keyfile){
					$temp[@temp]=$_;
					$newsub .= "$_<>$SUBJECT{$_}\n";
				}
			}
			@PAGEFILE=@temp;
		# sageの時は上がらない
		} elsif ($FORM{'subject'} eq "" && $FLAG{'submode'} eq 'sage') {
			foreach(@PAGEFILE){
				$newsub .= "$_<>$SUBJECT{$_}\n";
			}
		# dameの時は一番下に移す
		} elsif ($FLAG{'submode'} eq 'dame') {
			my @temp;
			foreach(@PAGEFILE){
				if($_ ne $keyfile){
					$temp[@temp]=$_;
					$newsub .= "$_<>$SUBJECT{$_}\n";
				}
			}
			$temp[@temp]=$keyfile;
			$newsub .= "$subtm\n";
			@PAGEFILE=@temp;
		# それ以外は全てage（一番上に移す）
		} else {
			my @temp;
			$temp[0]=$keyfile;
			$newsub = "$subtm\n";
			foreach(@PAGEFILE){
				# 上がるキーは一番最初に持ってくる
				# keyfileは現在書き込みしたスレッドキー（上がっている）
				if($_ ne $keyfile){
					$temp[@temp]=$_;
					$newsub .= "$_<>$SUBJECT{$_}\n";
				}
			}
			@PAGEFILE=@temp;
		}

		#一括書き込み（板飛び対策入り）
		# 読み書きモードでオープン
		open(SUBW,"+<$subject");
		eval{flock(SUBW,2);};
		# ファイルポインタを先頭に
		seek(SUBW, 0, 0);
		print SUBW $newsub;
		# 新ファイルサイズを出力
		eval{truncate(SUBW, tell(SUBW));};
		# (念のため)ロック解除はクローズ処理任せに
		# eval{flock(SUBW,8);};
		close(SUBW);
	}
	# i-mode用テキストを開く
	{
		unless(-e $IMODEPATH){
			mkdir($IMODEPATH,0777);
		}
		my $imodeindex = $IMODEPATH . "index.html";
		open(SUBW,">$imodeindex");
		eval{flock(SUBW,2);};
		# 一括書き込み
		print SUBW "<HTML>\n";
		print SUBW "<HEAD>\n";
		print SUBW "<TITLE>$SETTING{'BBS_TITLE'}</TITLE>\n";
		print SUBW "</HEAD>\n";
		print SUBW "おんぷちゃんねる i-mode <a href=\"../../../../i/\">ﾄｯﾌﾟ</a><hr>";
		print SUBW "$SETTING{'BBS_TITLE'}<hr>";

		my ($count,$key,$end,$subtitle);
		if($FILENUM<30){$end=$FILENUM;}else{$end=30;}
		for($count=1;$count<=$end;$count++){
			@PAGEFILE[$count-1]=~ /(\d*)\.dat/;
			$key = $1;
			$subtitle = $SUBJECT{@PAGEFILE[$count-1]};
			&jcode::z2h_sjis(\$subtitle);
			print SUBW "$count: <a href=\"../../test/read.cgi/$FORM{'bbs'}/$key/i\">$subtitle</a><br>";
		}
		$count=@PAGEFILE;
		if ($count > 30){
			print SUBW "<hr><a href=\"../../test/pageview.cgi?bbs=$FORM{'bbs'}&page=2&imode=true\">次</a>\n";
		}
		print SUBW "<hr>\n";
		print SUBW <<EOF;
<form action="../../test/bbs.cgi" method="POST">
<input type=hidden name=bbs value=$FORM{'bbs'}>
<input type=hidden name=time value=$NOWTIME>
<input type="hidden" name="imode" value="true">
ﾀｲﾄﾙ:<input size="10" name="subject" type="text"><br>
名前:<input type=text name=FROM size=10><br>
mail:<input type=text name=mail size=10><br>
ｺﾒﾝﾄ<br>
<textarea ROWS=2 COLS=18 NAME=MESSAGE></textarea><br>
<input type="submit" name="submit" value="新ｽﾚ作成"><br>
</form>
EOF
		print SUBW "<hr></BODY></HTML>\n";
		eval{flock(SUBW,8);};
		close(SUBW);
		# パーミッション調整
		chmod(0666,$imodeindex);
	}
	# 過去ログメニューをかーくー
	{
		my $sub = $PATH . "subback.html";
		open(HED,">$sub");
		eval{flock(HED,2);};
		print HED<<EOF;
<html><head><meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS"><META HTTP-EQUIV="pragma" CONTENT="no-cache"><META HTTP-EQUIV="Cache-Control" CONTENT="no-cache"></head><body>
<font size=2><base target="body">
EOF
		my $dat;
		for(my $count=1;$count<=$FILENUM;$count++){
			$PAGEFILE[$count-1]=~/(\d+)\.dat/;
			$dat=$1;
			print HED "<a href=\"../test/read.cgi/$FORM{'bbs'}/$dat/l50\">$count: $SUBJECT{$PAGEFILE[$count-1]}</a>　\n";
		}
		print HED "<div align=\"right\"><a href=\"./kako/index.html\"><b>倉庫はこちら</b></a>";
		print HED "</body></html>";
		eval{flock(HED,8);};
		close(HED);
	}
}


#==================================================
#　クッキー発行
#==================================================

{
	if(!$FLAG{'imode'}){
		# クッキー食わせる
		if($SETTING{'BBS_NAMECOOKIE_CHECK'} eq "checked"){
			print "Set-Cookie: NAME=$FLAG{'FROM'}; expires=$FLAG{'expires'}; path=/\n";
		}
		if($SETTING{'BBS_MAILCOOKIE_CHECK'} eq "checked"){
			print "Set-Cookie: MAIL=$FLAG{'mail'}; expires=$FLAG{'expires'}; path=/\n";
		}
	}
}


#==================================================
#　ファイル操作（DATファイル更新）
#==================================================

{
	my $datafile = $DATPATH . $FORM{'key'} . ".dat";

	open(OUT, ">> $datafile");
	eval{flock(OUT,2);};

	print OUT "$FORM{'FROM'}<>$FORM{'mail'}<>$DATE<>$FORM{'MESSAGE'}<>$FORM{'subject'}\n";
	push(@keytemp,"$FORM{'FROM'}<>$FORM{'mail'}<>$DATE<>$FORM{'MESSAGE'}<>$FORM{'subject'}\n");

	# レス数が規定値を超えるとスレストをかける
	if ($FLAG{'subnum'} > ($SETTING{'BBS_MAX_RES_COUNT'} - 2)) {
		my $maxres = $SETTING{'BBS_MAX_RES_COUNT'};
		my $maxres1 = $maxres + 1;
		print OUT "$maxres1<><>Over $maxres Thread<>このスレッドは$maxresを超えました。<br>もう書けないので、新しいスレッドを立ててくださいです。。。<>\n";
		push (@keytemp,"$maxres1<><>Over $maxres Thread<>このスレッドは$maxresを超えました。<br>もう書けないので、新しいスレッドを立ててくださいです。。。<>\n");
	}

	# dat容量が規定値を超えるとスレストをかける
	if (-s "$datafile" >= ($SETTING{'BBS_MAX_RES_SIZE'} * 1024)) {
		my $maxsize = $SETTING{'BBS_MAX_RES_SIZE'} . "KB";
		print OUT "$maxsize<><>Over $maxsize data<>このスレッドは$maxsizeを超えました。<br>もう書けないので、新しいスレッドを立ててくださいです。。。<>\n";
		push (@keytemp,"$maxsize<><>Over $maxsize data<>このスレッドは$maxsizeを超えました。<br>もう書けないので、新しいスレッドを立ててくださいです。。。<>\n");
	}

	eval{flock(OUT,8);};
	close(OUT);

	# -----------------------------------------------------------------------
	if(-e $PATH."log/"){
	my $log = $PATH . "log/" . $FORM{'key'} . ".cgi";
	my $num=$FLAG{'subnum'};$num++;
	open(WIP,">>$log");
	eval{flock(WIP,2);};
	print WIP "$num<>$ENV{'REMOTE_ADDR'}<>$HOST<>$NOWTIME\n";
	eval{flock(WIP,8);};
	close(WIP);
	chmod(0600,$log);
	}
	# -----------------------------------------------------------------------

	# パーミッション調整
	chmod(0666,$datafile);
	chmod(0777,"$DATPATH");
	chmod(0777,"$PATH");
}


#==================================================
#　ファイル操作（HTML作成用作業ファイル更新）
#==================================================

#HTML用DATを作成
{
	MakeWorkFile($FORM{'key'});
	#パーミッション調整
	chmod(0777,$TEMPPATH);
}


#==================================================
#　本HTML吐き処理
#==================================================

{
use vars qw($INDEXFILE);
$INDEXFILE = $PATH . "index.html";
	open(HTM,">$INDEXFILE");
	eval{flock(HTM,2);};
	print HTM <<EOF;
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<SCRIPT LANGUAGE="JavaScript">
<!--
Name = getCookie("NAME");
Mail = getCookie("MAIL");
function getCookie(key,	 tmp1, tmp2, xx1, xx2, xx3) {
	tmp1 = " " + document.cookie + ";";
	xx1 = xx2 = 0;
	len = tmp1.length;
	while (xx1 < len) {
		xx2 = tmp1.indexOf(";", xx1);
		tmp2 = tmp1.substring(xx1 + 1, xx2);
		xx3 = tmp2.indexOf("=");
		if (tmp2.substring(0, xx3) == key) {
			return(unescape(tmp2.substring(xx3 + 1, xx2 - xx1 - 1)));
		}
		xx1 = xx2 + 1;
	}
	return("");
}
// -->
</SCRIPT>
<TITLE>$SETTING{'BBS_TITLE'}</TITLE>
</HEAD>
<BODY TEXT="$SETTING{'BBS_TEXT_COLOR'}" BGCOLOR="$SETTING{'BBS_BG_COLOR'}" link="$SETTING{'BBS_LINK_COLOR'}" alink="$SETTING{'BBS_ALINK_COLOR'}" vlink="$SETTING{'BBS_VLINK_COLOR'}" background="$SETTING{'BBS_BG_PICTURE'}">
EOF

if($SETTING{'BBS_TITLE_PICTURE'}){
	print HTM "<div align=center>";
	if($SETTING{'BBS_TITLE_LINK'}){ print HTM "<a href=\"$SETTING{'BBS_TITLE_LINK'}\" border=0>"; }
	print HTM "<img src=\"$SETTING{'BBS_TITLE_PICTURE'}\" border=0>";
	if($SETTING{'BBS_TITLE_LINK'}){ print HTM "</a>"; }
	print HTM "</div>";
}else{
	print HTM "<div align=center>";
	if($SETTING{'BBS_TITLE_LINK'}){ print HTM "<a href=\"$SETTING{'BBS_TITLE_LINK'}\" border=0>"; }
#	print HTM "<FONT COLOR=\"$SETTING{'BBS_TITLE_COLOR'}\"><H1>$SETTING{'BBS_TITLE'}</H1></FONT>";
	if($SETTING{'BBS_TITLE_LINK'}){ print HTM "</a>"; }
	print HTM "</div>";
}

print HTM "\n";
print HTM<<EOF;
<table border=1 cellspacing=8 cellpadding=2 width=95%  bgcolor="$SETTING{'BBS_MAKETHREAD_COLOR'}" align=center><tr><td align="center">
<form method=POST action="../test/bbs.cgi">
<TABLE BORDER="0" CELLPADDING="1" WIDTH="100%">
	<TR><TD nowrap COLSPAN="2">
		<font size=+1><b>$SETTING{'BBS_TITLE'}</b></font><br>
EOF
if ($SETTING{'BBS_PROXY_CHECK'} eq "checked") {
	print HTM "		<font color=#FF0000>■PROXY規制中■</font><br>\n";
}
print HTM "	</TD>\n";
print HTM "	<TD width=10% ALIGN=\"right\">";
&HTM("../right.txt",1);
print HTM<<EOF;
</TD>
	<TD nowrap width=5% ALIGN="right" VALIGN="top"><a href="#menu">■</a> <a href="#1">▼</a></TD>
	</TR>
	<TR><TD COLSPAN="3">
EOF
&HTM($PATH."head.txt",1);

print HTM<<EOF;
	<br><font color=red>この板の1スレッドの制限は最大$SETTING{'BBS_MAX_RES_COUNT'}レス、または最大$SETTING{'BBS_MAX_RES_SIZE'}KBになっています。</font><br>
EOF

print HTM "	<br></TD></TR>\n";

if ($SETTING{'BBS_PASSWORD_CHECK'} ne "checked"){
print HTM<<EOF;
<TR>
<TD nowrap ALIGN="right">タイトル：</TD>
<TD COLSPAN="2"><input type="text" name="subject" size="40">　<input type=submit value="新規スレッド作成" name="submit"></TD>
</TR><TR>
<TD nowrap ALIGN="right">名前：</TD>
<TD>
<SCRIPT Language="JavaScript">
<!--
	document.write("<INPUT TYPE=text NAME=FROM SIZE=20 VALUE=");
	document.write(Name, ">");
// -->
</SCRIPT>
<NOSCRIPT>
	<INPUT TYPE=text NAME=FROM SIZE=20>
</NOSCRIPT>
</TD>
<TD nowrap width=45%>E-mail<font size="1">（省略可）</font>：
<SCRIPT Language="JavaScript">
<!--
	document.write("<INPUT TYPE=text NAME=mail SIZE=20 VALUE=");
	document.write(Mail, ">");
// -->
</SCRIPT>
<NOSCRIPT>
	<INPUT TYPE=text NAME=mail SIZE=20>
</NOSCRIPT>
</TD>
<TD><br></TD></TR><TR>
<TD nowrap ALIGN="right" VALIGN="top">内容：</TD>
<TD COLSPAN="2">
<textarea rows=5 cols=60 wrap=OFF name=MESSAGE></textarea>
<input type=hidden name=bbs value=$FORM{'bbs'}>
<input type=hidden name=time value=$NOWTIME>
</TD></TR></TABLE>
EOF
}else{
print HTM<<EOF;
<TD nowrap COLSPAN="5" ALIGN="center">
<input type=submit value="新規スレッド作成画面へ" name="submit">
<input type=hidden name=bbs value=$FORM{'bbs'}>
<input type=hidden name=time value=$NOWTIME>
</TD></TR></TABLE>
EOF
}
&HTM("../bottom.txt",1);
print HTM "\n</form>\n";
	my $lp=int($FILENUM / $SETTING{'BBS_THREAD_NUMBER'});
	if($FILENUM != $lp * $SETTING{'BBS_THREAD_NUMBER'}){
		$lp++;
	}
	if($lp>1){
		print HTM "<a href=\"../test/pageview.cgi?page=$lp&bbs=$FORM{'bbs'}\">最後のページ</a>";
	}

	my $nextpage;
	if($FILENUM>$SETTING{'BBS_THREAD_NUMBER'}){
		$nextpage=1;
		print HTM "　<a href=\"../test/pageview.cgi?page=2&bbs=$FORM{'bbs'}\">次のページ</a>";
	}

print HTM "　<a href=\"subback.html\">スレッド一覧</a>";
print HTM "　<a href=\"i/index.html\">携帯電話向け</a>";
#print HTM "　<a href=\"http://www.2ch.net/guide/faq.html\">FAQ</a>";
#print HTM "　<a href=\"index.html\">再読み込み</a>\n";
print HTM "<table border=0 width=100%><tr>";
print HTM "<td align=\"right\"><a href=\"http://onpumoe.hp.infoseek.co.jp/script/\">GlobalNoteScript</a>";
print HTM "</td></tr></table>";
print HTM "</td></TR>\n";
print HTM "</td></tr><tr><td><font size=2>";
&HTM("../bbstable.txt",1);
print HTM <<EOF;
</font></td></tr></table><br>
<a name="menu"></a>
<table border=1 cellspacing=8 cellpadding=2 width=95% bgcolor="$SETTING{'BBS_MENU_COLOR'}"align=center>
<tr><td><font size=2>
EOF

### スレッド一覧を吐き出す
	#スレッド吐き出し用にファイル数を調整
	if($FILENUM > $SETTING{'BBS_MAX_MENU_THREAD'}){
		$FILENUM=$SETTING{'BBS_MAX_MENU_THREAD'};
	}
	my ($dat, $key, $count);
	for($count=1;$count<=$FILENUM;$count++){
		$dat=$key=$PAGEFILE[$count-1];
		$key=~s/([^\.]*)\.dat/$1/;
		unless($1){next;}
		
		if($SETTING{'BBS_THREAD_NUMBER'} >= $count){
			print HTM "<a href=\"../test/read.cgi/$FORM{'bbs'}/$key/l50\" target=\"body\">$count:</a> <a href=\"#$count\">$SUBJECT{$dat}</a>　\n";
		}else{
			print HTM "<a href=\"../test/read.cgi/$FORM{'bbs'}/$key/l50\" target=\"body\">$count: $SUBJECT{$dat}</a>　\n";
		}
	}
	print HTM "\n";
	print HTM "<div align=\"right\"><a href=\"./subback.html\"><b>スレッド一覧はこちら</b></a></font>\n";
	print HTM "</td></tr></table><br>\n";


	my $headad = "../headad.txt";
	if(-e $headad){
		my @headad;
		open(IN, "$headad");
		@headad = <IN>;
		close(IN);
		if (@headad){
			print HTM "<table border=1 cellspacing=8 cellpadding=2 width=95% bgcolor=\"$SETTING{'BBS_MENU_COLOR'}\"align=center><tr><td>\n";
			foreach(@headad){print HTM;}
			print HTM "</td></tr></table><br>\n";
		}
	}
&HTM("../headad2.txt",1);

### スレッドを吐き出す
	#スレッド吐き出し用にファイル数を調整
	if($FILENUM > $SETTING{'BBS_THREAD_NUMBER'}){
		$FILENUM=$SETTING{'BBS_THREAD_NUMBER'};
	}
	my ($front, $next, $ancnum, $dap, $first, $line);
	for(my $contnum = 0;$contnum < $FILENUM;$contnum++){
		$front=$contnum;
		$next=$contnum+2;
		if($front==0){$front=$FILENUM;}
		if($next>$FILENUM){$next=1;}
		$ancnum=$contnum+1;
		$dap = $PAGEFILE[$contnum];
		$dap =~ s/([^\.]*)\.dat/$1/;
		if (!-e "$TEMPPATH$dap.html") {
			MakeWorkFile($dap);
		}
		print HTM "\n";
		open(IN, "$TEMPPATH$dap.html");
		$first=<IN>;
		$first =~ s/\$ANCOR/$ancnum/g;
		$first =~ s/\$FRONT/$front/g;
		$first =~ s/\$NEXT/$next/g;
		print HTM $first;
		print HTM while <IN>;
		close(IN);
		print HTM <<EOF;
		<input type=hidden name=time value=$NOWTIME>
<b>
	<a href="../test/read.cgi/$FORM{'bbs'}/$dap/">レスを全部読む</a> 
	<a href="../test/read.cgi/$FORM{'bbs'}/$dap/l50">最新レス50</a> 
	<a href="../test/read.cgi/$FORM{'bbs'}/$dap/-100">レス1-100</a> 
	<a href="#menu">掲示板のトップへ</a> <a href="../$FORM{'bbs'}/./index.html">リロード</a>
</b></form></DL></td></tr></table></TD></TR></DL></TABLE><br>
EOF

	}

if ($nextpage){
print HTM<<EOF;
<table border=1 cellspacing=8 cellpadding=2 width=95% bgcolor="$SETTING{'BBS_MENU_COLOR'}"align=center>
<tr><td align=center>
<a href="../test/pageview.cgi?page=2&bbs=$FORM{'bbs'}"><font size=5><b>次のページ</b></font></a>
</td></tr>
</table>
EOF
}

print HTM "<table border=0 align=center><tr><td><center>";

print HTM "<br><br>";
&HTM("../bottom_ad.txt",1);
print HTM "\n";
print HTM "</center></tr></td></table></body></html>";
eval{flock(HTM,8);};
close(HTM);
	&location;

}

sub HTM {
	my ($file,$h) = @_;
	if(-e $file){
		if($h){select(HTM);}
		open(IN, "$file");
		print while <IN>;
		close(IN);
		if($h){select(STDOUT);}
	}

}

sub location {
	if ($FLAG{'imode'}){
		$PATH .= "i/index.html";
#		$PATH =~ s/^\.\.\///g;
		print "Content-Type: text/html; charset=shift_jis\n\n";
		print <<EOF;
<html><head></head><body>
書き込みが完了しました。<br>
<br>
<a href="$PATH">掲示板に戻る</a><br>
<a href="../test/read.cgi/$FORM{'bbs'}/$FORM{'key'}/i">元のスレッドに戻る</a><br>
</body><html>
EOF
	}else{
		$PATH .= "index.html";
		if ($SETTING{'BBS_LOCATION_CHECK'} eq 'checked') {
			print "Location: $PATH \n\n";
		} else {
			print "Content-Type: text/html; charset=shift_jis\n\n";
			print <<EOF;
<html><head>
<title>書きこみました。</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META content=$SETTING{'BBS_WAIT_MINUTE'};URL=$PATH http-equiv=refresh></head>
<body bgcolor=#EEEEEE>
書きこみが終わりました。<br><br>画面が切り替わるまでしばらくお待ち下さい。
</body></html>
EOF
		}
	}
	exit;
}

#エラー画面（エラー処理）
#DispError(TITLE,TOPIC);
sub DispError {
	my ($title,$topic)=@_;
	print "Content-Type: text/html; charset=shift_jis\n\n";
	#-----------------------------------------------------------------------
print <<EOF;
<html>
<head>
<title>$title</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>
<body bgcolor="#FFFFFF">
<font size=+1 color=#FF0000><b>$topic</b></font><ul>
<b>$FORM{'subject'} </b><br>
名前： $FORM{'FROM'}<br>
E-mail： $FORM{'mail'}<br>
内容：<br>$FORM{'MESSAGE'}<br><br>
</ul><center>こちらでリロードしてください。<a href="../$FORM{'bbs'}/index.html"> GO! </a><br>

EOF
	my $headad = "../headad.txt";if(-e $headad){open(IN, "$headad");print while <IN>;close(IN);}
print <<EOF;
</body>
</html>
EOF
	#-----------------------------------------------------------------------
	exit;
}

#作業用ファイル作成
#MakeWorkFile(KEY-NUMBER);
sub MakeWorkFile {
	my $key = $_[0];
	my $workfile = $TEMPPATH . $key . ".html";
	my $datafile = $DATPATH . $key . ".dat";
	my (@messx,@content);
	my ($mailto,$time,$brmax,$topnum,$firstlog,$lognum,$name,$mail,$subject,$message);
	if(!-e $datafile){
		open(SHTM,">$workfile");
		print SHTM "return";
		close(SHTM);
		return;
	}
	open(SHTM,">$workfile");# ログテンポラリを開く
	eval{flock(SHTM,2);};

	# ログのカキコ数を取得
	$lognum = @keytemp;
	# 1つ目の要素を読み込む
	$firstlog = $keytemp[0];
	# 改行カット
	chomp($firstlog);

	# 1つ目の要素を加工する
	($name,$mail,$time,$message,$subject) = split /<>/,$firstlog;
	my $check = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
	$message =~ s/($check)(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1<a href=\"$2\:$3\" target=\"_blank\">$2\:$3<\/a>/igo;
	
	# サブジェクトテーブルを吐き出す（ここは必ず1行にまとめること（処理効率））
	#-----------------------------------------------------------------------
print SHTM <<EOF;
<TABLE border=1 cellspacing=8 cellpadding=2 width=95% bgcolor="$SETTING{'BBS_THREAD_COLOR'}" align=center><TR><TD><table border=0 width=100%><TR><td nowrap><a name="\$ANCOR"></a><B>[\$ANCOR:$lognum]</B></td><td><B><FONT size=+1 color="$SETTING{'BBS_SUBJECT_COLOR'}">$subject</FONT></B></td><TD nowrap ALIGN="right"><a href ="#menu">■</a><a href="#\$FRONT">▲</a><a href="#\$NEXT">▼</a></td></tr><tr><td colspan=3><DL>
EOF
	#-----------------------------------------------------------------------
	# 1つ目の要素のメールへのリンクを作成

	# 末尾にsjisの1バイト目があったら削る
	my $check1 = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
	my $check2 = '[\201-\237\340-\374]';
	$mail =~ s/($check1)$check2$/$1/g;
	$name =~ s/($check1)$check2$/$1/g;

	if($mail ne ''){
		$mailto = "<a href=\"mailto:$mail\"><b>$name</b></a>";
	}else{
		$mailto = "<font color=$SETTING{'BBS_NAME_COLOR'}><b>$name</b></font>";
	}

	# 1つ目の要素を吐き出す
	print SHTM "<dt>1 名前：$mailto 投稿日：$time<dd>$message<br><br><br>\n";

	# ログ数から、表示コンテンツをチェック
	if(@keytemp>$SETTING{'BBS_CONTENTS_NUMBER'}){
		# ケツの要素を0〜9番までコンテンツに格納
		@content[0..$SETTING{'BBS_CONTENTS_NUMBER'}-1] = @keytemp[@keytemp-$SETTING{'BBS_CONTENTS_NUMBER'}..@keytemp-1];
		$topnum=@keytemp-($SETTING{'BBS_CONTENTS_NUMBER'}-1);
	}else{
		# アタマの要素を1〜10番までコンテンツに格納
		@content[0..($SETTING{'BBS_CONTENTS_NUMBER'}-1)] = @keytemp[1..$SETTING{'BBS_CONTENTS_NUMBER'}];
		$topnum=2;
	}

	foreach(@content){
		unless($_){
			$topnum++;
			next;
		}
		chop;
		($name,$mail,$time,$message,$subject) = split /<>/;
		my $check = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
		$message =~ s/($check)(https?|ftp|gopher|telnet|whois|news)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1<a href=\"$2\:$3\" target=\"_blank\">$2\:$3<\/a>/igo;
		
		# 要素のメールへのリンクを作成

		# 末尾にsjisの1バイト目があったら削る
		my $check1 = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})*';
		my $check2 = '[\201-\237\340-\374]';
		$mail =~ s/($check1)$check2$/$1/g;
		$name =~ s/($check1)$check2$/$1/g;

		if($mail ne ''){
			$mailto = "<a href=\"mailto:$mail\"><b>$name</b></a>";
		}else{
			$mailto = "<font color=$SETTING{'BBS_NAME_COLOR'}><b>$name</b></font>";
		}
		
		print SHTM "<dt>$topnum 名前：$mailto 投稿日：$time<dd>";
		$topnum++;
		@messx = split /<br>/,$message;# メッセージを行でカット
		if(@messx<$SETTING{'BBS_LINE_NUMBER'}){
			print SHTM "$message <br>";
		}else{
			for(@messx[0..$SETTING{'BBS_LINE_NUMBER'}]){
				print SHTM "$_<br>";
			}
			$topnum--;
			if ($mail =~ /pre/) {
				print SHTM "</pre>";
			} elsif ($mail =~ /teletype/) {
				print SHTM "</tt>";
			}
			print SHTM "<font color=\"$SETTING{'BBS_NAME_COLOR'}\">（省略されました・・全てを読むには<a href=\"../test/read.cgi/$FORM{'bbs'}/$key/$topnum\" target=\"_blank\">ここ</a>を押してください）</font><br>";
			$topnum++;
		}
		print SHTM "<br>\n";
	}
	#-----------------------------------------------------------------------
print SHTM <<EOF;
<dt><dd><form method=POST action="../test/bbs.cgi">
	<input type=submit value="書き込む" name="submit">
名前：
	<SCRIPT Language="JavaScript">
	<!--
		document.write("<INPUT TYPE=text NAME=FROM SIZE=19 VALUE=");
		document.write(Name, ">");
	// -->
	</SCRIPT>
	<NOSCRIPT>
		<INPUT TYPE=text NAME=FROM SIZE=19>
	</NOSCRIPT>
E-mail<font size="1">（省略可）</font>：
	<SCRIPT Language="JavaScript">
	<!--
		document.write("<INPUT TYPE=text NAME=mail SIZE=19 VALUE=");
		document.write(Mail, ">");
	// -->
	</SCRIPT>
	<NOSCRIPT>
		<INPUT TYPE=text NAME=mail SIZE=19>
	</NOSCRIPT>
<ul>
	<textarea rows=5 cols=60 wrap=OFF name=MESSAGE></textarea>
</ul>
		<input type=hidden name=bbs value=$FORM{'bbs'}>
		<input type=hidden name=key value=$key>
EOF
	#-----------------------------------------------------------------------
	eval{flock(SHTM,8);};
	close(SHTM);
	# パーミッション調整
	chmod(0666,$workfile);
}

sub hirakata{
	# ひらがなとカタカナの相互変換
	my ($check, $value, $i, $k, $ii, $kk);
	$check = '(?:^|[\0-\200\240-\337])(?:[\201-\237\340-\374]{2})';
	$value = "$FORM{'FROM'}<>$FORM{'mail'}<>$FORM{'MESSAGE'}<>$FORM{'subject'}";
	&jcode::h2z_sjis(\$value);
	$value =~ s/($check)/$1\0/g;
	for ( $i = 64; $i <= 147; $i++ ) {
		next if $i == 127;
		$k = $i + 94;
		$k++ if $i <= 126;
		$ii = sprintf("%o", $i); $ii = "\\$ii";
		$kk = pack("C", $k);
		$value =~ s/\203$ii/\202\0$kk\0/g;
	}
	for ( $i = 159; $i <= 241; $i++ ) {
		$k = $i - 94;
		$k-- if $i <= 221;
		$ii = sprintf("%o", $i); $ii = "\\$ii";
		$kk = pack("C", $k);
		$value =~ s/\202$ii/\203\0$kk\0/g;
	}
	$value =~ s/\0//g;
	($FORM{'FROM'}, $FORM{'mail'}, $FORM{'MESSAGE'}, $FORM{'subject'}) = split /<>/, $value;
}