#!/usr/local/bin/perl

$ver = 'BBS';
#
# 【ファイル構成例】
#
#  public_html (ホームディレクトリ)
#      |
#      +-- fantasy / fantasy.cgi  [705]
#            |       fantasy.log  [606]
#            |       jcode.pl     [604]
#            |
#            +-- img / *.gif
#            |
#            +-- lock [707] /
#
#
# [ チェックモードの仕方 ] : mode=check という引数を付けて呼出す
#
#  例  http://〜〜/fantasy.cgi?mode=check

#-------------------------------------------------
#  基本設定
#-------------------------------------------------

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

# タイトル名
$title = "HOTEL ROSE 掲示板";

# キャラクタを指定（上下の配列はペアで)
@icon1 = (
	'cat_1.gif','cat_2.gif','cat_3.gif','dog_1.gif','dog_2.gif',
	'dog_3.gif','dog_4.gif','dog_5.gif','kuma_1.gif','koara.gif',
	'chu_1a.gif','chu_1b.gif','chu_1c.gif','poppo_1a.gif','poppo_1b.gif',
	'poppo_1c.gif','usa_1a.gif','usa_1b.gif','usa_1c.gif','usa_1d.gif');
@icon2 = (
	'猫1','猫2','猫3','犬1','犬2',
	'犬3','犬4','犬5','クマ','コアラ',
	'ねずみ1','ねずみ2','ねずみ3','ひよこ1','ひよこ2',
	'ひよこ3','うさぎ1','うさぎ2','うさぎ3','うさぎ4');

# タイトル文字の色
$t_color = "#400000";

# タイトル文字のタイプ
$t_face = "ＭＳ Ｐゴシック";

# タイトル文字サイズ
$t_point = '25px';

# 本文文字サイズ
$b_point = '13px';

# スクリプト名
$script = './bbs.cgi';

# ログファイル名
$logfile = './fantasylog.cgi';

# 管理用パスワード
$pass = 'rs12';

# 最大記事数（これを超える記事は古い順に削除されます）
$max = 100;

# 戻り先
$home = "../index.html";

# 画像格納ディレクトリ（絶対パスなら http://から記述）
# → 最後は / を閉じない
$imgurl = './img';

# 背景色、文字色
$bgrnd = "";		# 壁紙
$bgcol = "#dfcaba";	# 背景色
$text  = "#000000";	# 文字色
$link  = "#0000FF";	# リンク色：未訪問
$vlink = "#800080";	# リンク色：既訪問
$alink = "#DD0000";	# リンク色：訪問中

# ワンポイントカラー
$onepnt = "#008000";

# URLの自動リンク (0=no 1=yes)
$autolink = 1;

# １ページあたりの記事表示件数
$p_log = 7;

# ロックファイル機構 (0=no 1=symlink関数 2=mkdir関数)
$lockkey = 2;

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

# メール通知機能
#  0=no
#  1=yes:自分の投稿記事もメール通知する
#  2=yes:自分の投稿記事はメール通知しない
$mailing = 0;

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

# メール通知先アドレス（メール通知する場合）
$mailto = 'xxx@xxx.xxx';

# 居住地
@areas = ('大阪','兵庫','京都','奈良','滋賀','その他');


# 管理者名
$master = "HOTEL ROSE";

# 返信メッセージの文字色
$masCol = "#C100C1";

# 管理者用アイコン
$masIco = "kanri.gif";

# タグ広告挿入オプション
#  → <!--上部--> <!--下部--> の代わりに「広告タグ」を挿入する。
#  → 広告タグ以外に、MIDIタグ や LimeCounter等のタグにも使用可能です。
$banner1 = '<!-- 上部 -->'; # 掲示板上部に挿入
$banner2 = '<!-- 下部 -->'; # 掲示板下部に挿入

# アクセス制限（半角スペースで区切る）
#  → 拒否するホスト名又はIPアドレスを記述（アスタリスク可）
#  → 記述例 $deny = '*.anonymizer.com *.denyhost.xx.jp 211.154.120.*';
$deny = '';

# タイトル画像を使う場合
#  → 画像URLを http:// から記述
$ImgT = "http://www.hotel-rose.jp/img/bbs/rose_header.gif";

$ImgW = 700; # 画像横幅
$ImgH = 155;  # 画像縦幅

# 投稿後の処理
#  → 掲示板自身のURLを記述しておくと、投稿後リロードします
#  → ブラウザを再読み込みしても二重投稿されない措置。
#  → Locationヘッダの使用可能なサーバのみ
$location = 'http://www.hotel-rose.jp/bbs/bbs.cgi';

# 他サイトから投稿排除時に指定 (http://から書く)
$baseUrl = "";

# フォーム内文字色
$formCol1 = "black";

# フォーム下地色
$formCol2 = "whitesmoke";

# ホスト取得方法
# 0 : gethostbyaddr関数を使わない
# 1 : gethostbyaddr関数を使う
$gethostbyaddr = 0;

# 記事の吹出色
# → 順に、「幅」「下地色」「画像ファイル名」
$oyaWid = 500;
$oyaCol = "#FFFFFF";
@oyaCol = ("wh1.gif","wh2.gif","wh3.gif","wh4.gif","wh5.gif","wh6.gif");

#-------------------------------------------------
#  設定完了
#-------------------------------------------------

&decode;
&axscheck;
if ($mode eq 'regist') { &regist; }
elsif ($mode eq 'find') { &find; }
elsif ($mode eq 'howto') { &howto; }
elsif ($mode eq 'admin') { &admin; }
elsif ($mode eq 'usrdel') { &usrdel; }
elsif ($mode eq 'image') { &image; }
elsif ($mode eq 'res') { &res_msg; }
elsif ($mode eq 'check') { &check; }
&html;

#-------------------------------------------------
#  アクセス制限
#-------------------------------------------------
sub axscheck {
	# ホスト名取得
	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};
	if ($gethostbyaddr && ($host eq "" || $host eq $addr)) {
		$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
	}
	if ($host eq "") { $host = $addr; }

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

#-------------------------------------------------
#  記事表示
#-------------------------------------------------
sub html {
	# クッキー情報を取得
	local($cnam,$ceml,$curl,$cpwd,$care,$cico) = &get_cookie;

	&header;
	print "<center>\n";
	if ($banner1 ne "<!-- 上部 -->") { print "$banner1<P>\n"; }

	# タイトル部
	if ($ImgT) {
		print "<img src=\"$ImgT\" width=$ImgW height=$ImgH alt=\"$title\">\n";
	} else {
		print "<font color=\"$t_color\" face=\"$t_face\" size=5\"><b><span>$title</span></b></font>\n";
	}

	print <<EOM;
<hr width="550">
<!--[<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="550">
<form action="$script" method="POST">
<input type=hidden name=mode value="regist">
<table cellpadding=2 cellspacing=2>
<tr>
  <td><b>お名前</b></td>
  <td><input type=text name=name size="28" value="$cnam" class="form"></td>
</tr>
<tr>
  <td><b>Ｅメール</b></td>
  <td><input type=text name=email size="28" value="$ceml" class="form"></td>
</tr>
<tr>
  <td><b>参照先</b></td>
  <td><input type=text name=url size="50" value="http://$curl" class="form"></td>
</tr>
<tr>
  <td><b>地域</b></td>
  <td><select name=area class="form">
EOM
	# 居住地の選択フォームを表示
	$care ||= 0;
	foreach (0 .. $#areas) {
		if ($_ == $care) {
			print "<option value=\"$_\" selected>$areas[$_]\n";
		} else {
			print "<option value=\"$_\">$areas[$_]\n";
		}
	}
	print "</select> &nbsp;&nbsp;";

	# イメージの選択フォームを表示
	print "<b>イメージ</b> <select name=icon class=\"form\">";
	foreach (0 .. $#icon1) {
		if ($_ == $cico) {
			print "<option value=\"$_\" selected>$icon2[$_]\n";
		} else {
			print "<option value=\"$_\">$icon2[$_]\n";
		}
	}
	print <<"EOM";
    </select> &nbsp; [<a href="$script?mode=image" target="_blank">アイコン参照</a>]
  </td>
</tr>
<tr>
  <td colspan=2>
    <b>メッセージ</b><br>
    <textarea name=com cols=55 rows=6 wrap=soft class="form"></textarea><br>
    <input type=submit value="送信する"><input type=reset value="リセット">　　
    <b>削除キー</b> <input type=password name=pwd size=8 maxlength=8 value="$cpwd" class="form">
    (記事削除時に使用)<br>
    <input type=checkbox name=cook value="1" checked>
    クッキーを保存
  </td>
</tr>
</table>
</form>
EOM

	local($no,$date,$name,$mail,$area,$icon,$icon2,$com,$res,$url,$i,$next,$back,$pix);

	@oyaCol = ("", @oyaCol);
	$pix=18;

	$i=0;
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		$i++;
		if ($i < $page + 1) { next; }
		if ($i > $page + $p_log) { last; }

		($no,$date,$name,$mail,$area,$icon,$icon2,$com,$res,$url) = split(/<>/);

		if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
		if ($url) { $url = "<a href=\"http://$url\" target='_blank'><img src=\"$imgurl/home.gif\" border=0 align=top></a>"; }

		# 記事を表示
		print "<TABLE BORDER=0><TR>\n";

		# 反転対象部分1
		if (!$flag) {
			print "<TD><img src=\"$imgurl/$icon\"></TD>\n";
			print "<TD><table border=0 cellpadding=0 cellspacing=0>\n";
			print "<td width=$pix><br></td>\n";
		} else {
			print "<TD><table border=0 cellpadding=0 cellspacing=0>\n";
		}

		print "<td><img src=\"$imgurl/$oyaCol[1]\" width=$pix height=$pix></td>\n";
		print "<td width=\"$oyaWid\" bgcolor=\"$oyaCol\"><br></td>\n";
		print "<td><img src=\"$imgurl/$oyaCol[2]\" width=$pix height=$pix></td>\n";

		# 反転対象部分2
		if ($flag == 0) {
			print "</tr><tr><td><img src=\"$imgurl/$oyaCol[5]\" width=$pix height=$pix></td>\n";
		} else {
			print "<td width=$pix><br></td></tr><tr>\n";
		}

		print "<td bgcolor=\"$oyaCol\"><br></td>\n";
		print "<td width=\"$oyaWid\" bgcolor=\"$oyaCol\">\n";
		print "[<b>$no</b>] <b>$name</b> <font color=\"$onepnt\">[$area] ";
		print "$date</font> $url<br>\n";
		print "<blockquote>$com</blockquote>\n";

		# 管理者レス
		if ($res) {
			print "<hr size=1 width='90%'>\n";
			print "<table><tr><td width=22><br></td>";
			print "<td><img src=\"$imgurl/$masIco\"></td>\n";
			print "<td><font color=\"$masCol\">$res</font><br>\n";
			print "<font color=\"$onepnt\">[ From $master ]</font></td>\n";
			print "</tr></table>\n";
		}

		print "</td><td bgcolor=\"$oyaCol\"><br></td>\n";

		if ($flag == 1) {
			print "<td><img src=\"$imgurl/$oyaCol[6]\" width=$pix height=$pix></td>\n";
		}

		print "</tr><tr>\n";

		# 反転対象部分3
		if ($flag == 0) { print "<td width=$pix><br></td>\n"; }

		print "<td><img src=\"$imgurl/$oyaCol[4]\" width=$pix height=$pix></td>\n";
		print "<td width=\"$oyaWid\" bgcolor=\"$oyaCol\"><br></td>\n";
		print "<td><img src=\"$imgurl/$oyaCol[3]\" width=$pix height=$pix></td>\n";

		if ($flag == 1) { print "<td width=$pix><br></td>\n"; }
		print "</tr></table>\n";

		if ($flag == 1) {
			print "</TD><TD><img src=\"$imgurl/$icon\">\n";
		}
		print "</TD></TR></TABLE>\n";
		print "<br><br>\n";

		if ($flag == 0) { $flag = 1;}
		else { $flag = 0; }
	}
	close(IN);

	$next = $page + $p_log;
	$back = $page - $p_log;

	print "<table><tr>\n";
	if ($back >= 0) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=submit value=\"前の$p_log件\"></form></td>\n";
	}
	if ($next < $i) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=submit value=\"次の$p_log件\"></form></td>\n";
	}

	print <<EOM;
</tr></table>
<div align="right">
<form action="$script" method="POST">
<input type=hidden name=mode value="usrdel">
記事No<input type=text name=no size=3 class="form">
削除キー<input type=password name=pwd size=6 maxlength=8 class="form">
<input type=submit value="削除"></form>
<div align="center">
<hr width="550">
<span style='font-size:12px;font-family:Verdana,Helvetica,Arial'>
Copyright (C) 2005 HOTEL ROSE. All Right Reserved.</span>
$banner2
<p><span style='font-size:10px;font-family:Verdana,Helvetica,Arial'>
<!-- 著作権表\示（削除不可) -->
- <a href='http://www.kent-web.com/' target='_top'>Fantasy Board -</span></div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  記事投稿
#-------------------------------------------------
sub regist {
	local($date,$pwd,@week,@lines);

	# 他サイトからのアクセスを排除
	if ($baseUrl) {
		local($ref) = $ENV{'HTTP_REFERER'};
		$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
		if ($ref && $ref !~ /$baseUrl/i) { &error("不正なアクセスです"); }
	}

	# フォーム内容をチェック
	if ($in{'name'} eq "") { &error("名前が入力されていません"); }
	if ($in{'com'} eq "") { &error("コメントが入力されていません"); }
	if ($in{'icon'} < 0 || $in{'icon'} > @icon1) {
		&error("アイコン指定が不正です");
	}

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

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

	local($no,$dat,$nam,$eml,$area,$ico,$ico2,$com) = split(/<>/, $lines[0]);
	&error("二重投稿は禁止です") if ($in{'name'} eq $nam && $in{'com'} eq $com);

	# 記事Noを採番
	$no++;

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

	# 日時取得
	$ENV{'TZ'} = "JST-9";
	local($min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[1..6];

	# 日時のフォーマット
	@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);

	# URL自動リンク
	if ($autolink) { &auto_link($in{'com'}); }

	# 最大記事数処理
	while ($max <= @lines) { pop(@lines); }

	# 更新
	unshift(@lines,"$no<>$date<>$in{'name'}<>$in{'email'}<>$areas[$in{'area'}]<>$icon1[$in{'icon'}]<><>$in{'com'}<><>$in{'url'}<>$host<>$pwd<>\n");
	open(OUT,">$logfile") || &error("Write Error: $logfile");
	print OUT @lines;
	close(OUT);

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

	if ($in{'cook'} == 1) {
		&set_cookie($in{'name'},$in{'email'},$in{'url'},$in{'pwd'},$in{'area'},$in{'icon'});
	}

	# メール通知処理
	if ($mailing == 1) { &mail_to; }
	elsif ($mailing == 2 && $in{'email'} ne $mailto) { &mail_to; }

	# リロード
	if ($location) {
		if ($ENV{'PERLXS'} eq "PerlIS") {
			print "HTTP/1.0 302 Temporary Redirection\r\n";
			print "Content-type: text/html\n";
		}
		print "Location: $location?\n\n";
	} else {
		&header;
		print "<div align=center><hr width=400>\n";
		print "<h3>投稿は正常に処理されました</h3>\n";
		print "<form action=\"$script\">\n";
		print "<input type=submit value='掲示板へ戻る'></form>\n";
		print "<hr width=400></div>\n</body></html>\n";
	}
	exit;
}

#-------------------------------------------------
#  ワード検索
#-------------------------------------------------
sub find {
	&header;
	print <<"EOM";
[<a href="$script?">戻る</a>]
<ul>
<li>検索したいキーワードを入力し、検索条件を選択して検索ボタンを押してください。
<li>キーワードは半角スペースで区切って複数指定することができます。
<form action="$script" method="POST">
<input type=hidden name=mode value="find">
キーワード <input type=text name=word size=36 value="$in{'word'}" class="form">
検索条件 <select name=cond class="form">
EOM

	foreach ("AND", "OR") {
		if ($in{'cond'} eq $_) {
			print "<option value=\"$_\" checked>$_\n";
		} else {
			print "<option value=\"$_\">$_\n";
		}
	}
	print "</select>\n<input type=submit value=' 検索 '></form>\n</ul>\n";

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

		local($no,$date,$name,$mail,$area,$icon,$ico2,$com,$res,$url,$i);

		$in{'word'} =~ s/　/ /g;
		@pairs = split(/\s+/, $in{'word'});

		# 検索処理
		print "<hr>\n";
		$i=0;
		open(IN,"$logfile") || &error("Open Error : $logfile");
		while (<IN>) {
			$flag = 0;
			foreach $pair (@pairs) {
				if (index($_,$pair) >= 0) {
					$flag=1;
					if ($in{'cond'} eq 'OR') { last; }
				} else {
					if ($in{'cond'} eq 'AND') { $flag=0; last; }
				}
			}
			next if (!$flag);

			# 結果を表示
			$i++;
			($no,$date,$name,$mail,$area,$icon,$ico2,$com,$res,$url) = split(/<>/);
			if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
			if ($url) { $url = "<a href=\"http://$url\" target='_blank'>http://$url</a>"; }

			print "[<b>$no</b>] 投稿者：<b>$name</b> 投稿日：$date<br>\n";
			print "<blockquote>$com<P>$url</blockquote><hr>\n";
		}
		close(IN);
		print "検索結果は <b>$i</b>件です。\n";
	}
	print "</body>\n</html>\n";
	exit;
}

#-------------------------------------------------
#  入室画面
#-------------------------------------------------
sub enter {
	&header;
	print <<"EOM";
[<a href="javascript:history.back()">戻る</a>]
<center>
<h4>パスワードを入力して下さい</h4>
<form action="$script" method="POST">
<input type=hidden name=mode value="admin">
<input type=password name=pass size=8 class="form">
<input type=submit value=" 認証 ">
</form>
</center>
</body>
</html>
EOM
	exit;
}

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

	$p_log *= 2;

	# 削除
	if ($in{'job'} eq "del" && $in{'no'}) {

		local($flag,$no,$del,@new);

		# ロック開始
		&lock if ($lockkey);

		# 削除情報マッチング
		@new=();
		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			$flag=0;
			($no) = split(/<>/);
			foreach $del ( split /\0/, $in{'no'} ) {
				if ($no == $del) { $flag=1; last; }
			}
			if (!$flag) { push(@new,$_); }
		}
		close(IN);

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

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

	# 返信画面
	} elsif ($in{'job'} eq "res" && $in{'no'}) {

		local(@no,@f);

		@no = split(/\0/, $in{'no'});

		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			@f = split(/<>/);
			last if ($f[0] == $no[0]);
		}
		close(IN);

		# 画面へ
		&edit_form(@f);

	# 返信実行
	} elsif ($in{'job'} eq "res2") {

		local($no,$dat,$nam,$eml,$area,$ico,$ico2,$com,$res,$url,$hos,$pw,@new);

		# URLリンク
		if ($autolink) { &auto_link($in{'com'}); }

		# タグ有効
		if ($in{'tag'} == 1) {
			$in{'com'} =~ s/&lt;/</g;
			$in{'com'} =~ s/&lt;/</g;
			$in{'com'} =~ s/&quot;/"/g;
			$in{'com'} =~ s/&amp;/&/g;
		}

		# ロック開始
		&lock if ($lockkey);

		@new=();
		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			($no,$dat,$nam,$eml,$area,$ico,$ico2,$com,$res,$url,$hos,$pw) = split(/<>/);
			if ($in{'no'} == $no) {
				$_="$no<>$dat<>$nam<>$eml<>$area<>$ico<>$ico2<>$com<>$in{'com'}<>$url<>$hos<>$pw<>\n";
			}
			push(@new,$_);
		}
		close(IN);

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

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

	}

	local($no,$dat,$nam,$eml,$area,$ico,$ico2,$com,$res,$url,$hos,$i,$next,$back);

	&header;
	print <<EOM;
[<a href="$script?">戻る</a>]
<form action="$script" method="POST">
<input type=hidden name=mode value="admin">
<input type=hidden name=pass value=\"$in{'pass'}\">
<select name=job>
<option value="res">返信
<option value="del">削除
</select>
<input type=submit value="送信する">
<dl>
EOM

	$i=0;
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		$i++;
		if ($i < $page + 1) { next; }
		if ($i > $page + $p_log) { last; }

		($no,$dat,$nam,$eml,$area,$ico,$ico2,$com,$res,$url,$hos) = split(/<>/);

		if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }
		$com =~ s/<([^>]|\n)*>//g;
		if (length($com) > 50) {
			$com = substr($com,0,48);
			$com .= "...";
		}
		$res =~ s/<([^>]|\n)*>//g;
		if (length($res) > 50) {
			$res = substr($res,0,48);
			$res .= "...";
		}

		print "<dt><hr><input type=checkbox name=no value=\"$no\">
		[$no] <b>$nam</b> - $dat - $hos<dd>内容：$com\n";
		print "<dd>返信：$res\n" if ($res);

	}
	close(IN);
	print "<dt><hr></dl></form>\n";

	$next = $page + $p_log;
	$back = $page - $p_log;

	print "<p><table><tr>\n";
	if ($back >= 0) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=submit value=\"前の$p_log件\"></td></form>\n";
	}
	if ($next < $i) {
		print "<td><form action=\"$script\" method=\"POST\">\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=submit value=\"次の$p_log件\"></td></form>\n";
	}

	print <<EOM;
</tr></table>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  返信画面
#-------------------------------------------------
sub edit_form {
	local($no,$dat,$nam,$eml,$area,$ico,$ico2,$com,$res,$url,$hos,$pw) = @_;

	local($pattern) = 'http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%]+';
	$res =~ s/<a href="$pattern" target='_top'>($pattern)<\/a>/$1/go;
	$res =~ s/<br>/\r/ig;

	&header;
	print <<"EOM";
<form>
<input type=button value="前画面に戻る" onClick="history.back()">
</form>
<form action="$script" method="POST">
<input type=hidden name=mode value="admin">
<input type=hidden name=job value="res2">
<input type=hidden name=pass value="$in{'pass'}">
<input type=hidden name=no value="$no">
<dl>
<dt>[<b>$no</b>] 投稿者：<b>$nam</b> [$area] $dat<br><br>
<dd>$com
</dl>
<b>返信メッセージ</b> &nbsp;&nbsp;&nbsp;
<input type=checkbox name=tag value="1">HTMLタグ有効<br>
<textarea name=com cols=50 rows=5 wrap=soft>$res</textarea><br>
<input type=submit value="返信する"><input type=reset value="リセット">
</form>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  留意事項
#-------------------------------------------------
sub howto {
	&header;
	print <<"EOM";
<div align="center">
<h4>- 留意事項 -</h4>
<table border=1 cellpadding=10 align=center width="90%">
<tr><td bgcolor="#FFFFFF">
<font color="#000000">
<ol>
<li>この掲示板は<b>クッキー対応</b>です。１度記事を投稿いただくと、おなまえ、Ｅメール、ＵＲＬ、削除キーの情報は２回目以降は自動入力されます。（ただし利用者のブラウザがクッキー対応の場合）<P>
<li>投稿記事には、<b>タグは一切使用できません。</b><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>トップメニューの<a href="$script?mode=find">「ワード検索」</a>のリンクをクリックすると検索モードとなります。<P>
<li>管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は予\告なく削除することがあります。
</ol>
</font>
</td></tr></table>
<p>
<form>
<input type=button value="前画面に戻る" onClick="history.back()">
</form>
</div>
</body>
</html>
EOM
exit;
}

#-------------------------------------------------
#  ユーザ記事削除
#-------------------------------------------------
sub usrdel {
	# 他サイトからのアクセスを排除
	if ($baseUrl) {
		local($ref) = $ENV{'HTTP_REFERER'};
		$ref =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;
		if ($ref !~ /$baseUrl/i) { &error("不正なアクセスです"); }
	}

	if ($in{'no'} eq '' || $in{'pwd'} eq '')
		{ &error("削除Noまたは削除キーが入力モレです");	}

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

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

	$flag=0;
	@new=();
	foreach (@lines) {
		($no,$date,$name,$mail,$area,$icon,$ico2,$com,$res,$url,$host,$pw) = split(/<>/);
		if ($in{'no'} == $no) { $flag=1; $PW=$pw; }
		else { push(@new,$_); }
	}

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

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

	open(OUT,">$logfile") || &error("Open Error: $logfile");
	print OUT @new;
	close(OUT);

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

#-------------------------------------------------
#  デコード処理
#-------------------------------------------------
sub decode {
	local($buf, $key, $val);
	undef(%in);

	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		$post_flag=1;
		if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます"); }
		read(STDIN, $buf, $ENV{'CONTENT_LENGTH'});
	} else {
		$post_flag=0;
		$buf = $ENV{'QUERY_STRING'};
	}

	foreach ( split(/&/, $buf) ) {
		($key, $val) = split(/=/);
		$val =~ tr/+/ /;
		$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;

		# S-JISコード変換
		&jcode'convert(*val, 'sjis');

		# エスケープ
		$val =~ s/&/&amp;/g;
		$val =~ s/"/&quot;/g;
		$val =~ s/</&lt;/g;
		$val =~ s/>/&gt;/g;
		$val =~ s/\r\n/<br>/g;
		$val =~ s/\r/<br>/g;
		$val =~ s/\n/<br>/g;
		$val =~ s/[\x00-\x20]+/ /g;

		$in{$key} .= "\0" if (defined($in{$key}));
		$in{$key} .= $val;
	}
	$in{'url'} =~ s/^http\:\/\///;
	$mode = $in{'mode'};
	$page = $in{'page'};
}

#-------------------------------------------------
#  HTMLヘッダ
#-------------------------------------------------
sub header {
	$headflag=1;
	print "Content-type: text/html\n\n";
	print <<"EOM";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="ja">
<head>
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=Shift_JIS">
<STYLE TYPE="text/css">
<!--
body,tr,td { font-size: $b_point }
a:link    { text-decoration:none; }
a:visited { text-decoration:none; }
a:active  { text-decoration:none; }
a:hover   { text-decoration:underline; color:$alink }
span      { font-size: $t_point }
.form     { background-color:$formCol2; color:$formCol1; }
-->
</STYLE>
<title>$title</title></head>
EOM
	if ($bgrnd) {
		print "<body background=\"$bgrnd\" bgcolor=\"$bgcol\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">\n";
	} else {
		print "<body bgcolor=\"$bgcol\" text=\"$text\" link=\"$link\" vlink=\"$vlink\" alink=\"$alink\">\n";
	}
}

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

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

#-------------------------------------------------
#  クッキー発行
#-------------------------------------------------
sub set_cookie {
	local(@cook) = @_;
	local($gmt, $cook, @t, @m, @w);

	@t = gmtime(time + 60*24*60*60);
	@m = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
	@w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

	# 国際標準時を定義
	$gmt = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
			$w[$t[6]], $t[3], $m[$t[4]], $t[5]+1900, $t[2], $t[1], $t[0]);

	# 保存データをURLエンコード
	$cook='';
	foreach (@cook) {
		s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
		$cook .= "$_<>";
	}

	# 格納
	print "Set-Cookie: FANTA_BBS=$cook; expires=$gmt\n";
}

#-------------------------------------------------
#  クッキー取得
#-------------------------------------------------
sub get_cookie {
	local($key, $val, *cook);

	# クッキーを取得
	$cook = $ENV{'HTTP_COOKIE'};

	# 該当IDを取り出す
	foreach ( split(/;/, $cook) ) {
		($key, $val) = split(/=/);
		$key =~ s/\s//g;
		$cook{$key} = $val;
	}

	# データをURLデコードして復元
	@cook=();
	foreach ( split(/<>/, $cook{'FANTA_BBS'}) ) {
		s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("H2", $1)/eg;

		push(@cook,$_);
	}
	return (@cook);
}

#-------------------------------------------------
#  パスワード暗号
#-------------------------------------------------
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, $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;
}

#-------------------------------------------------
#  ロック処理
#-------------------------------------------------
sub lock {
	local($retry)=5;

	# 古いロックは削除する
	if (-e $lockfile) {
		local($mtime) = (stat($lockfile))[9];
		if ($mtime < time - 30) { &unlock; }
	}
	# symlink関数式ロック
	if ($lockkey == 1) {
		while (!symlink(".", $lockfile)) {
			if (--$retry <= 0) { &error('LOCK is BUSY'); }
			sleep(1);
		}
	# mkdir関数式ロック
	} elsif ($lockkey == 2) {
		while (!mkdir($lockfile, 0755)) {
			if (--$retry <= 0) { &error('LOCK is BUSY'); }
			sleep(1);
		}
	}
	$lockflag=1;
}

#-------------------------------------------------
#  ロック解除
#-------------------------------------------------
sub unlock {
	if ($lockkey == 1) {
		unlink($lockfile);
	} elsif ($lockkey == 2) {
		rmdir($lockfile);
	}

	$lockflag=0;
}

#-------------------------------------------------
#  メール送信
#-------------------------------------------------
sub mail_to {
	local($hp,$com,$mbody,$email);

	if ($in{'url'}) { $hp = "http://$in{'url'}"; }
	else { $hp = ""; }

	# 記事復元
	$com  = $in{'com'};
	$com =~ s/<br>/\n/g;
	$com =~ s/&lt;/</g;
	$com =~ s/&gt;/>/g;
	$com =~ s/&quot;/"/g;
	$com =~ s/&amp;/&/g;

	$mbody = <<"EOM";
投稿日時：$date
ホスト名：$host
ブラウザ：$ENV{'HTTP_USER_AGENT'}

おなまえ：$in{'name'}
Ｅメール：$in{'email'}
ＵＲＬ  ：$hp

$com
EOM

	# メールアドレスがない場合
	if ($in{'email'} eq "") { $email = $mailto; }
	else { $email = $in{'email'}; }

	# sendmail起動
	open(MAIL,"| $sendmail -t") || &error("メール送信失敗");
	print MAIL "To: $mailto\n";
	print MAIL "From: $email\n";
	print MAIL "Subject: POST BBS (no.$no) \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";
	foreach ( split(/\n/, $mbody) ) {
		&jcode'convert(*_, 'jis', 'sjis');
		print MAIL $_, "\n";
	}
	close(MAIL);
}

#-------------------------------------------------
#  イメージ表示
#-------------------------------------------------
sub image {
	local($i,$j,$stop);

	&header;
	print "<center>\n";
	print "<b><big>画像イメージ</big></b><br>\n";
	print "<P><table border=1 cellpadding=5 cellspacing=0><tr>\n";

	$i=0; $j=0;
	$stop = @icon1;
	foreach (0 .. $#icon1) {
		$i++; $j++;
		print "<th><img src=\"$imgurl/$icon1[$_]\" ALIGN=middle alt=\"$icon1[$_]\"> $icon2[$_]</th>\n";
		if ($j != $stop && $i >= 5) { print "</tr><tr>\n"; $i=0; }
		elsif ($j == $stop) {
			if ($i == 0) { last; }
			while ($i < 5) { print "<th><br></th>"; $i++; }
		}
	}

	print "</tr></table><br>\n";
	print "<form><input type=button value=' CLOSE ' onClick='top.close();'></form>\n";
	print "</center>\n</body>\n</html>\n";
	exit;
}

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

#-------------------------------------------------
#  チェックモード
#-------------------------------------------------
sub check {
	&header;
	print "<h2>Check Mode</h2>\n";
	print "<ul>\n";

	# ログパス
	if (-e $logfile) { print "<li>ログファイルのパス：OK\n"; }
	else { print "<li>ログファイルのパス：NG → $logfile\n"; }

	# ログパーミッション
	if (-r $logfile && -w $logfile) {
		print "<li>ログファイルのパーミッション：OK\n";
	} else { print "<li>ログファイルのパーミッション：NG\n"; }

	# ロックディレクトリ
	print "<li>ロック形式：";
	if ($lockkey == 0) { print "ロック設定なし\n"; }
	else {
		if ($lockkey == 1) { print "symlink\n"; }
		else { print "mkdir\n"; }

		($lockdir) = $lockfile =~ /(.*)[\\\/].*$/;
		print "<li>ロックディレクトリ：$lockdir\n";

		if (-d $lockdir) { print "<li>ロックディレクトリのパス：OK\n"; }
		else { print "<li>ロックディレクトリのパス：NG → $lockdir\n"; }

		if (-r $lockdir && -w $lockdir && -x $lockdir) {
			print "<li>ロックディレクトリのパーミッション：OK\n";
		} else {
			print "<li>ロックディレクトリのパーミッション：NG → $lockdir\n";
		}
	}
	print "</ul>\n</body>\n</html>\n";
	exit;
}


__END__