#!/usr/local/bin/perl
## Fantasy Board v0.82 : ベータ版
## (C)1997-1999 Kent Web (1999/10/11)
## Mail: webmaster@kent-web.com
## Home: http://www.kent-web.com/
$ver = 'Fantasy v0.82'; # バージョン情報（修正不要）
## ---[注意事項ほか]--------------------------------------------------
## 1. このスクリプトはフリーソフトです。このスクリプトを使用したいか
##    なる損害に対して作者は一切の責任を負いません。
## 2. 設置に関する質問はサポート掲示板にお願いいたします。メールによる
##    質問はご遠慮ください。
## -------------------------------------------------------------------
#============#
#    設定    #
#============#
#require './jcode.pl';
require '../bin/jcode.pl';
# タイトル名
$title = "Guest Book";

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

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

# スクリプト名
$script = "fantasy.cgi";

# ログファイル名
$logfile = "../bin/fantasy.log";

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

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

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

# 画像格納ディレクトリ（絶対パスなら http://から記述）
$imgurl = "../img";

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

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

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

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

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

# ホスト名取得に gethostbyaddr関数を使用 (0=no 1=yes)
$gethostbyaddr = 1;

# ロックファイル機構 (0=no 1=symlink関数 2=open関数)
#  --> ロックファイル機構を使用する場合ロックファイルを生成するディレクトリ
#      のパーミッションは 777 に設定する
$lockkey = 2;

# ロックファイルディレクトリ
$lockdir = "../bin";

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

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

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

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

# 居住地
@areas = (
	'北海道','東北','関東','甲信越','東海','北陸','近畿',
	'中国','四国','九州','外国','地球外');

# キャラクタを指定（上下の配列はペアで)
@icon1 = (
	'boy1.gif','boy2.gif','seinen.gif','girl1.gif','girl2.gif',
	'ol1.gif','ol2.gif','ol3.gif','china.gif','cook.gif','piero.gif',
	'dog.gif','cat.gif','mouse.gif','pig.gif','hiyoko.gif','flog.gif');
@icon2 = (
	'少年1','少年2','青年','少女1','少女2',
	'OL風1','OL風2','OL風3','中国風','コック風','ピエロ',
	'子犬','子猫','子ネズミ','子ブタ','ヒヨコ','カエル');

# 管理者名
$master = "ちゃいちゃんパパ";

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

# 管理者用アイコン
$mas_icon = "master.gif";

# アクセス制限（拒否するホスト名を記述）
@deny = (
	"anonymizer",
	"cache*.*.interlog.com",
	"",
	"",
	"",
	"",
	"",
	"",
	""
	);

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

# ロックファイルを再定義
$lockfile = "$lockdir\/$lockfile";

# イメージディレクトリ調整
$imgurl =~ s/\/$//;

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


## --- アクセス制限
sub axs_check {
	if ($deny[0]) {
		# ホスト名を取得
		&get_host;

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


## --- 記事表示処理
sub html {
	# ブラウザ情報を取得
	&get_agent;

	# クッキー情報を取得
	&get_cookie;

	&header;
	print <<"EOM";
<center>
<font color="$t_color" face="$t_face" size="5"><b><span>$title</span></b></font>
<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%">
<form action="$script" method="$method">
<input type=hidden name=mode value="regist">
<table cellpadding=1 cellspacing=1>
<tr>
  <td><b>おなまえ</b></td>
  <td><input type=text name=name size="$f_name" value="$c_name"></td>
</tr>
<tr>
  <td><b>Ｅメール</b></td>
  <td><input type=text name=email size="$f_name" value="$c_email"></td>
</tr>
<tr>
  <td><b>ＵＲＬ</b></td>
  <td><input type=text name=url size="$f_url" value="http://$c_url"></td>
</tr>
<tr>
  <td><b>居住地</b></td><td><select name=area>
EOM
	# 居住地の選択フォームを表示
	if ($c_area eq "") { $c_area = "関東"; }
	foreach (@areas) {
		if ($_ eq "$c_area") { print "<option value=\"$_\" selected>$_\n"; }
		else { print "<option value=\"$_\">$_\n"; }
	}

	print "</select>　　&#32;\n";

	# イメージの選択フォームを表示
	print "<b>イメージ</b> <select name=icon>";
	foreach (0 .. $#icon1) {
		if ($icon1[$_] eq "$c_icon") {
			print "<option value=\"$icon1[$_]\" selected>$icon2[$_]\n";
		} else {
			print "<option value=\"$icon1[$_]\">$icon2[$_]\n";
		}
	}

	print <<"EOM";
    </select> [<a href="$script?mode=image" target="_blank">アイコン参照</a>]
  </td>
</tr>
<tr>
  <td colspan=2>
    <b>メッセージ</b><br>
    <textarea name=com cols="$f_cols" rows=7 wrap=soft></textarea><br>
    <input type=submit value="送信する"><input type=reset value="リセット">　　
    <b>削除キー</b> <input type=password name=pwd size=8 maxlength=8 value="$c_pwd">
    <small>(記事の削除時に使用)</small><br>
    <input type=checkbox name=cook value="on" checked>
    <small>クッキーを保存</small>
  </td>
</tr>
</table>
</form>
</blockquote>
<hr width="90%">
<P>
EOM
	# ページ区切り処理
	$start = $page + 1;
	$end   = $page + $p_log;

	open(IN,"$logfile") || &error("Open Error : $logfile","no");

	$i=0; $j=0;
	while ($_ = <IN>) {
		$i++; $j++;
		if ($i < $start) { next; }
		if ($i > $end) { next; }

		($no,$date,$name,$mail,$area,$icon,
			$icon2,$com,$res,$url,$host,$pw) = 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>\n";
			print "<table border=0 cellpadding=0 cellspacing=0>\n";
			print "<td width=14>　</td>\n";
		}
		else {
			print "<TD>\n";
			print "<table border=0 cellpadding=0 cellspacing=0>\n";
		}

		print "<td><img src=\"$imgurl\/wh1.gif\" width=14 height=14></td>\n";
		print "<td width=500 bgcolor=\"#FFFFFF\">　</td>\n";
		print "<td><img src=\"$imgurl\/wh2.gif\" width=14 height=14></td>\n";

		# 反転対象部分2
		if ($flag == 0) {
			print "</tr>";
			print "<tr><td><img src=\"$imgurl\/wh5.gif\" width=14 height=14></td>\n";
		}
		else {
			print "<td width=14>　</td>\n";
#			print "<td rowspan=3 width=10>　</td>\n";
			print "</tr>\n";
			print "<tr>";
		}

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

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

		print "</td><td bgcolor=\"#FFFFFF\">　</td>\n";

		if ($flag == 1) {
			print "<td><img src=\"$imgurl\/wh6.gif\" width=14 height=14></td>\n";
		}

		print "</tr><tr>";

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

		print "<td><img src=\"$imgurl\/wh4.gif\" width=14 height=14></td>\n";
		print "<td width=500 bgcolor=\"#FFFFFF\">　</td>\n";
		print "<td><img src=\"$imgurl\/wh3.gif\" width=14 height=14></td>\n";

		if ($flag == 1) {
			print "<td width=14>　</td>\n";
		}

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

		if ($flag == 1) {
			print "</TD><TD>\n";
			print "<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 = $page + $p_log;
	$back_page = $page - $p_log;

	print "<blockquote><table align=left><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 "</form></td>\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 "</form></td>\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=\"usrdel\">\n";
	print "【記事削除フォーム】<br>\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'>Fantasy Board</a> -\n";
	print "</small></center>\n";
	print "</body></html>\n";
	exit;
}

## --- 書きこみ処理
sub regist {
	# フォーム内容をチェック
	if ($name eq "") { &error("名前が入力されていません。","no"); }
	if ($com eq "") { &error("コメントが入力されていません。","no"); }

	# 一時ファイルを定義
	&temp;

	# ロック処理
	if ($lockkey == 1) { &lock1; }
	elsif ($lockkey == 2) { &lock2; }

	open(IN,"$logfile") || &error("Open Error : $logfile","lock");
	$top = <IN>;
	($tno,$tdate,$tname,$tmail,$tarea,$tico,$tico2,$tcom) = split(/<>/, $top);

	if ($name eq "$tname" && $com eq "$tcom") {
		&error("二重投稿は禁止です。","lock");
	}

	# 記事Noを採番
	$no = $tno + 1;

	# ホスト名を取得
	&get_host;

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

	open(OUT,">$tmpfile") || &error("Write Error : Temp File","lock");
	print OUT "$no<>$date<>$name<>$email<>$area<>$icon<>$icon2<>$com<><>$url<>$host<>$PW<>\n";
	print OUT "$top";

	$i=0;
	while ($_ = <IN>) {
		$i++;
		if ($i > $max-2) { last; }
		print OUT $_;
	}

	close(OUT);
	close(IN);

	chmod (0666,$tmpfile);
	rename ($tmpfile,$logfile) || &error("Rename Error","lock");
	if (-e $tmpfile) { unlink($tmpfile); }

	# ロック解除
	if (-e $lockfile) { unlink($lockfile); }

	if ($FORM{'cook'} eq 'on') { &set_cookie; }

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

## --- ワード検索
sub find {
	&header;
	print <<"HTML";
[<a href="$script\?">掲示板に戻る</a>]
<table width="100%">
<tr>
  <th bgcolor="#800080">
    <font color="#FFFFFF">ワード検索</font>
  </th>
</tr>
</table>
<P><center>
<table cellpadding=5 cellspacing=0>
<tr><td nowrap>
<UL>
  <LI>検索したい<b>キーワード</b>を入力し、検索領域を選択して「検索ボタン」を押してください。
  <LI>キーワードは「半角スペース」で区切って複数指定することができます。
</UL>
</td></tr>
</table>
<P><form action="$script" method="$method">
<input type=hidden name=mode value="find">
<table border=1 cellspacing=0>
<tr>
  <th colspan=2>
    キーワード <input type=text name=word size=30 value="$FORM{'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>
HTML
	# ワード検索の実行と結果表示
	if ($FORM{'word'} ne "") {

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

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

			# 結果を表示
			$i++;
			($no,$date,$name,$mail,$area,$icon,
				$icon2,$com,$res,$url,$host,$pw) = split(/<>/, $_);

			if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
			if ($url) { $url = "<a href=\"http://$url\" target=_blank>http://$url</a>"; }

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

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

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

	if (!$FORM{'pass'}) {
		print "<P><center><h4>パスワードを入力して下さい。</h4>\n";
		print "<form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=password name=pass size=8>";
		print "<input type=submit value=\" 認証 \">\n";
		print "</form>\n";
	}
	else {
		# 削除処理
		if ($DEL[0]) {
			# 一時ファイルを定義
			&temp;

			# ロック処理
			if ($lockkey == 1) { &lock1; }
			elsif ($lockkey == 2) { &lock2; }

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

			rename ($tmpfile,$logfile) || &error("Rename Error","lock");
			if (-e $tmpfile) { unlink($tmpfile); }

			# ロック解除
			if (-e $lockfile) { unlink($lockfile); }
		}

		# 管理を表示
		print "<form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=hidden name=pass value=\"$FORM{'pass'}\">\n";
		print "<center><table><tr><td>\n";
		print "<UL>\n<LI>レスをつける場合はその「記事No」をクリックして下さい。\n";
		print "<LI>削除する場合は、削除する記事のチェックボックスにチェックを入れ、削除ボタンを押して下さい。\n</UL>\n";
		print "</td></tr></table>\n";
		print "<input type=submit value=\"削除する\">";
		print "<input type=reset value=\"リセット\">\n";
		print "<P><table border=1 cellspacing=0>\n";
		print "<tr><th>削除</th><th>記事No</th><th>投稿日</th>";
		print "<th>投稿者</th><th>コメント</th><th>レス</th></tr>\n";

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

		open(IN,"$logfile") || &error("Open Error : $logfile","no");
		$i=0; $j=0;
		while ($_ = <IN>) {
			$i++; $j++;
			if ($i < $start) { next; }
			if ($i > $end) { next; }
			($no,$date,$name,$mail,$area,$icon,
				$icon2,$com,$res,$url,$host,$pw) = split(/<>/, $_);

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

			$com =~ s/<br>//ig;
			$com =~ s/</&lt;/g;
			$com =~ s/>/&gt;/g;
			if (length($com) > 50) {
				$com = substr($com,0,48);
				$com = "$com" . "...";
			}
			if ($res eq '') { $res = '<br>'; }
			else {
				$res =~ s/<br>//ig;
				$res =~ s/</&lt;/g;
				$res =~ s/>/&gt;/g;
				if (length($res) > 50) {
					$res = substr($res,0,48);
					$res = "$res" . "...";
				}
			}

			print "<tr><th><input type=checkbox name=del value=\"$no\"></th>";
			print "<th><a href=\"$script?mode=res&no=$no&pass=$FORM{'pass'}\">$no</a></th>";
			print "<td><small>$date</small></td><th>$name</th>";
			print "<td><small>$com<br><font color=$onepnt>[$host]</font></small></td>";
			print "<td><small>$res</small></td></tr>\n";
		}
		close(IN);

		print "</table></form>\n";
	}

	$next_page = $page + $p_log;
	$back_page = $page - $p_log;

	print "<table><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=\"$FORM{'pass'}\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=submit value=\"前の$p_log件\">\n";
		print "</form></td>\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=\"$FORM{'pass'}\">\n";
		print "<input type=hidden name=mode value=\"admin\">\n";
		print "<input type=submit value=\"次の$p_log件\">\n";
		print "</form></td>\n";
	}
	print "</tr></table></center>\n";
	print "</body></html>\n";
	exit;
}

## --- 返信レスフォーム
sub res_msg {
	if ($FORM{'pass'} ne "$pass") { &error("パスワードが違います。","no"); }

	# レス書込み処理
	if ($FORM{'action'} eq "regist") {

		# ロック開始
		if ($lockkey == 1) { &lock1; }
		elsif ($lockkey == 2) { &lock2; }

		# 一時ファイルを定義
		&temp;

		# ファイル更新
		open(IN,"$logfile") || &error("Open Error : $logfile","lock");
		open(OUT,">$tmpfile") || &error("Write Error : TempFile","lock");
		while ($_ = <IN>) {
		($no,$date,$name,$mail,$area,$icon,
			$icon2,$MSG,$res,$url,$host,$pw) = split(/<>/, $_);

			if ($FORM{'no'} eq "$no") {
				print OUT "$no<>$date<>$name<>$mail<>$area<>$icon<>$icon2<>$MSG<>$com<>$url<>$host<>$pw<>\n";
			}
			else { print OUT $_; }
		}
		close(OUT);
		close(IN);

		rename($tmpfile,$logfile) || &error("Rename Error","lock");
		if (-e $tmpfile) { unlink($tmpfile); }

		# ロック解除
		if (-e $lockfile) { unlink($lockfile); }

		# 管理画面に戻る
		&admin;
	}
	# 返信フォーム表示の場合
	else {
		open(IN,"$logfile") || &error("Open Error : $logfile","no");
		while ($_ = <IN>) {
			($no,$date,$name,$mail,$area,$icon,
				$icon2,$com,$res,$url,$host,$pw) = split(/<>/, $_);
			if ($FORM{'no'} eq "$no") { last; }
		}
		close(IN);
	}

	if ($mail) { $name = "<a href=\"mailto:$mail\">$name</a>"; }
	if ($url)  { $url  = "(<a href=\"http://$url\" target='_top'>Home</a>)"; }
	$res =~ s/<br>/\r/ig;
	$res =~ s/&lt;/</g;
	$res =~ s/&gt;/>/g;

	&header;
	print <<"EOM";
[<a href="$script?">掲示板に戻る</a>]
<table width="100%"><tr><th bgcolor="#800080">
<font color="#FFFFFF">返信モード</font>
</th></tr></table>
<blockquote>
<form action="$script" method="$method">
<input type=hidden name=mode value="res">
<input type=hidden name=action value="regist">
<input type=hidden name=pass value="$FORM{'pass'}">
<input type=hidden name=no value="$FORM{'no'}">
[<b>$no</b>] 投稿者：<b>$name</b> [$area] $date $url<br>
<blockquote>$com</blockquote>
<b>返信メッセージ</b><br>
<textarea name=com cols=50 rows=5 wrap=soft>$res</textarea><br>
<input type=submit value="返信する"><input type=reset value="リセット">
</form>
</blockquote>
</body></html>
EOM
	exit;
}

## --- 使い方表示
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="#800080">
    <font color="#FFFFFF">掲示板の使い方</font>
  </th>
</tr>
</table>
<P>
<table border=1 cellpadding=10 align=center width="90%">
<tr><td bgcolor="#FFFFFF">
<font color="#000000">
<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>トップメニューの<a href="$script?mode=find">「ワード検索」</a>のリンクをクリックすると検索モードとなります。<P>
<LI>管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は予\告なく削除することがあります。
</OL>
</font>
</td></tr></table>
</body></html>
EOM
exit;
}

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

	open(IN,"$logfile") || &error("Open Error : $logfile","no");
	$flag=0;
	while ($_ = <IN>) {
		($no,$date,$name,$mail,$area,$icon,
			$icon2,$com,$res,$url,$host,$pw) = split(/<>/, $_);
		if ($FORM{'no'} eq "$no") { $flag=1; last; }
	}
	close(IN);

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

	# 削除キーを照合
	&match_pwd("$FORM{'pwd'}","$pw");
	if ($match eq 'no') { &error("削除キーが違います。","no"); }
	else {

		# 一時ファイルを定義
		&temp;

		# ロック処理
		if ($lockkey == 1) { &lock1; }
		elsif ($lockkey == 2) { &lock2; }

		open(IN,"$logfile") || &error("Open Error : $logfile","lock");
		open(OUT,">$tmpfile") || &error("Open Error : Temp File","lock");
		while ($_ = <IN>) {
			($no,$date,$name,$mail,$sub,$com,$url,$host,$pw)
							 = split(/<>/, $_);
			if ($FORM{'no'} ne "$no") {
				print OUT $_;
			}
		}
		close(OUT);
		close(IN);

		rename ($tmpfile,$logfile) || &error("Rename Error","lock");
		if (-e $tmpfile) { unlink($tmpfile); }

		# ロック解除
		if (-e $lockfile) { unlink($lockfile); }
	}
}

## --- フォームからのデータ処理
sub decode {
	if ($ENV{'REQUEST_METHOD'} eq "POST") {
		if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("投稿量が大きすぎます。","no"); }
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	} else { $buffer = $ENV{'QUERY_STRING'}; }

	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {
		($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		# タグ処理
		if ($tagkey == 0) {
			$value =~ s/</&lt;/g;
			$value =~ s/>/&gt;/g;
			$value =~ s/\"/&quot;/g;
		} else {
			$value =~ s/<>/&lt;&gt;/g;
			$value =~ s/<!--(.|\n)*-->//g;
		}

		# 削除情報
		if ($name eq 'del') { push(@DEL,$value); }

		$FORM{$name} = $value;
	}
	$name  = $FORM{'name'};
	$com   = $FORM{'com'};
	$com   =~ s/\r\n/<br>/g;
	$com   =~ s/\r/<br>/g;
	$com   =~ s/\n/<br>/g;
	$email = $FORM{'email'};
	$url   = $FORM{'url'};
	$url   =~ s/^http\:\/\///;
	$mode  = $FORM{'mode'};
	$pwd   = $FORM{'pwd'};
	$icon  = $FORM{'icon'};
	$area  = $FORM{'area'};
	$page  = $FORM{'page'};

	# 日時の取得
	$ENV{'TZ'} = "JST-9";
	($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);

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

## --- HTMLヘッダ
sub header {
	$HEAD = 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 { font-size: 10pt; }
a:hover      { font-size: 10pt; text-decoration: underline; color: $alink; }
span         { font-size: 18pt; }
small        { font-size: 9pt; }
-->
</STYLE>
<title>$title</title></head>
EOM
	# bodyタグを定義
	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 get_agent {
	$agent = $ENV{'HTTP_USER_AGENT'};

	if ($agent =~ /MSIE 4/i || $agent =~ /MSIE 5/i) {
		$f_name = 28;
		$f_url  = 63;
		$f_cols = 58;
	}
	else {
		$f_name = 22;
		$f_url  = 42;
		$f_cols = 55;
	}
}

## --- エラー処理
sub error {
	if ($_[1] eq "lock" && -e $lockfile) { unlink($lockfile); }
	if (-e $tmpfile) { unlink($tmpfile); }

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

## --- クッキーの発行
sub set_cookie {
	($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg)
				= gmtime(time + 60*24*60*60);

	@mons = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
	$date_g = sprintf("%s, %02d\-%s\-%04d %02d:%02d:%02d GMT",
		$week[$wdayg],$mdayg,$mons[$mong],$yearg+1900,$hourg,$ming,$secg);

	$cook="name\:$name\,email\:$email\,url\:$url\,pwd\:$pwd\,area\:$area\,icon\:$icon";
	print "Set-Cookie: FANTA=$cook; expires=$date_g\n";
}

## --- クッキーを取得
sub get_cookie {
	$cookies = $ENV{'HTTP_COOKIE'};
	@pairs = split(/;/, $cookies);
	foreach $pair (@pairs) {
		local($name, $value) = split(/=/, $pair);
		$name =~ s/ //g;
		$DUMMY{$name} = $value;
	}
	@pairs = split(/,/, $DUMMY{'FANTA'});
	foreach $pair (@pairs) {
		local($name, $value) = split(/:/, $pair);
		$COOKIE{$name} = $value;
	}
	$c_name  = $COOKIE{'name'};
	$c_email = $COOKIE{'email'};
	$c_url   = $COOKIE{'url'};
	$c_pwd   = $COOKIE{'pwd'};
	$c_area  = $COOKIE{'area'};
	$c_icon  = $COOKIE{'icon'};

	if ($FORM{'cook'} eq 'on') {
		if ($name)  { $c_name  = $name; }
		if ($email) { $c_email = $email; }
		if ($url)   { $c_url   = $url; }
		if ($pwd)   { $c_pwd   = $pwd; }
		if ($area)  { $c_area  = $area; }
		if ($icon)  { $c_icon  = $icon; }
	}
}

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

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

## --- 削除キーを暗号化
sub make_pwd {
	$times = time;
	$salt = substr($times,-2,2);
	return crypt($_[0],$salt);
}

## --- 削除キーを照合
sub match_pwd {
	if ($_[1] =~ /^\$1\$/) { $key = 3; } else { $key = 0; }
	$match = "no";
	if (crypt($_[0], substr($_[1],$key,2)) eq "$_[1]") {
		$match = "yes";
	}
}

## --- ロックファイル（symlink関数）
sub lock1 {
	local($retry) = 5;
	while (!symlink(".", $lockfile)) {
		if (--$retry <= 0) { &error("LOCK is BUSY","lock"); }
		sleep(1);
	}
}

## --- ロックファイル（open関数）
sub lock2 {
	local($flag) = 0;
	foreach (1 .. 5) {
		if (-e $lockfile) { sleep(1); }
		else {
			open(LOCK,">$lockfile") || &error("Write Error : $lockfile","lock");
			close(LOCK);
			$flag = 1;
			last;
		}
	}
	if ($flag == 0) { &error("LOCK is BUSY","lock"); }
}

## --- メール送信
sub mail_to {
	# メール送信用に他変数に置換
	$m_sub  = "$title に投稿がありました";
	$m_name = $name;
	$m_com  = $com;

	# メッセージ部の改行、タグを復元
	$m_com =~ s/<br>/\n/ig;
	$m_com =~ s/&lt;/</g;
	$m_com =~ s/&gt;/>/g;

	# 文字コードをJIS変換
    	&jcode'convert(*m_sub,'jis');
    	&jcode'convert(*m_name,'jis');
    	&jcode'convert(*m_com,'jis');

	# sendmail起動
	if (open(MAIL,"| $sendmail $mailto")) {
	print MAIL "To: $mailto\n";

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

	print MAIL "From: $email\n";
	print MAIL "Subject: $m_sub\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 "TIME : $date\n";
	print MAIL "HOST : $host\n";
	print MAIL "NAME : $m_name\n";

	if ($FORM{'email'}) { print MAIL "EMAIL: $FORM{'email'}\n"; }
	if ($url) { print MAIL "URL  : http://$url\n"; }

	print MAIL "$m_com\n";
	print MAIL "--------------------------------------------------------\n";
	close(MAIL);
	}
}

## --- イメージ表示
sub image {
	&header;
	print "<center><hr width=\"75%\">\n";
	print "<h3>イメージ画像サンプル</h3>\n";
	print "<P>現在登録されているイメージ画像は以下のとおりです。\n";
	print "<P><hr width=\"75%\">\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> $icon2[$_]</th>\n";
		if ($i >= 5) { print '</tr><tr>'; $i=0; }
		if ($j eq "$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></center>\n";
	print "</body></html>\n";
	exit;
}

## --- 一時ファイル定義
sub temp {
	# 一時ファイルを定義
	$temp = "$$";
	if ($temp eq '') {
		srand;
		$temp = 1000000000000000 * rand;
	}
	$tmpfile = "$lockdir\/$temp\.tmp";
}
__END__