#!/usr/local/bin/perl

require 'jcode.pl';

## remake.cgi ver 2.06 (2001/08/22)(16.zip)

# 使い方
# remake.cgi?bbs=bbs			全復帰
# remake.cgi?bbs=bbs&key=0		復帰なし(index.html再作成)
# remake.cgi?bbs=bbs&key=key	keyのスレッドを復帰



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

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

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

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


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

{
	use vars qw(%FORM);
	my ($buffer, @pairs, $pair, $name, $value);
	if($ENV{'REQUEST_METHOD'} eq 'GET'){$buffer = $ENV{'QUERY_STRING'};}
	if($ENV{'REQUEST_METHOD'} eq 'POST'){read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});}
	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$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>/ <br> /g;
		$FORM{$name} = $value;
	}
}


#==================================================
#　エラーレスポンス（BBS情報）
#==================================================

#BBS名がない場合ばいばい
#BBS名に不正な文字があった場合もばいばい
{
	unless($FORM{'bbs'}){
		DispError("ERROR！","BBS名がありません！");
	}
#	if($FORM{'bbs'} =~ /(\.|\/)/){
#		DispError("ERROR！","BBS名が不正です！");
#	}
}


#==================================================
#　システム関連（ファイル・ディレクトリパス）
#==================================================

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

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


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

{
	use vars qw(@SETTING);
	# 設定ファイルを読む
	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";}
}


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

#サブジェクトファイルを読み込む
{
	my $subject = $PATH . "subject.txt";
	use vars qw(@PAGEFILE);
	use vars qw(%SUBJECT);
	use vars qw($FILENUM);
	#サブジェクトファイルを読み込む
	open(SUBR,"<$subject");	#SUBJECTを開く
	my @SUBJECTLIST = <SUBR>;	#内容を全て読み込む
	close(SUBR); #閉じる

	#サブジェクト内容をハッシュに格納
	foreach(@SUBJECTLIST){
		chomp($_);#改行を取る
		my ($file, $value) = split(/<>/,$_);
		unless($file){next;}
		my $filename = $DATPATH . $file;
		if(-e $filename){
			#datが存在する場合のみ最後に追加
			push(@PAGEFILE,$file);
			$SUBJECT{$file} = $value;
		}
	}

	### 逝っちゃったログも拾う
	if($FORM{'key'} eq ''){
		opendir(DIR, $PATH."dat/");
		@filelist = readdir(DIR);
		closedir(DIR);
		foreach(@filelist){
			if($_ eq "." || $_ eq ".."){next}
			if (-e $PATH."dat/$_" && $PAGEFILE{$_} eq "" && $SUBJECT{$_} eq ""){
				unshift(@PAGEFILE,$_);
				open(IN,$PATH."dat/$_");
				@in=<IN>;
				close(IN);
				$subject=(split /<>/,$in[0])[4];
				chomp($subject);$num=@in;
				$SUBJECT{$_} = "$subject ($num)";
			}
		}
	}

	#サブジェクト数を取得
	$FILENUM=@PAGEFILE;
	#パーミッション調整
	chmod(0666,$subject);

	if ($FORM{'key'} eq "") {
		foreach (@PAGEFILE) {
			open(DAT,"$DATPATH$_");
			my @temp=<DAT>;
			close(DAT);
			my $num=@temp;
			my ($name,$mail,$date,$message,$subject) = split(/<>/,$temp[0]);
			chomp($subject);#改行を取る
			$SUBJECT{$_} = "$subject ($num)";
		}
	}elsif ($FORM{'key'} ne 0 && -e "$DATPATH$FORM{'key'}.dat") {
		open(DAT,"$DATPATH$FORM{'key'}.dat");
		my @temp=<DAT>;
		close(DAT);
		my $num=@temp;
		my ($name,$mail,$date,$message,$subject) = split(/<>/,$temp[0]);
		chomp($subject);#改行を取る

		my $fl=0;
		foreach(@PAGEFILE){
			if($_ eq "$FORM{'key'}.dat"){
				$fl=1;last;
			}
		}
		if($fl eq 0){
			unshift(@PAGEFILE,"$FORM{'key'}.dat");$FILENUM++;
		}

		$SUBJECT{"$FORM{'key'}.dat"} = "$subject ($num)";
	}

	my ($subtt,$subtm,$datfile,$valued,$subval,$subnum);
	undef $subtm;
	undef $subtt;
	$subject = $PATH . "subject.txt";
	

	#サブジェクトテキストを開く
	open(SUBW,">$subject");
	eval{flock(SUBW,2);};
	#一括書き込み
	my @temp;
	undef @temp;


	foreach(@PAGEFILE){
		$temp[@temp]=$_;
		print SUBW "$_\<>$SUBJECT{$_}\n";
	}

	@PAGEFILE=@temp;

	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=x-sjis"><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);
	}
}


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

#HTML用DATを作成
{
	if ($FORM{'key'} eq ""){
		foreach(@PAGEFILE){
			my $dat;
			$dat = $_;
			$dat =~ s/([^\.]*)\.dat/$1/;
			MakeWorkFile($dat);
		}
	}elsif ($FORM{'key'} ne 0) {
		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=x-sjis>
<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\">i-mode</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 {
	$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>indexファイル作成中</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<META content=0;URL=$PATH http-equiv=refresh></head>
<body bgcolor=#EEEEEE>
indexファイル作成中
</body></html>
EOF
	}
	exit;
}

#エラー画面（エラー処理）
#DispError(TITLE,TOPIC);
sub DispError{
	my $title=$_[0];
	my $topic=$_[1];
	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">
<table width="650" border="1" cellspacing="0" cellpadding="10">
  <tr> 
	<td> 
	<table width="640" border="0" cellspacing="0" cellpadding="0">
	  <tr> 
		<td width="640"> 
		  <div align="left"><b>$topic</b></div>
		</td>
	  </tr>
	</table>
	</td>
  </tr>
</table>
</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,@logdat);
	my ($mailto,$time,$brmax,$topnum,$firstlog,$lognum,$name,$mail,$subject,$message);	
	if(-e $datafile){
		open(RDAT,"<$datafile");
		@logdat=<RDAT>;	# ログを配列に読み込む
		close(RDAT);
	}else{
		open(SHTM,">$workfile");
		print SHTM "return";
		close(SHTM);
		return;
	}
	open(SHTM,">$workfile");# ログテンポラリを開く
	eval{flock(SHTM,2);};

	# ログのカキコ数を取得
	$lognum = @logdat;
	# 1つ目の要素を読み込む
	$firstlog = $logdat[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(@logdat>$SETTING{'BBS_CONTENTS_NUMBER'}){
		# ケツの要素を0〜9番までコンテンツに格納
		@content[0..$SETTING{'BBS_CONTENTS_NUMBER'}-1] = @logdat[@logdat-$SETTING{'BBS_CONTENTS_NUMBER'}..@logdat-1];
		$topnum=@logdat-($SETTING{'BBS_CONTENTS_NUMBER'}-1);
		if($topnum eq 992){
		@content[0..$SETTING{'BBS_CONTENTS_NUMBER'}-1]=@logdat[@logdat-$SETTING{'BBS_CONTENTS_NUMBER'}-1..@logdat-2];
		$topnum--;
		}
	}else{
		# アタマの要素を1〜10番までコンテンツに格納
		@content[0..($SETTING{'BBS_CONTENTS_NUMBER'}-1)] = @logdat[1..$SETTING{'BBS_CONTENTS_NUMBER'}];
		$topnum=2;
	}

	my @messx;
	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--;
			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);
}