# pcom.pl  最終更新  2008/07/01

#┌─────────────────────────────────
#│ E-PAD (pcom.pl) - 2006/07/22
#│ Copyright (c) KentWeb
#│ webmaster@kent-web.com
#│ http://www.kent-web.com/
#└─────────────────────────────────

#-------------------------------------------------
#  記事表示
#-------------------------------------------------
sub html {
	local($flag,$i,$next,$back,@view,%oya,%nam,%dat,%tim);

	# スレッド個別表示の場合
	if ($mode eq "view") { &view; }
	# 新規投稿フォーム
	elsif ($mode eq 'shinki') { &shinki; }
	# 記事内のリンク・フォームからの修正・削除の認証
	elsif ($mode eq 'ninsho_edt' || $mode eq 'ninsho_del') { &ninsho_edt_del; }

	&header_js;
	print "<div align=\"center\">\n";
	print "$banner1<p>\n" if ($banner1 ne "<!-- 上部 -->");
	print <<EOM;
<b style="font-size:$t_size;color:$t_color">$title</b>
<hr width="90%">
[<a href="$home" target="_top">トップに戻る</a>]
EOM

	if ($rss_out >= 1) {
		print qq|[<a href="$rss_check">RSS</a>]\n|;
	}

	print <<EOM;
[<a href="$script?mode=howto">留意事項</a>]
[<a href="$script?mode=find">ワード検索</a>]
EOM
	if ($pastkey) {
		print qq |[<a href="$script?mode=past">過去ログ</a>]\n|;
	}
	if ($shinkiForm == 1) {
		print qq |[<a href="$script?mode=shinki">新規投稿</a>]\n|;
	}
	if ($WriteCnt >= 1) {
		print qq |[<a href="$script?mode=WCV">投稿ランキング</a>]\n|;
	}
	print <<EOM;
[<a href="$script?mode=admin">管理用</a>]
<hr width="90%">
</div>
EOM

	# 投稿フォーム
	if (!$shinkiForm) { &form(); }

	if ($page eq "") { $page = 0; }
	print "<div align=\"center\">\n";

# 通常
if (!$reson) {

	# 記事抽出
	$i=0;
	local(%res,%reno);
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		local($no,$no2,$dat,$nam,$tim) = (split(/<>/))[0,1,2,3,10];

		if (!$no2) { $i++; }
		if ($i < $page + 1) { next; }
		if ($i > $page + $pageLog) { next; }

		# レス記事
		if ($no2) {
			$nam{$no2} = $nam;
			$dat{$no2} = $dat;
			$tim{$no2} = $tim;

			if ($bbstype == 3) {
				$res{$no} = $_;
				# 新しいレスから表示
				if ($meslast_p == 1) { $reno{$no2} = "$no," . $reno{$no2};}
				# 初めのレスから表示（e-PAD標準）
				else { $reno{$no2} .= "$no,"; }
			}

			next;
		}

		push(@view,$_);
	}
	close(IN);

	# 記事表示
	$flag=0;
	foreach (@view) {
		local($no,$no2,$dat,$nam,$eml,$sub,$com,
			$url,$hos,$pw,$tim,$typ,$res,$chk,$col) = split(/<>/);

		# ログデータ追加に伴う処置
		$col =~ s/\r//g;
		$col =~ s/\n//g;

		# 未認証の記事
		if ($adChk && $chk == 1) { &chkMae; }

		if ($autolink) { &auto_link($com); }

		# 絵文字
		$sub = &o2p($sub);
		$nam = &o2p($nam);
		$com = &o2p($com);

		if (!$no2 && $flag) {
			print "</td></tr></table>\n";
			$flag=1;
		}
		print "<p><table border=\"1\" width=\"92%\" cellpadding=\"6\" cellspacing=\"1\" bgcolor=\"$tbl_col\"><tr><td>\n";
		$flag=1;
		print "<b style=\"color:$sub_col\">$sub</b> ";
		print "投稿者：<b>$nam</b> 投稿日：$dat &nbsp;";
		print "<font color=\"$num_col\">No.$no</font> &nbsp;";
		if ($eml) { &eml_henkan2($eml,$nam,$no); }
		print "<a href=\"$url\" target=\"_blank\"><img src=\"$imgurl/home.gif\" border=\"0\" align=\"top\" alt=\"Home\"></a>\n" if ($url);
		print "&nbsp;&nbsp;[<a href=\"$script?mode=view&no=$no&res=1&page=$page&bl=$in{'bl'}\" title=\"この記事に返信\">返信</a>]";
		if ($new_time > 0) {
			my $newsign = &get_newsign($tim);
			if ($newsign) { print "$newsign"; }
		}
		print "<br>\n";
		print "<table cellpadding=\"8\" border=\"0\" width=\"100%\">\n";
		print "<tr><td><img src=\"$imgurl/$typ.gif\" align=\"top\"></td>";
		if ($col ne '') { print "<td width=\"95%\"><font color=\"$col\">$com</font></td>\n"; }
		else { print "<td width=\"95%\">$com</td>\n"; }
		print <<"EOM";
<td width="3%" nowrap align="right" valign="bottom">
[<a href="$script?mode=ninsho_edt&amp;no=$no&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を修正する">修正</a>]<br>
[<a href="$script?mode=ninsho_del&amp;no=$no&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を削除する">削除</a>]</td>
</tr>
EOM
		if ($hostView >= 1 || $UAView >= 1) {
			print qq |<tr><td colspan="3" align="right">\n|;
			&hosUA_out($hos);
			print qq |</td></tr>\n|;
		}

		# 返信
		if ($res > 0) {
			# 記事全表示
			if ($bbstype == 3) {
				foreach $reno ( split(/,/, $reno{$no}) ) {
					local($no,$no2,$dat,$nam,$eml,$sub,$com,$url,$hos,
					$pw,$tim,$typ,$res,$chk,$col) = split(/<>/, $res{$reno});

					# ログデータ追加に伴う処置
					$col =~ s/\r//g;
					$col =~ s/\n//g;

					# 未認証の記事
					if ($adChk && $chk == 1) { &chkMae; }

					if ($autolink) { &auto_link($com); }

					# 絵文字
					$sub = &o2p($sub);
					$nam = &o2p($nam);
					$com = &o2p($com);

					print "<tr><td></td><td><hr size=\"1\" noshade><b style=\"color:$sub_col\">$sub</b> ";
					print "投稿者：<b>$nam</b> 投稿日：$dat &nbsp;";
					print "<font color=\"$num_col\">No.$no</font> &nbsp;";
					if ($eml) { &eml_henkan2($eml,$nam,$no); }
					print "<a href=\"$url\" target=\"_blank\"><img src=\"$imgurl/home.gif\" border=\"0\" align=\"top\" alt=\"Home\"></a>\n" if ($url);
					if ($new_time > 0) {
						my $newsign = &get_newsign($tim);
						if ($newsign) { print "$newsign"; }
					}
					if ($col ne '') { print "<br><font color=\"$col\">$com</font></td>\n"; }
					else { print "<br>$com</td>\n"; }
					print <<"EOM";
<td width="3%" nowrap align="right" valign="bottom">
[<a href="$script?mode=ninsho_edt&amp;no=$no&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を修正する">修正</a>]<br>
[<a href="$script?mode=ninsho_del&amp;no=$no&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を削除する">削除</a>]</td>
</tr>
EOM
					if ($hostView >= 1 || $UAView >= 1) {
						print qq |<tr><td colspan="3" align="right">\n|;
						&hosUA_out($hos);
						print qq |</td></tr>\n|;
					}
				}

			# 記事数のみ（リンク表示）
			} else {
				print "<tr><td colspan=\"2\">";
				print "[<a href=\"$script?mode=view&no=$no&page=$page&bl=$in{'bl'}\" title=\"レスを全表\示\">レス表\示($res)</a>]\n";
				print "更新日：$dat{$no} - <b>$nam{$no}</b>";
				if ($new_time > 0) {
					my $newsign = &get_newsign($tim{$no});
					if ($newsign) { print "$newsign"; }
				}
				print "</td></tr>\n";
			}
		}

		print "</table>\n";
	}

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

# レスも一緒に表示
} else {

	$i=0;
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		local($no,$no2,$dat,$nam,$tim) = (split(/<>/))[0,1,2,3,10];

		if (!$no2) { $i++; }
		if ($i < $page + 1) { next; }
		if ($i > $page + $pageLog) { next; }

		# レス記事
		if ($no2) {
			$nam{$no2} = $nam;
			$dat{$no2} = $dat;
			$tim{$no2} = $tim;

			if ($bbstype == 3) {
				$res{$no} = $_;
				# 新しいレスから表示
				if ($meslast_p == 1) { $reno{$no2} = "$no," . $reno{$no2};}
				# 初めのレスから表示（e-PAD標準）
				else { $reno{$no2} .= "$no,"; }
			}

			next;
		}

		push(@view,$_);
	}
	close(IN);

	foreach (@view) {
		local($no,$no2,$dat,$nam,$eml,$sub,$com,
			$url,$hos,$pw,$tim,$typ,$res,$chk,$col) = split(/<>/);

		# ログデータ追加に伴う処置
		$col =~ s/\r//g;
		$col =~ s/\n//g;

		# 未認証の記事
		if ($adChk && $chk == 1) { &chkMae; }

		if ($autolink) { &auto_link($com); }

		# 絵文字
		$sub = &o2p($sub);
		$nam = &o2p($nam);
		$com = &o2p($com);

		if (!$no2 && $flag) {
			print "</TD></TR></TABLE>\n";
			$flag=1;
		}

		if (!$no2) {
			print "<p><TABLE border=1 width=\"92%\" cellpadding=6 cellspacing=1 bgcolor=\"$tbl_col\"><TR><TD>\n";
			$flag=1;
		} else {
			print qq |<hr size="1" width="90%">\n|;
		}
		print "<table cellpadding=5 border=0><tr>\n";
		if ($no2) {
			print "<td width=32 rowspan=2 nowrap>&nbsp;&nbsp;&nbsp;</td>";
		}
		print "<td colspan=3><b style=\"color:$sub_col\">$sub</b> ";
		print "投稿者：<b>$nam</b> 投稿日：$dat &nbsp;";
		print "<font color=\"$num_col\">No.$no</font> &nbsp;";
		if ($eml) { &eml_henkan2($eml,$nam,$no); }
		print "<a href=\"$url\" target=\"_blank\"><img src=\"$imgurl/home.gif\" border=0 align=top alt='Home'></a>\n" if ($url);
		if (!$no2) {
			print "&nbsp;[<a href=\"$script?mode=view&no=$no&res=1&page=$page&bl=$in{'bl'}\" title=\"この記事に返信\">返信</a>]";
		}
		if ($new_time > 0) {
			my $newsign = &get_newsign($tim);
			if ($newsign) { print "$newsign"; }
		}
		print "</td></tr>\n";
		print "<tr><td><img src=\"$imgurl/$typ.gif\" align=\"top\"></td>";
		if ($col ne '') { print "<td width=\"95%\"><font color=\"$col\">$com</font></td>\n"; }
		else { print "<td width=\"95%\">$com</td>\n"; }
		print <<"EOM";
<td width="3%" nowrap align="right" valign="bottom">
[<a href="$script?mode=ninsho_edt&amp;no=$no&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を修正する">修正</a>]<br>
[<a href="$script?mode=ninsho_del&amp;no=$no&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を削除する">削除</a>]</td>
</tr></table>
EOM
		if ($hostView >= 1 || $UAView >= 1) {
			print qq |<div align="right">\n|;
			&hosUA_out($hos);
			print qq |</div>\n|;
		}

		# 返信
		if ($res > 0) {
			# 記事全表示
			foreach $reno ( split(/,/, $reno{$no}) ) {
				local($no,$no2,$dat,$nam,$eml,$sub,$com,$url,$hos,
				$pw,$tim,$typ,$res,$chk,$col) = split(/<>/, $res{$reno});

				# ログデータ追加に伴う処置
				$col =~ s/\r//g;
				$col =~ s/\n//g;

				# 未認証の記事
				if ($adChk && $chk == 1) { &chkMae; }

				if ($autolink) { &auto_link($com); }

				# 絵文字
				$sub = &o2p($sub);
				$nam = &o2p($nam);
				$com = &o2p($com);

				if (!$no2) {
					print "<p><TABLE border=1 width=\"92%\" cellpadding=6 cellspacing=1 bgcolor=\"$tbl_col\"><TR><TD>\n";
					$flag=1;
				} else {
					print qq |<hr size="1" width="90%">\n|;
				}
				print "<table cellpadding=5 border=0><tr>\n";
				if ($no2) {
					print "<td width=32 rowspan=2 nowrap>&nbsp;&nbsp;&nbsp;</td>";
				}
				print "<td colspan=3><b style=\"color:$sub_col\">$sub</b> ";
				print "投稿者：<b>$nam</b> 投稿日：$dat &nbsp;";
				print "<font color=\"$num_col\">No.$no</font> &nbsp;";
				if ($eml) { &eml_henkan2($eml,$nam,$no); }
				print "<a href=\"$url\" target=\"_blank\"><img src=\"$imgurl/home.gif\" border=0 align=top alt='Home'></a>\n" if ($url);
				if (!$no2) {
					print "&nbsp;[<a href=\"$script?mode=view&no=$no&res=1&page=$page&bl=$in{'bl'}\" title=\"この記事に返信\">返信</a>]";
				}
				if ($new_time > 0) {
					my $newsign = &get_newsign($tim);
					if ($newsign) { print "$newsign"; }
				}
				print "</td></tr>\n";
				print "<tr><td><img src=\"$imgurl/$typ.gif\" align=\"top\"></td>";
				if ($col ne '') { print "<td width=\"95%\"><font color=\"$col\">$com</font></td>\n"; }
				else { print "<td width=\"95%\">$com</td>\n"; }
				print <<"EOM";
<td width="3%" nowrap align="right" valign="bottom">
[<a href="$script?mode=ninsho_edt&amp;no=$no&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を修正する">修正</a>]<br>
[<a href="$script?mode=ninsho_del&amp;no=$no&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を削除する">削除</a>]</td>
</tr></table>
EOM
				if ($hostView >= 1 || $UAView >= 1) {
					print qq |<div align="right">\n|;
					&hosUA_out($hos);
					print qq |</div>\n|;
				}
			}
		}
	}

	print "</TD></TR></TABLE><br>\n";
}

	# ページ繰越定義
	my ($m,$n);
	my $next = $page + $pageLog;
	my $back = $page - $pageLog;

	print "<table width=\"92%\" border=\"0\"><tr>\n";
	my $flag=0;
	if ($back >= 0) {
		if ($in{'bl'}) { $m = $in{'bl'}; } else { $m = 0; }
		# 1ページ目の場合
		if ($in{'page'} eq $pageLog*10*$m) { $m--; }

		$flag=1;
		print "<td valign=top>";
		print "<form action=\"$script\" method=\"GET\">\n";
		print "<input type=\"hidden\" name=\"page\" value=\"$back\">\n";
		print "<input type=\"hidden\" name=\"bl\" value=\"$m\">\n";
		print "<input type=\"submit\" value=\"前の$pageLog件\"></td></form>\n";
	}
	if ($next < $i) {
		if ($in{'bl'}) { $n = $in{'bl'}; } else { $n = 0; }
		# 10ページ目の場合
		if ($in{'page'} eq ($pageLog*10*$n)+($pageLog*9)) { $n++; }

		$flag=1;
		print "<td valign=top>";
		print "<form action=\"$script\" method=\"GET\">\n";
		print "<input type=\"hidden\" name=\"page\" value=\"$next\">\n";
		print "<input type=\"hidden\" name=\"bl\" value=\"$n\">\n";
		print "<input type=\"submit\" value=\"次の$pageLog件\"></td></form>\n";
	}

	# ページ移動ボタン表示
	if ($flag) {
		print "<td width=\"7\"></td><td class=\"num\" nowrap>\n";
		&mvbtn("$script?page=", $i, $pageLog);
		print "</td>\n";
	} else {
		print "<td nowrap>（次のページはありません）</td>\n";
	}

	print <<EOM;
<td nowrap align="right" width="100%">
<form action="$script" method="$method">
<select name="mode">
<option value="usredit">修正
<option value="usrdel">削除
</select>
記事No<input type="text" name="no" size="3" style="ime-mode:inactive">
暗証キー<input type="password" name="pwd" size="4" maxlength="8">
<input type="submit" value="送信"></td></form>
</tr></table></div><br>
<!-- 著作権表\示（削除不可）-->
<div align="center">$banner2
<p><!-- $ver -->
<span style="font-size:10px;font-family:Verdana,Helvetica,Arial">
- <a href="http://www.kent-web.com/" target="_top">e-PAD</a> -<br>
Modified by <a href="http://vvv.ciao.jp/yy/index.html" target="_top">Tambo</a><!-- Rev $rev -->
</span></div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  スレッド個別表示
#-------------------------------------------------
sub view {
	&header_js;
	print <<EOM;
<form action="$script" method="$method">
<input type="hidden" name="page" value="$page">
<input type="hidden" name="bl" value="$in{'bl'}">
<input type="submit" value="&lt;&lt; 戻る">
</form>
EOM

	# ログ展開
	local(@view);
	my ($oya);
	open(IN,"$logfile") || &error("Open Error: $logfile");
	while (<IN>) {
		local($no,$no2) = split(/<>/);

		# 該当スレッド取得

#		if ($in{'no'} == $no || $in{'no'} == $no2) {
#			push(@view,$_);
#		}

		# 親記事
		if ($in{'no'} == $no) {
			# 新しいレスから表示
			if ($meslast_p == 1) { $oya = $_; }
			# 初めのレスから表示（e-PAD標準）
			else { push(@view,$_); }
		# レス記事
		} elsif ($in{'no'} == $no2) {
			push(@view,$_);
		}

	}
	close(IN);

	# 新しいレスから表示
	if ($meslast_p == 1) {
		if ($oya) { push (@view,$oya); }
		@view = reverse(@view);
	}

	if (!@view) { &error('該当の記事が存在しません'); }

	# 返信モード
	if ($in{'res'} == 1) {
		local($no,$no2,$resub,$recom,$chk) = (split(/<>/,$view[0]))[0,1,5,6,13];

		if ($adChk && $chk == 1) { &error('認証されるまで返信できません'); }

		# 標準タイプ
		if ($bbstype == 1) {
			$resub =~ s/^Re:\[\d+\]\s*//g;
			$resub = "Re:[$no] $resub";
			$recom = "&gt; $recom";
			$recom =~ s/<br>/\n&gt; /ig;
##			$recom = &o2ije($recom);
			# 絵文字復元（投稿用文字）
			$recom = &o2ije_2($recom);

		# レスタイプ
		} else {
			if ($resub !~ /^Re:/i) {
				$resub = "Re: $resub";
			}
			$recom = "";
		}
##		$resub = &o2ije($resub);
		# 絵文字復元（投稿用文字）
		$resub = &o2ije_2($resub);

		if ($no2) {
			print <<EOM;
<div align="center">
<hr width="400">
<h3>この記事には返信できません</h3>
<hr width="400">
</div>
<p>
EOM

		} else {
			# 投稿フォーム
			&form($resub,$recom);
		}
	}

	print <<EOM;
<div align="center">
<table border="1" width="92%" cellpadding="6" cellspacing="1" bgcolor="$tbl_col">
<tr><td>
EOM

	# 表示開始
	foreach (@view) {
		local($no,$no2,$dat,$nam,$eml,$sub,$com,
			$url,$hos,$pw,$tim,$typ,$res,$chk,$col) = split(/<>/);

		# ログデータ追加に伴う処置
		$col =~ s/\r//g;
		$col =~ s/\n//g;

		# 未認証の記事
		if ($adChk && $chk == 1) { &chkMae; }

		if ($autolink) { &auto_link($com); }

		# 絵文字
		$sub = &o2p($sub);
		$nam = &o2p($nam);
		$com = &o2p($com);

		print "<table cellpadding=\"5\" border=\"0\"><tr>\n";
		if ($no2) {
			print qq |<hr size="1" width="90%">\n|;
			print "<td width=\"32\" rowspan=\"2\" nowrap>&nbsp;&nbsp;&nbsp;</td>";
		}
		print "<td colspan=\"3\"><b style=\"color:$sub_col\">$sub</b> ";
		print "投稿者：<b>$nam</b> 投稿日：$dat &nbsp;";
		print "<font color=\"$num_col\">No.$no</font> &nbsp;";
###		print "<a href=\"mailto:$eml\"><img src=\"$imgurl/mail.gif\" border=\"0\" align=\"top\" alt=\"Mail\"></a>\n" if ($eml);
		if ($eml) { &eml_henkan2($eml,$nam,$no); }
		print "<a href=\"$url\" target=\"_blank\"><img src=\"$imgurl/home.gif\" border=\"0\" align=\"top\" alt=\"Home\"></a>\n" if ($url);
		if (!$no2) {
			print "&nbsp;[<a href=\"$script?mode=view&no=$in{'no'}&res=1&page=$page&bl=$in{'bl'}\">返信</a>]";
		}
		if ($new_time > 0) {
			my $newsign = &get_newsign($tim);
			if ($newsign) { print "$newsign"; }
		}
		print "</td></tr>\n";
		print "<tr><td><img src=\"$imgurl/$typ.gif\" align=\"top\"></td>";
		if ($col ne '') { print "<td width=\"95%\"><font color=\"$col\">$com</font></td>\n"; }
		else { print "<td width=\"95%\">$com</td>\n"; }
		print <<"EOM";
<td width="3%" nowrap align="right" valign="bottom">
[<a href="$script?mode=ninsho_edt&amp;no=$no&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を修正する">修正</a>]<br>
[<a href="$script?mode=ninsho_del&amp;no=$no&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を削除する">削除</a>]</td>
</tr>
</table>
EOM
		if ($hostView >= 1 || $UAView >= 1) {
			print qq |<div align="right">\n|;
			&hosUA_out($hos);
			print qq |</div>\n|;
		}
	}

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

#-------------------------------------------------
#  過去ログ表示
#-------------------------------------------------
sub past {
	if (!$pastkey) { &error('過去ログ機能\は無効です'); }

	my $mode2;
	if ($mode eq 'past_v') { $mode2 = 'past'; }
	else { $mode2 = $mode; }

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

	$in{'pastlog'} =~ s/\D//g;
	if (!$in{'pastlog'}) { $in{'pastlog'} = $pastno; }
	$in{'pastlog'} = sprintf( '%04d' , $in{'pastlog'} );
	my $file = sprintf("%s/%04d\.cgi", $pastdir,$in{'pastlog'});

	&header_js;
	print <<"EOM";
[<a href="$script?">掲示板に戻る</a>]<br>
<table border=0>
<form action="$script" method="GET">
<input type="hidden" name="mode" value="$mode2">
<tr><th>過去ログ</th><td><select name="pastlog">
EOM
	# 過去ログ選択
	for ($i=$pastno; $i>0; --$i) {
		$i = sprintf("%04d", $i);
		next unless (-e "$pastdir/$i\.cgi");
		if ($in{'pastlog'} == $i) {
			print qq |<option value="$i" selected>$i\n|;
		} else {
			print qq |<option value="$i">$i\n|;
		}
	}
	print <<EOM;
</select>
<input type="submit" value="移動"></td></form>
</tr>
<tr><th>検　索</th>
<td>
<form action="$script" method="GET">
<input type="hidden" name="mode" value="$mode2">
<select name="pastlog">
EOM
	# 過去ログ選択
	for ($i=$pastno; $i>0; --$i) {
		$i = sprintf("%04d", $i);
		next unless (-e "$pastdir/$i\.cgi");
		if ($in{'pastlog'} == $i) {
			print qq |<option value="$i" selected>$i\n|;
		} else {
			print qq |<option value="$i">$i\n|;
		}
	}
	print qq |</select>\n|;
	print <<EOM;
キーワード <input type="text" name="word" size="35" value="$in{'word'}">
条件 <select name="cond">
EOM
	if (!$in{'cond'}) { $in{'cond'} = "AND"; }
	foreach ("AND", "OR") {
		if ($in{'cond'} eq $_) {
			print qq |<option value="$_" selected>$_\n|;
		} else {
			print qq |<option value="$_">$_\n|;
		}
	}
	print qq |</select> 表\示 <select name="view">\n|;
	if (!$in{'view'}) { $in{'view'} = 10; }
	foreach (10,15,20,25) {
		if ($in{'view'} == $_) {
			print qq |<option value="$_" selected>$_件\n|;
		} else {
			print qq |<option value="$_">$_件\n|;
		}
	}
	print <<EOM;
</select>
<input type="submit" value="検索"></td></form>
</tr>
</table>
EOM

	# 検索実行
	if ($in{'word'} ne "") {

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

		# 検索
		print "<dl>\n";
		my $i=0;
		open(IN,"$file") || &error("Open Error: $file");
		while (<IN>) {
			local($no,$no2,$dat,$nam,$eml,$sub,$com,
				$url,$hos,$pw,$tim,$typ,$res,$chk,$col) = split(/<>/);

			# ログデータ追加に伴う処置
			$col =~ s/\r//g;
			$col =~ s/\n//g;

			# 未認証の記事
			if ($adChk && $chk == 1) { &chkMae; }

			my $flag=0;
			foreach my $wd (@wd) {
				if ($chk == 1) { last; }
				if (index("$nam $eml $sub $com $url",$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; }

				if ($eml) { $nam = &eml_henkan($eml,$nam,$no); }

				# 絵文字
				$sub = &o2p($sub);
				$nam = &o2p($nam);
				$com = &o2p($com);

				print "<dt><hr>[<b>$no</b>] ";
				print "<font color=\"$sub_col\"><b>$sub</b></font> ";
				print "投稿者：<b>$nam</b> 投稿日：$dat<br><br><dd>";
				if ($col ne '') { print qq |<font color="$col">$com</font>|; }
				else { print $com; }
				print "<p><a href=\"$url\" target=\"_blank\">$url</a>" if ($url);
				print "<br><br>\n";
			}
		}
		close(IN);

		print "<dt><hr>検索結果：<b>$i</b>件</dl>\n";

		my $next = $page + $in{'view'};
		my $back = $page - $in{'view'};
		my $enwd = &url_enc($in{'word'});
		if ($back >= 0) {
			print "[<a href=\"$script?mode=$mode2&pastlog=$in{'pastlog'}&page=$back&word=$enwd&view=$in{'view'}&cond=$in{'cond'}\">前の$in{'view'}件</a>]\n";
		}
		if ($next < $i) {
			print "[<a href=\"$script?mode=$mode2&pastlog=$in{'pastlog'}&page=$next&word=$enwd&view=$in{'view'}&cond=$in{'cond'}\">次の$in{'view'}件</a>]\n";
		}

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

	print qq |<hr>\n【<a href="$script?mode=past&amp;pastlog=$in{'pastlog'}">標準表\示</a>/<a href="$script?mode=past_p&amp;pastlog=$in{'pastlog'}">一覧表\示</a>】\n|;

	my $i=0;

# 一覧表示
if ($mode eq 'past_p') {
	print qq |<blockquote>\n|;

	$pageLog *= 2;
	open(IN,"$file") || &error("Open Error: $file");
	while (<IN>) {
		local($no,$no2,$dat,$nam,$eml,$sub,$com,
			$url,$hos,$pw,$tim,$typ,$res,$chk) = split(/<>/);

		if (!$no2) { $i++; }
		if ($i < $page + 1) { next; }
		if ($i > $page + $pageLog) { next; }

		if (!$no2) {
			# 未認証の記事
			if ($adChk && $chk == 1) { &chkMae; }

			# 絵文字
			$sub = &o2p($sub);
			$nam = &o2p($nam);

			# 記事を表示
			print qq |<img src=\"$imgurl/$typ.gif\" align=\"absmiddle\">【<span style=\"color:$sub_col\"><a href="$script?mode=past_v&amp;pastlog=$in{'pastlog'}&amp;no=$no">$sub</a></span>】&nbsp;&nbsp;<b>$nam</b>&nbsp;&nbsp;$dat&nbsp;&nbsp;<font color=\"$num_col\">No.$no</font>|;
			if ($res) { print qq |&nbsp;&nbsp;(Res：$res)|; }
			print qq |<br>\n|;
		}
	}
	close(IN);
	print qq |</blockquote>\n|;

# スレッド全体表示
} elsif ($mode eq 'past_v') {
	if ($in{'no'} eq '') { &error("記事番号が指定されていません"); }

	print "<div align=\"center\">\n";
	my $flag;
	open(IN,"$file") || &error("Open Error: $file");
	while (<IN>) {
		local($no,$no2,$dat,$nam,$eml,$sub,$com,
			$url,$hos,$pw,$tim,$typ,$res,$chk,$col) = split(/<>/);

		if ($no eq $in{'no'} || $no2 eq $in{'no'}) {
			$flag=1;

			# ログデータ追加に伴う処置
			$col =~ s/\r//g;
			$col =~ s/\n//g;

			# 未認証の記事
			if ($adChk && $chk == 1) { &chkMae; }

			if ($autolink) { &auto_link($com); }

			# 絵文字
			$sub = &o2p($sub);
			$nam = &o2p($nam);
			$com = &o2p($com);

			if (!$no2) {
				print "<p><TABLE border=1 width=\"92%\" cellpadding=6 cellspacing=1 bgcolor=\"$tbl_col\"><TR><TD>\n";
			} else {
				print qq |<hr size="1" width="90%">\n|;
			}
			print "<table cellpadding=5 border=0><tr>\n";
			if ($no2) {
				print "<td width=32 rowspan=2 nowrap>&nbsp;&nbsp;&nbsp;</td>";
			}
			print "<td colspan=2><b style=\"color:$sub_col\">$sub</b> ";
			print "投稿者：<b>$nam</b> 投稿日：$dat &nbsp;";
			print "<font color=\"$num_col\">No.$no</font> &nbsp;";
			if ($eml) { &eml_henkan2($eml,$nam,$no); }
			print "<a href=\"$url\" target=\"_blank\"><img src=\"$imgurl/home.gif\" border=0 align=top alt='Home'></a>\n" if ($url);
			if ($new_time > 0) {
				my $newsign = &get_newsign($tim);
				if ($newsign) { print "$newsign"; }
			}
			print "</td></tr>\n";
			print "<tr><td><img src=\"$imgurl/$typ.gif\" align=\"top\"></td>";
			if ($col ne '') { print qq |<td width="95%"><font color="$col">$com</font></td></tr></table>\n|; }
			else { print qq |<td width="95%">$com</td></tr></table>\n|; }
			if ($hostView >= 1 || $UAView >= 1) {
				print qq |<div align="right">\n|;
				&hosUA_out($hos);
				print qq |</div>\n|;
			}
		}
	}
	close(IN);

	if (!$flag) { &error('該当の記事が見つかりません'); }
	else { print "</TD></TR></TABLE><br>\n</div>\n"; }
	print <<EOM;
<div align="center">
<form>
<input type="button" value="前画面に戻る" onClick="history.back()">
</form>
</div>
</body>
</html>
EOM
	exit;

# 標準表示
} else {
	print "<div align=\"center\">\n";

	my $flag;
	open(IN,"$file") || &error("Open Error: $file");
	while (<IN>) {
		local($no,$no2,$dat,$nam,$eml,$sub,$com,
			$url,$hos,$pw,$tim,$typ,$res,$chk,$col) = split(/<>/);

		if (!$no2) { $i++; }
		if ($i < $page + 1) { next; }
		if ($i > $page + $pageLog) { next; }

		# ログデータ追加に伴う処置
		$col =~ s/\r//g;
		$col =~ s/\n//g;

		# 未認証の記事
		if ($adChk && $chk == 1) { &chkMae; }

		if ($autolink) { &auto_link($com); }

		# 絵文字
		$sub = &o2p($sub);
		$nam = &o2p($nam);
		$com = &o2p($com);

		if (!$no2 && $flag) {
			print "</TD></TR></TABLE>\n";
			$flag=1;
		}
		if (!$no2) {
			print "<p><TABLE border=1 width=\"92%\" cellpadding=6 cellspacing=1 bgcolor=\"$tbl_col\"><TR><TD>\n";
			$flag=1;
		} else {
			print qq |<hr size="1" width="90%">\n|;
		}
		print "<table cellpadding=5 border=0><tr>\n";
		if ($no2) {
			print "<td width=32 rowspan=2 nowrap>&nbsp;&nbsp;&nbsp;</td>";
		}
		print "<td colspan=2><b style=\"color:$sub_col\">$sub</b> ";
		print "投稿者：<b>$nam</b> 投稿日：$dat &nbsp;";
		print "<font color=\"$num_col\">No.$no</font> &nbsp;";
		if ($eml) { &eml_henkan2($eml,$nam,$no); }
		print "<a href=\"$url\" target=\"_blank\"><img src=\"$imgurl/home.gif\" border=0 align=top alt='Home'></a>\n" if ($url);
		if ($new_time > 0) {
			my $newsign = &get_newsign($tim);
			if ($newsign) { print "$newsign"; }
		}
		print "</td></tr>\n";
		print "<tr><td><img src=\"$imgurl/$typ.gif\" align=\"top\"></td>";
		if ($col ne '') { print qq |<td width="95%"><font color="$col">$com</font></td></tr></table>\n|; }
		else { print qq |<td width="95%">$com</td></tr></table>\n|; }
		if ($hostView >= 1 || $UAView >= 1) {
			print qq |<div align="right">\n|;
			&hosUA_out($hos);
			print qq |</div>\n|;
		}
	}
	close(IN);
	print "</TD></TR></TABLE><br>\n</div>\n";
}

	# ページ繰越定義
	my ($m,$n);
	my $next = $page + $pageLog;
	my $back = $page - $pageLog;

	print "<blockquote>\n<table border=\"0\"><tr>\n";
	my $flag=0;
	if ($back >= 0) {
		if ($in{'bl'}) { $m = $in{'bl'}; } else { $m = 0; }
		# 1ページ目の場合
		if ($in{'page'} eq $pageLog*10*$m) { $m--; }

		$flag=1;
		print <<"EOM";
<td valign=top>
<form action="$script" method="GET">
<input type="hidden" name="mode" value="$mode2">
<input type="hidden" name="pastlog" value="$in{'pastlog'}">
<input type="hidden" name="page" value="$back">
<input type="hidden" name="bl" value="$m">
<input type="submit" value="前の$pageLog件"></td></form>
EOM
	}
	if ($next < $i) {
		if ($in{'bl'}) { $n = $in{'bl'}; } else { $n = 0; }
		# 10ページ目の場合
		if ($in{'page'} eq ($pageLog*10*$n)+($pageLog*9)) { $n++; }

		$flag=1;
		print <<"EOM";
<td valign=top>
<form action="$script" method="GET">
<input type="hidden" name="mode" value="$mode2">
<input type="hidden" name="pastlog" value="$in{'pastlog'}">
<input type="hidden" name="page" value="$next">
<input type="hidden" name="bl" value="$n">
<input type="submit" value="次の$pageLog件"></td></form>
EOM
	}

	# ページ移動ボタン表示
	if ($flag) {
		print "<td width=\"7\"></td><td class=\"num\" nowrap>\n";
		&mvbtn("$script?mode=$mode2&pastlog=$in{'pastlog'}&page=", $i, $pageLog);
		print "</td>\n";
	} else {
		print "<td nowrap>（次のページはありません）</td>\n";
	}

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

#-------------------------------------------------
#  投稿フォーム
#-------------------------------------------------
sub form {
	local($resub,$recom) = @_;

	# クッキー情報を取得
	local($cnam,$ceml,$curl,$cpwd,$ccol) = &get_cookie;
	if (!$curl) { $curl = "http://"; }

	if ($emform) {
	print <<EOM;
<blockquote>
<form action="$script" method="$method" name="moji">
<input type="hidden" name="mode" value="regist">
EOM

	} else {
	print <<EOM;
<blockquote>
<form action="$script" method="$method" name="_form">
<input type="hidden" name="mode" value="regist">
EOM
	}

	if ($bbstype > 1 && $in{'res'}) {
		print "<input type=\"hidden\" name=\"res\" value=\"$in{'no'}\">\n";
	}

	my ($a1,$a2,$a3) = &a1a2Get;
	print "<input type=\"hidden\" name=\"$a3\" value=\"$a2\">\n";
	print "<input type=\"hidden\" name=\"mUy24cJN\" value=\"$a1\">\n";

	&form2($cnam,$ceml,$resub,$recom,$curl);

	# 文字色情報
	if ($color ne '') {
		my @col = split(/\s+/, $color);

		if ($ccol eq "" || $ccol >= @col) { $ccol = 0; }

		# 文字色が1つの場合は選択肢を表示しない
		if (@col == 1) {
			print qq |<input type="hidden" name="color" value="0">\n|;
		} else {
			print qq |<tr><td nowrap><b>文字色</b></td><td>\n|;
			foreach (0 .. $#col) {
				if ($ccol eq $col[$_] || $ccol eq $_) {
					print qq |<input type="radio" name="color" value="$_" checked>|;
					print qq |<font color="$col[$_]">■</font>\n|;
				} else {
					print qq |<input type="radio" name="color" value="$_">|;
					print qq |<font color="$col[$_]">■</font>\n|;
				}
			}
			print qq |</td></tr>\n|;
		}
	}

	print <<EOM;
<tr>
  <td><b>暗証キー</b></td>
  <td>
    <input type="password" name="pwd" size="8" maxlength="8" value="$cpwd">
    &nbsp;&nbsp;&nbsp; <input type="checkbox" name="cook" value="1" checked>
    <font size="-1">クッキー情報を保存</font>
  </td>
</tr>
EOM

	# 投稿キー
	if ($regist_key >= 1) {
		require $regkeypl;
		my ($str_plain,$str_crypt,$regi_code) = &pcp_makekey;
		print <<EOM;
<tr><td><b>投稿キー</b></td>
<td><input type="text" name="regikey" size="8" style="ime-mode:inactive" class="f" value="">
<input type="hidden" name="strcrypt" value="$str_crypt">
EOM
		if ($regist_key == 1 || $regist_key == 2) {
			print qq |(投稿時 <img src="$registkeycgi?$str_crypt" align="absmiddle" alt="投稿キー"> を入力してください)</td></tr>|;
		} elsif ($regist_key > 2) {
			print qq |(投稿時 <b style='color: $moji_col; background-color:$back_col;'>$regi_code</b></font> を入力してください)</td></tr>|;
		}
	}

	print <<EOM;
</table>
</form>
</blockquote>
EOM
}

#-------------------------------------------------
#  入力フォーム
#-------------------------------------------------
sub form2 {
	my ($nam,$eml,$sub,$com,$url) = @_;
	if ($url eq '') { $url = 'http://'; }
	if ($com =~ /^<br>/) { $com = '<br>' . $com; }
	$com =~ s/<br>/\n/g;

	# 絵文字
	$sub = &emoji_fukugen_edt($sub);
	$nam = &emoji_fukugen_edt($nam);
	$com = &emoji_fukugen_edt($com);

	print <<EOM;
<table cellpadding="1" cellspacing="1">
<tr>
  <td><b>おなまえ</b></td>
  <td><input type="text" name="name" size="28" value="$nam"></td>
</tr>
<tr>
  <td><b>Ｅメール</b></td>
  <td><input type="text" name="email" size="28" value="$eml"></td>
</tr>
<tr>
  <td><b>タイトル</b></td>
  <td>
    <input type="text" name="sub" size="36" value="$sub">
    <input type="submit" value="送信する"><input type="reset" value="リセット">
  </td>
</tr>
<tr>
  <td colspan="2">
    <b>メッセージ</b> &nbsp;
EOM

	if ($emform) {
	print <<EOM;
<script type="text/javascript">
	<!--
	document.write("&nbsp;&nbsp;【絵文字入力&nbsp;&nbsp;<a href='javascript:iemoji()'>i-mode<\/a>&nbsp;&nbsp;");
	document.write("<a href='javascript:jemoji1()'>vodafone<\/a>&nbsp;&nbsp;");
	document.write("<a href='javascript:eemoji1()'>EZweb<\/a>】");
	// -->
</script>
<noscript>
	&nbsp;&nbsp;【絵文字入力&nbsp;&nbsp;<a href="$ihtm" target="_blank">i-mode<\/a>&nbsp;
	<a href="$j1htm" target="_blank">vodafone<\/a>&nbsp;
	<a href="$e1htm" target="_blank">EZweb<\/a>&nbsp;&nbsp;(要：JavaScript)】
</noscript>
EOM

	} else {
	print <<EOM;
	<font size="-1">
	[<a href="javascript:popup()" title="iモード絵文字を入力します">絵文字入力</a>]
	</font>
EOM
	}

	print <<EOM;
<br>
    <textarea name="comment" cols="56" rows="7" wrap="soft">$com</textarea>
  </td>
</tr>
<tr>
  <td><b>参照先</b></td>
  <td><input type="text" name="url" size="50" value="$url"></td>
</tr>
EOM
}

#-------------------------------------------------
#  エラー処理
#-------------------------------------------------
sub error {
	&header;
	print <<EOM;
<div align="center">
<hr width="400">
<h3>ERROR !</h3>
<font color="#dd0000">$_[0]</font>
<p>
<hr width="400">
<p>
<form>
<input type="button" value="前画面に戻る" onclick="history.back()">
</form>
</div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  ワード検索
#-------------------------------------------------
sub find {
	local($wd,$flag,$i,$next,$back,$enwd,@wd);

	&header;
	print <<EOM;
<form action="$script">
<input type="submit" value="&lt;&lt; 戻る">
</form>
<ul>
<li>検索したいキーワードを入力し検索ボタンを押してください。
<li>キーワードはスペースで区切って複数指定することができます。
<p><table><tr><td>
<form action="$script" method="$method">
<input type="hidden" name="mode" value="find">
キーワード：<input type="text" name="word" size="35" value="$in{'word'}">
条件：<select name="cond">
EOM

	foreach ("AND", "OR") {
		if ($in{'cond'} eq $_) {
			print "<option value=\"$_\" selected>$_\n";
		} else {
			print "<option value=\"$_\">$_\n";
		}
	}
	print "</select> 表\示：<select name=\"view\">\n";

	foreach (10,15,20,25,30) {
		if ($in{'view'} == $_) {
			print "<option value=\"$_\" selected>$_件\n";
		} else {
			print "<option value=\"$_\">$_件\n";
		}
	}

	print <<EOM;
</select>
<input type="submit" value=" 検索 ">
</td></form></tr>
EOM

	# 同じ条件で過去ログを検索
	if ($pastkey && $in{'word'}) {
		print <<EOM;
<tr><td><form action="$script" method="GET">
<input type="hidden" name="mode" value="past">
<input type="hidden" name="word" value="$in{'word'}">
<input type="hidden" name="cond" value="$in{'cond'}">
<input type="hidden" name="view" value="$in{'view'}">
同じ条件で過去ログを検索 <input type="submit" value="過去ログ検索">
</td></form></tr>
EOM
	}

	print <<EOM;
</table>
</ul>
EOM

	# 検索実行
	if ($in{'word'} ne "") {

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

		# 検索
		print "<dl>\n";
		my $i=0;
		open(IN,"$logfile") || &error("Open Error: $logfile");
		while (<IN>) {
			local($no,$no2,$dat,$nam,$eml,$sub,$com,
				$url,$hos,$pw,$tim,$typ,$res,$chk) = split(/<>/);
			my $flag=0;
			foreach my $wd (@wd) {
				if ($chk == 1) { last; }
				if (index("$nam $eml $sub $com $url",$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; }

###				if ($eml) { $nam = "<a href=\"mailto:$eml\">$nam</a>"; }
				if ($eml) { $nam = &eml_henkan($eml,$nam,$no); }

				# 絵文字
				$sub = &o2p($sub);
				$com = &o2p($com);

				print "<dt><hr>[<b>$no</b>] ";
				print "<font color=\"$sub_col\"><b>$sub</b></font> ";
				print "投稿者：<b>$nam</b> 投稿日：$dat<br><br><dd>$com";
				print "<p><a href=\"$url\" target=\"_blank\">$url</a>" if ($url);
				print "<br><br>\n";
			}
		}
		close(IN);

		print "<dt><hr>検索結果：<b>$i</b>件</dl>\n";

		my $next = $page + $in{'view'};
		my $back = $page - $in{'view'};
		my $enwd = &url_enc($in{'word'});
		if ($back >= 0) {
			print "[<a href=\"$script?mode=find&page=$back&word=$enwd&view=$in{'view'}&cond=$in{'cond'}\">前の$in{'view'}件</a>]\n";
		}
		if ($next < $i) {
			print "[<a href=\"$script?mode=find&page=$next&word=$enwd&view=$in{'view'}&cond=$in{'cond'}\">次の$in{'view'}件</a>]\n";
		}

	}

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

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

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

#-------------------------------------------------
#  使い方表示
#-------------------------------------------------
sub howto {
	&header;
	print <<EOM;
<br>
<div align="center">
<table width="90%" border="1" cellspacing="1" cellpadding="8" bgcolor="$tbl_col">
<tr><td>
<h3>留意事項</h3>
<ol>
<li>この掲示板はパソ\コンの他に、iモード、SBM及びEZwebに対応しており、SBMの3G機を除いてそれぞれ<b>絵文字が利用可能\</b>です。
<li>絵文字は、各携帯端末同士で似たものがある場合には相互に自動変換し、それ以外の場合には画像に置き換えて表\示します。
<li>この掲示板は<b>クッキー対応</b>ですので、1度記事を投稿いただくと、お名前、Ｅメール、ＵＲＬ、暗証キー情報は2回目以降は自動入力されます。（ブラウザがクッキー対応の場合）
<li>投稿記事には、<b>タグは一切使用できません。</b>
<li>記事を投稿する上での必須入力項目は<b>「おなまえ」</b>と<b>「メッセージ」</b>です。Ｅメール、ＵＲＬ、題名、暗証キーは任意です。
<li>記事には、<b>半角カナは一切使用しないで下さい。</b>文字化けの原因となります。
<li>記事の投稿時に、暗証キーの欄にパスワード（英数字で8文字以内）を入れておくと、その記事は後日その暗証キーによって修正・削除することができます。
<li>記事の保持件数は<b>最大$max件</b>です。それを超えると古い順に自動削除されます。
<li>過去の投稿記事から<b>「キーワード」によって検索することができます。</b>トップメニューの<a href="$script?mode=find">「ワード検索」</a>のリンクをクリックすると検索モードとなります。
<li>管理者が著しく不適当と判断する記事は、予\告なく削除することがあります。
</ol>
</td></tr></table>
<p>
<form>
<input type="button" value="記事リストにもどる" onclick="history.back()">
</form>
</div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  HTMLヘッダ - JavaScript
#-------------------------------------------------
sub header_js {
	if ($headflag) { return; }

	print "Content-Type: text/html\n\n";
	print <<EOM;
<html><head>
$meta
<SCRIPT type="text/javascript">
<!--
EOM

	if ($emform) {
	print <<EOM;
function iemoji() {
	window.open("$ihtm","_blank","width=305,height=370,location=no,menubar=no");
}
function jemoji1() {
	window.open("$j1htm","_blank","width=305,height=370,location=no,menubar=no");
}
function eemoji1() {
	window.open("$e1htm","_blank","width=305,height=370,location=no,menubar=no");
}
EOM
	} else {
	print <<EOM;
function popup() {
	window.open("$script?mode=popup","window1","width=460,height=300,scrollbars=1");
}
EOM
	}

	print <<EOM;
//-->
</SCRIPT>
<title>$title</title></head>
$body
EOM

	$headflag=1;
}

#-------------------------------------------------
#  絵文字ポップアップ
#-------------------------------------------------
sub popup {
	local(@i_emoji) = (
		'89f','8a0','8a1','8a2','8a3','8a4','8a5','8a6','8a7','8a8','8a9',
		'8aa','8ab','8ac','8ad','8ae','8af','8b0','8b1','8b2','8b3','8b4',
		'8b5','8b6','8b7','8b8','8b9','8ba','8bb','8bc','8bd','8be','8bf',
		'8c0','8c1','8c2','8c3','8c4','8c5','8c6','8c7','8c8','8c9','8ca',
		'8cb','8cc','8cd','8ce','8cf','8d0','8d1','8d2','8d3','8d4','8d5',
		'8d6','8d7','8d8','8d9','8da','8db','8dc','8dd','8de','8df','8e0',
		'8e1','8e2','8e3','8e4','8e5','8e6','8e7','8e8','8e9','8ea','8eb',
		'8ec','8ed','8ee','8ef','8f0','8f1','8f2','8f3','8f4','8f5','8f6',
		'8f7','8f8','8f9','8fa','8fb','8fc','940','941','942','943','944',
		'945','946','947','948','949','94a','94b','94c','94d','94e','94f',
		'950','951','952','953','954','955','956','957','958','959','95a',
		'95b','95c','95d','95e','95f','960','961','962','963','964','965',
		'966','967','968','969','96a','96b','96c','96d','96e','96f','970',
		'971','972','973','974','975','976','977','978','979','97a','97b',
		'97c','97d','97e','980','981','982','983','984','985','986','987',
		'988','989','98a','98b','98c','98d','98e','98f','990','991','992',
		'993','994','995','996','997','998','999','99a','99b','99c','99d',
		'99e','99f','9a0','9a1','9a2','9a3','9a4','9a5','9a6','9a7','9a8',
		'9a9','9aa','9ab','9ac','9ad','9ae','9af','9b0','9b1','9b2','9b3',
		'9b4','9b5','9b6','9b7','9b8','9b9','9ba','9bb','9bc','9bd','9be',
		'9bf','9c0','9c1','9c2','9c3','9c4','9c5','9c6','9c7','9c8','9c9',
		'9ca','9cb','9cc','9cd','9ce','9cf','9d0','9d1','9d2','9d3','9d4',
		'9d5','9d6','9d7','9d8','9d9','9da','9db','9dc','9dd','9de','9df',
		'9e0','9e1','9e2','9e3','9e4','9e5','9e6','9e7','9e8','9e9','9ea',
		'9eb','9ec','9ed','9ee','9ef','9f0','9f1','9f2','9f3','9f4','9f5',
		'9f6','9f7','9f8','9f9','9fa','9fb','9fc',
		);

	&header;
	print <<EOM;
<div align="center">
<b>iモード用絵文字</b>
<p>
<img src="$imgurl/i-emoji.gif" alt="" width="406" height="185" usemap="#i-emoji" border="0">
<map name="i-emoji">
EOM

	local($x1,$y1,$x2,$y2) = (4,3,20,18);
	foreach $i (1 .. 282) {

		$j = $i - 1;
		#$i_emoji[$j] =~ s/^(.)(..)/pack('H2H2', "f$1", $2)/eg;

		print "<area shape=\"rect\" coords=\"$x1,$y1,$x2,$y2\" href=\"#\" onclick=\"self.opener.document._form.comment.value+='&lt;if$i_emoji[$j]&gt;'\">\n";

		$x1 += 16;
		$x2 += 16;

		if ($i % 25 == 0) { $x1=4; $x2=20; $y1+=15; $y2+=15; }
	}

	print <<EOM;
</map>
<p>
<form>
<input type="button" value=" 閉じる " onclick="window.close()">
</form>
</div>
</body>
</html>
EOM
	exit;
}

#--------------#
#  移動ボタン  #
#--------------#
sub mvbtn {
	local($link,$i,$view) = @_;
	local($start,$end,$x,$y,$bk_bl,$fw_bl);

	if ($in{'bl'}) {
		$start = $in{'bl'}*10 + 1;
		$end   = $start + 9;
	} else {
		$in{'bl'} = 0;
		$start = 1;
		$end   = 10;
	}

	$x=1; $y=0;
	while ($i > 0) {
		# 当ページ
		if ($page == $y) {

			print "| <b style='color:red'>$x</b>\n";

		# 切替ページ
		} elsif ($x >= $start && $x <= $end) {

			print "| <a href=\"$link$y&bl=$in{'bl'}\">$x</a>\n";

		# 前ブロック
		} elsif ($x == $start-1) {

			$bk_bl = $in{'bl'}-1;
			print "| <a href=\"$link$y&bl=$bk_bl\">←</a>\n";

		# 次ブロック
		} elsif ($x == $end+1) {

			$fw_bl = $in{'bl'}+1;
			print "| <a href=\"$link$y&bl=$fw_bl\">→</a>\n";

		}

		$x++;
		$y += $view;
		$i -= $view;
	}

	print "|\n";
}

#---------------------------#
#  ホスト名、UserAgent表示  #
#---------------------------#
sub hosUA_out {
	my ($host,$utn,$UA) = split(/:/,$_[0],3);

	if ($hostView == 2) { $host = "ホスト:" . &HosUaEnc($host); }
	if ($UAView == 2) { $UA = &telAgent($UA); }

	if ($hostView >= 1) { print qq |$host\n|; }
	if ($UAView >= 1) {
		if ($UA eq '') { $UA = "未取得"; }
		print qq |<br>$UA\n|;
	}
}

#-------------------------------------------------
#  新規投稿フォーム
#-------------------------------------------------
sub shinki {
	&header_js;
	print <<EOM;
<form action="$script" method="$method">
<input type="submit" value="&lt;&lt; 戻る">
</form>
<hr>
<b>【新規投稿】</b>
EOM

	&form();

	print <<EOM;
<hr>
<div align="center">
<form>
<input type="button" value="前画面に戻る" onClick="history.back()">
</form>
</div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  記事修正 〜修正画面〜
#-------------------------------------------------
sub edit_gamen {
	my ($no,$reno,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tim,$typ,$res,$chk,$col) = split(/<>/,$_[0]);
	&header_js;
	my $form_name = $emform ? 'moji' : '_form';
	print <<EOM;
<b>【記事修正】</b>
<blockquote>
<form action="$script" method="$method" name="$form_name">
<input type="hidden" name="mode" value="usredit">
<input type="hidden" name="job" value="edit">
<input type="hidden" name="no" value="$no">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<b>記事番号</b>&nbsp;：&nbsp;$no
EOM

	&form2($nam,$eml,$sub,$com,$url);

	# 文字色情報
	if ($color ne '') {
		my @col = split(/\s+/, $color);
		if ($col) {
			my $i=0;
			foreach (@col) {
				if ($_ eq $col) { $i=1; last; }
			}
			if (!$i) { push (@col,$col); }
		}

		if ($col eq "" || $col >= @col) { $col = 0; }

		# 文字色が1つの場合は選択肢を表示しない
		if (@col == 1) {
			print qq |<input type="hidden" name="color" value="0">\n|;
		} else {
			print qq |<tr><td nowrap><b>文字色</b></td><td>\n|;
			foreach (0 .. $#col) {
				if ($col eq $col[$_] || $col eq $_) {
#				if ($col eq $col[$_]) {
					print qq |<input type="radio" name="color" value="$_" checked>|;
					print qq |<font color="$col[$_]">■</font>\n|;
				} else {
					print qq |<input type="radio" name="color" value="$_">|;
					print qq |<font color="$col[$_]">■</font>\n|;
				}
			}
			print qq |</td></tr>\n|;
		}
	}

	print <<EOM;
</table>
</form>
</blockquote>
<hr>
<div align="center">
<form action="$script" method="$method">
<input type="submit" value="掲示板に戻る">
</form>
</div>
</body>
</html>
EOM
}

#-------------------------------------------------
#  記事修正 〜修正結果の表示〜
#-------------------------------------------------
sub edit_kekka {
	my ($col) = @_;

	&header_js;
	print qq |<b>- 以下のとおり修正が完了しました -</b>\n|;

	# 絵文字変換 <e-PAD>
	my $sub = &o2p($in{'sub'});
	my $name = &o2p($in{'name'});
	my $comment = &o2p($in{'comment'});

	if ($autolink) { &auto_link($comment); }
	if ($in{'url'} ne '') { $in{'url'} = qq |<a href="$in{'url'}" target="_blank">$in{'url'}</a>|; }

	# 修正結果を表示
	print <<EOM;
<div align="center">
<P>
<TABLE BORDER=1 WIDTH="92%" CELLSPACING="0" CELLPADDING="8" bgcolor="$tbl_col">
<TR><TD>
<table border="0" width="95%" cellpadding="0" cellspacing="1">
<tr><td nowrap><tt>記事番号</tt></td><td width="3%">：</td><td width="85%">$in{'no'}</td></tr>
<tr><td nowrap><tt>おなまえ</tt></td><td>：</td><td>$name</td></tr>
<tr><td nowrap><tt>Ｅメール</tt></td><td>：</td><td>$in{'email'}</td></tr>
<tr><td nowrap><tt>タイトル</tt></td><td>：</td><td>$sub</td></tr>
<tr><td nowrap><tt>参照先</tt></td><td>：</td><td>$in{'url'}</td></tr>
<tr>
<td valign="top" nowrap><tt>メッセージ</tt></td><td valign="top">：</td><td><span style="color:$col">$comment</span></td>
</tr>
</table>
</TD></TR>
</TABLE>

<form action="$script" method="$method">
<input type="hidden" name="mode" value="usredit">
<input type="hidden" name="no" value="$in{'no'}">
<input type="hidden" name="pwd" value="$in{'pwd'}">
<input type="submit" value="再修正する">
</form>

<form action="$script" method="$method">
<input type="submit" value="掲示板に戻る">
</form>
</div>
</body>
</html>
EOM
}

#-------------------------------------------------
#  記事内のリンク・フォームからの修正・削除の認証
#-------------------------------------------------
sub ninsho_edt_del {
	my ($tmp);

	if (!$in{'no'}) { &error("記事番号が指定されていません"); }
	elsif ($in{'no'} =~ /\D/) { &error("記事番号の指定が不正です"); }

	&header;
	print qq |<div align="center">\n|;
	if ($mode eq "ninsho_del") {
		print qq |<b>【No.$in{'no'}を削除します】</b>\n|;
		$tmp = 'usrdel';
	} elsif ($mode eq "ninsho_edt") {
		print qq |<b>【No.$in{'no'}を修正します】</b>\n|;
		$tmp = 'usredit';
	} else {
		&error("modeが変です");
	}

	print <<EOM;
<P><h4>暗証キーを入力して下さい</h4>
<form action="$script" method="$method">
<input type="hidden" name="mode" value="$tmp">
<input type="hidden" name="no" value="$in{'no'}">
<input type="hidden" name="page" value="$page">
<input type="password" name="pwd" size="8" maxlength="8">
<input type="submit" value=" 認証 ">
</form>
</div>
</body>
</html>
EOM
	exit;
}


1;

__END__