#!/usr/bin/perl

#„¡„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ
#„  [ YY-BOARD ]
#„  yybbs.cgi - 2007/01/25
#„  Copyright (c) KentWeb
#„  webmaster@kent-web.com
#„  http://www.kent-web.com/
#„¤„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ„Ÿ

# ŠO•”ƒtƒ@ƒCƒ‹Žæ?ž
require './init.cgi';
require $jcode;

# ƒ?ƒCƒ“?ˆ—?
&decode;
&axsCheck;
if ($mode eq "find") { &find; }
elsif ($mode eq "image") { ℑ }
elsif ($mode eq "form") { &form_disp; }
elsif ($mode eq "past") { &past_log; }
elsif ($mode eq "howto") {
	require $howtopl;
	&howto;
} elsif ($mode eq "check") {
	require $checkpl;
	✓
}
&log_view;

#-------------------------------------------------
#  ‹LŽ–•\Ž¦•”
#-------------------------------------------------
sub log_view {
	# ƒy?[ƒWŒJ‰z
	local($resfm);
	foreach ( keys(%in) ) {
		if (/^page:(\d+)$/) {
			$page = $1;
		}
		if (/^res:(\d+)$/) {
			$resfm = $1;
			last;
		}
	}
	# •Ô?MƒtƒH?[ƒ€‰Ÿ‰º
	if ($resfm) { &res_form; }

	# ƒNƒbƒL?[Žæ“¾
	local($cnam,$ceml,$curl,$cpwd,$cico,$ccol) = &get_cookie;
	if (!$curl) { $curl = 'http://'; }

	# ƒwƒbƒ_‚ð?o—Í
	if ($ImageView == 1) { &header('ImageUp'); }
	else { &header; }

	# ƒJƒEƒ“ƒ^?ˆ—?
	if ($counter) { &counter; }

	# “Š?eƒL?[
	local($str_plain,$str_crypt);
	if ($regist_key) {
		require $regkeypl;

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

	# ƒ^ƒCƒgƒ‹•”
	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="https://contest.japias.jp/tqj2007/90019/cgi-bin/$t_img" width="$t_w" height="$t_h" alt="$title">\n|;
	}

	print qq |<hr width="90%">\n|;
	print qq |[<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/$homepage" target="_blank" target="_top">ƒz?[ƒ€‚É–ß‚é</a>]\n|;

	if (!defined($list_type{$in{'list'}})) { $in{'list'} = $view_type; }
	if ($in{'list'} ne "thread") {
		print qq |[<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/$bbscgi?mode=form&list=$in{'list'}" target="_blank">?V‹K“Š?e</a>]\n|;
	}

	foreach ( 'thread', 'tree', 'topic' ) {
		next if ($in{'list'} eq $_);

		print qq |[<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/$bbscgi?list=$_" target="_blank">$list_type{$_}</a>]\n|;
	}

	print <<EOM;
[<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/$bbscgi?mode=howto&list=$in{'list'}" target="_blank">—¯ˆÓŽ–?€</a>]
[<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/$bbscgi?mode=find&list=$in{'list'}" target="_blank">ƒ??[ƒhŒŸ?õ</a>]
EOM

	# ‰ß‹Žƒ?ƒO‚̃Šƒ“ƒN•”‚ð•\Ž¦
	if ($pastkey) {
		print qq |[<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/$bbscgi?mode=past&list=$in{'list'}" target="_blank">‰ß‹Žƒ?ƒO</a>]\n|;
	}

	print <<EOM;
[<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/$admincgi" target="_blank">ŠÇ—?—p</a>]
<hr width="90%"></div>
EOM

	# “Š?eƒtƒH?[ƒ€
	if ($in{'list'} eq 'thread') {
		print qq |\n|;
		print qq |<form method="post" action="$registcgi">\n|;
		print qq |<input type="hidden" name="mode" value="regist">\n|;
		print qq |<input type="hidden" name="page" value="$page">\n|;

		require $formpl;
		&form($cnam,$ceml,$curl,$cpwd,$cico,$ccol,'','');

		print qq |</form><br>\n|;
	}

	# ‹LŽ–‚ð“WŠJ
	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) = split(/<>/);

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

		# ?e‹LŽ–
		if (!$reno) {
			push(@view,$no);
		# ƒŒƒX‹LŽ–
		} else {
			$res{$reno} .= "$no,";
		}

		# ‘è–¼‚Ì’·‚³
		if (length($sub) > $sub_len*2) {
			$sub = substr($sub, 0, $sub_len*2) . "...";
		}

		# URLƒŠƒ“ƒN
#		if ($autolink) { &auto_link($com); }

		$nam{$no} = $nam;
		$eml{$no} = $eml;
		$sub{$no} = $sub;
		$dat{$no} = $dat;
		$com{$no} = $com;
		$col{$no} = $col;
		$url{$no} = $url;
		$ico{$no} = $ico;
	}
	close(IN);

	# ‹LŽ–•\Ž¦
	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;
	}

	# ƒy?[ƒWˆÚ“®ƒ{ƒ^ƒ“•\Ž¦
	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|;

	# ƒ†?[ƒUƒ?ƒ“ƒeƒtƒH?[ƒ€?iƒgƒsƒbƒN•\Ž¦ˆÈŠO?j
	if ($in{'list'} ne "topic") {
		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">?C?³\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 |ˆÃ?؃L?[<input type="password" name="pwd" size="4" maxlength="8" class="f">\n|;
		print qq |<input type="submit" value="‘—?M"></form>\n|;
	}

	# ’˜?쌠•\Ž¦?i?í?œ•s‰Â?j: ’A‚µ?AMakiMaki‚³‚ñ‚̉摜‚ðŽg—p‚µ‚È‚¢?ê?‡‚ÉŒÀ‚è?A
	# MakiMaki‚³‚ñ‚̃Šƒ“ƒN‚ðŠO‚·‚±‚Ƃ͉”\‚Å‚·?B
	print <<EOM;
$banner2
<p>
<!-- $ver -->
<span style="font-size:10px; font-family:Verdana,Helvetica,Arial;">
- <a href="http://www.kent-web.com/" target="_blank" target="_top">YY-BOARD</a> -
icon:<a href="http://homepage3.nifty.com/makiz/" target="_blank" target="_top">MakiMaki</a>
</span>
</div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  •Ô?MƒtƒH?[ƒ€
#-------------------------------------------------
sub res_form {
	# “Š?eƒL?[
	local($str_plain,$str_crypt);
	if ($regist_key) {
		require $regkeypl;

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

	# ƒNƒbƒL?[‚ðŽæ“¾
	local($cnam,$ceml,$curl,$cpwd,$cico,$ccol) = &get_cookie;
	if (!$curl) { $curl = 'http://'; }

	# ƒ?ƒO‚ð“Ç‚Ý?ž‚Ý
	my $flg;
	open(IN,"$logfile") || &error("Open Error: $logfile");
	my $top = <IN>;

	# ƒwƒbƒ_‚ð?o—Í
	if ($ImageView == 1) { &header('ImageUp'); }
	else { &header; }

	# ŠÖ˜A‹LŽ–?o—Í
	print <<EOM;
<form>
<input type="button" value="&lt; –ß‚é" onclick="history.back()">
</form>
?¤ˆÈ‰º‚Í‹LŽ–No.<B>$in{'no'}</B> ‚ÉŠÖ‚·‚é<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/#RES" target="_blank">•Ô?MƒtƒH?[ƒ€</a>‚Å‚·?B
<dl>
EOM

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

			if ($in{'no'} == $no) { $resub = $sub; }
			if ($url) { $url = "&amp;lt;<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/\"$url\"" target="_blank">Home</a>&amp;gt;"; }
			if ($reno) { print '  '; }

			print "<dt><hr><font color=\"$subcol\"><b>$sub</b></font>\n";
			print "“Š?eŽÒ?F<b>$nam</b> “Š?e“ú?F$dat $url ";
			print "<font color=\"$subcol\">No.$no</font><br><br>\n";
			print "<dd>$com\n";
		}
	}
	close(IN);

	if ($flg) { &error("•s?³‚È•Ô?M—v‹?‚Å‚·"); }

	# ƒ^ƒCƒgƒ‹–¼
	if ($resub !~ /^Re\:/) { $resub = "Re: $resub"; }

	print <<"EOM";
<dt><hr>
</dl>
<a name="RES"></a>
<form action="$registcgi" method="post">
<input type="hidden" name="mode" value="regist">
<input type="hidden" name="reno" value="$in{'no'}">
<input type="hidden" name="page" value="$page">

EOM

	require $formpl;
	&form($cnam,$ceml,$curl,$cpwd,$cico,$ccol,$resub,'');

	print <<EOM;
</form>

</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  ƒ??[ƒhŒŸ?õ
#-------------------------------------------------
sub find {
	&header;
	print <<EOM;
<form action="$bbscgi">
<input type="hidden" name="list" value="$in{'list'}">
<input type="submit" value="&lt; –ß‚é">
</form>
<ul>
<li>ƒL?[ƒ??[ƒh‚ð“ü—Í‚µ?A?u?ðŒ??v?u•\\Ž¦?v‚ð‘I‘ð‚µ‚ÄŒŸ?õƒ{ƒ^ƒ“‚ð‰Ÿ‚µ‚ĉº‚³‚¢?B
<li>ƒL?[ƒ??[ƒh‚̓Xƒy?[ƒX‚Å‹æ?Ø‚Á‚Ä•¡?”Žw’è‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·?B
<p>
<form action="$bbscgi" method="post">
<input type="hidden" name="mode" value="find">
<input type="hidden" name="list" value="$in{'list'}">
ƒL?[ƒ??[ƒh <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>$_\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>$_Œ?\n";
		} else {
			print "<option value=\"$_\">$_Œ?\n";
		}
	}

	print <<EOM;
</select>
<input type="submit" value="ŒŸ?õ">
</form>
</ul>
EOM

	# ŒŸ?õŽÀ?s
	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="https://contest.japias.jp/tqj2007/90019/cgi-bin/\"$bbscgi?mode=find&page=$back&word=$enwd&view=$in{'view'}&cond=$in{'cond'}&list=$in{'list'}\"" target="_blank">‘O‚Ì$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;
}

#-------------------------------------------------
#  “Š?e‰æ–Ê
#-------------------------------------------------
sub form_disp {
	# “Š?eƒL?[
	local($str_plain,$str_crypt);
	if ($regist_key) {
		require $regkeypl;

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

	# ƒNƒbƒL?[‚ðŽæ“¾
	local($cnam,$ceml,$curl,$cpwd,$cico,$ccol) = &get_cookie;
	if (!$curl) { $curl = 'http://'; }

	# ƒwƒbƒ_‚ð?o—Í
	if ($ImageView == 1) { &header('ImageUp'); }
	else { &header; }

	# ŠÖ˜A‹LŽ–?o—Í
	print <<EOM;
<form>
<input type="button" value="&lt; –ß‚é" onclick="history.back()">
</form>
?¥?V‹K“Š?eƒtƒH?[ƒ€
<hr>
EOM

	print <<"EOM";
<a name="RES"></a>
<form action="$registcgi" method="post">
<input type="hidden" name="mode" value="regist">
<input type="hidden" name="reno" value="$in{'no'}">
<input type="hidden" name="page" value="$page">
<input type="hidden" name="list" value="$in{'list'}">

EOM

	require $formpl;
	&form($cnam,$ceml,$curl,$cpwd,$cico,$ccol,'','');

	print <<EOM;
</form>

</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  ‰ß‹Žƒ?ƒO
#-------------------------------------------------
sub past_log {
	open(IN,"$nofile") || &error("Open Error: $nofile");
	my $num = <IN>;
	close(IN);

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

	&header;
	print <<"EOM";
<form action="$bbscgi">
<input type="hidden" name="list" value="$in{'list'}">
<input type="submit" value="&lt; –ß‚é">
</form>
<form action="$bbscgi" method="post">
<input type="hidden" name="mode" value="$mode">
<input type="hidden" name="list" value="$in{'list'}">
<table border="0">
<tr><td><b>‰ß‹Žƒ?ƒO</b> <select name="log" class="f">
EOM

	# ‰ß‹Žƒ?ƒO‘I‘ð
	for ( my $i = $num; $i > 0; --$i ) {
		$i = sprintf("%04d", $i);
		next unless (-e "$pastdir/$i.cgi");

		if ($in{'log'} == $i) {
			print "<option value=\"$i\" selected>$i\n";
		} else {
			print "<option value=\"$i\">$i\n";
		}
	}

	print <<EOM;
</select>
<input type="submit" value="ˆÚ“®"></td></form>
<td width="15"></td><td>
<form action="$bbscgi" method="post">
<input type="hidden" name="mode" value="$mode">
<input type="hidden" name="list" value="$in{'list'}">
<input type="hidden" name="log" value="$in{'log'}">
ƒL?[ƒ??[ƒh <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>$_\n";
		} else {
			print "<option value=\"$_\">$_\n";
		}
	}

	print qq |</select> •\\Ž¦ <select name="view" class="f">\n|;

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

	print <<EOM;
</select>
<input type="submit" value="ŒŸ?õ"></td>
</form>
</tr></table>
EOM

	my $file = sprintf("%s/%04d.cgi", $pastdir,$in{'log'});

	# ŒŸ?õ?ˆ—?
	if ($in{'word'} ne "") {

		# ŒŸ?õ
		my ($i, $next, $back) = &search($file, $in{'word'}, $in{'view'}, $in{'cond'}, 'past');

		# ƒy?[ƒWŒJ‚è‰z‚µ
		my $enwd = &url_enc($in{'word'});
		if ($back >= 0) {
			print "[<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/\"$bbscgi?mode=$mode&log=$in{'log'}&page=$back&word=$enwd&view=$in{'view'}&cond=$in{'cond'}&list=$in{'list'}\"" target="_blank">‘O‚Ì$in{'view'}Œ?</a>]\n";
		}
		if ($next < $i) {
			print "[<a href=\"$bbscgi?mode=$mode&log=$in{'log'}&page=$next&word=$enwd&view=$in{'view'}&cond=$in{'cond'}&list=$in{'list'}\">ŽŸ‚Ì$in{'view'}Œ?</a>]\n";
		}

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

	print "<dl>\n";

	my $i = 0;
	open(IN,"$file") || &error("Open Error: $file");
	while (<IN>) {
		my ($no,$re,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col,$ico) = split(/<>/);

		if ($re eq "") { $i++; }
		if ($i < $page + 1) { next; }
		if ($i > $page + $pastView) { next; }

		if ($eml) { $nam = "<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/\"mailto:$eml\"" target="_blank">$nam</a>"; }
		if ($url) { $url = "&amp;lt;<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/\"$url\"" target="_blank" target=\"_blank\">URL</a>&amp;gt;"; }

		if ($re eq "") { print "<dt><hr>"; } else { print "<dd>"; }

		print qq |<b style="color:$subcol">$sub</b> |;
		print qq |<b>$nam</b> - $dat $url <span style="color:$subcol">No.$no</span><br><br>\n|;

		if ($ico) {
			print qq |<table><tr><td><img src="https://contest.japias.jp/tqj2007/90019/cgi-bin/$imgurl/$ico"></td>|;
			print qq |<td width="10"></td><td style="color:$col">$com</td>|;
			print qq |</tr></table>\n|;
		} else {
			print qq |<dd style="color:$col">$com</dd>\n|;
		}
	}
	close(IN);

	print <<EOM;
<dt><hr>
</dl>
EOM

	# ƒy?[ƒWˆÚ“®ƒ{ƒ^ƒ“•\Ž¦
	if ($page - $pastView >= 0 || $page + $pastView < $i) {
		&mvbtn("$bbscgi?mode=$mode&log=$in{'log'}&page=", $i, $pastView);
	}

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

#-------------------------------------------------
#  ƒJƒEƒ“ƒ^?ˆ—?
#-------------------------------------------------
sub counter {
	local($count, $cntup, @count);

	# ‰{——Žž‚̂݃JƒEƒ“ƒgƒAƒbƒv
	if ($mode eq '') { $cntup = 1; } else { $cntup = 0; }

	# ƒJƒEƒ“ƒgƒtƒ@ƒCƒ‹‚ð“Ç‚Ý‚±‚Ý
	open(LOG,"+< $cntfile") || &error("Open Error: $cntfile");
	eval "flock(LOG, 2);";
	$count = <LOG>;

	# IPƒ`ƒFƒbƒN‚ƃ?ƒO”j‘¹ƒ`ƒFƒbƒN
	local($cnt, $ip) = split(/:/, $count);
	if ($addr eq $ip || $cnt eq "") { $cntup = 0; }

	# ƒJƒEƒ“ƒgƒAƒbƒv
	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ƒJƒEƒ“ƒ^•\Ž¦
	if ($counter == 2) {
		foreach (0 .. $#count) {
			print "<img src=\"$gif_path/$count[$_]\.gif\" alt=\"$count[$_]\" width=\"$mini_w\" height=\"$mini_h\">";
		}
	# ƒeƒLƒXƒgƒJƒEƒ“ƒ^•\Ž¦
	} else {
		print "<font color=\"$cntcol\" face=\"Verdana,Helvetica,Arial\">$cnt</font><br>\n";
	}
}

#-------------------------------------------------
#  ‰æ‘œƒCƒ??[ƒW•\Ž¦
#-------------------------------------------------
sub image {
	my @ico1 = split(/\s+/, $ico1);
	my @ico2 = split(/\s+/, $ico2);

	&header;
	print <<EOM;
<div align="center">
<h4>‰æ‘œƒCƒ??[ƒW</h4>
<table border="1" cellpadding="5" cellspacing="0" bgcolor="$tblcol">
EOM

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

		if ($i % 5 == 1) {
			print "<tr>\n";
		}
		print qq |<th><img src="https://contest.japias.jp/tqj2007/90019/cgi-bin/$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) {
		# “–ƒy?[ƒW
		if ($page == $y) {

			print qq {| <b style="color:red" class="n">$x</b>\n};

		# ?Ø‘Öƒy?[ƒW
		} elsif ($x >= $start && $x <= $end) {

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

		# ‘Oƒuƒ?ƒbƒN
		} elsif ($x == $start-1) {

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

		# ŽŸƒuƒ?ƒbƒ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";
}

#-------------------------------------------------
#  ŒŸ?õ?ˆ—?
#-------------------------------------------------
sub search {
	local($file, $word, $view, $cond, $job) = @_;

	# ƒL?[ƒ??[ƒh‚ð”z—ñ‰»
	$word =~ s/\x81\x40/ /g;
	my @wd = split(/\s+/, $word);

	# ƒtƒ@ƒCƒ‹“WŠJ
	print "<dl>\n";
	my $i = 0;
	open(IN,"$file") || &error("Open Error: $file");
	my $top = <IN> if ($job ne "past");
	while (<IN>) {
		my $flg;
		foreach my $wd (@wd) {
			if (index($_,$wd) >= 0) {
				$flg++;
				if ($cond eq 'OR') { last; }
			} else {
				if ($cond eq 'AND') { $flg = 0; last; }
			}
		}

		# ƒqƒbƒg‚µ‚½?ê?‡
		if ($flg) {
			$i++;
			next if ($i < $page + 1);
			next if ($i > $page + $view);

			my ($no,$reno,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col,$ico) = split(/<>/);
			if ($eml) { $nam = "<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/\"mailto:$eml\"" target="_blank">$nam</a>"; }
			if ($url) { $url = "&amp;lt;<a href="https://contest.japias.jp/tqj2007/90019/cgi-bin/\"$url\"" target="_blank" target=\"_blank\">Home</a>&amp;gt;"; }

			# Œ‹‰Ê‚ð•\Ž¦
			print "<dt><hr>[<b>$no</b>] <b style=\"color:$subcol\">$sub</b> ";
			print "“Š?eŽÒ?F<b>$nam</b> “Š?e“ú?F$dat $url<br><br>\n";
			print "<dd style=\"color:$col\">$com\n";
		}
	}
	close(IN);

	print <<EOM;
<dt><hr>
ŒŸ?õŒ‹‰Ê?F<b>$i</b>Œ?
</dl>
EOM

	my $next = $page + $view;
	my $back = $page - $view;
	return ($i, $next, $back);
}

#-------------------------------------------------
#  URLƒGƒ“ƒR?[ƒh
#-------------------------------------------------
sub url_enc {
	local($_) = @_;

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