#!/usr/bin/perl

#┌─────────────────────────────────
#│ [ YY-BOARD ]
#│ yybbs.cgi - 2007/09/17
#│ Copyright (c) KentWeb
#│ webmaster@kent-web.com
#│ http://www.kent-web.com/
#│
#│ YY-BOARD Antispam Version Modified by isso.
#│ http://swanbay-web.hp.infoseek.co.jp/index.html
#└─────────────────────────────────

# 外部ファイル取込
require './init.cgi';
require $jcode;

#-------------------------------------------------
# 設定チェック
#-------------------------------------------------
if(!$writevalue || !$postvalue) {
	&error("init.cgiファイルが正しく転送されていないか設定値が正しくありません。");
}
if($writevalue eq $postvalue) {
	&error("\$writevalueと\$postvalueの文字は同じにしないでください");
}

# データ用ディレクトリ
unless(-d "./data/") {
	mkdir ("./data/", 0707) || die "ディレクトリを作成できません : $!";
}

# ログファイル
unless(-e "$logfile") {
	&error("ログファイル $logfile がありません。");
}

# 過去ログデータファイル
if($pastkey) {
	unless(-e "$nofile") {
		&error("過去ログデータファイル $nofile  がありません。");
	}
}

# カウンターデータファイル
unless(-e "$cntfile") {
	&error("カウンターデータファイル $cntfile がありません。");
}

# Webmail認証用ディレクトリ
if($webmail){
	unless(-d "$mailchk") {
		mkdir ($mailchk, 0707) || die "ディレクトリを作成できません : $!";
	}
	# ディレクトリ内を掃除
	opendir DIR, $mailchk;
	my @files = grep { !m/^(\.|\.\.|$sendmaillog)$/g } readdir DIR;
	close DIR;
	foreach (@files) {
		my $wt = (stat "$mailchk$_")[9];
		if (time - $wt > $maxtime) { unlink ("$mailchk$_"); }
	}
}

# カラーデータファイル
if (-e "$colorfile") {
	open(COL,"$colorfile");
	$boardmode = <COL>;
	close(COL);
} else {
	open(OUT,">>$colorfile");
	print OUT "0";
	close(OUT);
	$boardmode = 0;
}
unless(-e "$colordata") {
	&error("カラーデータファイル $colordata がありません。");
}

# 表示モード設定
if ($boardmode && -s "$colordata") { &read_color; }

# 投稿キー暗号用パスワードチェック
if ($regist_key) {
	if (!$pcp_passwd) {
		&error("投稿キー暗号用パスワード \$pcp_passwd が設定されていません。");
	}
}

# スクリプト名をロード
my ($chscript,$chregist,$acnt,$chtime);
if (-e "$scriptfile") {
	open(SCRPT, "$scriptfile");
	eval { flock(SCRPT, 1); };
	$scriptname = <SCRPT>;
	($chscript,$chregist,$acnt,$chtime,$indexcgi) = split(/<>/, $scriptname);
	close(SCRPT);
	if (!$indexcgi) {
		$indexcgi = $indexorg;
		open(OUT,"+>$scriptfile");
		eval { flock(OUT, 2); };
		seek(OUT, 0, 0);
		print OUT "$chscript<>$chregist<>$acnt<>$chtime<>$indexcgi<>";
		close(OUT);
	}
	unless (-e $indexcgi) {
		&error("$indexcgi がありません。");
	}
	unless (-x $indexcgi) {
		chmod (0705,"$indexcgi");
	}
	if (-e "$chscript") {
		$bbscgi = $chscript;
		# カウント
		if ($chcount) {
			if ($acnt < $chcount) {
				$acnt++;
				open(OUT,"+>$scriptfile");
				eval { flock(OUT, 2); };
				seek(OUT, 0, 0);
				print OUT "$chscript<>$chregist<>$acnt<>$chtime<>$indexcgi<>";
				close(OUT);
			}
		}
	} else {
		my $time = time;
		open(OUT,"> $scriptfile");
		eval { flock(OUT, 2); };
		chmod (0606,"$scriptfile");
		print OUT "$bbscgi<>$registcgi<>0<>$time<>$indexcgi<>";
		close(OUT);
	}
	if (-e "$chregist") {
		$registcgi = $chregist;
	}
} else {
	my $time = time;
	open(OUT,"> $scriptfile") || &error("dataディレクトリのパーミッションを変更してください。");
	eval { flock(OUT, 2); };
	chmod (0606,"$scriptfile");
	print OUT "$bbscgi<>$registcgi<>0<>$time<>$indexcgi<>";
	close(OUT);
}

#-------------------------------------------------
# メイン処理
#-------------------------------------------------
&agent;
&decode;
&axsCheck;

# 自動閉鎖
if ($clday) {
	my $last = (stat $logfile)[9];
	if (abs(time - $last) > $clday*24*3600) {
		&header;
		&pseudo;
		&autoclose;
	}
}

if ($mode eq "find") { &find; }
elsif ($mode eq "image") { &image; }
elsif ($mode eq "form") { require $formpl; &postform; }
elsif ($mode eq "past") { require $pastlogpl; &past_log; }
elsif ($mode eq "howto") { require $howtopl; &howto; }
elsif ($mode eq "check") { require $checkpl; &check; }
elsif ($mode eq "noscript") { require $howtopl; &noscript; }
elsif ($mode eq "writemail") { require $webmailpl; &writemail; }
elsif ($mode eq "sendmail")  { require $webmailpl; &sendmail; }
elsif ($mode eq "postform") { require $formpl; &postform; }
elsif ($mode eq "wana") { &wana; }
# 携帯対応改造
elsif ($keitai ne 'p' && $mode eq "knew") { &k_new; }
elsif ($keitai ne 'p' && $mode eq "klist") { &k_list; }
elsif ($keitai ne 'p' && $mode eq "klview") { &k_view; }
elsif ($keitai ne 'p' && $mode eq "kaview") { &k_msg; }
elsif ($keitai ne 'p' && $mode eq "kmsgview") { &k_msg; }
elsif ($keitai ne 'p' && $mode eq "k_admin") { &k_new; }
elsif ($keitai ne 'p' && $mode eq "newpost") { &k_form; }
elsif ($keitai ne 'p' && $mode eq "admin" && $in{'no'}) { &k_dele; }
&log_view;

#-------------------------------------------------
#  記事表示部
#-------------------------------------------------
sub log_view {
	# 携帯モード
	if (-e "$kscript" && $keitai ne 'p') { &k_list; }

	# ページ繰越
	local($resfm);
	foreach ( keys(%in) ) {
		if (/^page_(\d+)$/) {
			$page = $1;
		}
		if (/^res_(\d+)$/) {
			$resfm = $1;
			last;
		}
	}
	# 返信フォーム押下
	if ($resfm) { &res_form; }

	# クッキー取得
	local($cnam,$ceml,$curl,$cpwd,$cico,$ccol,$csmail,$caikotoba,$cref) = &get_cookie;
	&set_cookie($cnam,$ceml,$curl,$cpwd,$cico,$ccol,$csmail,$caikotoba,$cref);

	# ヘッダを出力
	if ($ImageView == 1) { &header('ImageUp'); }
	else { &header; }

	# カウンタ処理
	if ($counter) { &counter; }

	# ダミー
	&pseudo;

	# 投稿キー
	local($str_plain,$str_crypt);
	if ($regist_key) {
		require $regkeypl;
		($str_plain,$str_crypt) = &pcp_makekey;
	}

	# タイトル部
	print qq|<div align="center">\n|;
	if ($banner1 ne "<!-- 上部 -->") { print "$banner1<p>\n"; }
#	if ($t_img eq '') {
#		print qq|<b style="color:$tCol; font-size:$tSize;">$title</b>\n|;
#	} else {
#		print qq|<img src="$t_img" width="$t_w" height="$t_h" alt="$title">\n|;
#	}
	# カスタマイズ
print <<EOTITLE;
<div style="font-size:150%; color: darkblue; background-color:#99ccff; border-left: 20px solid #000088; padding-left:5px;">
<center><b>$title</b></center>
</div>
<div style="background-color:#CCFFFF; font-size:100%;">
Ｇの夢サイトにお越しいただき、どうもありがとうございます！<br/>
おもしろかった、つまらない、などなど、ご意見、ご感想、なんでもお気軽にどうぞ。<br/>
</div>
EOTITLE

	# 表示ヘッダ
	print qq|$header<br>\n|;

	# スパムログチェック
	if (-s $spamlogfile) {
		open(IN,"<$spamlogfile");
		eval { flock(IN, 2); };
		my @spmlog = <IN>;
		close(IN);
		if ($#spmlog >= $spamlog_max) {
			print qq|<br>\n<br>\n|;
			print qq|<b style="color:#ff0000; background-color:#ffffff; border-top-style:solid; border-bottom-style:solid; border-width:1; padding-top: 5px; padding-bottom: 5px;">|;
			print qq|$postmodeログが許容数を超えました。管理モードから$postmodeログを削除して下さい。|;
			print qq|</b><br>\n<br>\n|;
		}
	}

	# 表示初期設定
	if (!$in{'list'}) { $in{'list'} = $list_ini; }

	# メニュー部
	if ($boardmode) {
		if (!defined($list_type{$in{'list'}})) {
			if (defined($list_type{$view_type})) {
				$in{'list'} = $view_type;
			} else {
				$in{'list'} = 'thread';
			}
		}

		print qq|<table border="0" width="500"><tr>\n|;
		if ($in{'action'} eq "past") {
			print qq|<form action="$bbscgi" method="post">\n<td nowrap>\n|;
			print qq|<input type="submit" value="掲示板に戻る" class="menu">\n</td>\n</form>\n|;
		} else {
			print qq|<a href="$bbscgi?mode=wana"><!--// アクセス禁止 //--></a>\n|;
			print qq|<form action="$homepage" method="get">\n<td nowrap>\n|;
			print qq|<input type="submit" value="トップに戻る" class="menu">\n</td>\n</form>\n|;
		}
		# 投稿フォームリンク
		my $formlink = 0;
		if ($referercheck && !$ENV{'HTTP_REFERER'}) {
			if ($in{'list'} ne "pickup") {
				$formlink = 1;
			}
		} elsif (!$postform) {
				$formlink = 1;
		} else {
			if ($in{'list'} eq "tree" || $in{'list'} eq "topic") {
				$formlink = 1;
			}
		}
		if ($formlink) {
			print qq|<form action="$bbscgi" method="post">\n<td nowrap>\n|;
			print qq|<input type="hidden" name="mode" value="postform">\n|;
			print qq|<input type="hidden" name="list" value="$in{'list'}">\n|;
			print qq|<input type="submit" value="新規投稿" class="menu">\n</td>\n</form>\n|;
		}

		foreach ( 'thread', 'tree', 'topic', 'new' ) {
			next if ($in{'list'} eq $_);
			print qq|<form action="$bbscgi" method="post">\n<td nowrap>\n|;
			print qq|<input type="hidden" name="list" value="$_">\n|;
			print qq|<input type="submit" value="$list_type{$_}" class="menu">\n</td>\n</form>\n|;
		}

		print qq|<form action="$bbscgi" method="post">\n<td nowrap>\n|;
		print qq|<input type="hidden" name="mode" value="howto">\n|;
		print qq|<input type="hidden" name="list" value="$in{'list'}">\n|;
		print qq|<input type="submit" value="留意事項" class="menu">\n</td>\n</form>\n|;

		print qq|<form action="$bbscgi" method="post">\n<td nowrap>\n|;
		print qq|<input type="hidden" name="mode" value="find">\n|;
		print qq|<input type="hidden" name="list" value="$in{'list'}">\n|;
		print qq|<input type="submit" value="ワード検索" class="menu">\n</td>\n</form>\n|;

		if ($pastkey) {
			print qq|<form action="$bbscgi" method="post">\n<td nowrap>\n|;
			print qq|<input type="hidden" name="mode" value="past">\n|;
			print qq|<input type="hidden" name="list" value="$in{'list'}">\n|;
			print qq|<input type="submit" value="過去ログ" class="menu">\n</td>\n</form>\n|;
		}

		print qq|<form action="$admincgi" method="post">\n<td nowrap>\n|;
		print qq|<input type="hidden" name="mode" value="admin">\n|;
	#	print qq|<input type="submit" value="管理用" class="menu">\n</td>\n</form>\n|;
		print qq|<input type="submit" value=".">\n</td>\n</form>\n|;

		print qq|</tr></table>\n|;
		print qq|</div>\n<br>\n|;

	} else {

		print qq|<hr width="90%">\n|;
		print qq|[<a href="$homepage" target="_top">ホームに戻る</a>]\n|;

		# 投稿フォームリンク
		my $formlink = 0;
		if ($referercheck && !$ENV{'HTTP_REFERER'}) {
			if ($in{'list'} ne "pickup") {
				$formlink = 1;
			}
		} elsif (!$postform) {
				$formlink = 1;
		} else {
			if ($in{'list'} eq "tree" || $in{'list'} eq "topic") {
				$formlink = 1;
			}
		}
		if ($formlink) {
			print qq|[<a href="$bbscgi?mode=postform">新規投稿</a>]\n|;
		}

		if (!defined($list_type{$in{'list'}})) {
			if (defined($list_type{$view_type})) {
				$in{'list'} = $view_type;
			} else {
				$in{'list'} = 'thread';
			}
		}
		foreach ( 'thread', 'tree', 'topic', 'new' ) {
			next if ($in{'list'} eq $_);
			print qq|[<a href="$bbscgi?list=$_">$list_type{$_}</a>]\n|;
		}

		print <<EOM;
[<a href="$bbscgi?mode=howto&list=$in{'list'}">留意事項</a>]
[<a href="$bbscgi?mode=find&list=$in{'list'}">ワード検索</a>]
EOM

		# 過去ログのリンク部を表示
		if ($pastkey) {
			print qq|[<a href="$bbscgi?mode=past&list=$in{'list'}">過去ログ</a>]\n|;
		}

		print <<EOM;
[<a href="$admincgi">管理用</a>]
<hr width="90%"></div>
EOM
	}

	# タイトル一覧表示
	if (-s $logfile) {
		if ($alltitle) {
			if ($in{'list'} eq 'thread' || $in{'list'} eq 'new') {
				&SubjectList;
			}
		}
	}

	# 投稿フォーム
	if ($in{'list'} eq 'thread' || $in{'list'} eq 'new') {
 		if ($postform) {
			if ($adminchk && $nam eq $a_name) {
				$nam = $admin_id;
			}
			if (!$re_box) {
				$cref = 0;
			}
			if (!$referercheck || $ENV{'HTTP_REFERER'}) {
				print qq|<form action="$registcgi" method="$method">\n|;
				require $formpl;
				&form($cnam,$ceml,$curl,$cpwd,$cico,$ccol,'',$inputform,$csmail,$caikotoba,$cref);
				print qq|</form>\n</blockquote>\n|;
			} else {
				print qq|</form>\n<br>\n<div style="text-align:center;">\n|;
				print qq|<form action="$bbscgi" method="$method">\n|;
				print qq|<input type="submit" value="新規投稿はこちらからお願いします。" class="menu">\n|;
				print qq|</form>\n</div><br>\n|;
			}
		}
		print qq|<br>\n<div align="center">\n|;
	}

	if ($in{'list'} eq "new") {
		# 新着順表示
		require $newsortpl;
		&newsort;
	} elsif ($in{'list'} eq "pickup") {
		# 関連記事表示
		require $pickuppl;
		&pickup;
	} else {

		# 件数チェック
		if ($pglog{$in{'list'}} <= 0) { $pglog{$in{'list'}} = 10; }

		# 記事を展開
		my $i = 0;
		open(IN,"$logfile") || &error("Open Error: $logfile");
		my $top = <IN>;
		while (<IN>) {
			my ($no,$reno,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col,$ico,$tm,$sml) = split(/<>/);

			if ($reno eq "") { $i++; }
			if ($i < $page + 1) { next; }
			if ($i > $page + $pglog{$in{'list'}}) { next; }

			# 親記事
			if (!$reno) {
				push(@view,$no);
			# レス記事
			} else {
				$res{$reno} .= "$no,";
			}

			# 題名の長さ
			if (length($sub) > $sub_len*2) {
				$sub = substr($sub, 0, $sub_len*2) . "...";
			}

			$author = $nam;
			require $messagepl;
			$nam = &emailscript($nam,$no,$eml,$sml,$col);

			$author{$no} = $author;
			$no{$no} = $no;
			$re{$no} = $reno;
			$nam{$no} = $nam;
			$eml{$no} = $eml;
			$sub{$no} = $sub;
			$dat{$no} = $dat;
			$com{$no} = $com;
			$col{$no} = $col;
			$url{$no} = $url;
			$ico{$no} = $ico;
			$pw{$no}  = $pw;
			$tm{$no}  = $tm;
			$sml{$no} = $sml;
		}
		close(IN);

		# 記事表示
		if ($in{'list'} eq "tree") {
			require $list_log_tree;
			&list_log_tree;

		} elsif ($in{'list'} eq "topic") {
			require $list_log_topic;
			&list_log_topic;

		} else {
			require $list_log_thread;
			&list_log_thread;
		}

		# ページ移動ボタン表示
		if ($page - $pglog{$in{'list'}} >= 0 || $page + $pglog{$in{'list'}} < $i) {
			print qq|<p><table width="90%" align="center">\n|;
			print qq|<tr><td class="n">Page:\n|;
			&mvbtn("$bbscgi?page=", $i, $pglog{$in{'list'}});
			print qq|</td></tr></table>\n|;
		}

		print qq|<div align="center">\n|;

	}

	# ユーザメンテフォーム（トピック表示以外）
	if ($in{'list'} ne "topic" && $mode ne "past" && $in{'action'} ne "past") {
		if ($boardmode) {
			print qq|<table border="0" cellspacing="10" cellpadding="0" class="thread">\n<tr><td>\n|;
		}
		print qq|<form action="$registcgi" method="post">\n|;
		print qq|<input type="hidden" name="list" value="$in{'list'}">\n|;
		print qq|投稿者<select name="mode" class="f">\n|;
		print qq|<option value="edit">修正\n|;
		print qq|<option value="dele">削除</select>\n|;
		print qq|No.<input type="text" name="no" size="3" class="f" style="ime-mode:inactive">\n|;
		print qq|削除キー<input type="password" name="pwd" size="4" maxlength="8" value="$cpwd" class="f">\n|;
		print qq|<input type="submit" value="送信">|;
		if ($boardmode) { print qq|</td>\n</tr>\n</table>\n</form>\n|; }
	}

	# 著作権表示（削除不可）
	print <<EOM;
$banner2
<p>
<!-- $ver -->
<span style="font-size:10px; font-family:Verdana,Helvetica,Arial;">
- <a href="&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#119;&#119;&#119;&#46;&#107;&#101;&#110;&#116;&#45;&#119;&#101;&#98;&#46;&#99;&#111;&#109;&#47;" target="_top">&#89;&#89;&#45;&#66;&#79;&#65;&#82;&#68;</a> 
EOM

	# --------------------------------ここから--------------------------------
	# MakiMakiさんの画像を使用しない場合に限り、下記MakiMakiさんのリンクを外すことは可能です。
	print qq|
- icon:<a href="http://homepage3.nifty.com/makiz/" target="_top">&#x4d;&#x61;&#x6b;&#x69;&#x4d;&#x61;&#x6b;&#x69;</a>
<br>- |;
	# --------------------------------ここまで--------------------------------

	# 著作権表示（削除不可）
	print <<EOM;
<a href="&#104;&#116;&#116;&#112;&#58;&#47;&#47;&#115;&#119;&#97;&#110;&#98;&#97;&#121;&#45;&#119;&#101;&#98;&#46;&#104;&#112;&#46;&#105;&#110;&#102;&#111;&#115;&#101;&#101;&#107;&#46;&#99;&#111;&#46;&#106;&#112;&#47;&#105;&#110;&#100;&#101;&#120;&#46;&#104;&#116;&#109;&#108;" target="_top">&#x41;&#x6e;&#x74;&#x69;&#x73;&#x70;&#x61;&#x6d;&#x20;&#x56;&#x65;&#x72;&#x73;&#x69;&#x6f;&#x6e;</a> -
</span>
<br>
$footer
</div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  返信フォーム
#-------------------------------------------------
sub res_form {
	# 投稿キー
	local($str_plain,$str_crypt);
	if ($regist_key) {
		require $regkeypl;

		($str_plain,$str_crypt) = &pcp_makekey;
	}
	$in{'no'} = $resfm;

	# クッキーを取得
	local($cnam,$ceml,$curl,$cpwd,$cico,$ccol,$csmail,$caikotoba,$cref) = &get_cookie;

	# 元記事引用
	my $refcom = '';
	my $resub  = '';
	open(REF,"$logfile") || &error("Open Error: $logfile");
	my $tp = <REF>;
	while (<REF>) {
		chomp;
		my ($n,$r,$d,$na,$em,$sb,$c) = split(/<>/);
		if ($in{'refnum'} eq $n) {
			$resub = $sb;
			if ($in{'refmode'} eq "on") { $refcom = $c; last; }
		}
	}
	close(REF);

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

	# ヘッダを出力
	if ($ImageView == 1) { &header('ImageUp'); }
	else { &header; }

	# 関連記事出力
	print <<EOM;
<form>
<input type="button" value="&lt; 戻る" onclick="history.back()">
</form>
▽以下は記事No.<b>$in{'no'}</b> に関する<a href="#RES">返信フォーム</a>です。
<div align="center">
EOM

	print "<p><table width=\"$width\" cellpadding=\"$cellpadding\" cellspacing=\"$cellspacing\" border=\"$border\" class=\"thread\">\n";
	print "<tr><td bgcolor=\"$tblcol\"><br>\n";

	while (<IN>) {
		my ($no,$reno,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col) = split(/<>/);
		if ($in{'no'} == $no && $reno) { $flg++; }
		if ($in{'no'} == $no || $in{'no'} == $reno) {

			if ($in{'no'} == $no) { $resub = $sub; }
			if ($url) { $url = "&lt;<a href=\"$url\">Home</a>&gt;"; }
			if ($reno) { print "<hr width=\"90%\">"; }
			if ($reno) { print '&nbsp;&nbsp;'; }

			if ($nam_col) { $nam = "<font color=\"$col\">$nam</font>"; }
			if ($refcol) {
				$com =~ s/([\>]|^)(&gt;[^<]*)/$1<font color=\"$refcol\">$2<\/font>/g;
			}
			# URLリンク
			if ($autolink) { $com = &auto_link($com); }

			print "<font color=\"$subcol\"><b>$sub</b></font>\n";
			if ($boardmode) {
				print "投稿者：<b>$nam</b> $url ";
			} else {
				print "投稿者：<b>$nam</b> 投稿日：$dat $url ";
				print "<font color=\"$subcol\">No.$no</font><br>\n";
			}
			print "<blockquote><font color=\"$col\">$com</font></blockquote>\n";
			if ($boardmode) {
				print "<div align=\"right\">$dat \[<font color=\"$subcol\">No.$no</font>\]\n</div>\n";
			}
		}
	}
	close(IN);

	print "</td></tr></table></p></div>\n";
	if ($flg) { &error("不正な返信要求です"); }

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

	if ($adminchk && $nam eq $a_name) { $nam = $admin_id; }

	print "<a id=\"RES\"></a>";

	# コメント引用
	if ($refcom) {
		# 修正時刻削除
		$refcom =~ s/<br><br>【[\w\(\)\/\-\:\s]+$emode】$//i;
		$refcom = "\n&gt; $refcom";
		$refcom =~ s/<br>/\r&gt; /g;
	}

	if (!$re_box) { $cref = 0; }
	print qq|<form action="$registcgi" method="$method">\n|;
	require $formpl;
	&form($cnam,$ceml,$curl,$cpwd,$cico,$ccol,$resub,$refcom,$csmail,$caikotoba,$cref);

	print <<EOM;
</form>
</blockquote>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  ワード検索
#-------------------------------------------------
sub find {
	&header;
	print <<EOM;
<form action="$bbscgi">
EOM
	if ($in{'list'} ne "pickup") {
		print qq|<input type="hidden" name="list" value="$in{'list'}">\n|;
	}
	print <<EOM;
<input type="submit" value="&lt; 戻る">
</form>
<ul>
<li>キーワードを入力し、「条件」「表\示」を選択して検索ボタンを押して下さい。
<li>キーワードはスペースで区切って複数指定することができます。
<p>
<form action="$bbscgi" method="$method">
<input type="hidden" name="mode" value="find">
<input type="hidden" name="list" value="$in{'list'}">
キーワード <input type="text" name="word" size="35" value="$in{'word'}" class="f">
条件 <select name="cond" class="f">
EOM

	if (!$in{'cond'}) { $in{'cond'} = "AND"; }
	foreach ("AND", "OR") {
		if ($in{'cond'} eq $_) {
			print "<option value=\"$_\" selected=\"selected\">$_\n";
		} else {
			print "<option value=\"$_\">$_\n";
		}
	}

	if (!$in{'view'}) { $in{'view'} = 10; }
	print qq|</select> 表\示 <select name="view" class="f">\n|;

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

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

	# 検索実行
	require $searchpl;
	if ($in{'word'} ne "") {
		($i,$next,$back) = &search($logfile,$in{'word'},$in{'view'},$in{'cond'});

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

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

#-------------------------------------------------
#  投稿画面
#-------------------------------------------------
sub form_disp {
	# 投稿キー
	local($str_plain,$str_crypt);
	if ($regist_key) {
		require $regkeypl;

		($str_plain,$str_crypt) = &pcp_makekey;
	}

	if ($adminchk && $nam eq $a_name) { $nam = $admin_id; }

	# クッキーを取得
	local($cnam,$ceml,$curl,$cpwd,$cico,$ccol,$csmail,$caikotoba,$cref) = &get_cookie;

	# ヘッダを出力
	if ($ImageView == 1) { &header('ImageUp'); }
	else { &header; }

	# 関連記事出力
	print <<EOM;
<form>
<input type="button" value="&lt; 戻る" onclick="history.back()">
</form>
▼新規投稿フォーム
<hr>
<a id="RES"></a>
EOM

	if (!$re_box) { $cref = 0; }
	print qq|<form action="$registcgi" method="$method">\n|;
	require $formpl;
	&form($cnam,$ceml,$curl,$cpwd,$cico,$ccol,'',$inputform,$csmail,$caikotoba,$cref);

	print <<EOM;
</form>
</blockquote>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  カウンタ処理
#-------------------------------------------------
sub counter {
	local($count, $cntup, @count);

	# 閲覧時のみカウントアップ
	if ($mode eq '') { $cntup = 1; } else { $cntup = 0; }

	# カウントファイルを読みこみ
	open(LOG,"+< $cntfile") || &error("Open Error: $cntfile");
	eval "flock(LOG, 2);";
	$count = <LOG>;

	# IPチェックとログ破損チェック
	local($cnt, $ip) = split(/:/, $count);
	if ($addr eq $ip || $cnt eq "") { $cntup = 0; }

	# カウントアップ
	if ($cntup) {
		$cnt++;
		truncate(LOG, 0);
		seek(LOG, 0, 0);
		print LOG "$cnt:$addr";
	}
	close(LOG);

	# 桁数調整
	while(length($cnt) < $mini_fig) { $cnt = '0' . $cnt; }
	@count = split(//, $cnt);

	# GIFカウンタ表示
	if ($counter == 2) {
		foreach (0 .. $#count) {
			print "<img src=\"$gif_path/$count[$_]\.gif\" alt=\"$count[$_]\" width=\"$mini_w\" height=\"$mini_h\">";
		}
	# テキストカウンタ表示
	} else {
		print "<font color=\"$cntcol\" face=\"Verdana,Helvetica,Arial\">$cnt</font><br>\n";
	}
}

#-------------------------------------------------
#  画像イメージ表示
#-------------------------------------------------
sub image {
	my @ico1 = split(/\s+/, $ico1);
	my @ico2 = split(/\s+/, $ico2);

	&header;
	print <<EOM;
<div align="center">
<h4>画像イメージ</h4>
<table border="$border" cellspacing="$cellspacing" cellpadding="10" class="thread" bgcolor="$tblcol">
EOM

	my $i = 0;
	foreach (0 .. $#ico1) {
		$i++;

		if ($i % 5 == 1) {
			print "<tr>\n";
		}
		print qq|<th><img src="$imgurl/$ico1[$_]" align="middle" alt="$ico1[$_]">$ico2[$_]</th>\n|;

		if ($i % 5 == 0) {
			print "</tr>\n";
		}
	}
	while ( $i % 5 != 0 ) {
		print qq|<td><br></td>|;
		$i++;
	}

	print <<EOM;
</table>
<br>
<form>
<input type="button" value=" 閉じる " onclick="top.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 qq {| <b style="color:red" class="n">$x</b>\n};

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

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

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

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

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

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

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

	print "|\n";
}

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

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

#-------------------------------------------------
#  タイトル一覧表示
#-------------------------------------------------
sub SubjectList {
	my (%oyano,%oyasub,%date,%name,%tm,%new,$k);

	my $i = 0;
	my $j = 1;
	my @i = ();
	open(IN,"$logfile");
	my $top = <IN>;
	while (<IN>) {
		my ($no,$reno,$date,$name,$e,$sub,$m,$u,$h,$p,$c,$ic,$tm) = split(/<>/);
		if (!$reno) {
			$oyano{$j}  = $no;
			$oyasub{$j} = $sub;
			$i++;
			$j++;
		} else {
			$i[$j]++;
		}
		$date{$i} = $date;
		$name{$i} = $name;
		$tm{$i}   = $tm;
		$new{$i}  = $no;
	}
	close(IN);

	if ($j > $alltitle) {
		$j = $alltitle + 1;
	}

	if ($i) {
		print qq|<div align="center">\n|;
		print qq|<table border="0" bgcolor="$allt_col" width="$width" cellspacing="10" cellpadding="0" class="alltree">\n|;
		print qq|<tr><td>\n|;
	}

	for ($k = 1; $k < $j; $k++){
		my $co = sprintf("%01d",$i[$k+1]);
		print qq|<a href="$bbscgi?list=pickup&num=$oyano{$k}#$oyano{$k}">$k</a>:&nbsp;|;
		if ($newtitle) {
			print qq|<a href="$bbscgi?list=pickup&num=$oyano{$k}#$new{$k}" |;
		} else {
			print qq|<a href="$bbscgi?list=pickup&num=$oyano{$k}#$oyano{$k}" |;
		}
		print qq|title="最新投稿:$date{$k} (投稿者:$name{$k})">$oyasub{$k}&nbsp;|;
		if ($co) {
			print qq|($co)</a>|;
		} else {
			print qq|</a>|;
		}
		# 所定時間以内の投稿は[NEWマーク]表示
		if (time - $tm{$k} < $new_time * 3600) {
			print qq|&nbsp;$newmark \n|;
		}
		print qq|&nbsp;<font color="$no_color">/</font>\n|;
	}
	print qq|</td></tr>\n</table>\n</div>\n|;
	if (!$boardmode) {
		print qq|<hr width="90%">\n|;
	}
}

#------------------------------------
#  Trap
#------------------------------------
sub wana {
	# IPアドレス取得
	if (!$addr) { $addr = $ENV{'REMOTE_ADDR'}; }
	my $flag = 0;

	if(-e "$denyfile"){
		# アクセス制限ファイルが存在
		open(IN, "$denyfile");
		eval { flock(IN, 1); };
		my $deny = <IN>;
		close (IN);
		# 旧アクセス制限IPファイル対応
		if ($deny =~ /\,/) { $deny =~ s/\,/\n/g;
			open (OUT,">$denyfile");
			eval { flock(OUT, 2); };
			print OUT "$deny\n";
			close OUT;
		}
		# アクセス制限IPを検索
		open(IN, "$denyfile");
		eval { flock(IN, 1); };
		my @denyip = <IN>;
		my @newip = @denyip;
		my $i = $#denyip;
		close (IN);
		foreach (@denyip) {
			if( $_ =~ /^\s*(\S+)/ ){
				my $part = $1;
				if( $part =~ /\d+\.\d+\.\d+\.\d+/ ){
					if($part && index( $addr, $part ) >= $[ ){
						$flag = 1;
						last;
					}
				}
			}
		}
		if (!$flag) {
			# 新規のアクセス制限IPを追加
			push(@newip,"$addr\n");
			while ($i >= $denynum) {
				# 古いアクセス制限IPを削除
				shift(@newip);
				$i--;
			}
			open (OUT,"+>$denyfile");
			eval { flock(OUT, 2); };
			print OUT @newip;
			close OUT;
		}
	} else {
		# アクセス制限ファイルを新たに作成
		open (OUT,">$denyfile");
		eval { flock(OUT, 2); };
		chmod (0606,"$denyfile");
		print OUT "$addr\n";
		close OUT;
		$flag = 1;
	}
	# Internal Server Error
	&cgi_error;
	exit;
}

__END__