#!/usr/bin/perl

# RES BOARD v1.0 (2001/06)
# Copyright(C) Kent Web 2001
# webmaster@kent-web.com
# http://www.kent-web.com/

# バージョン情報
$ver = 'ResBBS v1.0';

#---------------------------------------------------------------#
# [ 注意事項 ]							#
# ・このスクリプトを使用したいかなる損害も作者は一切の責任を	#
#   負いません。自己の責任の範囲内でご使用ください。		#
# ・掲示板下部にある「著作権表示」は、削除・改変を行なうことは	#
#   できません。						#
#---------------------------------------------------------------#

#============#
#  設定項目  #
#============#

# 文字コードライブラリ取込
require './jcode.pl';

# スクリプトのファイル名
#  --> フルパスで指定する場合は http:// から記述
$script  = "./resbbs.cgi";

# ログファイルを指定
#  --> フルパスで指定する場合は / から記述
$logfile = "./resbbs.log";

# 設定ファイル
#  → 絶対パスなら / から始まるサーバパスで記述
$setfile = "./resbbs.ini";

# 管理者用マスタパスワード (英数字で８文字以内)
$pass = '21010';

# methodの形式 (POST/GET)
$method = 'POST';

# タグの許可 (0=no 1=yes)
$tagkey = 1;

# ホスト名取得方式
#  0 : $ENV{'REMOTE_HOST'}変数で取得
#  1 : gethostbyaddr関数で取得
$gethostbyaddr = 0;

# ファイルロック形式
#  0 : no
#  1 : yes
# → 設定する場合は、ロックファイルを生成するディレクトリ
#    のパーミッションは原則として「777」に設定する。
$lockkey = 1;

# ロックファイル名
$lockfile = "./lock/resbbs.lock";

# 投稿があるとメール通知する (sendmail必須)
#  0 : 通知しない
#  1 : 通知する
$mailing = 0;

# sendmailパス（メール通知する時）
$sendmail = '/usr/lib/sendmail';

#============#
#  設定完了  #
#============#

# メイン処理
&decode;
&set_file;
if ($mode eq "howto") { &howto; }
elsif ($mode eq "find") { &find; }
elsif ($mode eq "usr_del") { &usr_del; }
elsif ($mode eq "regist") { &regist; }
elsif ($mode eq "res") { &res_form; }
elsif ($mode eq "admin") { &admin; }
if ($mode eq 'edit') { &edit; }
&html_log;

#--------------------#
#  設定ファイル認識  #
#--------------------#
sub set_file {
	open(IN,"$setfile") || &error("Open Error : $setfile");
	$data = <IN>;
	close(IN);

	($title,$t_color,$t_size,$ImgT,$bg,$bc,$tx,$lk,$vl,$al,$face,$b_size,$sub_color,$max,$home,$p_log,$deny,$mailto,$tbl_color,$colors,$autolink,$wait,$topsort) = split(/<>/, $data);

	# アクセス制限
	&get_host;
	local($flag)=0;
	@deny = split(/\s+/, $deny);
	foreach (@deny) {
		$_ =~ s/\*/\.\*/g;
		if ($host =~ /$_/i) { $flag=1; last; }
	}
	if ($flag) { &error("アクセスを許可されていません"); }
	
	@COLORS = split(/\s+/, $colors);

	# ポイント数
	$t_size .= 'pt';
	$s_size = ($b_size - 1) . 'pt';
	$b_size .= 'pt';
}

#--------------#
#  記事表示部  #
#--------------#
sub html_log {
	# クッキーを取得
	&get_cookie;

	# フォーム長を調整
	&get_agent;

	# ヘッダを出力
	&header;

	# タイトル部
	print "<center>\n";
	if ($title_gif eq '') {
		print "<font color=\"$t_color\" size=6 face=\"$t_face\"><b style=\"font-size: $t_size\">$title</b></font>\n";
	} else {
		print "<img src=\"$title_gif\" width=\"$tg_w\" height=\"$tg_h\">\n";
	}

	print <<"EOM";
<hr width='90%'>
[<a href="$home" target="_top">トップに戻る</a>]
[<a href="$script?mode=howto">使い方</a>]
[<a href="$script?mode=find">ワード検索</a>]
[<a href="$script?mode=admin">管理用</a>]
<hr width='90%'>
</center>
<blockquote>
<form method="$method" action="$script">
<input type=hidden name=mode value="regist">
<table border=0 cellspacing=0>
<tr>
  <td nowrap><b>おなまえ</b></td>
  <td><input type=text name=name size="$nam_wid" value="$c_name"></td>
</tr>
<tr>
  <td nowrap><b>Ｅメール</b></td>
  <td><input type=text name=email size="$nam_wid" value="$c_email"></td>
</tr>
<tr>
  <td nowrap><b>題　　名</b></td>
  <td nowrap>
    <input type=text name=sub size="$sub_wid">
　  <input type=submit value="投稿する"><input type=reset value="リセット">
  </td>
</tr>
<tr>
  <td colspan=2>
    <b>コメント</b><br>
    <textarea cols="$com_wid" rows=7 name=comment wrap="soft"></textarea>
  </td>
</tr>
<tr>
  <td nowrap><b>ＵＲＬ</b></td>
  <td><input type=text size="$url_wid" name=url value="http://$c_url"></td>
</tr>
<tr>
  <td nowrap><b>削除キー</b></td>
  <td><input type=password name=pwd size=8 maxlength=8 value="$c_pwd">
      <small>(自分の記事を削除時に使用。英数字で8文字以内)</small></td>
</tr>
<tr>
  <td nowrap><b>文字色</b></td>
  <td>
EOM

	# クッキーの色情報がない場合
	if ($c_color eq "") { $c_color = $COLORS[0]; }

	foreach (0 .. $#COLORS) {
		if ($c_color eq "$COLORS[$_]") {
			print "<input type=radio name=color value=\"$COLORS[$_]\" checked>";
			print "<font color=\"$COLORS[$_]\">■</font>\n";
		} else {
			print "<input type=radio name=color value=\"$COLORS[$_]\">";
			print "<font color=\"$COLORS[$_]\">■</font>\n";
		}
	}

	print "</td></tr></table></form>\n";
	print "</blockquote><center><br>\n";

	# ページ区切り処理
	$start = $in{'page'} + 1;
	$end   = $in{'page'} + $p_log;

	# 記事を展開
	open(IN,"$logfile") || &error("Open Error : $logfile");
	$top = <IN>;

	$i=0; $j=0;
	$flag=0;
	while (<IN>) {
		($no,$reno,$date,$name,$mail,$sub,
			$comment,$url,$host,$pw,$color) = split(/<>/);

		if ($reno eq "") { $i++; $j++; }
		if ($i < $start) { next; }
		if ($i > $end) { next; }

		if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
		if ($url) { $url = "&lt;<a href=\"http://$url\" target='_blank'>HOME</a>&gt;"; }
		if ($autolink) { &auto_link($comment); }
		$comment = "<blockquote>$comment</blockquote>";

		if (!$reno && $flag) {
			print "</TD></TR></TABLE><br><br>\n";
			$flag=1;
		}
		if (!$reno) {
			print "<TABLE BORDER=1 WIDTH='90%' BGCOLOR=\"$tbl_color\" CELLSPACING=0 CELLPADDING=2><TR><TD>\n";
			$flag=1;
		}

		if ($reno) { print "<hr noshade size=1 width='85%'>\n"; }
		print "<table border=0 cellpadding=2><tr>\n";
		if ($reno) { print "<td rowspan=2 width=40><br></td>"; }

		print "<td valign=top nowrap><font color=\"$sub_color\"><b>$sub</b></font>　";

		if (!$reno) { print "投稿者：<b>$name</b> <small>投稿日：$date</small> "; }
		else { print "<b>$name</b> - <small>$date</small> "; }

		print "<font color=\"$sub_color\"><small>No\.$no</small></font></td>";
		print "<td valign=top nowrap> &nbsp; $url </td><td valign=top>\n";

		if (!$reno) {
			print "<form action=\"$script\" method=$method>\n";
			print "<input type=hidden name=mode value=res>\n";
			print "<input type=hidden name=no value=$no>\n";
			print "<input type=submit value='返信'></td></form>\n";
		} else {
			print "<br></td>\n";
		}

		print "</tr></table><table border=0 cellpadding=5><tr>\n";
		if ($reno) { print "<td width=32><br></td>\n"; }
		print "<td><font color=\"$color\">$comment</font>";
		print "</td></tr></table>\n";

	}
	close(IN);
	print "</TD></TR></TABLE>\n";

	$next_page = $in{'page'} + $p_log;
	$back_page = $in{'page'} - $p_log;

	print "<blockquote><table align=left cellpadding=0 cellspacing=0><tr>\n";
	if ($back_page >= 0) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=page value=\"$back_page\">\n";
		print "<input type=submit value=\"前の$p_log件\">\n";
		print "</td></form>\n";
	}
	if ($next_page < $i) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=page value=\"$next_page\">\n";
		print "<input type=submit value=\"次の$p_log件\">\n";
		print "</td></form>\n";
	}
	print "</tr></table>\n";
	print "<table align=right><tr>\n";
	print "<td nowrap align=center><form action=\"$script\" method=\"$method\">\n";
	print "<input type=hidden name=mode value=\"usr_del\">\n";
	print "記事No<input type=text name=no size=3>\n";
	print "削除キー<input type=password name=pwd size=4 maxlength=8>\n";
	print "<input type=submit value=\"記事削除\">\n";
	print "</form></td>\n";
	print "</tr></table></blockquote><br clear=all>\n";

	# 著作権表示部（削除・改変禁止）
	print "<center><small><!-- $ver -->\n";
	print "- <a href='http://www.kent-web.com/' target='_top'>ResBBS</a> -\n";
	print "</small></center>\n";
	print "</body></html>\n";
	exit;
}

#----------------#
#  ログ書込処理  #
#----------------#
sub regist {
	# 名前とコメントは必須
	if ($in{'name'} eq "") { &error("名前が入力されていません"); }
	if ($in{'comment'} eq "") { &error("コメントが入力されていません"); }

	# 時間を取得
	&get_time;

	# クッキーを発行
	&set_cookie;

	# ファイルロック
	if ($lockkey) { &lock; }

	# ログを開く
	open(IN,"$logfile") || &error("Open Error : $logfile");
	@lines = <IN>;
	close(IN);

	# 記事NO処理
	$top = shift(@lines);
	($no,$ip,$time2) = split(/<>/, $top);
	$no++;

	# 連続投稿チェック
	if ($addr eq "$ip" && $wait > $times - $time2)
		{ &error("連続投稿はもうしばらく時間をおいて下さい"); }

	# 二重投稿の禁止
	local($flag) = 0;
	foreach (@lines) {
		($knum,$kk,$kd,$kname,$kem,$ksub,$kcom) = split(/<>/);
		if ($in{'name'} eq "$kname" && $in{'comment'} eq "$kcom")
			{ $flag=1; last; }
	}
	if ($flag) { &error("二重投稿は禁止です"); }

	# 削除キーを暗号化
	if ($in{'pwd'} ne "") { $ango = &encrypt($in{'pwd'}); }

	# 親記事の場合
	if ($in{'reno'} eq "") {

		$i=0;
		$stop=0;
		foreach (@lines) {
			($no2,$reno2) = split(/<>/);
			$i++;
			if ($i > $max-1 && $reno2 eq "") { $stop=1; }
			if (!$stop) { push(@new,$_); }
		}
		unshift(@new,"$no<><>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>\n");
		unshift(@new,"$no<>$addr<>$times<>\n");

		# 更新
		open(OUT,">$logfile") || &error("Write Error : $logfile");
		print OUT @new;
		close(OUT);
	}
	# レス記事の場合：トップソートあり
	elsif ($in{'reno'} && $topsort) {

		$match=0;
		@new=();
		@tmp=();
		foreach (@lines) {
			($no2,$reno2) = split(/<>/);

			if ($in{'reno'} eq "$no2") {
				$match=1;
				push(@new,$_);
			}
			elsif ($in{'reno'} eq "$reno2") {
				push(@new,$_);
			}
			elsif ($match == 1 && $in{'reno'} ne "$reno2") {
				$match=2;
				push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>\n");
				push(@tmp,$_);
			}
			else { push(@tmp,$_); }
		}

		if ($match == 1) {
			push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>\n");
		}
		push(@new,@tmp);

		# 更新
		unshift(@new,"$no<>$addr<>$times<>\n");
		open(OUT,">$logfile") || &error("Write Error : $logfile","lock");
		print OUT @new;
		close(OUT);

	}
	# レス記事の場合：トップソートなし
	else {
		$match=0;
		@new=();
		foreach (@lines) {
			($no2,$reno2) = split(/<>/);

			if ($match == 0 && $in{'reno'} eq "$no2") { $match=1; }
			elsif ($match == 1 && $in{'reno'} ne "$reno2") {
				$match=2;
				push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>\n");
			}
			push(@new,$_);
		}

		if ($match == 1) {
			push(@new,"$no<>$in{'reno'}<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>\n");
		}

		# 更新
		unshift(@new,"$no<>$addr<>$times<>\n");
		open(OUT,">$logfile") || &error("Write Error : $logfile","lock");
		print OUT @new;
		close(OUT);
	}

	# ロック解除
	if ($lockkey) { &unlock; }

	# メール処理
	if ($mailing) { &mail_to; }
}

#----------------#
#  返信フォーム  #
#----------------#
sub res_form {
	# フォーム長を定義
	&get_agent;

	# クッキーを取得
	&get_cookie;

	# ログを読み込み
	open(IN,"$logfile") || &error("Open Error : $logfile");
	$top = <IN>;

	# ヘッダを出力
	&header;

	# 関連記事出力
	print "- 以下は、記事NO. <B>$in{'no'}</B> に関する<a href='#RES'>返信フォーム</a>です -<hr>\n";

	while (<IN>) {
		($no,$reno,$date,$name,$mail,$sub,$com,$url) = split(/<>/);

		if ($in{'no'} eq "$no" || $in{'no'} eq "$reno") {
			if ($in{'no'} eq "$no") { $resub = $sub; }
			if ($url) { $url = "&lt;<a href=\"http://$url\">HOME</a>&gt;"; }
			if ($reno) { print '　　'; }
			print "<font color=$sub_color><b>$sub</b></font> 投稿者：<b>$name</b> 投稿日：$date $url <font color=$sub_color>No\.$no</font><br>\n";
			print "<blockquote>$com</blockquote><hr>\n";
		}
	}
	close(IN);

	# タイトル名
	if ($resub !~ /^Re\:/) { $resub = "Re\: $resub"; }

	print <<"EOM";
<a name="RES"></a>
<form action="$script" method="$method">
<input type=hidden name=mode value="regist">
<input type=hidden name=reno value="$in{'no'}">
<blockquote>
<table>
<tr>
  <td nowrap><b>おなまえ</b></td>
  <td><input type=text name=name value="$c_name" size=$nam_wid></td>
</tr>
<tr>
  <td nowrap><b>Ｅメール</b></td>
  <td><input type=text name=email value="$c_email" size=$nam_wid></td>
</tr>
<tr>
  <td nowrap><b>タイトル</b></td>
  <td><input type=text name=sub value="$resub" size=$sub_wid>
  <input type=submit value="返信する"><input type=reset value="リセット"></td>
</tr>
<tr>
  <td colspan=2><b>メッセージ</b><br>
  <textarea cols=$com_wid rows=5 name=comment wrap="soft"></textarea></td>
</tr>
<tr>
  <td nowrap><b>ＵＲＬ</b></td>
  <td><input type=text name=url value="http://$c_url" size=$url_wid></td>
</tr>
<tr>
  <td nowrap><b>削除キー</b>
  <td><input type=password name=pwd size=8 maxlength=8 value="$c_pwd">
      <small>(自分の記事を削除時に使用。英数字で8文字以内)</small></td>
</tr>
<tr>
  <td nowrap><b>文字色</b></td>
  <td>
EOM

	# クッキーの色情報がない場合
	if ($c_color eq "") { $c_color = $COLORS[0]; }

	foreach (0 .. $#COLORS) {
		if ($c_color eq "$COLORS[$_]") {
			print "<input type=radio name=color value=\"$COLORS[$_]\" checked>";
			print "<font color=\"$COLORS[$_]\">■</font>\n";

		} else {
			print "<input type=radio name=color value=\"$COLORS[$_]\">";
			print "<font color=$COLORS[$_]>■</font>\n";
		}
	}

	print "</td></tr></table></form>\n";
	print "</blockquote>\n";
	print "</body></html>\n";
	exit;
}

#----------------#
#  デコード処理  #
#----------------#
sub decode {
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else { $buffer = $ENV{'QUERY_STRING'}; }
	@pairs = split(/&/, $buffer);
	foreach (@pairs) {
		($name,$value) = split(/=/, $_);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		# 文字コードをシフトJIS変換
		&jcode'convert(*value,'sjis');

		# タグ処理
		if ($tagkey) { $value =~ s/<>/&lt;&gt;/g; }
		else {
			$value =~ s/&/&amp;/g;
			$value =~ s/</&lt;/g;
			$value =~ s/>/&gt;/g;
		}

		# 改行等処理
		if ($name eq "comment") {
			$value =~ s/\r\n/<br>/g;
			$value =~ s/\r/<br>/g;
			$value =~ s/\n/<br>/g;
		} else {
			$value =~ s/\r//g;
			$value =~ s/\n//g;
		}

		# 一括削除用
		if ($name eq 'del') { push(@DEL,$value); }

		$in{$name} = $value;
	}
	$mode = $in{'mode'};
	$in{'url'} =~ s/^http\:\/\///;
	if ($in{'sub'} eq "") { $in{'sub'} = "無題"; }
}

#----------------------------#
#  掲示板の使い方メッセージ  #
#----------------------------#
sub howto {
	if ($tagkey == 0) { $tag_msg = "投稿内容には、<b>タグは一切使用できません。</b>\n"; }
	else { $tag_msg = "コメント欄には、<b>タグ使用をすることができます。</b>\n"; }

	&header;
	print <<"EOM";
[<a href="$script?">掲示板にもどる</a>]
<table width="100%">
<tr><th bgcolor="#0000A0">
  <font color="#FFFFFF">掲示板の利用上の注意</font>
</th></tr>
</table>
<P><center>
<table width="90%" border=1 cellpadding=10>
<tr><td bgcolor="$tbl_color">
<OL>
<LI>この掲示板は<b>クッキー対応</b>です。１度記事を投稿いただくと、おなまえ、Ｅメール、ＵＲＬ、削除キーの情報は２回目以降は自動入力されます。（ただし利用者のブラウザがクッキー対応の場合）<P>
<LI>$tag_msg<P>
<LI>記事を投稿する上での必須入力項目は<b>「おなまえ」</b>と<b>「メッセージ」</b>です。Ｅメール、ＵＲＬ、題名、削除キーは任意です。<P>
<LI>記事には、<b>半角カナは一切使用しないで下さい。</b>文字化けの原因となります。<P>
<LI>記事の投稿時に<b>「削除キー」</b>にパスワード（英数字で8文字以内）を入れておくと、その記事は次回<b>削除キー</b>によって削除することができます。<P>
<LI>記事の保持件数は<b>最大 $max件</b>です。それを超えると古い順に自動削除されます。<P>
<LI>既存の記事に<b>「返信」</b>をすることができます。各記事の上部にある<b>「返信」</b>ボタンを押すと返信用フォームが現れます。<P>
<LI>過去の投稿記事から<b>「キーワード」によって簡易検索ができます。</b>トップメニューの<a href="$script?mode=find">「ワード検索」</a>のリンクをクリックすると検索モードとなります。<P>
<LI>管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は予\告なく削除することがあります。
</OL>
</td></tr></table>
</center>
</body></html>
EOM
	exit;
}

#------------------#
#  ワード検索処理  #
#------------------#
sub find {
	&header;
	print <<"EOM";
[<a href="$script?">掲示板にもどる</a>]
<table width="100%">
<tr><th bgcolor="#0000A0">
  <font color="#FFFFFF">ワード検索</font>
</th></tr></table>
<P><center>
<table cellpadding=5>
<tr><td nowrap>
  <UL>
  <LI>検索したい<b>キーワード</b>を入力し、検索領域を選択して「検索ボタン」を押してください。
  <LI>キーワードは「半角スペース」で区切って複数指定することができます。
  </OL>
</td></tr>
</table>
<P><form action="$script" method="$method">
<input type=hidden name=mode value="find">
<table border=1 cellspacing=1>
<tr>
  <th colspan=2>キーワード
	<input type=text name=word size=30 value="$in{'word'}">
  </th>
</tr>
<tr>
  <td>検索条件</td>
  <td>
    <input type=radio name=cond value="and" checked>AND
    <input type=radio name=cond value="or">OR
  </td>
</tr>
<tr>
  <th colspan=2>
    <input type=submit value="検索する"><input type=reset value="リセット">
  </th>
</tr>
</table>
</form></center>
EOM

	# ワード検索の実行と結果表示
	if ($in{'word'} ne ""){

		# 入力内容を整理
		$in{'word'} =~ s/　/ /g;
		@pairs = split(/\s+/, $in{'word'});

		# ファイルを読み込み
		open(DB,"$logfile") || &error("Open Error : $logfile");
		@lines = <DB>;
		close(DB);

		# 検索処理
		foreach (1 .. $#lines) {
			$flag = 0;
			foreach $pair (@pairs){
				if (index($lines[$_],$pair) >= 0) {
					$flag = 1;
					if ($in{'cond'} eq 'or') { last; }
				} else {
					if ($in{'cond'} eq 'and') { $flag=0; last; }
				}
			}
			if ($flag) { push(@new,$lines[$_]); }
		}

		# 検索終了
		$count = @new;
		print "検索結果：<b>$count</b>件\n";
		print "<P><OL>\n";

		foreach (@new) {
			($no,$reno,$date,$name,$email,$sub,$com,$url) = split(/<>/);

			if ($email) { $name = "<a href=\"mailto:$email\">$name</a>"; }
			if ($url) { $url = "&lt;<a href=\"http://$url\" target='_top'>HOME</a>&gt;"; }

			if ($reno) { $no = "$renoへのレス"; }

			# 結果を表示
			print "<hr><LI>[$no] <font color=\"$sub_color\"><b>$sub</b></font> 投稿者：<b>$name</b> <small>投稿日：$date</small> $url<br>\n";
			print "<blockquote>$com</blockquote>\n";
		}
		print "<hr>\n</OL>\n";
	}
	print "</body></html>\n";
	exit;
}

#---------------------------------#
#  ブラウザを判断:フォーム幅調整  #
#---------------------------------#
sub get_agent {
	# ブラウザ名を取得
	$agent = $ENV{'HTTP_USER_AGENT'};

	if ($agent =~ /MSIE 3/i) { 
		$nam_wid = 30;
		$sub_wid = 40;
		$com_wid = 65;
		$url_wid = 48;
		$nam_wid2 = 20;
	}
	elsif ($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i) { 
		$nam_wid = 30;
		$sub_wid = 40;
		$com_wid = 60;
		$url_wid = 70;
		$nam_wid2 = 20;
	}
	else {
		$nam_wid = 20;
		$sub_wid = 25;
		$com_wid = 56;
		$url_wid = 50;
		$nam_wid2 = 10;
	}
}

#------------------#
#  クッキーの発行  #
#------------------#
sub set_cookie {
	# クッキーは60日間有効
	local($sec,$min,$hour,$mday,$mon,$year,$wday) = gmtime(time+60*24*60*60);

	@month=('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
	$gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
			$week[$wday],$mday,$month[$mon],$year+1900,$hour,$min,$sec);
	$cook="name<>$in{'name'}\,email<>$in{'email'}\,url<>$in{'url'}\,pwd<>$in{'pwd'}\,color<>$in{'color'}";
	print "Set-Cookie: ResBBS=$cook; expires=$gmt\n";
}

#------------------#
#  クッキーを取得  #
#------------------#
sub get_cookie {
	@pairs = split(/;/, $ENV{'HTTP_COOKIE'});
	foreach (@pairs) {
		local($key,$val) = split(/=/);
		$key =~ s/\s//g;
		$GET{$key} = $val;
	}
	@pairs = split(/,/, $GET{'ResBBS'});
	foreach (@pairs) {
		local($key,$val) = split(/<>/);
		$COOK{$key} = $val;
	}
	$c_name  = $COOK{'name'};
	$c_email = $COOK{'email'};
	$c_url   = $COOK{'url'};
	$c_pwd   = $COOK{'pwd'};
	$c_color = $COOK{'color'};

	if ($in{'name'})  { $c_name  = $in{'name'}; }
	if ($in{'email'}) { $c_email = $in{'email'}; }
	if ($in{'url'})   { $c_url   = $in{'url'}; }
	if ($in{'pwd'})   { $c_pwd   = $in{'pwd'}; }
	if ($in{'color'}) { $c_color = $in{'color'}; }
}

#--------------#
#  エラー処理  #
#--------------#
sub error {
	if ($lockkey) { &unlock; }

	&header if (!$head_flag);
	print "<center><hr width=400><h3>ERROR !</h3>\n";
	print "<P><font color=red><B>$_[0]</B></font>\n";
	print "<P><hr width=400></center>\n";
	print "</body></html>\n";
	exit;
}

#--------------#
#  管理モード  #
#--------------#
sub admin {
	if ($in{'pass'} ne "" && $in{'pass'} ne "$pass")
		{ &error("パスワードが違います"); }

	&header;
	print "[<a href=\"$script?\">掲示板に戻る</a>]\n";
	print "<table width='100%'><tr><th bgcolor=\"#0000A0\">\n";
	print "<font color=\"#FFFFFF\">管理モード</font>\n";
	print "</th></tr></table>\n";

	if ($in{'pass'} eq "") {
		print "<P><center><h4>パスワードを入力して下さい</h4>\n";
		print "<form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=action value=\"del\">\n";
		print "<select name=mode>\n";
		print "<option value=admin>記事管理\n";
		print "<option value=edit>設定変更</select>\n";
		print "<input type=password name=pass size=8>";
		print "<input type=submit value=\" 認証 \"></form>\n";
	} else {
		# 削除処理
		if ($DEL[0]) {

			# ロック処理
			if ($lockkey) { &lock; }

			# 削除情報をマッチングし更新
			@new=();
			open(IN,"$logfile") || &error("Open Error : $logfile");
			$top = <IN>;
			while (<IN>) {
				$flag=0;
				($no,$reno,$date) = split(/<>/);
				foreach $del (@DEL) {
					if ($no eq "$del" || $reno eq "$del") {
						$flag=1; last;
					}
				}
				if ($flag == 0) { push(@new,$_); }
			}
			close(IN);

			# 更新
			unshift(@new,$top);
			open(OUT,">$logfile") || &error("Write Error : $logfile");
			print OUT @new;
			close(OUT);

			# ロック解除
			if ($lockkey) { &unlock; }
		}

		# 管理を表示
		if ($in{'page'} eq "") { $in{'page'} = 0; }
		print "<P><center><table><tr><td>\n";
		print "<UL><LI>削除する記事のチェックボックスにチェックを入れ、削除ボタンを押して下さい。\n";
		print "<LI>親記事を削除するとレス記事も一括して削除されます。</UL>\n";
		print "</td></tr></table>\n";
		print "<form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=hidden name=page value=\"$in{'page'}\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=action value=\"$in{'action'}\">\n";
		print "<input type=submit value=\"削除する\">";
		print "<input type=reset value=\"リセット\">\n";
		print "<P><table border=0 cellspacing=1>\n";
		print "<tr><th>削除</th><th>記事NO</th><th>投稿日</th><th>タイトル</th>";
		print "<th>投稿者</th><th>URL</th><th>コメント</th><th>ホスト名</th></tr>\n";

		# ページ区切り処理
		$start = $in{'page'} + 1;
		$end   = $in{'page'} + $p_log;

		open(IN,"$logfile") || &error("Open Error : $logfile");
		$top = <IN>;
		$i=0; $j=0;
		while (<IN>) {
			($no,$reno,$date,$name,$mail,
				$sub,$com,$url,$host,$pw) = split(/<>/);

			if ($reno eq "") { $i++; $j++; }
			if ($i < $start) { next; }
			if ($i > $end) { next; }

			if ($mail) { $name="<a href=\"mailto:$mail\">$name</a>"; }
			($date,$dmy) = split(/\(/, $date);

			if ($url) { $url = "&lt;<a href=\"http://$url\" target='_top'>Home</a>&gt;"; }
			else { $url = '-'; }

			$com =~ s/<br>//ig;
			$com =~ s/</&lt;/g;
			$com =~ s/>/&gt;/g;
			if (length($com) > 40) {
				$com = substr($com,0,38);
				$com .= "..";
			}

			if ($reno eq "") { print "<tr><th colspan=8><hr></th></tr>\n"; }

			# 削除チェックボックス
			print "<tr><th><input type=checkbox name=del value=\"$no\"></th>";
			print "<td align=center>$no</td>";
			print "<td><small>$date</small></td><th>$sub</th><th>$name</th>";
			print "<td align=center>$url</td><td><small>$com</small></td>";
			print "<td><small>$host</small></td></tr>\n";

		}
		close(IN);

		print "<tr><th colspan=8><hr></th></tr>\n";
		print "</table></form>\n";
	}

	$next_page = $in{'page'} + $p_log;
	$back_page = $in{'page'} - $p_log;

	print "<P><table cellspacing=0 cellpadding=0><tr>\n";
	if ($back_page >= 0) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=page value=\"$back_page\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=hidden name=action value=\"$in{'action'}\">\n";
		print "<input type=submit value=\"前の$p_log組\">\n";
		print "</td></form>\n";
	}
	if ($next_page < $i) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=page value=\"$next_page\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=hidden name=action value=\"$in{'action'}\">\n";
		print "<input type=submit value=\"次の$p_log組\">\n";
		print "</td></form>\n";
	}
	print "</tr></table></center>\n";
	print "</body></html>\n";
	exit;
}

#--------------------#
#  設定ファイル編集  #
#--------------------#
sub edit {
	if ($in{'pass'} ne "$pass") { &error("パスワードが違います"); }

	# 実行
	if ($in{'action'} eq "edit") {

		if ($in{'ImgT'} eq "http://") { $in{'ImgT'} = ""; }
		if ($in{'bg'} eq "http://") { $in{'bg'} = ""; }
		if ($in{'mailto'} ne "") {
			if ($in{'mailto'} =~ /\,/) {
				&error("メールアドレスに「コンマ」が含まれています");
			}
			if ($in{'mailto'} !~ /.+\@.+\..+/) {
				&error("メールアドレスの入力が不正です");
			}
		}
		$in{'deny'} =~ s/　/ /g;

		foreach (1 .. 8) {
			$key_col = 'color' . $_;
			$in{$key_col} =~ s/\s//g;

			if ($in{$key_col} eq "") {
				&error("文字選択色\($_\)の指定がありません");
			}
		}

		open(OUT,">$setfile") || &error("Write Error : $setfile");
		print OUT "$in{'title'}<>$in{'t_color'}<>$in{'t_size'}<>$in{'ImgT'}<>$in{'bg'}<>$in{'bc'}<>$in{'tx'}<>$in{'lk'}<>$in{'vl'}<>$in{'al'}<>$in{'face'}<>$in{'b_size'}<>$in{'sub_color'}<>$in{'max'}<>$in{'home'}<>$in{'p_log'}<>$in{'deny'}<>$in{'mailto'}<>$in{'tbl_color'}<>$in{'color1'} $in{'color2'} $in{'color3'} $in{'color4'} $in{'color5'} $in{'color6'} $in{'color7'} $in{'color8'}<>$in{'topsort'}<>$in{'wait'}<>$in{'autolink'}<>";
		close(OUT);

		# 完了メッセージ
		&header;
		print "<center><h3>修正は正常に完了しました</h3>\n";
		print "<form action=\"$script\">\n";
		print "<input type=submit value='掲示板に戻る'></form>\n";
		print "</center>\n</body></html>\n";
		exit;
	}

	$t_size =~s /pt$//g;
	$b_size2 = $b_size;
	$b_size2 =~s /pt$//g;
	if ($ImgT eq "") { $ImgT = "http://"; }
	if ($bg eq "") { $bg = "http://"; }

	&header;
	print <<"EOM";
[<a href="$script?">掲示板に戻る</a>]
<table width="100%"><tr><th bgcolor="#004080">
<font color="#FFFFFF">設定ファイル編集</font>
</th></tr></table>
<center>
<P>- 変更する部分のみ修正してください -
<form action="$script" method="$method">
<input type=hidden name=mode value="edit">
<input type=hidden name=action value="edit">
<input type=hidden name=pass value="$in{'pass'}">
<table>
<tr><td colspan=2><hr></td></tr>
<tr>
  <td>タイトル名</td>
  <td><input type=text name=title size=25 value="$title"></td>
</tr>
<tr>
  <td>タイトル色</td>
  <td><input type=text name=t_color size=25 value="$t_color">
      <font color="$t_color">■</font>
  </td>
</tr>
<tr>
  <td>タイトルサイズ</td>
  <td><input type=text name=t_size size=4 value="$t_size">ポイント</td>
</tr>
<tr>
  <td>タイトル画像</td>
  <td><input type=text name=ImgT size=35 value="$ImgT">（任意）</td>
</tr>
<tr><td colspan=2><hr></td></tr>
<tr>
  <td>壁紙</td>
  <td><input type=text name=bg size=35 value="$bg">（任意）</td>
</tr>
<tr>
  <td>背景色</td>
  <td><input type=text name=bc size=25 value="$bc">
      <font color="$bc">■</font>
  </td>
</tr>
<tr>
  <td>文字色</td>
  <td><input type=text name=tx size=25 value="$tx">
      <font color="$tx">■</font>
  </td>
</tr>
<tr>
  <td>リンク色１</td>
  <td><input type=text name=lk size=25 value="$lk">
      <font color="$lk">■</font>　（未訪問）
  </td>
</tr>
<tr>
  <td>リンク色２</td>
  <td><input type=text name=vl size=25 value="$vl">
      <font color="$vl">■</font>　（訪問済）
  </td>
</tr>
<tr>
  <td>リンク色３</td>
  <td><input type=text name=al size=25 value="$al">
      <font color="$al">■</font>　（訪問中）
  </td>
</tr>
<tr><td colspan=2><hr></td></tr>
<tr>
  <td>文字サイズ</td>
  <td><input type=text name=b_size size=4 value="$b_size2">ポイント</td>
</tr>
<tr>
  <td>文字タイプ</td>
  <td><input type=text name=face size=25 value="$face"></td>
</tr>
<tr>
  <td>記事題名色</td>
  <td><input type=text name=sub_color size=25 value="$sub_color">
      <font color="$sub_color">■</font>
  </td>
</tr>
<tr>
  <td>記事下地色</td>
  <td><input type=text name=tbl_color size=25 value="$tbl_color">
      <font color="$tbl_color">■</font>
  </td>
</tr>
<tr>
  <td>最大記事数</td>
  <td><input type=text name=max size=4 value="$max"></td>
</tr>
<tr>
  <td>ページ記事数</td>
  <td><input type=text name=p_log size=4 value="$p_log"></td>
</tr>
<tr>
  <td>戻り先</td>
  <td><input type=text name=home size=35 value="$home"></td>
</tr>
<tr><td colspan=2><hr></td></tr>
<tr>
  <td>自動ソ\ート</td><td><select name=topsort>
EOM
	@SORT = ("しない", "する");
	foreach ("0", "1") {
		if ($topsort == $_) {
			print "<option value=\"$_\" selected>$SORT[$_]\n";
		} else {
			print "<option value=\"$_\">$SORT[$_]\n";
		}
	}
	print "</select>（レスが付くと関連記事をトップに移動）</td></tr>\n";
	print "<tr><td>待機秒数</td><td><input type=text name=wait size=3 value=\"$wait\">秒（同一ホストからの連続投稿を制御）</td></tr>\n";
	print "<tr><td>自動リンク</td><td><select name=autolink>\n";
	@LINK = ("しない", "する");
	foreach ("0", "1") {
		if ($autolink == $_) {
			print "<option value=\"$_\" selected>$LINK[$_]\n";
		} else {
			print "<option value=\"$_\">$LINK[$_]\n";
		}
	}
	print "</select>（コメント欄のURLを自動でリンクする機能\）</td></tr>\n";

	$i=0;
	foreach (0 .. 7) {
		$i++;
		$key_col = 'color' . $i;

		print "<tr><td>文字選択色($i)</td>\n";
		print "<td><input type=text name=\"$key_col\" size=25 value=\"$COLORS[$_]\">\n";
		print "<font color=\"$COLORS[$_]\">■</font></td></tr>\n";
	}

	print <<"EOM";
<tr><td colspan=2><hr></td></tr>
<tr>
  <td valign=top>アクセス制限</td>
  <td><input type=text name=deny size=35 value="$deny"><br>
・アクセス拒否するホスト名を記述<br>
・半角スペースで区切って複数指定可<br>
・ワイルドカード (*) 使用可<br>
  </td>
</tr>
EOM
	if ($mailing) {
		print "<tr><td colspan=2><hr></td></tr>\n";
		print "<tr><td>メール通知先</td>\n";
		print "<td><input type=text name=mailto size=25 value=\"$mailto\">";
		print "（任意）</td></tr>\n";
	}
	print "<tr><td colspan=2><hr></td></tr></table>\n";
	print "<input type=submit value='送信する'><input type=reset value='リセット'>\n";
	print "</center>\n";
	print "</body></html>\n";
	exit;
}

#------------------#
#  ユーザ記事削除  #
#------------------#
sub usr_del {
	if ($in{'no'} eq '' || $in{'pwd'} eq '')
		{ &error("削除Noまたは削除キーが入力モレです"); }

	# ロック処理
	if ($lockkey) { &lock; }

	open(IN,"$logfile") || &error("Open Error : $logfile");
	@lines = <IN>;
	close(IN);
	$top = shift(@lines);

	$flag=0;
	foreach (@lines) {
		($no,$reno,$dt,$name,$mail,$sub,$com,$url,$host,$pw) = split(/<>/);

		if ($flag == 0 && $in{'no'} eq "$no") {
			$PW = $pw;
			if ($reno eq "") { $flag=2; }
			else { $flag=1; }
		}
		elsif ($flag == 2 && $in{'no'} eq "$reno") { next; }
		else { push(@new,$_); }
	}

	if ($flag == 0) { &error("該当記事が見当たりません"); }
	if ($PW eq '') { &error("該当記事には削除キーが設定されていません"); }

	# 削除キーを照合
	$match = &decrypt("$in{'pwd'}","$PW");
	if ($match ne 'yes') { &error("削除キーが違います"); }

	# 更新
	unshift(@new,$top);
	open(OUT,">$logfile") || &error("Write Error : $logfile");
	print OUT @new;
	close(OUT);

	# ロック解除
	if ($lockkey) { &unlock; }
}

#--------------#
#  時間を取得  #
#--------------#
sub get_time {
	$ENV{'TZ'} = "JST-9";
	$times = time;
	($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($times);
	@week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

	# 日時のフォーマット
	$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
			$year+1900,$mon+1,$mday,$week[$wday],$hour,$min);
}

#--------------#
#  ロック処理  #
#--------------#
sub lock {
	if (-e $lockfile) {
		# 3分以上古いロックは削除する
		($mtime) = (stat($lockfile))[9];
		if ($mtime < time - 180) { &unlock; }
	}
	local($retry) = 5;
	while (!mkdir($lockfile, 0755)) {
		if (--$retry <= 0) { &error('Lock is busy'); }
		sleep(1);
	}
}

#--------------#
#  ロック解除  #
#--------------#
sub unlock {
	rmdir($lockfile);
}

#--------------#
#  メール送信  #
#--------------#
sub mail_to {
	$mailto =~ s/\s/\,/g;
	unless (-e $sendmail) { &error("sendmailのパスが不正です"); }

	$MailSub = "[$title : $no] $in{'sub'}";
	$m_com = $in{'comment'};
	$m_com =~ s/<br>/\n/g;
	$m_com =~ s/&lt;/</g;
	$m_com =~ s/&gt;/>/g;
	$m_com =~ s/&amp;/&/g;
	if ($in{'url'}) { $m_url = "http://$in{'url'}"; }

$MailBody = <<"EOM";
$titleに以下の投稿がありました。

投稿日時：$date
ホスト名：$host
ブラウザ：$ENV{'HTTP_USER_AGENT'}

おなまえ：$in{'name'}
Ｅメール：$in{'email'}
タイトル：$in{'sub'}
ＵＲＬ  ：$m_url
コメント：

$m_com
EOM

	# JISコード変換
    	&jcode'convert(*MailSub,'jis');
    	&jcode'convert(*MailBody,'jis');

	# メールアドレスがない場合はダミーメールに置き換え
	if ($in{'email'} eq "") { $email = 'nomail@xxx.xxx'; }
	else { $email = $in{'email'}; }

	# sendmail送信
	if (!open(MAIL,"| $sendmail -t")) { &error("メール送信に失敗しました"); }
	print MAIL "To: $mailto\n";
	print MAIL "From: $email\n";
	print MAIL "Subject: $MailSub\n";
	print MAIL "MIME-Version: 1.0\n";
	print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
	print MAIL "Content-Transfer-Encoding: 7bit\n";
	print MAIL "X-Mailer: $ver\n\n";
	print MAIL "--------------------------------------------------------\n";
	print MAIL "$MailBody\n";
	print MAIL "--------------------------------------------------------\n";
	close(MAIL);
}

#----------------------#
#  パスワード暗号処理  #
#----------------------#
sub encrypt {
	local($inpw) = $_[0];
	local(@SALT, $salt, $encrypt);

	@SALT = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');
	srand;
	$salt = $SALT[int(rand(@SALT))] . $SALT[int(rand(@SALT))];
	$encrypt = crypt($inpw, $salt) || crypt ($inpw, '$1$' . $salt);
	return $encrypt;
}

#----------------------#
#  パスワード照合処理  #
#----------------------#
sub decrypt {
	local($inpw, $logpw) = @_;
	local($salt, $key, $check);

	$salt = $logpw =~ /^\$1\$(.*)\$/ && $1 || substr($logpw, 0, 2);
	$check = "no";
	if (crypt($inpw, $salt) eq "$logpw" || crypt($inpw, '$1$' . $salt) eq "$logpw")
		{ $check = "yes"; }
	return $check;
}

#------------------#
#  HTMLのヘッダー  #
#------------------#
sub header {
	$head_flag=1;
	print "Content-type: text/html\n\n";
	print <<"EOM";
<html>
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<STYLE type="text/css">
<!--
body,tr,td,th { font-size:$b_size }
a:hover { color:$al }
small { font-size:$s_size }
-->
</STYLE>
<title>$title</title></head>
<body background="$bg" bgcolor="$bc" text="$tx" link="$lk" vlink="$vl" alink="$al">
EOM
}

#-----------------#
#  自動URLリンク  #
#-----------------#
sub auto_link {
	$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+)/$1<a href=\"$2\" target='_top'>$2<\/a>/g;
}

#----------------#
#  ホスト名取得  #
#----------------#
sub get_host {
	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};

	if ($get_remotehost) {
		if ($host eq "" || $host eq "$addr") {
			$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
		}
	}
	if ($host eq "") { $host = $addr; }
}