#!/usr/bin/perl

#┌─────────────────────────────────
#│ LIGHT BOARD - light.cgi (2005/11/20)
#│ Copyright (c) KentWeb
#│ webmaster@kent-web.com
#│ http://www.kent-web.com/
#│
#│ Modified by isso. May, 2006
#│ http://swanbay-web.hp.infoseek.co.jp/index.html
#└─────────────────────────────────

# 外部ファイル取り込み
require './jcode.pl';
require './init.cgi';
if($writevalue eq $postvalue) {
	&error("\$writevalueと\$postvalueの文字は同じにしないでください"); }

&agent;
&decode;
&setfile;
&previewcheck;

if ($mode eq "$writevalue" && $in{'pview'} ne "on") { &regist; }
elsif ($mode eq "$postvalue" && $in{'pview'} eq "on") { &regist; }
elsif ($mode eq "$writevalue" && $in{'pview'} eq "on") { &error("$spammsg"); }
elsif ($mode eq "previewmode") { &previewmode("$timecheck"); }
elsif ($mode eq "howto") { &howto; }
elsif ($mode eq "find") { &find; }
elsif ($mode eq "dellog") { &dellog; }
elsif ($mode eq "editlog") { &editlog; }
elsif ($mode eq "past" && $pastkey) { &pastlog; }
elsif ($mode eq "check") { ✓ }
elsif ($in{'pass'} eq $pass && $mode eq "admin_repost") { &regist; }
elsif ($mode eq 'noscript') { &noscript; }
&viewlog;

#-------------------------------------------------
#  記事表示
#-------------------------------------------------
sub viewlog {
	local($x,$y,$i,$flag,$no,$dat,$nam,$eml,$sub,$com,$url,$resub,$recom,$nexr,$back);

	# クッキー取得
	local($cnam,$ceml,$curl,$cpwd) = &get_cookie;
#	$curl ||= "http://";

	# タイトル表示
	&header;
	print "<div align=\"center\">\n";
	if ($t_img) {
		print "<img src=\"$t_img\" alt=\"$title\">\n";
	} else {
		print "<b style=\"color:$t_col; font-size:$t_size",
		"px; font-family:'$t_face'\">$title</b>\n";
	}

	if ( (-s $spamlogfile) > $spamlog_maxfile ) {
		print "<br>\n<br>\n<b style='color:#FF0000'>投稿拒否ログ(スパムログ)のファイルサイズが大きくなりました。<br>",
		"至急、管理モードから投稿拒否ログを削除して下さい。</b><br>\n<br>\n";
	}

	# 表示開始
	print <<"EOM";
<hr width="90%">
[<a href="$home" target="_top">トップに戻る</a>]
[<a href="$script?mode=howto">留意事項</a>]
[<a href="$script?mode=find">ワード検索</a>]
EOM

	# 過去ログリンク
	print "[<a href=\"$script?mode=past\">過去ログ</a>]\n" if ($pastkey);

	# ログ編集機能のリンク
	print "[<a href=\"$admin?mode=admin\">管理用</a>]\n";

	# 返信モード
	$resub='';
	$recom='';
	if ($in{'res'}) {
		# 引用記事抽出
		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			($no,$dat,$nam,$eml,$sub,$com) = split(/<>/);
			last if ($in{'res'} == $no);
		}
		close(IN);

		# コメントに引用符付加
		$recom = "&gt; $com";
		$recom =~ s/<br>/\n&gt; /g;

		# 題名に引用項目付加
		$sub =~ s/^Re://;
		$resub = "Re:[$in{'res'}] $sub";
	}

	# 投稿フォーム
	local $access = &encode_bbsmode();
	local $enaddress = &encode_addr();
	if ($keychange) { $url_key  = 'email'; $mail_key = 'url';
	} else { $url_key  = 'url'; $mail_key = 'email'; }
	print <<"EOM";
<hr width="90%"></div>
<form method="$method" action="$script">
EOM
	if ($type eq 'p') {
		if ($javascriptpost) {
			print <<EOM;
<script type="text/javascript">
<!-- //
fcheck("me=$bbscheckmode val","<inpu","t type=hidden na","ue=$access>");
// -->
</script>
EOM
		} else { print "<input type=hidden name=$bbscheckmode value=$access>\n"; }
	} else { print "<input type=hidden name=$bbscheckmode value=$access>\n"; }
	print <<EOM;
<!-- //
<input type=hidden name=mode value="write">
// -->
<input type=hidden name=reno value="$in{'res'}">
<blockquote>
<table cellpadding=1 cellspacing=1>
<tr>
  <td><b>おなまえ</b></td>
    <td><input type=text name=name size=28 value="$cnam"></td>
</tr>
<tr>
  <td><b>Ｅメール</b></td><td>
    <input type=hidden name=mail size=28 value="$enaddress">
    <input type=text name=$mail_key size=28 value="$ceml">
EOM
	if ($no_email eq '1') { print "<b style='color:#FF0000'>メールアドレスは入力禁止</b>"; }
	elsif ($no_email eq '2') { print "<b style='color:#FF0000'>入力する場合には必ず＠を全角で書いて下さい</b>"; }
	print <<EOM;

</td>
</tr>
<tr>
  <td><b>タイトル</b></td>
  <td>
<!-- //
    <input type=text name=subject size=36 value="">
// -->
    <input type=hidden name=title size=36 value="">
    <input type=hidden name=theme size=36 value="">
    <input type=text name=sub size=36 value="$resub">
EOM
	if (!$referercheck || $ENV{'HTTP_REFERER'}) {
		print "    <input type=hidden name=mode value=\"$writevalue\">\n";
		if ($type eq 'p') {
			if ($javascriptpost) {
				print <<EOM;
<script type="text/javascript">
<!-- //
fcheck("mit value=投稿する><input t","<inpu","t type=sub","ype=reset value=リセット>");
// -->
</script>
<noscript><br><b>Javascriptを有効にしてください。</b><br><br></noscript>
EOM
			} else { print "<input type=submit value='投稿する'><input type=reset value='リセット'>"; }
		} else { print "<input type=submit value='投稿する'><input type=reset value='リセット'>"; }
	} else { print "<BR>\n<B>掲示板へ直接アクセスした場合には投稿できません。",
		"<A HREF=\"$home\">トップページ</A>から入り直してください。</B>\n"; }

	print <<EOM;
</tr>
<tr>
  <td colspan=2><b>コメント
EOM
	if ($comment_url) { print "【コメント中のＵＲＬは先頭のｈを抜いて書き込んで下さい。】"; }
	print <<EOM;
</b><br>
 <textarea cols=56 rows=7 name=comment wrap="soft">$recom</textarea></td>
</tr>
<tr>
  <td colspan=2>
EOM
	$f_c_d = int(rand(5E07)) + 11E08;
	if ($urlcheck) { print "  <b>メッセージ中には参照先URLと同じURLを書き込まないで下さい</b>\n"; }
	print <<EOM;
  <input type=hidden name=$formcheck value="$f_c_d"></td>
</tr>
<tr>
  <td><b>参照先</b></td>
  <td><input type=text size=50 name=$url_key value="$curl"></td>
</tr>
<!--//
<tr>
  <td><b>URL</b></td>
  <td><input type=text size=50 name=url2 value=""></td>
</tr>
//-->
<tr>
  <td><b>暗証キー</b></td>
  <td><input type=password name=pwd size=8 maxlength=8 value="$cpwd">
  （記事メンテ用）</td>
</tr>
</table>
</form>
</blockquote>
<dl>
EOM

	# 記事展開
	$i=0;
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		$i++;
		if ($i < $page + 1) { next; }
		if ($i > $page + $plog) { next; }

		($no,$dat,$nam,$eml,$sub,$com,$url) = split(/<>/);
#		$nam = "<a href=\"mailto:$eml\">$nam</a>" if ($eml);
		if ($eml) { ($em0,$em1) = split(/\@/,$eml);
			$em1 =~ s/\./&\#46\;/g;
			$nam = "<script type=\"text/javascript\">\n<!-- //\n".
			"address(\"$em0\",\"$nam\",\"$em1\");\n// -->\n</script>\n".
			"<noscript><a href=\"$script?mode=noscript&page=$page\">$nam</a></noscript>\n";
		}
		&auto_link($com) if ($link);
		$com =~ s/([>]|^)(&gt;[^<]*)/$1<font color=\"$refcol\">$2<\/font>/g;
		$com .= "<p><a href=\"$url\" target=\"_blank\">$url</a>" if ($url);

		# 記事編集
		print "<dt><hr><table><tr><td valign=top>[<b>$no</b>] ";
		print "<b style=\"color:$subcol\">$sub</b> 投稿者：<b>$nam</b> ";
		print "投稿日：$dat &nbsp;</td><td valign=top>";
		print "<form action=\"$script\">\n";
		print "<input type=hidden name=res value=\"$no\">\n";
		print "<input type=submit value='返信'></td></form></tr></table><br>\n";
		print "<dd>$com<br><br>\n";
	}
	close(IN);

	print "<dt><hr></dl>\n";

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

	$flag=0;
	print "<p><table><tr>\n";
	if ($back >= 0) {
		$flag=1;
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=submit value=\"前ページ\"></td></form>\n";
	}
	if ($next < $i) {
		$flag=1;
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=submit value=\"次ページ\"></td></form>\n";
	}

	# ページ移動ボタン表示
	if ($flag) {
		print "<td width=10></td><td class=num>";
		$x=1;
		$y=0;
		while ($i > 0) {
			if ($page == $y) { print "<b>[$x]</b>\n"; }
			else { print "[<a href=\"$script?page=$y\">$x</a>]\n"; }
			$x++;
			$y += $plog;
			$i -= $plog;
		}
		print "</td>";
	}
	print <<"EOM";
</tr></table>
<div align="center">
<form action="$script" method="$method">
処理 <select name=mode>
<option value=editlog>修正
<option value=dellog>削除</select>
記事No<input type=text name=no size=3>
暗証キー<input type=password name=pwd size=6 maxlength=8>
<input type=submit value="送信"></form>
<!-- 著作権表\記:削除禁止($ver) -->
<span style="font-size:10px;font-family:Verdana,Helvetica">
- <a href="http://www.kent-web.com/" target="_top">LightBoard</a> -
Modified by <a href="http://swanbay-web.hp.infoseek.co.jp/index.html" target="_top">isso</a>
</span></div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  投稿受付
#-------------------------------------------------
sub regist {
	local($pwd,$past,@w,@past,@file);
	local($cnam,$ceml,$curl,$cpwd) = &get_cookie;

	# 拡張オプションチェック
	if ($mode ne "admin_repost") {
		&option_check($in{'pwd'},$in{'email'},$in{'comment'},$in{'url'});
	}
	if ($in{'email'} && $in{'email'} =~ /＠/) { $in{'email'} =~ s/＠/\@/; }

	# 入力チェック
	if (!$post_flag) { &error("不正なアクセスです"); }
	if ($in{'name'} eq "") { &error("名前が入力されていません"); }
	if ($in{'comment'} eq "") { &error("コメントが入力されていません"); }
	if ($in{'email'}) {
		if ($in{'email'} !~ /https?\:\/\//i) {
			if ($in{'email'} !~ /^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/) {
				&error("Ｅメールの入力内容が正しくありません");
			}
		}
	}
	if ($in{'url'} eq "http://") { $in{'url'}=""; }
	if (!$in{'sub'}) {
		if ($suberror) { &error("タイトルが入力されていません"); } else { $in{'sub'} = "無題"; } 
	}

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

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

	# 二重投稿禁止
	local($no,$dat,$nam,$eml,$sub,$com,$url,$ho,$pw,$tim) = split(/<>/, $file[0]);
	if ($host eq $ho && $wait > time - $tim) {
		&error("連続投稿はもうしばらく時間を置いてください");
	}
	if ($in{'name'} eq $nam && $in{'comment'} eq $com) {
		&error("二重投稿は禁止です");
	}

	# 暗証キーを暗号化
	if ($mode ne "admin_repost") {
		if ($in{'pwd'} ne "") { $pwd = &encrypt($in{'pwd'}); }
	}

	# 時間を取得
	local($min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[1..6];
	@w = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
	$date = sprintf("%04d/%02d/%02d(%s) %02d:%02d",
			$year+1900,$mon+1,$mday,$w[$wday],$hour,$min);

	# 改行・ダブルクオート復元
	if ($in{'pview'} eq "on") {
		$in{'comment'} =~ s/&lt;br&gt;/<br>/g;
		$in{'comment'} =~ s/&quot;/"/g;
	}

	# スパム投稿チェック
	($spam,$reason) = &spam_check($in{'url2'},$in{"$bbscheckmode"},$in{'comment'},
	$in{'reno'},$in{'url'},$in{'email'},$in{'sub'},$in{'mail'},$in{"$formcheck"},$cnam,
	$in{'subject'},$in{'title'},$in{'theme'},$ENV{'HTTP_ACCEPT_LANGUAGE'},$ENV{'HTTP_USER_AGENT'});

	# プレビュー＆スパムログの削除
	if ($in{'pview'} eq "on" || $mode eq "admin_repost") {
		if ($spamlog) { &del_spamlog("$in{\"$bbscheckmode\"}"); }
	}

	# スパム投稿処理
	if ($spam && $mode ne "admin_repost") {
		# 投稿拒否ログの記録
		if ($spamlog) { &write_spamlog; }
		if ($spamresult) {
			# エラー表示
			if ($spamresult eq '1')  { &error("迷惑投稿のため処理を中断しました"); }
			else { sleep($spamresult); &error("迷惑投稿のため処理を中断しました"); }
		} elsif ($spammsg) { &message("$spammsg");
		} else { &access_error; }
	}

	# 記事数調整
	@past=();
	while ($max <= @file) {
		$past = pop(@file);
		unshift(@past,$past) if ($pastkey);
	}

	# 過去ログ
	if (@past > 0) { &past_make(@past); }

	# ログを更新
	$time = time;

	# 復活処理
	if ($mode eq "admin_repost") {
		$date= $in{'date'};
		$host= $in{'host'};
		$pwd = $in{'pwd'};
		$time = $in{'tim'};
	}

	$no++;
	unshift (@file,"$no<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>\n");

	# 一時ファイルを作成
	if (!$logbackup) { $tempfile = $logfile; }
	open(OUT,">$tempfile") || &error("Write Error : ログファイルに書き込みができません。");
	chmod (0606,$tempfile);
	print OUT @file;
	close(OUT);
	# 一時ファイル正常更新時にログファイルにリネーム
	if ( $logbackup && (-s $tempfile) > 100 ) { rename ($tempfile,$logfile) || &error("Rename Error"); }

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

	# クッキーを発行
	if ($mode ne "admin_repost") {
		if ($no_email == 2) { $in{'email'} =~ s/\@/＠/; }
		&set_cookie($in{'name'},$in{'email'},$in{'url'},$in{'pwd'},);
		if ($no_email == 2) { $in{'email'} =~ s/＠/\@/; }
	}

	# メール処理
	if ($sendmail && $mail && $in{'email'} ne $mail) { &mailto; }

	# 完了メッセージ
	&message("投稿は正常に処理されました");
}

#-------------------------------------------------
# メッセージ
#-------------------------------------------------
sub message {
	local($msg) = @_;
	&header;
	print "<div align=center><hr width=400>\n";
	print "<h3>$msg</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 howto {
	&header;
	print <<EOM;
<div align="center">
<table border=1 width="85%" cellpadding=15>
<tr><td class="r">
<h3>掲示板利用上の注意</h3>
<ol>
<li>この掲示板は<b>クッキー対応</b>です。1度記事を投稿いただくと、おなまえ、Ｅメール、ＵＲＬ、暗証キーの情報は2回目以降は自動入力されます。（ただし利用者のブラウザがクッキー対応の場合）
<li>投稿内容には、<b>タグは一切使用できません。</b>
<li>記事を投稿する上での必須入力項目は<b>「おなまえ」</b>と<b>「メッセージ」</b>です。Ｅメール、ＵＲＬ、題名、暗証キーは任意です。
<li>記事には、<b>半角カナは一切使用しないで下さい。</b>文字化けの原因となります。
<li>記事の投稿時に<b>暗証キー</b>（英数字で8文字以内）を入れておくと、その記事は次回暗証キーによって削除することができます。
<li>記事の保持件数は最大<b>$max件</b>です。それを超えると古い順に自動削除されます。
<li>既存の記事に簡単に<b>「返信」</b>することができます。各記事にある<b>「返信」ボタン</b>を押すと投稿フォームが返信用となります。
<li>過去の投稿記事から<b>「キーワード」によって簡易検索ができます。</b>トップメニューの<a href="$script?mode=find">「ワード検索」</a>のリンクをクリックすると検索モードとなります。
<li>管理者が著しく不利益と判断する記事や他人を誹謗中傷する記事は予\告なく削除することがあります。
</ol>
</td></tr></table>
<form>
<input type=button value="掲示板に戻る" onClick="history.back()">
</form>
</div>
</body>
</html>
EOM

	exit;
}

#-------------------------------------------------
#  検索画面
#-------------------------------------------------
sub find {
	&header;
	print <<"EOM";
<form action="$script">
<input type=submit value="掲示板に戻る"></form>
<ul>
<li>検索したい<b>キーワード</b>を入力し、「条件」「表\示」を選択して「検索」ボタンを押して下さい。
<li>キーワードは半角スペースで区切って複数指定することができます。
</ul>
<table><tr>
EOM
	&search("find", $logfile);
	print "</body></html>\n";
	exit;
}

#-------------------------------------------------
#  検索処理
#-------------------------------------------------
sub search {
	local($md, $target) = @_;
	local($i, $flag, $next, $back, $enwd, $wd, @wd);

	print "<td><form action=\"$script\" method=\"$method\">\n";
	print "<input type=hidden name=mode value=\"$md\">\n";

	local($para)='';
	if ($md eq "past") {
		print "<input type=hidden name=pastlog value=\"$in{'pastlog'}\">\n";
		$para = "&pastlog=$in{'pastlog'}";
	}

	print "キーワード <input type=text name=word size=35 value=\"$in{'word'}\"> ";
	print "条件 <select name=cond> &nbsp; ";

	if ($in{'cond'} eq "") { $in{'cond'} = "AND"; }
	foreach ("AND", "OR") {
		if ($in{'cond'} eq $_) {
			print "<option value=\"$_\" selected>$_\n";
		} else {
			print "<option value=\"$_\">$_\n";
		}
	}
	print "</select> 表\示 <select name=view>\n";
	if ($in{'view'} eq "") { $in{'view'} = 10; }
	foreach (10,15,20,25,30) {
		if ($in{'view'} == $_) {
			print "<option value=\"$_\" selected>$_件\n";
		} else {
			print "<option value=\"$_\">$_件\n";
		}
	}
	print "</select> <input type=submit value=' 検索 '>";
	print "</td></form></tr></table>\n";

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

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

		# ファイルを読み込み
		print "<dl>\n";
		$i=0;
		open(IN,"$target") || &error("Open Error: $target");
		while (<IN>) {
			$flag=0;
			foreach $wd (@wd) {
				if (index($_,$wd) >= 0) {
					$flag=1;
					if ($in{'cond'} eq 'OR') { last; }
				} else {
					if ($in{'cond'} eq 'AND') { $flag=0; last; }
				}
			}
			if ($flag) {
				$i++;
				if ($i < $page + 1) { next; }
				if ($i > $page + $in{'view'}) { next; }

				($no,$ymd,$nam,$eml,$sub,$com,$url) = split(/<>/);
#				if ($eml) { $nam="<a href=\"mailto:$eml\">$nam</a>"; }
				if ($eml) { ($em0,$em1) = split(/\@/,$eml);
					$em1 =~ s/\./&\#46\;/g;
					$nam = "<script type=\"text/javascript\">\n<!-- //\n".
					"address(\"$em0\",\"$nam\",\"$em1\");\n// -->\n</script>\n".
					"<noscript><a href=\"$script?mode=noscript&page=$page\">$nam</a></noscript>\n";
				}
				if ($url) { $com .= "<P><a href=\"$url\" target=\"_blank\">$url</a>"; }

				print "<dt><hr>[<b>$no</b>] <b style='color:$subcol'>$sub</b> ";
				print "投稿者：<b>$nam</b> 投稿日：$ymd<br><br>\n";
				print "<dd>$com<br><br>\n";
			}
		}
		close(IN);
		print "<dt><hr>検索結果：<b>$i</b>件</dl>\n";

		$next = $page + $in{'view'};
		$back = $page - $in{'view'};
		$enwd = &url_enc($in{'word'});
		if ($back >= 0) {
			print "[<a href=\"$script?mode=$md&page=$back&word=$enwd&view=$in{'view'}&cond=$in{'cond'}$para\">前の$in{'view'}件</a>]\n";
		}
		if ($next < $i) {
			print "[<a href=\"$script?mode=$md&page=$next&word=$enwd&view=$in{'view'}&cond=$in{'cond'}$para\">次の$in{'view'}件</a>]\n";
		}
		print "</body></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エンコード
	foreach (@cook) {
		s/(\W)/sprintf("%%%02X", unpack("C", $1))/eg;
		$cook .= "$_<>";
	}

	# 格納
	print "Set-Cookie: LIGHT_BOARD=$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デコードして復元
	foreach ( split(/<>/, $cook{'LIGHT_BOARD'}) ) {
		s/%([0-9A-Fa-f][0-9A-Fa-f])/pack("C", hex($1))/eg;

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

#-------------------------------------------------
#  記事削除
#-------------------------------------------------
sub dellog {
	local($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pwd,@new);

	# 入力チェック
	if (!$post_flag) { &error("不正なアクセスです"); }
	if ($in{'no'} eq "" || $in{'pwd'} eq "") {
		&error("記事No又はパスワードが入力されていません");
	}

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

	# ログを読み込む
	$flag=0;
	@new=();
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pwd) = split(/<>/);
		if ($in{'no'} == $no) {
			if ($pwd eq "") { $flag=2; last; }
			$check = &decrypt($in{'pwd'}, $pwd);
			if ($check) { $flag=1; next; }
			else { $flag=3; last; }
		}
		push(@new,$_);
	}
	close(IN);
	if (!$flag) { &error("該当記事が見当たりません"); }
	elsif ($flag == 2) { &error("パスワードが設定されていません"); }
	elsif ($flag == 3) { &error("パスワードが違います"); }

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

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

	# 完了メッセージ
	&header;
	print <<"EOM";
<div align="center">
<h3>記事は正常に削除されました</h3>
<form action="$script">
<input type=submit value="掲示板に戻る"></form>
</div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  記事修正
#-------------------------------------------------
sub editlog {
	local($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pwd,@new);

	# 入力チェック
	if ($in{'no'} eq "" || $in{'pwd'} eq "") {
		&error("記事No又はパスワードが入力されていません");
	}

	# 修正実行
	if ($in{'job'} eq "edit2") {
		# 入力チェック
		if ($in{'name'} eq "") { &error("名前が入力されていません"); }
		if ($in{'comment'} eq "") { &error("コメントが入力されていません"); }
		if ($in{'email'} && $in{'email'} !~ /^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,5}$/) {
			&error("Ｅメールの入力内容が正しくありません");
		}
		if ($in{'url'} eq "http://") { $in{'url'}=""; }
		if ($in{'sub'} eq "") { $in{'sub'} = "無題"; }

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

		# 差し替え
		@new=();
		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pwd,$tim) = split(/<>/);
			if ($in{'no'} == $no) {
				$_="$no<>$dat<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$hos<>$pwd<>$tim<>\n";
				$pwd2 = $pwd;
			}
			push(@new,$_);
		}
		close(IN);

		# 認証チェック
		$check = &decrypt($in{'pwd'}, $pwd2);
		if (!$check) { &error("パスワードが違います"); }

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

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

		return;
	}

	# 記事抽出
	$flag=0;
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pwd) = split(/<>/);
		if ($in{'no'} == $no) { $flag=1; last; }
	}
	close(IN);

	if (!$flag) {
		&error("該当の記事が見つかりません");
	} elsif ($pwd eq "") {
		&error('この記事はパスワードが設定されていないため、修正不可能です');
	}
	$check = &decrypt($in{'pwd'}, $pwd);
	if (!$check) { &error("パスワードが違います"); }

	# 修正フォーム
	&edit_form($no,$dat,$nam,$eml,$sub,$com,$url);
}

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

	# 記事の改行・タグを復元
	$com  = $in{'comment'};
	$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'}
ＵＲＬ  ：$in{'url'}
タイトル：$in{'sub'}

$com
EOM

	# 題名をBASE64化
	$msub = &base64("[$title : $no] $in{'sub'}");

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

	open(MAIL,"| $sendmail -t") || &error("メール送信失敗");
	print MAIL "To: $mail\n";
	print MAIL "From: $email\n";
	print MAIL "Subject: $msub\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);
}

#-------------------------------------------------
#  BASE64変換
#-------------------------------------------------
#	とほほのWWW入門で公開されているルーチンを参考にしました。
#	( http://tohoho.wakusei.ne.jp/ )
sub base64 {
	local($sub) = @_;
	&jcode'convert(*sub, 'jis', 'sjis');

	$sub =~ s/\x1b\x28\x42/\x1b\x28\x4a/g;
	$sub = "=?iso-2022-jp?B?" . &b64enc($sub) . "?=";
	$sub;
}
sub b64enc {
	local($ch)="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
	local($x, $y, $z, $i);
	$x = unpack("B*", $_[0]);
	for ($i=0; $y=substr($x,$i,6); $i+=6) {
		$z .= substr($ch, ord(pack("B*", "00" . $y)), 1);
		if (length($y) == 2) {
			$z .= "==";
		} elsif (length($y) == 4) {
			$z .= "=";
		}
	}
	$z;
}

#-------------------------------------------------
#  パスワード暗号
#-------------------------------------------------
sub encrypt {
	local($inp) = $_[0];
	local($salt, $crypt, @char);

	# 候補文字列を定義
	@char = ('a'..'z', 'A'..'Z', '0'..'9', '.', '/');

	# 乱数で種を抽出
	srand;
	$salt = $char[int(rand(@char))] . $char[int(rand(@char))];

	# 暗号化
	$crypt = crypt($inp, $salt) || crypt ($inp, '$1$' . $salt);
	$crypt;
}

#-------------------------------------------------
#  パスワード照合
#-------------------------------------------------
sub decrypt {
	local($inp, $log) = @_;

	# 種抽出
	local($salt) = $log =~ /^\$1\$(.*)\$/ && $1 || substr($log, 0, 2);

	# 照合
	if (crypt($inp, $salt) eq $log || crypt($inp, '$1$' . $salt) eq $log) {
		return (1);
	} else {
		return (0);
	}
}

#-------------------------------------------------
#  自動リンク
#-------------------------------------------------
sub auto_link {
	if ($comment_url) {
		$_[0] =~ s/http/ttp/g;
		$_[0] =~ s/([^=^\"]|^)(ttps?\:[\w\.\~\-\/\?\&\=\+\@\;\#\:\%\,]+)/$1<a href=\"h$2\" target=\"_blank\">h$2<\/a>/g;
	} else {
		$_[0] =~ s/([^=^\"]|^)(https?\:[\w\.\~\-\/\?\&\=\+\@\;\#\:\%\,]+)/$1<a href=\"$2\" target=\"_blank\">$2<\/a>/g;
	}
}

#-------------------------------------------------
#  URLエンコード
#-------------------------------------------------
sub url_enc {
	local($_) = @_;

	s/(\W)/'%' . unpack('H2', $1)/eg;
	s/\s/+/g;
	$_;
}

#-------------------------------------------------
#  過去ログ画面
#-------------------------------------------------
sub pastlog {
	local($no,$i,$file,$next,$back);

	open(IN,"$pastno") || &error("Open Error: $pastno");
	$no = <IN>;
	close(IN);

	$in{'pastlog'} =~ s/\D//g;
	if (!$in{'pastlog'}) { $in{'pastlog'} = $no; }

	&header;
	print <<"EOM";
[<a href="$script?">掲示板に戻る</a>]<hr>
<form action="$script" method="$method">
<input type=hidden name=mode value=past>
<table><tr><td><b>過去ログ</b> <select name=pastlog>
EOM

	# 過去ログ選択
	for ($i=$no; $i>0; --$i) {
		$i = sprintf("%04d", $i);
		next unless (-e "$pastdir$i\.cgi");
		if ($in{'pastlog'} == $i) {
			print "<option value=\"$i\" selected>$i\n";
		} else {
			print "<option value=\"$i\">$i\n";
		}
	}
	print "</select> <input type=submit value='移動'>";
	print "</td></form><td width=20></td>\n";

	$file = sprintf("%s%04d\.cgi", $pastdir,$in{'pastlog'});
	&search("past", $file);

	print "<dl>\n";
	$i=0;
	open(IN,"$file") || &error("Open Error: $file");
	while (<IN>) {
		($no,$dat,$nam,$eml,$sub,$com,$url) = split(/<>/);
		$i++;
		if ($i < $page + 1) { next; }
		if ($i > $page + $plog) { last; }

		&auto_link($com) if ($link);
		$com =~ s/([>]|^)(&gt;[^<]*)/$1<font color=\"$refcol\">$2<\/font>/g;

#		if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }
		if ($eml) { ($em0,$em1) = split(/\@/,$eml);
			$em1 =~ s/\./&\#46\;/g;
			$nam = "<script type=\"text/javascript\">\n<!-- //\n".
			"address(\"$em0\",\"$nam\",\"$em1\");\n// -->\n</script>\n".
			"<noscript><a href=\"$script?mode=noscript&page=$page\">$nam</a></noscript>\n";
		}
		if ($url) { $url = "&lt;<a href=\"$url\" target=\"_blank\">URL</a>&gt;"; }

		print "<dt><hr>[<b>$no</b>] <b style='color:$subcol'>$sub</b> ";
		print "投稿者：<b>$nam</b> 投稿日：$dat &nbsp; $url <br><br><dd>$com<br><br>\n";

	}
	close(IN);

	print "<dt><hr></dl>\n";

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

	print "<table><tr>\n";
	if ($back >= 0) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=past>\n";
		print "<input type=hidden name=pastlog value=\"$in{'pastlog'}\">\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=submit value=\"前の$plog件\"></td></form>\n";
	}
	if ($next < $i) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=past>\n";
		print "<input type=hidden name=pastlog value=\"$in{'pastlog'}\">\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=submit value=\"次の$plog件\"></td></form>\n";
	}
	print "</tr></table>\n</body></html>\n";
	exit;
}

#-------------------------------------------------
#  過去ログ生成
#-------------------------------------------------
sub past_make {
	local(@past) = @_;
	local($count,$pastfile,$i,$f,@data);

	# 過去ログファイル名を定義
	open(NO,"$pastno") || &error("Open Error: $pastno");
	$count = <NO>;
	close(NO);
	$pastfile = sprintf("%s%04d\.cgi", $pastdir,$count);

	# 過去ログを開く
	$i=0; $f=0;
	@data=();
	open(IN,"$pastfile") || &error("Open Error: $pastfile");
	while (<IN>) {
		$i++;
		push(@data,$_);

		# 最大件数を超えると中断
		if ($i >= $pastmax) { $f++; last; }
	}
	close(IN);

	# 最大件数をオーバーすると次ファイルを自動生成
	if ($f) {
		# カウントファイル更新
		$count++;
		open(NO,">$pastno") || &error("Write Error: $pastno");
		print NO $count;
		close(NO);

		$pastfile = sprintf("%s%04d\.cgi", $pastdir,$count);
		@data = @past;
	} else {
		unshift(@data,@past);
	}

	# 過去ログを更新
	open(OUT,">$pastfile") || &error("Write Error: $pastfile");
	print OUT @data;
	close(OUT);

	if ($f) { chmod(0666, $pastfile); }
}

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

	# ログチェック
	foreach ($logfile, $setfile) {
		if (-e $_) {
			print "<li>パス：$_ → OK\n";
			if (-r $_ && -w $_) { print "<li>パーミッション：$_ → OK\n"; }
			else { print "パーミッション：$_ → NG\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";
			if (-r $lockdir && -w $lockdir && -x $lockdir) {
				print "<li>ロックディレクトリのパーミッション：OK\n";
			} else {
				print "<li>ロックディレクトリのパーミッション：NG → $lockdir\n";
			}
		} else { print "<li>ロックディレクトリのパス：NG → $lockdir\n"; }
	}

	# 過去ログ
	@yn = ('なし', 'あり');
	print "<li>過去ログ：$yn[$pastkey]\n";
	if ($pastkey) {
		if (-e $pastno) {
			print "<li>パス：$pastno → OK\n";
			if (-r $pastno && -w $pastno) {
				print "<li>パーミッション：$pastno → OK\n";
			} else {
				print "<li>パーミッション：$pastno → NG\n";
			}
		} else {
			print "<li>パス：$pastno → NG\n";
		}
		if (-d $pastdir) {
			print "<li>パス：$pastdir → OK\n";
			if (-r $pastdir && -w $pastdir && -x $pastdir) {
				print "<li>パーミッション：$pastdir → OK\n";
			} else {
				print "<li>パーミッション：$pastdir → NG\n";
			}
		} else {
			print "<li>パス：$pastdir → NG\n";
		}
	}
	print "</ul>\n</body></html>\n";
	exit;
}

#-------------------------------------------------
#  スパム拡張オプションチェック
#-------------------------------------------------
sub option_check {
	local ($pw,$em,$cm,$ur) = @_;

	# 暗証キーをチェック
	local $pwdflag = 0;
	if ($ng_pass && $pw) {
		if ($pw =~ /\s/) { $pwdflag = 1; }
		if ($pw eq reverse($pw)) { $pwdflag = 1; }
	}
	if ($pwdflag) { &error("暗証キーが不正です。"); }

	# メールアドレスをチェック
	if ($no_email == 1 && $em) { &error("メールアドレスは入力禁止です。"); }
	if ($no_email == 2 && $em && $em!~ /^[\w\.\-]+＠[\w\.\-]+\.[a-zA-Z]{2,6}$/) {
		&error("アットマーク ＠ は全角で入力して下さい。"); }

	# URLの直接書き込みをチェック
	if ($comment_url) { 
		$urlnum = ($cm =~ s/http/http/ig);
		if ($urlnum) { &error("ＵＲＬは先頭のｈを抜いて書き込んで下さい。"); }
	}
}

#-------------------------------------------------
#  スパムチェック
#-------------------------------------------------
sub spam_check{
	local ($u2,$bt,$cm,$re,$ur,$em,$sb,$ad,$fc,$cn,$sb2,$sb3,$sb4,$lng,$ua) = @_;
	$spam = 0;

	# フォーム投稿からのチェック
	if ($u2 || $sb2 || $sb3 || $sb4) {
		$spam=1; $reason = "プログラム投稿(非ブラウザ)"; }

	if (!$spam) {
		if (!$bt || !$fc || !$ad) {
			$spam=1; $reason = "プログラム投稿(非フォーム投稿)"; }
	}

	if(!$spam) {
		if($ipcheckmode) {
			local $enadr = &encode_addr($addr);
			if ($ad ne $enadr) { $spam=1; $reason = "プログラム投稿(IP不一致)"; }
		}
	}

	if(!$spam) {
		if ($em && $em =~ /https?\:\/\//) {
			$spam=1; $reason = "プログラム投稿(email/URL不正)"; }
	}

	if(!$spam) {
		if ($ur && $ur =~ /^[\w\.\-]+\@[\w\.\-]+\.[a-zA-Z]{2,6}$/) {
			$spam=1; $reason = "プログラム投稿(email/URL不正)"; }
	}

	if (!$spam) {
		if (!$cn || !$cookiecheck) {
			local $posttime2 = time;
			local $timecheck2 = $posttime2 - $bt;
			if ($timecheck2 < 0) { $timecheck2 = 0 - $timecheck2; }
			if ($maxtime && $timecheck2 > $maxtime) {
				$spam=1; $reason = "プログラム投稿(投稿まで$timecheck2秒)"; }
			if ($mintime && $timecheck2 < $mintime) {
				$spam=1; $reason = "プログラム投稿(投稿まで$timecheck2秒)"; }
		}
	}

	# 日本語環境チェック
	if (!$spam) {
		if ($japanese) {
			if ($lng !~ /ja/i && $ua !~ /ja/i) {
				$spam=1; $reason = "不正ブラウザ(非日本語環境)"; }
		}
	}

	# スパム投稿チェック(多数URL記述対応)
	if (!$spam) {
		$urlnum = ($cm =~ s/http/http/ig);
		if ($spamurlnum && ($urlnum >= $spamurlnum)) { $spam=1; $reason = "URLの書き込みが$urlnum個"; }
	}

	# URL以外の文字数をチェック
	if(!$spam) {
		if ($characheck) {
			if ($cm =~ /(https?\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+\@\,]+)/ || $ur) {
				local $charamsg = $cm;
				$charamsg =~ s/(https?\:\/\/[\w\.\~\-\/\?\&\=\;\#\:\%\+\@\,]+)//g;
				$charamsg =~ s/[\s\n\r\t<br>]//g;
				$msgnum = length($charamsg);
				if ($msgnum < $characheck) {
					 $spam=1; $reason = "コメントの文字数が$msgnumバイトと少ない";
				}
			}
		}
	}

	# 全角文字(日本語)チェック
	if(!$spam) {
		if ($asciicheck) {
			if ($cm !~ /(\x82[\x9F-\xF2])|(\x83[\x40-\x96])/) {
				$spam=1; $reason = "コメントに日本語(ひらがな/カタカナ)がない";
			}
		}
	}

	if(!$spam) {
		if (-e $spamdata) {
			if ($spamdatacheck || !$re) {
				# 禁止URLデータをロード
				open(SPAM,"$spamdata") || &error("Open Error : $spamdata");
				$SPM = <SPAM>;
				close(SPAM);
				# 禁止URLの書き込みをチェック
				foreach (split(/\,/, $SPM)) {
					if(length($_) > 1) {
						if ($cm =~ /\Q$_\E/i) {
							$spam=1; $reason = "コメント内に禁止語句$_を含む投稿"; last; }
						if (!$spam && $ur =~ /\Q$_\E/i) {
							$spam=1; $reason = "URLに禁止語句$_を含む投稿"; last; }
						if (!$spam && $ngmail && $em =~ /\Q$_\E/i) {
							$spam=1; $reason = "メールアドレスに禁止語句$_を含む投稿"; last; }
						if (!$spam && $ngtitle && $sb =~ /\Q$_\E/i) {
							$spam=1; $reason = "タイトルに禁止語句$_を含む投稿"; last; }
					}
				}
			}
		}
	}

	if(!$spam) {
		if ($urlcheck) {
			if ($urlcheck eq 2 || !$re) {
				# URLのコメントへの重複書き込みをチェック
				if($ur) {
					$ur =~ s/\/$//;
					if ($cm =~ /\Q$ur\E/i) {
						if ($' !~ /(^\/?[\w\?]+?)/)  {
							$spam=1; $reason = "コメント内にURL欄と同じURLを含む投稿";
						}
					}
				}
			}
		}
	}

	# 携帯除外
	if(!$keitaicheck && $type ne 'p') { $spam = 0; }

	return ($spam,$reason);
}

#-------------------------------------------------
#  スパムログ記録
#-------------------------------------------------
sub write_spamlog {
	local $num = ($in{'comment'} =~ s/http/http/ig);
	if($num >= $maxurl) { $in{'comment'} ="メッセージ内のURL数が$maxurl以上のため削除"; }
	$in{'comment'} =~ s/"/&quot;/g;
	$times = time;
	if (!$in{"$bbscheckmode"}) { $in{"$bbscheckmode"} = $times; }
	push (@spamlog,"$no<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$pwd<>$time<>$reason<>$in{\"$bbscheckmode\"}<>$ENV{'HTTP_REFERER'}<>$ENV{'HTTP_USER_AGENT'}<>$times<>\n");
	if (-e $spamlogfile) {
		open(OUT,">>$spamlogfile") || &error("Write Error");
		print OUT @spamlog;
		close(OUT);
	} else {
		open(OUT,">$spamlogfile");
		chmod (0606,"$spamlogfile");
		print OUT @spamlog;
		close(OUT);
	}

	# 古いスパムログを削除
	if ($spamlog_max) {
		while ((-s $spamlogfile) > $spamlog_maxfile ) {
			open(IN,"$spamlogfile") || &error("Open Error : >$spamlogfile");
			@spamlog = <IN>;
			close(IN);

			shift(@spamlog);

			open(OUT,">$spamlogfile") || &error("Write Error : $spamlogfile");
			print OUT @spamlog;
			close(OUT);
		}
	}

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

#-------------------------------------------------
#  スパムログ削除
#-------------------------------------------------
sub del_spamlog {
	local $checktime = shift;
	$i=0;
	$flag=0;
	@newspm = ();
	open(IN,"$spamlogfile") || &error("Open Error: $spamlogfile");
	while (<IN>) {
		$i++;
		local ($no,$date,$name,$email,$sub,$comment,$url,$host,$pwd,$tim,
		$reason,$fcheck,$referer,$useragent) = split(/<>/);
		if ($fcheck eq $checktime) {
			$flag=1;
			$_ = "";
		} else {
			$_ = "$no<>$date<>$name<>$email<>$sub<>$comment<>$url<>$host<>$pwd<>$tim<>$reason<>$fcheck<>$referer<>$useragent<>\n";
		}
		push(@newspm,"$_");
	}
	close(IN);

	open(OUT,">$spamlogfile") || &error("Write Error : $spamlogfile");
	print OUT @newspm;
	close(OUT);
}

#-------------------------------------------------
#  プレビューチェック
#-------------------------------------------------
sub previewcheck {
	$in{"$bbscheckmode"} = &decode_bbsmode($in{"$bbscheckmode"});
	if ($mode eq "$writevalue") {
		if ($keychange) { ($in{'email'},$in{'url'})=($in{'url'},$in{'email'}); }
		if ($previewtime) {
			if ($in{'pview'} ne "on") {
				local $posttime = time;
				$timecheck = $posttime - $in{"$bbscheckmode"};
				if ($timecheck < 0) { $timecheck2 = 0 - $timecheck; }
				if ($timecheck <= $maxtime) {
					if ($timecheck > $previewmax) { $mode = "previewmode"; }
				}
				if ($timecheck >= $mintime) {
					if ($timecheck < $previewmin) { $mode = "previewmode"; }
				}
			}
		}
	}
}

#-------------------------------------------------
#  プレビュー画面
#-------------------------------------------------
sub previewmode {
	local $timecheck = shift;
	$time     = time;
	$date     = &get_time($time);
	if ($in{'pwd'} ne "") { $pwd = &encrypt($in{'pwd'}); }
	$reason   = "プレビューモードトラップ($timecheck秒)";

	# プレビューログの記録
	if ($spamlog) { &write_spamlog; }
	$in{"$bbscheckmode"} = &encode_bbsmode($in{"$bbscheckmode"});

	&header;
	print <<EOM;
<form action="$script" method="$method">
<input type=hidden name=$bbscheckmode value=$in{"$bbscheckmode"}>
<!--//
<input type=hidden name=mode value="write">
//-->
<input type=hidden name=pwd value="$in{'pwd'}">
<input type=hidden name=name value="$in{'name'}">
<input type=hidden name=mail value="$in{'mail'}">
<input type=hidden name=email value="$in{'email'}">
<input type=hidden name=url value="$in{'url'}">
<input type=hidden name=sub value="$in{'sub'}">
<input type=hidden name=comment value="$in{'comment'}">
<input type=hidden name=pview value="on">
<input type=hidden name=$formcheck value=$in{"$formcheck"}>
EOM
	$in{'name'} =~ s/"/&quot;/g;
	$in{'sub'}  =~ s/"/&quot;/g;
	$in{'comment'} =~ s/"/&quot;/g;

	# URL
	if ($in{'url'} eq "http://") { $in{'url'} = ""; }

	# 日本語チェック
	if ($in{'comment'} =~ /(\x82[\x9F-\xF2])/) {
		$checked0 = "checked"; $checked1 = "";
		$in{'url'} =~ s/\/$//;
		$in{'email'} =~ s/\/$//;
		# URL重複チェック
		if ($in{'url'} && $in{'comment'} =~ /\Q$in{'url'}\E/i ||
			$in{'email'} && $in{'comment'} =~ /\Q$in{'email'}\E/i) {
			if ($' !~ /(^\/?[\w\?]+?)/)  {
				$checked0 = ""; $checked1 = "checked";
			}
		}
	} else { $checked0 = ""; $checked1 = "checked"; }

	if ($type eq 'p') {
		print <<EOM;
<div align=center>
▼ 内容を確認し、"投稿する"をチェックして投稿して下さい。<br>
<br>
<table border=1 width='90%' cellspacing=0 cellpadding=10>
<tr><td bgcolor="$tblCol">
<table>
<tr>
  <td><b>お名前</b></td>
  <td>$in{'name'}</td>
</tr>
<tr>
  <td><b>Ｅメール</b></td>
  <td>$in{'email'}</td>
</tr>
<tr>
  <td><b>タイトル</b></td>
  <td>$in{'sub'}</td>
</tr>
<tr>
  <td><b>参照先</b></td>
  <td>$in{'url'}</td>
</tr>
<tr>
  <td><b>メッセージ</b></td>
  <td></td>
</tr>
</table>
<blockquote>
<table cellspacing=10>
<tr>
<td valign=top>$in{'comment'}</td>
</tr></blockquote>
</table>
</table>
<p>
<table cellpadding=5>
<tr>
  <td colspan=2>
  <input type=radio name=mode value=$postvalue $checked0>投稿する&nbsp;&nbsp;
  <input type=radio name=mode value=regist $checked1><font color=#FF0000>投稿をやめる</font>
  </td>
</tr>
<tr>
  <td><div align=right>
   <input type=submit value=" 実行 ">
   </form></div></td>
   <td><form><div align=left>
     <input type=button value="前画面に戻る" onClick="history.back()">
     </div></form>
  </td>
</tr>
</table>
</form>
</div>
</body>
</html>
EOM
	  } else {
		print <<EOM;
▼ 内容を確認し、投稿を実行して下さい。
<hr>
おなまえ: 
<b style='color:#0000FF'>$in{'name'}</b><br>
題名: 
<b style='color:#0000FF'>$in{'sub'}</b><br>
Ｅメール: 
<b style='color:#0000FF'>$in{'email'}</b><br>
コメント<br>
<b style='color:#0000FF'>$in{'comment'}</b><br>
<hr>
<input type=radio name=mode value=$postvalue $checked0>投稿する
<br>
<input type=radio name=mode value=regist $checked1><font color=#FF0000>投稿をやめる</font>
<br>
<input type=submit value=" 実行 ">
</form>
<form>
<input type=button value="前画面に戻る" onClick="history.back()">
EOM
	}
	exit;
}

#------------------#
#  JavaScript無効  #
#------------------#
sub noscript {
&header;
print <<"EOM";
<table width="100%"><tr><th bgcolor="#008080">
  <font color="#FFFFFF">JavaScriptを利用したメールアドレス表\示について</font>
</th></tr></table>
<P><div align="center">
スパム(一方的迷惑メール)およびウイルス対策のため、JavaScriptを利用したメールアドレス表\示を採用しています。<br>
お手数をおかけしますが、投稿者のメールアドレスを表\示させるためには、JavaScriptを有効にしてください。<br>
<br>
<form action="$script" target="_top">
<input type=hidden name=page value="$page">
<input type=submit value="掲示板へ戻る">
</form>
</div>
<br><hr>
</body>
</html>
EOM
exit;
}


__END__