#!/usr/bin/perl

#================#
# プログラム情報 #
#================#------------------------------------------#
#                                                           #
#    TreeBBS ver.1.10                                       #
#    Produced by [GROOWEB] Takahiro Aoki                    #
#                                                           #
#    URL:http://www.tsubaki.sakura.ne.jp/~campus/grooweb/   #
#    E-Mail:campus@tsubaki.sakura.ne.jp                     #
#                                                           #
#-----------------------------------------------------------#

#===初期設定ここから========================================#

#--ファイル名やアドレスなどの設定--#

# ファイルの場所を変更した場合は相対パスも含める
# このスクリプトのファイル名
$cgifile = './tree.cgi';
# Assistanceファイルの名前
$assistancefile = './assist.cgi';
# データファイルの名前
$datafile = './data/tree.dat';
# カウンタ保存ファイルの名前
$countfile = './data/count.log';
# 戻り先のURL(ホームページなど)
$home = 'http://www.ouzan.net/toto.html';

#--表示に関する設定--#

# 掲示板のタイトル
$bbs_title = 'toto BBS';
# タイトルの書体(フォント名を書く)
$title_f  = 'Comic Sans MS';
# タイトルのサイズ
$title_s  = '5';
# タイトルのカラー
$title_c = '#000000';
# タイトルに画像を使う場合はパスと名前を指定
$title_image = '';
# 画像ファイルのパス指定
# 名前を変更した場合は名前も変更すること
$newgif = './images/new.gif';    # 新着用のイメージ画像
$clipgif = './images/clip.gif';  # クリップ用のイメージ画像

# 全体の区切り線（ボーダー）の太さ
$border_b = '1';

# 全体的なバーの色(デフォルトはなし)
$bar_color = '#EEEEEE';
# フォントの基本サイズ(スタイルシートで)
$base_size = '10pt';
# フォントの基本カラー(デフォルトはグレイ)
$base_color = '#666666';
# 背景色(全体に適用されます)
$base_bgcolor = '#FFCC00';
# 背景に画像を使う場合は背景画像までのパス
$background = '';

# 表示していないリンクのカラー
$alinkcolor     = '#3A75E2';
# 既に表示したリンクのカラー
$avisitedcolor  = '#1F96C9';
# マウスが上にある時のカラー
$ahovercolor    = '#F127BF';

# それぞれのリンクに下線をつけるかつけないか
# (つける='underline' つけない='none')
$al_decoration  = 'none';      # 表示していないリンク
$av_decoration  = 'none';      # 既に表示したリンク
$ah_decoration  = 'underline'; # マウスが上にある時のリンク

# 親記事のヘッド部分のサイン(☆や◇など好みでどうぞ)
$base_head = '◆';
# 表示部分の親記事のセル背景色(デフォルトはグレイ)
$main_cellbg = '#DDDDDD';
# ページトップのモード表示部分のセル色
$top_cellbar = '#DDDDDD';

# メインページ上部に表示させたい説明を編集できます(タグ可)
$mini_manual = '
□ <b>24</b>時間以内に投稿された記事には
<img src="./images/new.gif"> が表示されます。<br>
□ <img src="./images/clip.gif"> をクリックすると
関連記事の一覧を見ることが出来ます。<br>
';

# 新記事投稿ページ上部に表示させたい説明を編集できます(タグ可)
$in_minimanual = "
□ プレビューすると実際の投稿イメージを確認出来ます。<br>
□ タグは使用できません。ご注意ください。<br>
";

#--処理に関する設定--#

# ホストを表示する(yes='1' no='0')
$host_flag = '0';
# 上が1の場合はホストのカラーを指定(16進数)
$host_color = '#666666';

# カウンターを表示する(yes='1' no='0')
$countflag = '1';
# カウンターの桁数
$count_width = '6';

# メソッドのタイプ('post' or 'get')
$method = 'post';
# １ページに表示する件数(あまり大きくすると処理がおそくなります)
# また、返信記事はカウントされません
$p_log = '15';
# 全記事の最大保存件数(100程度が目安)
$maxmessage = '100';
# クッキーの名前(必要であればお好みで変更してください)
$cookie_name = 'GWsupportbbs';
# クッキーの有効期限
$holds = '20';
# 次の時間以内に投稿された記事を新着扱いする
$new_time = '24';

# マスターキーの設定(半角英数8文字以内で指定)
$MASTERKEY = '1954';
# ロック処理を行う?(Yes='1' No='0')
$lockkey = '1';
# ロックファイルの名前（CGIが自動生成）
# ファイル名の競合が起きる場合のみ変更してください
$lockfile = './data/lock.file';

# ライブラリへのパス
require './jcode.pl';

#===初期設定ここまで========================================#

#============#
# メイン処理 #
#============#
&get_Host;
&form_decode;
if ($countflag) { &countup; }
if ($in{'action'} eq 'view') { &view; }
elsif ($in{'action'} eq 'manual') { &manual; }
elsif ($in{'action'} eq 'clip') { &clip; }
elsif ($in{'action'} eq 'indata') { &indata; }
elsif ($in{'action'} eq 'usr_kill') { &usr_kill; }
elsif ($in{'action'} eq 'management') { &management; }
elsif ($in{'action'} eq 'check_in') { &check_in; }
elsif ($in{'action'} eq 'management_action') { &management_view("$in{'mode'}"); }
else { &basic; }

#===S/記事表示処理===================================================#
sub basic {
&cookie_in;
&html_head;

if ($countflag) {
	$countview = sprintf ("%0${count_width}d", $count);
	print "$countview\n";
}

if ($title_image eq "") {
	print "<center><font face=\"$title_f\" size=\"$title_s\" color=\"$title_c\">\n";
	print "<b>$bbs_title</b></font></center>\n";
} else {
	print "<center><img src=\"$title_image\"></center>\n";
}

print <<"HERE";
<br><center><hr size="$border_b">
[<a href="$home">HOME</a>] //
[<a href="$cgifile?action=manual">使い方</a>] //
[<a href="$cgifile?action=indata">新規投稿</a>] //
[<a href="$assistancefile?action=new_view">新着記事</a>] //
[<a href="$cgifile?action=basic">最新の状態</a>] //
[<a href="$assistancefile?action=word_search">ワード検索</a>] //
[<a href="$cgifile?action=management">管理用</a>]
<hr width="720" size="$border_b">
<table><tr><td nowrap>
$mini_manual
</td></tr></table><HR width="720" size="$border_b">
HERE

	open(FILE, "$datafile");
	@allbody = <FILE>;
	close(FILE);

	if ($page eq "") { $page = '1'; }
	$start = $page;
	$end   = $page + $p_log - 1;

	$nowtime = time;
	open(FILE, "$datafile");
	$i = 0;
	$allno = 0;
		while (<FILE>) {
		($no,$res,$name,$mail,$title,$comment,$date,$time,$hp,$H_A,$PWD) =
			split(/\,/,);

		$allno++;
		if ($res eq '0') {
			$i++;
			if ($i < $start) { next; }
			if ($i > $end) { next; }

		if (($nowtime - $time) > $new_time*3600) {
			$newsign = "";
		} else {
			$newsign = "<img src=\"$newgif\">";
		}

		if ($mail ne "") { $name = "<a href=\"mailto:$mail\">$name</a>"; }

print <<"HERE";
<center><br><table width="720"><tr><td>
<table width="720" cellspacing="0" cellpadding="0">
<tr><td nowrap bgcolor="$main_cellbg" height="11">

<font color="$main_cellbg">.</font>
<a href="$cgifile?action=view&no=$no">$base_head $title</a> -
<font color="#666666">【$name】<small>$date</font>
<font color="#B00012">NO:$no</font></small>
<a href="$cgifile?action=clip&no=$no"><img src="$clipgif" border="0"></a>
$newsign
</td></tr></table>
HERE

$xmode = 0;
$xxx = '.........';
	foreach $res (@allbody) {
	($rno,$rres,$rname,$rmail,$rtitle,$rcomment,$rdate,$rtime,$rhp,$rH_A,$rPWD) =
		split(/\,/, $res);
	if ($no eq "$rres") { $xmode++;
		if ($rmail ne "") {
			$rname = "<a href=\"mailto:$rmail\">$rname</a>";
		}

		if (($nowtime - $rtime) > $new_time*3600) {
			$rnewsign = "";
		} else {
			$rnewsign = "<img src=\"$newgif\">";
		}

		print "<font color=\"$base_bgcolor\">\n";
		print "$xxx" x $xmode;
		print "</font>\n";

print <<"HERE";
　<a href="$cgifile?action=view&no=$rno&res=$no">Re: $rtitle</a> -
<font color="#666666">【$rname】
<small>$rdate</font>
<font color="#B00012">NO:$rno $rnewsign</font></small><br>
HERE

	}
}

print "</td></tr></table></center>\n";
	}
}

close(FILE);

if (@allbody == "") {
	print "<br><br><big>\表\示する記事はありません...</big><br><br>\n";
}

#--ページフッター部分の表示--#
print <<"HERE";
<br><hr width="720" size="$border_b"><br>
<table width="743">
<tr><td align="center" width="491" valign="middle">
<table width="406"><tr><td colspan="2" align="center">
現在<b>$allno</b>件の書き込みがあります。</td></tr>
<tr><td colspan="2" width="480"></td></tr>
<tr><td colspan="2" width="480"></td></tr>
<tr><td align="center" colspan="2" width="480" height="4">
全ページ数 /
HERE

$p = 0;
$p_start = 0;
$i += 1;
	while($p_start <= "$i") {
		$p++;
		if ($p eq '1') { $p_start = '1'; }
		else { $p_start += $p_log; }

	if ($in{'page'} eq '') { $in{'page'} = '1'; }
	if ($p_start ne "$in{'page'}") {
		$p_no = "<a href=\"$cgifile?page=$p_start\">$p</a>"; }
		else { $p_no = "$p"; }

	if ($p_start < $i) { print "[<b>$p_no</b>]\n"; } }
	if (@allbody == "") { print "[<b>1</b>]\n"; }

print <<"HERE";
</td></tr>
<tr><td colspan="2"></td></tr>
<tr><td colspan="2"></td></tr>
<tr><td colspan="2">　</td></tr>
</table></td>
<td align="center"><form method="$method" action="$cgifile">
<input type="hidden" name="action" value="usr_kill">
<table width="196" height="77">
<tr align="center"><td nowrap colspan="3">
<b>【記事削除フォーム】</b></td></tr>
<tr><td nowrap align="right">記事No/</td>
<td><input size="4" type="text" name="number"></td></tr>
<tr><td nowrap align="right">パスワード/</td>
<td nowrap><input size="10" type="password" maxlength="8" name="pass">
<input type="submit" value="削除"></td></tr>
</table></form></td></tr>
</table><hr size="$border_b">
HERE

&html_footer;
exit;
}

#===S/記事の展開=====================================================#
sub view {
&cookie_in;
&html_head;
	if ($title_image eq '') {
	print "<center>\n";
	print "<font face=\"$title_face\" size=\"$title_size\" color=\"$title_color\">\n";
	print "<b>$bbs_title</b></font>\n";
	print "</center>\n";
	} else { print "<center><img src=\"$title_image\"></center>\n"; }

print <<"HERE";
<br><hr size="$border_b"><center>
[<a href="$home">HOME</a>] //
[<a href="$cgifile?action=manual">使い方</a>] //
[<a href="$cgifile?action=indata">新規投稿</a>] //
[<a href="$assistancefile?action=new_view">新着記事</a>] //
[<a href="$cgifile?action=basic">リスト\表\示</a>] //
[<a href="$assistancefile?action=word_search">ワード検索</a>] //
[<a href="$cgifile?action=management">管理用</a>]

<hr width="720" size="$border_b"><br>
<table width="720"><tr><td>
HERE

open(FILE, "$datafile");
@allbody = <FILE>;
close(FILE);
	foreach $line (@allbody) {
	($no,$res,$name,$mail,$title,$comment,$date,$time,$hp,$H_A,$PWD) =
		split(/\,/, $line);
	if ($in{'no'} eq "$no") {
		$flagno = "$no";
		$main_rescom = "$comment";

		if ($mail eq "") {
			$mail = "未記入";
		} else {
			$mail = "<a href=\"mailto:$mail\">$mail</a>";
		}

		if ($hp eq "") {
			$hp = "未記入";
		} else {
			$hp = "<a href=\"$hp\" target=\"_top\">$hp</a>";
		}

		if ($in{'res'} eq "") {
			$title = "$base_head $title";
			$position = "（親記事）";
		} else {
			$title = "Re: $title";
			$position = "（記事No$in{'res'}への返信記事）";
		}

$main_rescom =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<a href=$2 target=_top>$2<\/a>/g;

print <<"HERE";
<table><tr><td colspan="2"><b>$title</b></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">記事No/</td>
<td>$no $position</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">投稿者/</td>
<td>$name
HERE

if ($host_flag) {
	print "<small><font color=\"$host_color\">Host:$H_A</font></small>";
}

print <<"HERE";
</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">投稿日/</td>
<td>$date</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">E-Mail/</td>
<td>$mail</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">URL/</td>
<td>$hp</td></tr></table>
<blockquote>$main_rescom</blockquote>
HERE

	}
}

if ($in{'res'} eq "") {
	$moveno = "$in{'no'}";
} else {
	$moveno = "$in{'res'}";
}

print <<"HERE";
<hr width="720" size="$border_b"><br>
　以下は関連する記事の一覧です。
[<a href="$cgifile?action=clip&no=$moveno">一括\表\示</a>]<br><br>
HERE

if ($in{'res'} eq "") {
foreach $line (@allbody) {
	($no,$res,$name,$mail,$title,$comment,$date,$time,$hp,$H_A,$PWD) =
		split(/\,/, $line);
		if ($in{'no'} eq "$no") {
		if ($mail ne "") { $name = "<a href=mailto:$mail>$name</a>"; }

		$flagtitle = "$title";

print<<"HERE";
<a href="$cgifile?action=view&no=$no">$base_head <b>$title</b></a> -
【$name】 <small><font color="#113264">$date</font>
<font color="#F94E1C">NO:$no</font></small><br>
HERE
	}
}

$xmode = 0;
$xxx = '.........';
	foreach $line (@allbody) {
	($rno,$rres,$rname,$rmail,$rtitle,$rcomment,$rdate,$rtime,$rhp,$rH_A,$rPWD) =
		split(/\,/, $line);
		if ($in{'no'} eq "$rres") {
			$xmode++;

			if ($rmail ne "") {
				$rname = "<a href=mailto:$rmail>$rname</a>";
			}

print "<font color=\"$base_bgcolor\">\n";
print "$xxx" x $xmode;
print "</font>\n";

print<<"HERE";
<a href="$cgifile?action=view&no=$rno&res=$in{'no'}">
Re: $rtitle</a> -
【$rname】 <small><font color="#113264">$rdate</font>
<font color="#F94E1C">NO:$rno</font></small><br>
HERE

		}
	}
} else {
	foreach $line (@allbody) {
		($no,$res,$name,$mail,$title,$comment,$date,$time,$hp,$H_A,$PWD) =
		split(/\,/, $line);
		if ($in{'res'} eq "$no") {
			if ($mail ne "") {
				$name = "<a href=mailto:$mail>$name</a>";
			}

		$flagtitle = "$title";

print<<"HERE";
<a href="$cgifile?action=view&no=$no">$base_head <b>$title</b></a> -
【$name】 <small><font color="#113264">$date</font>
<font color="#F94E1C">NO:$no</font></small><br>
HERE

	}
}

$xmode = 0;
$xxx = '.........';
	foreach $line (@allbody) {
	($rno,$rres,$rname,$rmail,$rtitle,$rcomment,$rdate,$rtime,$rhp,$rH_A,$rPWD) =
		split(/\,/, $line);
		if ($in{'res'} eq "$rres") {
			$xmode++;
			if ($rmail ne "") {
				$rname = "<a href=mailto:$rmail>$rname</a>";
			}

print "<font color=\"$base_bgcolor\">\n";
print "$xxx" x $xmode;
print "</font>\n";

print<<"HERE";
<a href="$cgifile?action=view&no=$rno&res=$in{'res'}">Re: $rtitle</a> -
【$rname】 <small><font color="#113264">$rdate</font>
<font color="#F94E1C">NO:$rno</font></small><br>
HERE

		}
	}
}

if ($in{'res'} eq "") { $flagno = "$in{'no'}";
} else { $flagno = "$in{'res'}"; }
$main_rescom = "> $main_rescom";
$main_rescom =~ s/<br>/> /g;

print <<"HERE";
<br><hr width="720" size="$border_b">
<form method="$method" action="$cgifile">
<input type="hidden" name="in_flagkey" value="on">
<input type="hidden" name="action" value="indata">
<input type="hidden" name="res" value="$flagno">
<center>このツリーへの返信はこちらのフォームより投稿できます。</center><br><br>

<table width="735"><tr><td>
<table><tr><td nowrap bgcolor="$bar_color" align="right">お名前/</td>
<td nowrap><input size="20" name="name" value="$c_name"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">E-Mail/</td>
<td><input size="45" name="mail" value="$c_mail"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">タイトル/</td>
<td><input size="25" name="title">
<input type="submit" value=" 投稿する "><input type="reset" value="やり直し"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right" valign="top">
コメント/</td>
<td><textarea rows="10" cols="65" name="comment">$main_rescom</textarea></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">URL/</td>
<td><input size="60" name="hp" value="$c_hp"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">オプション/</td>
<td nowrap>
<input type="checkbox" name="cookie_key" value="on"><small>個人情報をクッキーに保存。</small>
<input type="checkbox" name="p_key" value="on"><small>投稿前にプレビューする。</small></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">パスワード/</td>
<td><input type="password" size="10" name="pass"><font color="#BB0F13"><small>＊記事削除の際に使用。(半角英数字で８文字以内)</small></font></td></tr>
</table>

</td></tr></table>
</center>
</form>
</td></tr></table>

<hr size="$border_b">
HERE

&html_footer;
exit;
}

#===S/関連記事の一括表示=============================================#
sub clip {
&html_head;
if ($title_image eq '') {
	print "<center>\n";
	print "<font face=\"$title_face\" size=\"$title_size\" color=\"$title_color\">\n";
	print "<b>$bbs_title</b></font>\n";
	print "</center>\n";
} else { print "<center><img src=\"$title_image\"></center>\n"; }

print <<"HERE";
<br><hr size="$border_b"><center>
[<a href="$home">HOME</a>] //
[<a href="$cgifile?action=manual">使い方</a>] //
[<a href="$cgifile?action=indata">新規投稿</a>] //
[<a href="$assistancefile?action=new_view">新着記事</a>] //
[<a href="$cgifile?action=basic">リスト\表\示</a>] //
[<a href="$assistancefile?action=word_search">ワード検索</a>] //
[<a href="$cgifile?action=management">管理用</a>]
<hr width="720"><font color=""><br>
このツリーに関連するすべての記事を一括\表\示しています。</font><br><br>
<table width="720"><tr><td>
HERE

open(FILE, "$datafile");
@allbody = <FILE>;
close(FILE);
foreach $line (@allbody) {
	($no,$res,$name,$mail,$title,$comment,$date,$time,$hp,$H_A,$PWD) =
	split(/\,/, $line);
		if  ($in{'no'} eq "$no") {
		if ($mail ne "") { $name = "<a href=mailto:$mail>$name</a>"; }
		$mainline = "$line";
		$flagno = "$no";
		$flagtitle = "$title";

print<<"HERE";
<a href="#$no">$base_head <b>$flagtitle</b></a> -
【$name】 <small><font color="#113264">$date</font>
<font color="#F94E1C">NO:$no</font></small><br>
HERE
} }

	$xmode = 0;
	$xxx = '.........';
	foreach $line (@allbody) {
	($rno,$rres,$rname,$rmail,$rtitle,$rcomment,$rdate,$rtime,$rhp,$rH_A,$rPWD) =
	split(/\,/, $line);
	if ($in{'no'} eq "$rres") { $xmode++;
	if ($rmail ne "") { $rname = "<a href=mailto:$rmail>$rname</a>"; }

print "<font color=\"$base_bgcolor\">\n";
print "$xxx" x $xmode;
print "</font>";

print<<"HERE";
<a href="#$rno">Re: $rtitle</a> -
【$rname】 <small><font color="#113264">$rdate</font>
<font color="#F94E1C">NO:$rno</font></small><br>
HERE
} }

	($no,$res,$name,$mail,$title,$comment,$date,$time,$hp,$H_A,$PWD) =
	split(/\,/, $mainline);
	if ($mail eq "") { $mail = "未記入"; }
	else { $mail = "<a href=\"mailto:$mail\">$mail</a>"; }
	if ($hp eq "") { $hp = "未記入"; }
	else { $hp = "<a href=\"$hp\" target=\"_top\">$hp</a>"; }

$position = "（親記事）";
$main_rescom = "$comment";
$comment =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<a href=$2 target=_top>$2<\/a>/g;

print <<"HERE";
<br><hr width="720"><br><a name="$no"><table>
<tr><td colspan="2">$base_head <b>$flagtitle</b></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">記事No/</td>
<td>$no $position</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">投稿者/</td>
<td>$name
HERE

if ($host_flag) { print "<small><font color=\"$host_color\">Host:$H_A</font></small>"; }

print <<"HERE";
</td></tr><tr><td nowrap bgcolor="$bar_color" align="right">投稿日/</td>
<td>$date</td></tr><tr><td nowrap bgcolor="$bar_color" align="right">E-Mail/</td>
<td>$mail</td></tr><tr><td nowrap bgcolor="$bar_color" align="right">URL/</td>
<td>$hp</td></tr></table>
<blockquote>$comment</blockquote>
HERE

	foreach $line (@allbody) {
	($rno,$rres,$rname,$rmail,$rtitle,$rcomment,$rdate,$rtime,$rhp,$rH_A,$rPWD) =
	split(/\,/, $line);
	if ($in{'no'} eq "$rres") {
	if ($rmail ne "") { $rname = "<a href=mailto:$rmail>$rname</a>"; }
	if ($rmail eq "") { $rmail = "未記入"; }
	else { $rmail = "<a href=\"mailto:$rmail\">$rmail</a>"; }
	if ($rhp eq "") { $rhp = "未記入"; }
	else { $rhp = "<a href=\"$rhp\" target=\"_top\">$rhp</a>"; }

$position = "（記事No$in{'no'}への返信記事）";
$rcomment =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<a href=$2 target=_top>$2<\/a>/g;

print<<"HERE";
<br><hr width="720" size="$border_b"><br><a name="$rno"><table>
<tr><td colspan="2"><b>Re: $rtitle</b></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">記事No/</td>
<td>$rno $position</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">投稿者/</td>
<td>$rname
HERE

if ($host_flag) { print "<small><font color=\"$host_color\">Host:$rH_A</font></small>"; }

print <<"HERE";
</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">投稿日/</td>
<td>$rdate</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">E-Mail/</td>
<td>$rmail</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">URL/</td>
<td>$rhp</td></tr></table>
<blockquote>$rcomment</blockquote>
HERE
	}
}

&cookie_in;
$main_rescom = "> $main_rescom";
$main_rescom =~ s/<br>/> /g;

print <<"HERE";
<hr width="720" size="$border_b">
<form method="$method" action="$cgifile">
<input type="hidden" name="in_flagkey" value="on">
<input type="hidden" name="action" value="indata">
<input type="hidden" name="res" value="$flagno">
<center>このツリーへの返信はこちらのフォームより投稿できます。
</center><br><br>
<table width="735"><tr><td>
<table><tr><td nowrap bgcolor="$bar_color" align="right">お名前/</td>
<td nowrap><input size="20" name="name" value="$c_name"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">E-Mail/</td>
<td><input size="45" name="mail" value="$c_mail"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">タイトル/</td>
<td><input size="25" name="title">
<input type="submit" value=" 投稿する "><input type="reset" value="やり直し"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right" valign="top">
コメント/</td>
<td><textarea rows="10" cols="65" name="comment">$main_rescom</textarea></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">URL/</td>
<td><input size="60" name="hp" value="$c_hp"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">オプション/</td>
<td nowrap>
<input type="checkbox" name="cookie_key" value="on"><small>個人情報をクッキーに保存。</small>
<input type="checkbox" name="p_key" value="on"><small>投稿前にプレビューする。</small></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">パスワード/</td>
<td><input type="password" size="10" name="pass"><font color="#BB0F13"><small>＊記事削除の際に使用。(半角英数字で８文字以内)</small></font></td></tr>
</table></form>
</td></tr></table>

</td></tr></table>
</center><hr size="$border_b">
HERE

&html_footer;
exit;
}

#===S/記事投稿処理===================================================#
sub indata {
if ($in{'in_flagkey'} eq 'on') {
$res         = $in{'res'};
$name        = $in{'name'};
$title       = $in{'title'};
$comment     = $in{'comment'};
$mail        = $in{'mail'};
$hp          = $in{'hp'};
$pass        = $in{'pass'};
	if ($name eq "") { &error("お名前が未記入です"); }
	elsif ($title eq "") { &error("タイトルが未記入です"); }
	elsif ($comment eq "") { &error("コメントが未記入です"); }

#--取得データを整形する--#
chomp $comment;
$name     =~ tr/,/./;
$mail     =~ tr/,/./;
$title    =~ tr/,/./;
$comment  =~ tr/,/./;
$hp       =~ tr/,/./;

$comment =~ s/\r\n/<br>/g;
$comment =~ s/\n/<br>/g;
$comment =~ s/<br><br>/<br> <br>/g;

if ($in{'p_key'} eq 'on') { $in{'comment'} =~ s/\n//g; }
$PWD = crypt($pass, "xx");
if ($hp eq "http://") { $hp = ''; }

&lock1;
open(FILE, "$datafile");
$master = <FILE>;
close(FILE);
	($l_0,$l_1,$l_2,$l_3,$l_4,$l_5,$l_6,$l_7,$l_8,$l_9,$l_10) =
	split(/\,/, $master);

	#--二重投稿を禁止する--#
	if ($name eq "$l_2" && $title eq "$l_4" && $comment eq "$l_5") {
		&lock2;
		&error("二重投稿は禁止です！"); }
	$no = "$l_0";
	if ($no eq "") { $no = '0'; }
	$no++;

if ($in{'p_key'} eq 'on') {
&lock2;
&html_head;
if ($title_image eq "") {
	print "<center><font face=\"$title_f\" size=\"$title_s\" color=\"$title_c\">\n";
	print "<b>$bbs_title</b></font></center>\n";
	} else { print "<center><img src=\"$title_image\"></center>\n"; }

if ($mail eq "") { $mail = "未記入"; }
else { $mail = "<a href=\"mailto:$mail\">$mail</a>"; }
if ($hp eq "") { $hp = "未記入"; }
else { $hp = "<a href=\"$hp\" target=\"_top\">$hp</a>"; }
if ($in{'res'} eq "" || $in{'res'} eq "0") {
	$title = "$base_head $title";
	$position = "（親記事）";
} else {
	$title = "Re: $title";
	$position = "（記事No$in{'res'}への返信記事）"; }
	&gettime;

$comment =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<a href=$2 target=_top>$2<\/a>/g;

print <<"HERE";
<br><hr width="720" size="$border_b"><br>
<center><b><big>以下の内容でメッセージを投稿します。</big></b></center><br>
<table><tr><td colspan="2"><b>$title</b></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">記事No/</td>
<td>$no $position</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">投稿者/</td>
<td>$name</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">投稿日/</td>
<td>$gettime</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">E-Mail/</td>
<td>$mail</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">URL/</td>
<td>$hp</td></tr></table>
<blockquote>$comment</blockquote>
<form method="$method" action="$cgifile">
<input type="hidden" name="action" value="indata">
<input type="hidden" name="in_flagkey" value="on">
<input type="hidden" name="res" value="$in{'res'}">
<input type="hidden" name="name" value="$in{'name'}">
<input type="hidden" name="mail" value="$in{'mail'}">
<input type="hidden" name="title" value="$in{'title'}">
<input type="hidden" name="comment" value="$in{'comment'}">
<input type="hidden" name="hp" value="$in{'hp'}">
<input type="hidden" name="cookie_key" value="$in{'cookie_key'}">
<input type="hidden" name="pass" value="$in{'pass'}">
<input type="submit" value=" 投稿する "><input type="button" value="やり直す" onClick="history.back()"></form><hr width="720" size="$border_b">
HERE

&html_footer;
} else {
&gettime;
$nowtime = time;
$tmp = "$no,$res,$name,$mail,$title,$comment,$gettime,$nowtime,$hp,$Host,$PWD\n";

if (!open(FILE, "$datafile")) {
	&lock2;
	&error("ファイルオープンエラー"); }
@allbody = <FILE>;
close(FILE);

$num = unshift (@allbody, $tmp);
if ($num > $maxmessage) { pop @allbody; }

if (!open(FILE, ">$datafile")) {
	&lock2;
	&error("ファイルオープンエラー"); }
print FILE @allbody;
close(FILE);
&lock2;

#--チェックが入っていればクッキーを発行する--#
if ($in{'cookie_key'} eq 'on') {
	($secg, $ming, $hourg, $dayg, $mong, $yearg, $wdyg, $ydayg, $isdstg) =
		localtime(time + $holds*24*60*60);

@c_youbi = ("Sun", "Mon", "Tue", "Wed", "Thr", "Fri", "Sat");
$yearg += 1900;
$mong++;
$forCookie = "@c_youbi[$wdyg], $dayg-$mong-$yearg $hourg:$ming:$secg GMT";
print "Set-Cookie: $cookie_name = $name,$mail,$hp; expires=$forCookie\n"; }

&basic;
exit;
} } else {
&cookie_in;
&html_head;

if ($title_image eq "") {
	print "<center><font face=\"$title_f\" size=\"$title_s\" color=\"$title_c\">\n";
	print "<b>$bbs_title</b></font></center>\n";
	} else { print "<center><img src=\"$title_image\"></center>\n"; }

print <<"HERE";
<br><center><hr size="$border_b">
[<a href="$home">HOME</a>] //
[<a href="$cgifile?action=manual">使い方</a>] //
[<a href="$cgifile?action=indata">新規投稿</a>] //
[<a href="$assistancefile?action=new_view">新着記事</a>] //
[<a href="$cgifile?action=basic">リスト\表\示</a>] //
[<a href="$assistancefile?action=word_search">ワード検索</a>] //
[<a href="$cgifile?action=management">管理用</a>]
<hr width="720" size="$border_b">

<table><tr><td nowrap>
$in_minimanual
</td></tr></table><hr width="720" size="$border_b">

<form method="$method" action="$cgifile">
<input type="hidden" name="action" value="indata">
<input type="hidden" name="in_flagkey" value="on">
<input type="hidden" name="res" value="0">
<table width="735"><tr><td>
<table><tr><td nowrap bgcolor="$bar_color" align="right">お名前/</td>
<td nowrap><input size="20" name="name" value="$c_name"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">E-Mail/</td>
<td><input size="45" name="mail" value="$c_mail"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">タイトル/</td>
<td><input size="25" name="title">
<input type="submit" value=" 投稿する "><input type="reset" value="やり直し"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right" valign="top">
コメント/</td><td><textarea rows="10" cols="65" name="comment"></textarea></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">URL/</td>
<td><input size="60" name="hp" value="$c_hp"></td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">オプション/</td>
<td nowrap>
<input type="checkbox" name="cookie_key" value="on"><small>個人情報をクッキーに保存。</small>
<input type="checkbox" name="p_key" value="on"><small>投稿前にプレビューする。</small>
</td></tr>
<tr><td nowrap bgcolor="$bar_color" align="right">パスワード/</td>
<td><input type="password" size="10" name="pass"><font color="#BB0F13"><small>＊記事削除の際に使用。(半角英数字で８文字以内)</small></font></td></tr>
</table></form>
</td></tr></table>
</center><hr size="$border_b">
HERE

&html_footer;
	}
}

#===Sユーザー記事削除サブルーチン====================================#
sub usr_kill {
	if ($in{'number'} eq "") { &error("記事ナンバーを入力してください"); }
	elsif ($in{'pass'} eq "") { &error("パスワードを入力してください"); }
		$crypted = crypt($in{'pass'}, "xx");
		chomp $crypted;

&lock1;
if (!open(FILE, "$datafile")) {
	&lock2;
	&error("ファイルオープンエラー"); }
@killbody = <FILE>;
close(FILE);

$next_flag = 0;
$exit_flag = 0;
foreach $k_line (@killbody) {
($no,$res,$name,$mail,$title,$date,$comment,$color,$hp,$H_A,$m_pass) =
split(/\,/, $k_line);
if ($in{'number'} eq "$no") {
$exit_flag = "1";
chomp $m_pass;
if ($crypted eq "$m_pass" || $in{'pass'} eq "$MASTERKEY") {
	$next_flag = "1";
	$k_line =~ s/.*\n//;
		} else { &lock2; &error("パスワードが違います！"); } } }

	#--続いて元記事への返信がないかチェック--#
	if ($exit_flag eq '0') { &lock2; &error("該当する記事Noがありません"); }
	if ($next_flag eq '1') {
		foreach $k_line (@killbody) {
		($r_0,$r_1,$r_2,$r_3,$r_4,$r_5,$r_6,$r_7,$r_8,$r_9,$r_10) =
		split(/\,/, $k_line);
			if ($in{'number'} eq "$r_1") {
				$k_line =~ s/.*\n//; } } }

open(FILE, ">$datafile");
print FILE @killbody;
close(FILE);
&lock2;
&basic;
exit;
}

#===S/HTMLヘッダー＆フッター処理=====================================#
sub html_head {

if ($background) { $backgroundx = "background: url($background)\n"; }
$small_size = $base_size-2;
$big_size = $base_size+1;

	print "Content-type: text/html\n\n";
	print "<html>\n";
	print "<head>\n";
	print "<title>$bbs_title</title>\n";
	print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=x-sjis\">\n";
	print "<style type=\"text/css\">
	<!--
	body { color:            $base_color;
	       background-color: $base_bgcolor;
		   $backgroundx }

	body,tr,td    { font-size: $base_size }
	big           { font-size: $big_size\pt }
	small         { font-size: $small_size\pt }

	/* リンクのスタイル */
	a:link { color : $alinkcolor;
	        text-decoration : $al_decoration; }

	/* すでに表示したリンクのスタイル */
	a:visited { color : $avisitedcolor;
	            text-decoration : $av_decoration; }

	/* マウスが上にあるリンクのスタイル */
	a:hover { color: $ahovercolor;
	          text-decoration: $ah_decoration; }
	-->
	</style>\n";
	print "</head><body>\n";
}

#--著作権表示(削除不可)--#
sub html_footer {
	$grooweb = "http://www.tsubaki.sakura.ne.jp/~campus/grooweb/";
	print "<center>\n";
	print "Produced by \n";
	print "- <a href=\"$grooweb\">GROOWEB</a> -</center>\n";
	print "</body></html>\n";
}

#===S/管理モードサブルーチン=========================================#
sub management {
&html_head;
&management_head;
sub management_head {
if ($title_image eq "") {
	print "<center><font face=\"$title_f\" size=\"$title_s\" color=\"$title_c\">\n";
	print "<b>$bbs_title</b></font></center>\n";
	} else { print "<center><img src=\"$title_image\"></center>\n"; }

print <<"HERE";
<center><br>
<table width="759"><tr>
<td align="right" width="32">
<a href="$cgifile?action=basic" class="esc">終了</a></td>
<td bgcolor="$main_cellbg" align="center" width="688"><b>管理モード</b></td>
<td width="17"></td></tr></table></center>
HERE
}

print <<"HERE";
<br><br><br><center>
<form method="post" action="$cgifile">
<input type="hidden" name="action" value="check_in">
<table><tr><td>
<input type="radio" name="mode" value="mode_kill" checked>記事削除<br>
<input type="radio" name="mode" value="mode_count">カウンター値編集<br><br>
<input type="password" name="master_check">
<input type="submit" value="認証">
</td></tr></table><br>
</form></center>
</body></html>
HERE
exit;
}

sub check_in {
	if ($in{'master_check'} ne "") {
	if ($in{'master_check'} eq "$MASTERKEY") { &management_view("$in{'mode'}");
		} else { &error("マスターキーが違います！"); }
	} else { &management; } }

sub management_view {
if ($_[0] eq 'mode_kill') { &bbs_kill; }
elsif ($_[0] eq 'mode_count') { &bbs_count; }

sub bbs_kill {
&html_head;
&management_head;

unless (@DEL == "") {
&lock1;
if (!open(FILE, "$datafile")) {
	&lock2;
	&error("ファイルオープンエラー"); }
@lines = <FILE>;
close(FILE);

foreach $D_line (@lines) {
	($no,$res,$name,$mail,$title,$comment,$date,$time,$hp,$H_A,$PWD) =
	split(/\,/, $D_line);
foreach $del (@DEL) {
	if ($no eq "$del") { $D_line =~ s/.*\n//; } } }

foreach $D_line (@lines) {
	($no,$res,$name,$mail,$title,$comment,$date,$time,$hp,$H_A,$PWD) =
	split(/\,/, $D_line);
foreach $del (@DEL) {
	if ($res eq "$del") { $D_line =~ s/.*\n//; } } }

if (!open(FILE, ">$datafile")) {
	&lock2;
	&error("ファイルオープンエラー"); }
print FILE @lines;
close(FILE);
&lock2;
}

print <<"HERE";
<center><br><br>
<table width="595">
<tr><td colspan="2" align="center"></td></tr>
<tr><td colspan="2" align="center" height="6">
削除したい記事にチェックを入れて削除ボタンを押してください。
</td></tr></table>
<form method="post" action="$cgifile">
<input type="hidden" name="action" value="management_action">
<input type="hidden" name="mode" value="mode_kill">
<input type="hidden" name="master_check" value="$in{'master_check'}">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr><td nowrap align="center">削除</td>
<td nowrap align="center">No</td>
<td nowrap align="center">投稿者</td>
<td nowrap align="center">タイトル</td>
<td nowrap align="center">コメント</td>
<td nowrap align="center">投稿日</td>
<td nowrap align="center">リモートホスト</td></tr>
HERE

open(FILE, "$datafile");
@allbody = <FILE>;
close(FILE);
foreach $line (@allbody) {
	($no,$res,$name,$mail,$title,$comment,$date,$time,$hp,$Host,$PWD) =
	split(/\,/, $line);
	($date2,$time2) = split(/\)/, $date);

$comment =~ s/<br>//g;
if (length($comment) > 41) {
	$comment = substr($comment,0,39);
	$comment = "$comment" . "..."; }

print <<"HERE";
<tr><td align="center" width="29"><input type="checkbox" name="kill" value="$no"></td>
<td nowrap align="center">$no</td><td nowrap>$name</td>
<td nowrap>$title</td><td nowrap>$comment</td>
<td nowrap>$date2)</td><td nowrap>$Host</td></tr>
HERE
}

print <<"HERE";
</table></center><br><br>
<input type="submit" value="削除"><font color="#BB0F13">
<small>＊元記事を削除した場合、レス記事も自動的に削除されます。</small>
</font></form><br>
</body></html>
HERE
exit;
}

sub bbs_count {
if ($in{'c_value'} ne "") {
if ($in{'c_value'} =~ /\D/) {
	&error("カウンター値には半角数字のみ使用してください"); }

&lock1;
if (!open(FILE, ">$countfile")) {
	&lock2;
	&error("ファイルオープンエラー"); }
print FILE "$in{'c_value'}";
close(FILE);
&lock2;
&basic;
exit;
}

&html_head;
&management_head;
print <<"HERE";
<center><br><br><br>
<table width="536">
<tr><td colspan="2" align="center">
カウンターの開始値を入力して送信ボタンを押してください。</td></tr></table>
<form method="$method" action="$cgifile">
<input type="hidden" name="action" value="management_action">
<input type="hidden" name="mode" value="mode_count">
<table border="0">
<tr><td><input size="14" type="text" name="c_value"></td>
<td><input type="submit" value="送信"></td></tr></table>
</center></form>
</body></html>
HERE
exit;
	}
}

#===S/使い方表示=====================================================#
sub manual {
&html_head;
if ($title_image eq "") {
	print "<center><font face=\"$title_f\" size=\"$title_s\" color=\"$title_c\">\n";
	print "<b>$bbs_title</b></font></center>\n";
	} else { print "<center><img src=\"$title_image\"></center>\n"; }

print <<"HERE";
<center><br>
<table width="759">
<tr><td align="right" width="32">
<a href="$basecgi?action=basic" class="esc">Back</a></td>
<td nowrap bgcolor="$main_cellbg" align="center" width="688">
<b>$bbs_titleの使い方</b></td>
<td width="17"></td></tr></table><br>

<table width="685">
<tr><td><b><big>はじめに</big></b><br>
<blockquote>
・この掲示板はツリー\表\示型の掲示板です。<br>
・記事は最大で<b>$maxmessage</b>件保存でき、それ以上は古いものから削除されます。<br>
・１ページには最大<b>$p_log</b>件\表\示出来ます。<br>
・各ページへはページ下部のリンクから移動できます。<br>
・管理者が不適切であると判断した記事は、\予\告無く削除する場合があります。
</blockquote>

<b><big>記事の投稿の仕方</big></b><br>
<blockquote>
・記事の投稿は、「<a href="$cgifile?action=indata">新規投稿</a>」から行います。<br>
・お名前・タイトル・コメントは必修項目です。<br>
・他人を中傷する内容や、電話番号/住所などは書き込まないよう注意しましょう。<br>
・「クッキーに保存」にチェックを入れておくと、次回から入力の手間が省けます。<br>
・<b>タグは使用できません。</b>ご注意ください。
</blockquote>

<b><big>記事の削除</big></b><br>
<blockquote>
・ユーザー自身が自分の記事を削除する場合はページ下部のフォームより行います。<br>
・記事を投稿した際にパスワードを入力していない場合は削除できません。ご注意ください。
<blockquote></td></tr></table></center><hr size="$border_b">
HERE

&html_footer;
exit;
}

#===S/リモートホストを取得===========================================#
sub get_Host {
	$Host  = $ENV{'REMOTE_HOST'};
	$Addr  = $ENV{'REMOTE_ADDR'};

	if ($Host eq '') { $Host = $Addr; }
	if ($Host eq $Addr) {
	$Host = gethostbyaddr(pack('C4',split(/\./,$Host)),2) || $Addr; }
}

#===S/カウントアップ処理=============================================#
sub countup {
&lock1;
if (!open(FILE, "$countfile")) {
&lock2;
&error("ファイルオープンエラー"); }
$count = <FILE>;
close(FILE);

if ($count eq "") { $count = 0; }
if ($in{'action'} eq "" || $in{'action'} eq 'basic') {
$count++; }

if (!open(FILE, ">$countfile")) {
&lock2;
&error("ファイルオープンエラー"); }
print FILE "$count";
close(FILE);
&lock2;
}

#===S/ローカルタイムを取得===========================================#
sub gettime {
	($sec, $min, $hour, $day, $mon, $year, $wdy, $yday, $isdst) =
	localtime(time);
		@youbi = ("Sun", "Mon", "Tue", "Wed", "Thr", "Fri", "Sat");
		$year += 1900;
		$mon++;
	$timexx = sprintf("%02d:%02d",$hour,$min);
	$gettime = "$year年$mon月$day日(@youbi[$wdy])$timexx";
}

#===S/クッキーを取得=================================================#
sub cookie_in {
	$cookie = $ENV{'HTTP_COOKIE'};
	@array = split(/; /,$cookie);
		foreach $tmp (@array) {
		($key, $value) = split(/=/, $tmp);
		if ($key eq "$cookie_name") { $c_data = $value; } }
	($c_name,$c_mail,$c_hp) = split(/\,/, $c_data);
	if ($c_hp eq "") { $c_hp = "http://"; }
}

#===S/デコード処理===================================================#
sub form_decode {
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else { $buffer = $ENV{'QUERY_STRING'}; }

	@parameters = split(/&/,$buffer);
	foreach $element (@parameters) {
		($parameter, $value) = split(/=/, $element);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		&jcode'convert(*value,'sjis');
		$value =~ s/&/&amp;/g;
		$value =~ s/"/&quot;/g;
		$value =~ s/</&lt;/g;
		$value =~ s/>/&gt;/g;
			if ($parameter eq 'kill') { push(@DEL,$value); }
			$in{$parameter} = $value; }

	$page = $in{'page'};
}

#===S/ロック処理=====================================================#
sub lock1 {
if ($lockkey eq "1") {
$symlink_check = (eval { symlink("",""); }, $@ eq "");

if (!$symlink_check) {
	$c = 0;
	while(-e "$lockfile") {
		$c++;
		if ($c >= 3) { &error("リトライエラー"); }
		sleep(2);
		}

open(LOCK, ">$lockfile");
close(LOCK);
} else {

	local($retry) = 3;
	while (!symlink(".", $lockfile)) {
	if (--$retry <= 0) { &error("リトライエラー"); }
	sleep(2);
			}
		}
	}
}
sub lock2 {
if (-e $lockfile) { unlink $lockfile; } }

#===S/エラー処理=====================================================#
sub error {
&html_head;
print "<center><br><br><br>";
print "<table cellspacing=\"0\" cellpadding=\"15\" border=\"1\">\n";
print "<tr><td align=\"center\" bgcolor=\"#FFFFFF\">\n";
print "<font size=\"2\" color=\"red\"><b>Error : </b></font>\n";
print "<font size=\"2\"><b>$_[0]</b></font>\n\n";
print "</td></tr></table></center>\n\n";

print "</body></html>\n";
exit;
}