#!c:/perl/bin/perl
##ªPerl‚Ö‚ÌƒpƒX

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒ}ƒXƒ^[ƒL[‚ÌÝ’è                                      „«
#„«”¼Šp‰p”‚Å8•¶ŽšˆÈ‰º‚ÅŽw’è‚µ‚Ä‚­‚¾‚³‚¢B                 „«
#„«"ƒRƒƒ“‚É‹²‚Ü‚ê‚½[0123]‚ð•ÏX‚µ‚Ü‚·B                   „«
#„«["][;]‚ðÁ‚³‚È‚¢‚æ‚¤‚É’ˆÓ‚µ‚Ä‚­‚¾‚³‚¢B                „«

$masterkey  = "0123";                                        

#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ŠO•”ƒtƒ@ƒCƒ‹‚ÌŒÄ‚Ño‚µ                                  „«
#„«jcode.pl‚ª•¡”‚ ‚éê‡‚ÍA‚Ü‚Æ‚ß‚Ü‚µ‚å‚¤                „«

   require './jcode.pl';
   require './kboard.ini';
                                                             
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ˆÈ‰º•ÏX‚·‚×‚«‚Æ‚±‚ë‚Í“Á‚É‚ ‚è‚Ü‚¹‚ñB                  „«
#„«Perl‚ÉŽ©M‚ª‚ ‚él‚¾‚¯A‰ü‘¢‚È‚Ç•ÏX‚µ‚Ä‚­‚¾‚³‚¢B      „«
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«KBOARD v11.00 (01/05/25)                                „«
#„«(C) 2000-2001 KAISM                                     „«
#„«E-MAIL: kai@netpro.ne.jp                                „«
#„«   WWW: http://www.netpro.ne.jp/~kai/                   „«
$ver = 'kboard v11.00';                  # ƒo[ƒWƒ‡ƒ“î•ñ  „«
#„«                                                        „«
#„«KBOARD v11.00 type PhotoEz-03a (01/08/31)               „«
#„«(C) 2001 Ez                                             „«
#„«E-MAIL: kai@netpro.ne.jp                                „«
#„«   WWW: http://www.netpro.ne.jp/~kai/                   „«
$verEz = 'kboard type PhotoEz-03a';# ƒo[ƒWƒ‡ƒ“î•ñ        „«
#„«                                                        „«
#„«---[’ˆÓŽ–€]-------------------------------------------„«
#„«‚±‚ÌƒXƒNƒŠƒvƒg‚ÍƒtƒŠ[ƒ\ƒtƒg‚Å‚·B‚±‚ÌƒXƒNƒŠƒvƒg‚ðŽg—p  „«
#„«‚µ‚½‚¢‚©‚È‚é‘¹ŠQ‚É‘Î‚µ‚ÄìŽÒ‚ÍˆêØ‚ÌÓ”C‚ð•‰‚¢‚Ü‚¹‚ñB  „«
#„«’˜ìŒ ‚ð•úŠü‚µ‚½‚í‚¯‚Å‚Í‚ ‚è‚Ü‚¹‚ñB                    „«
#„«                                                        „«
#„«--------------------------------------------------------„«
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ˆ—Žè‡                                                „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²

&decode;
&access_deny;

if ($mode eq "res_pass"){&res_pass;}
if ($mode eq "town"){&ktown_win;}
if ($mode eq "write"){&write;}
if ($mode eq "frame"){&frame;}
if ($mode eq "menu"){&menu;}

if ($mode eq "clear" && $pass ne "$masterkey"){&clear;}
if ($mode eq "clear" && $pass eq "$masterkey"){&admin_res_form;}
if ($mode eq "admin_clear"){&clear;}
if ($mode eq "admin_res_write"){&admin_res_write;}

#‰ü‘¢
if ($mode eq "minna_res_write"){&minna_res_write;}

if ($mode eq "admin_in"){&admin_in;}

#‰ü‘¢
if ($mode eq "minna_res_form"){&minna_res_form;}

if ($mode eq "admin_pass" && $pass eq "$masterkey"){&admin_form;}
if ($mode eq "admin_pass" && $pass ne "$masterkey"){&admin_in("ƒL[‚ªˆá‚¢‚Ü‚·");}
if ($mode eq "admin_write"){&admin_write;}

if ($mode eq "res_html"){&res_html;}
if ($mode eq "res_write"){&res_write;}
if ($mode eq "res_clear_form"){&res_clear_form;}
if ($mode eq "res_clear"){&res_clear;}

&html;

#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒTƒuƒ‹[ƒ`ƒ“‘SƒŠƒXƒg                                    „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
#„«sub html                 ƒƒCƒ“•\Ž¦ˆ—                 „«
#„«sub write                ƒƒO‘‚«ž‚Ýˆ—               „«
#„«sub clear                ƒƒOíœˆ—                   „«
#„«sub decode               ƒfƒR[ƒhˆ—                   „«
#„«sub make_pass            íœƒL[ˆÃ†‰»ˆ—             „«
#„«sub match_pass           íœƒL[ˆÃ†•„‡ˆ—           „«
#„«sub uemess               ’ˆÓƒƒbƒZ[ƒW•\Ž¦ˆ—         „«
#„«sub error                ƒGƒ‰[ƒƒbƒZ[ƒW•\Ž¦ˆ—       „«
#„«sub auto_link            Ž©“®ƒŠƒ“ƒNˆ—                 „«
#„«sub get_time             ŽžŠÔŽæ“¾ˆ—                   „«
#„«sub get_host             ƒzƒXƒgEIPƒAƒhƒŒƒXŽæ“¾ˆ—     „«
#„«sub lock                 ƒƒbƒNˆ—                     „«
#„«sub unlock               ƒƒbƒN‰ðœˆ—                 „«
#„«sub set_cookie           ƒNƒbƒL[¶¬ˆ—               „«
#„«sub get_cookie           ƒNƒbƒL[Žæ“¾ˆ—               „«
#„«sub mail_to              ƒ[ƒ‹‘—Mˆ—                 „«
#„«sub new_time             V’…•\Ž¦ˆ—                   „«
#„«sub how_to               Žg‚¢•û•\Ž¦ˆ—                 „«
#„«sub page                 ƒy[ƒWƒŠƒ“ƒN•\Ž¦ˆ—           „«
#„«sub ktown                town•\Ž¦ˆ—                   „«
#„«sub ktown_win            town•Ê‘‹•\Ž¦ˆ—               „«
#„«sub ktown_time           town“úŽžƒtƒH[ƒ}ƒbƒgˆ—       „«
#„«sub ktown_up             townƒJƒEƒ“ƒgXVˆ—           „«
#„«sub fudousan             ”„‹pƒƒbƒZ[ƒW•\Ž¦ˆ—         „«
#„«sub pastwrite            ‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹XVˆ—       „«
#„«sub new_pfile            ‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹ì¬ˆ—       „«
#„«sub frame                ‰ß‹ŽƒƒOƒtƒŒ[ƒ€¶¬ˆ—       „«
#„«sub menu                 ‰ß‹ŽƒƒOƒƒjƒ…[¶¬ˆ—       „«
#„«sub admin_in             ŠÇ——p”FØƒtƒH[ƒ€o—Íˆ—     „«
#„«sub admin_form           townƒf[ƒ^C³ƒtƒH[ƒ€o—Íˆ— „«
#„«sub admin_write          townƒf[ƒ^C³ˆ—             „«
#„«sub admin_res_form       ŠÇ—ŽÒƒŒƒX“ü—ÍƒtƒH[ƒ€         „«
#„«sub admin_res_write      ŠÇ—ŽÒƒŒƒX‘‚«‚±‚Ýˆ—         „«
#„«sub minna_res_form       ‚Ý‚ñ‚ÈƒŒƒX“ü—ÍƒtƒH[ƒ€         „«
#„«sub minna_res_write      ‚Ý‚ñ‚ÈƒŒƒX‘‚«‚±‚Ýˆ—         „«
#„«sub res_html             Ž„‘” •\Ž¦ˆ—                 „«
#„«sub res_write            Ž„‘” ƒf[ƒ^‚Ì‘‚«‚±‚Ýˆ—     „«
#„«sub res_clear_form       Ž„‘” ƒf[ƒ^íœƒtƒH[ƒ€•\Ž¦   „«
#„«sub res_clear            Ž„‘” ƒf[ƒ^íœˆ—           „«
#„«sub res_pass             ’u‚«ŽèŽ†ƒpƒXƒ[ƒhÆ‡ˆ—     „«
#„«sub access_deny          ƒAƒNƒZƒX‹‘”Ûˆ—               „«
#„«sub head_html            ƒwƒbƒ_[•\Ž¦ˆ—               „«
#„«sub house_page_count     ‰Æ•\Ž¦ƒy[ƒWˆ—               „«
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒƒCƒ“•\Ž¦ˆ—                                          „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub html{  

##ƒNƒbƒL[‚Ìî•ñ‚ðŽæ“¾‚·‚éˆ—‚É 
	
	#$cookie{'cname'}   –¼‘O             
	#$cookie{'cemail'}  ƒ[ƒ‹ƒAƒhƒŒƒX   
	#$cookie{'curl'}    HPƒAƒhƒŒƒX       
	#$cookie{'cpass'}   íœƒL[         
	&get_cookie;

##“Še‹LŽ–‚ðŽæ“¾‚·‚éˆ—
	
	#ƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚«‚Ü‚·
	open (IN,"$logfile") || &error("“Še‹LŽ–ƒtƒ@ƒCƒ‹$logfile‚ª“Ç‚Ý‚±‚ß‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#Šesi‹LŽ–j‚ð”z—ñ‚É‘ã“ü
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close(IN);

	#ƒwƒbƒ_[•\Ž¦ˆ—‚Ö
	#ƒy[ƒWƒ^ƒCƒgƒ‹‚ð‚à‚Á‚Ä‚¢‚­
	&head_html("$title");
	if ($backyes == 1) {
		$wkhgsu = ($#in_hcolors + 1 ) * 2 +1;
		}
	else {
		$wkhgsu = 1;
	}
	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
<center>
<table border=0>
<tr>
<!---left-cell---->
<td width=400 nowrap valign=top>

<!---form-table-->
	<table width=400 border=0 cellspacing=0 cellpadding=4>
		<form action="$script" method="$method">
		<input type=hidden name=mode value="write">
		<tr><td colspan=$wkhgsu align=center class="title"><b>$bbstitle</b></td></tr>
	
		<tr><td colspan=$wkhgsu nowrap align=right><b>‚¨‚È‚Ü‚¦:</b><input type=text name=name size=30 value="$cookie{'cname'}" class="AL3"></td></tr>
		<tr><td colspan=$wkhgsu nowrap align=right><b>ƒ[ƒ‹:</b><input  type=text name=email size=30 value="$cookie{'cemail'}" class="AL3"></td></tr>
		<tr><td colspan=$wkhgsu nowrap align=right><b>ƒz[ƒ€ƒy[ƒW:</b><input  type=text name=url size=30 value="http://$cookie{'curl'}" class="AL3"></td></tr>
		<tr><td colspan=$wkhgsu nowrap align=right><b>ƒ^ƒCƒgƒ‹:</b><input  type=text name=sub size=30 class="AL3"></td></tr>
		<tr><td colspan=$wkhgsu align=right><textarea cols=50 rows=5 name=comment wrap="$wrap" class="AL3"></textarea></td></tr>

		<tr><td colspan=$wkhgsu align=left><b>ƒtƒHƒ“ƒg:</b>
EOM
	foreach (@in_mcolors) {
		if ($cmcolor eq $_) {
			print "<input type=radio name=mcolor value=$_ checked>";
			print "<font color=$_>¡</font>\n";
		} else {
			print "<input type=radio name=mcolor value=$_>";
			print "<font color=$_>¡</font>\n";
		}
	}
	print "</td></tr>\n";

###2001.8.31‰ü‘¢
if ($backyes == 1) {
	print "<tr><td><b”wŒi:</b></td>\n";
	foreach (@in_hcolors) {
		if ($chcolor eq $_) {
			if ($_ eq "dmy.gif") {
				print "<td class=\"AL3\">\n";
			}else {
				print "<td class=\"AL4\" background=\"$gifdir/$_\">\n";
			}
			print "<input type=radio name=hcolor value=$_ checked>";

			print "</td>\n";
			print "<td>&nbsp;</td>\n";
		} else {
			if ($_ eq "dmy.gif") {
				print "<td class=\"AL3\">\n";
			}else {
				print "<td class=\"AL4\" background=\"$gifdir/$_\">\n";
			}
			print "<input type=radio name=hcolor value=$_>";
			print "</td>\n";
			print "<td>&nbsp;</td>\n";
		}
	}
		print "</tr>\n";
} else {

}

		print <<"EOM";
		<tr><td colspan=$wkhgsu align=right valign=bottom><b>ƒL[:</b><input  type=password name=pass size=8 maxlength=8 value="$cookie{'cpass'}" class="AL3"><input type=image src="$submit_gif" width=$submit_w height=$submit_h border=0></td></tr>
		<tr><td colspan=$wkhgsu align=center><font color="$uemess_color">$uemess</font></td></tr>
		</form>
	</table>
<!--form-table-end---->


<br>
EOM

##ƒy[ƒWˆ—
	
	#•\Ž¦‚·‚é‹LŽ–‚Ìs”Ô†‚ðŽæ“¾‚µ‚Ä‚­‚é
	&page;

##‹LŽ–ƒf[ƒ^‚Ì•ªÍ•ƒtƒH[ƒ}ƒbƒgˆ—

	#Še‹LŽ–ƒf[ƒ^‚ð‰ðÍ‚·‚éBˆÈ‰ºAƒf[ƒ^‚É‘Î‚·‚é
	#ˆ—‚ÌŒJ‚è•Ô‚µB
	# $page_start •\Ž¦‚·‚é‹LŽ–‚ÌÅ‰‚Ìs”(-1)
	# $page_end   •\Ž¦‚·‚é‹LŽ–‚ÌÅŒã‚Ìs”(-1)
	foreach ($page_start .. $page_end){

		#$num		‹LŽ–”Ô†
		#$name		–¼‘O
		#$email		ƒ[ƒ‹ƒAƒhƒŒƒX
		#$url		HPƒAƒhƒŒƒX
		#$sub		ƒ^ƒCƒgƒ‹
		#$comment	‹LŽ–
		#$date		“ú•t
		#$second	“ú•ti•bj
		#$host		ƒzƒXƒg
		#$pass		íœƒL[iˆÃ†‰»j

		#$mcolor	•¶ŽšF		‰ü‘¢
		#$hcolor	”wŒi‰æ‘œF	‰ü‘¢ 2001.8.31

		($num,$name,$email,$url,$sub,$comment,$res,$date,$second,$host,$pass,$mcolor,$hcolor) = split (/<>/,$lines[$_]);
		
		#ƒ[ƒ‹ƒAƒhƒŒƒX‚ª‚ ‚ê‚ÎAƒŠƒ“ƒN‚ð‚Í‚éB
		if ($email ne ""){
			
			#ƒ[ƒ‹‰æ‘œ‚ª‚ ‚ê‚ÎA‚»‚ê‚ÉƒŠƒ“ƒN‚ð‚Í‚éB
			if ($emailgif){
				$email = "<a href=mailto:$email><img src=\"$emailgif\" border=0 width=$emailgif_w height=$emailgif_h></a> ";
			
			#‚È‚¯‚ê‚ÎA–¼‘O‚ÉƒŠƒ“ƒN‚ð‚Í‚éB
			}else{
			
				$name = "<a href=mailto:$email>$name</a>";
			}
		}
		
		#HPƒAƒhƒŒƒX‚ª‚ ‚ê‚ÎAƒŠƒ“ƒN‚ð‚Í‚é
		if ($url ne ""){
		
			#‰ÆƒAƒCƒRƒ“‚ª‚ ‚ê‚ÎA‚»‚ê‚ÉƒŠƒ“ƒN‚ð‚Í‚éB
			if ($urlgif){
				$url = "<a href=\"http://$url\" target=\"$target\"><img src=\"$urlgif\" border=0 width=$url_w height=$url_h></a>";

			#‰ÆƒAƒCƒRƒ“‚ª‚È‚¯‚ê‚ÎA[url]‚Ì•¶Žš‚ÉƒŠƒ“ƒN‚ð‚Í‚éB
			}else{
				$url = "[<a href=\"http://$url\" target=\"$target\">url</a>]";
			}
		}
		
		#V’…‹­’²•\Ž¦‚ð‚·‚é‚©‚ð”»’f‚µAV’…‚©‚Ç‚¤‚©•]‰¿
		if ($new_time_check){&new_time;}

		#ƒqƒAƒhƒLƒ…ƒƒ“ƒgi‹LŽ–•\Ž¦j

		print <<"EOM";
<!---[$num]-message-table--->
EOM

#2001.8.31‰ü‘¢
	$himgnoflg = 0;
	if ($backyes == 1) {
		$wkhimg = $gifdir . "/" . $hcolor;

		$hcolor =~ s/\n//g;
		if ($hcolor eq "dmy.gif") {
			$himgnoflg = 1;
		}
		if ($hcolor eq "") {
			$himgnoflg = 1;
		}
		if ($himgnoflg == 1) {
			print "<table cellspacing=0 cellpadding=3 border=0 class=AL4>\n";
		} else {
			print "<table cellspacing=0 cellpadding=3 border=0 class=AL4 background=$wkhimg>\n";
		}
	} else {
		$himgnoflg = 1;
		print "<table cellspacing=0 cellpadding=3 border=0 class=AL4>\n";
	}
	


print <<"EOM";
		<form action="$script" method="$method">
		<input type=hidden name=mode value=clear>
		<input type=hidden name=num value="$num">
EOM

if ($himgnoflg == 1) {
print <<"EOM";
		<tr><td width=400 class="AL">
		
		<font color=$mestltxcol><b>[$num]$sub</b>
		$date</font></td>
		</tr>
		<tr>
		<td class="AL2">
		<ul>
		<font color=$mcolor>$comment</font>
		</ul>
		</td>
		</tr>
		<tr>
		<td align=right class="AL2">$name</td>
		</tr>
		<tr>
		<td align=right class="AL2">$email $url<input type=image src="$gomi_gif" width=$gomi_w height=$gomi_h border=0><input type=password name=pass size=8 maxlength=8 class="AL4"></td>
		</tr>
		</form>
EOM
		print "<tr><td align=right class=\"AL2\"><form action=\"$script\" method=\"$method\">";
		print "<input type=hidden name=mode value=minna_res_form>\n";
		print "<input type=hidden name=num value=\"$num\">\n";

		print "<input type=submit class=\"AL5\"value=‚Ý‚ñ‚È‚ÅƒŒƒX></td></tr></form>";

		#ƒŒƒX‚Ì•\Ž¦
		if ($res){

			print "<tr>\n";
			print "<td class=\"AL2\">\n";
			print "<ul><ul>\n";
			print "<br>\n";
			print "<font color=\"$master_color\">$res</font>\n";
			print "</ul></ul>\n";
			print "</td>\n";
			print "</tr>\n";
		}


} else {
print <<"EOM";
		<tr><td width=400 class="AL6">
		
		<font color=$mestltxcol><b>[$num]$sub</b>
		$date</font></td>
		</tr>
		<tr>
		<td>
		<ul>
		<font color=$mcolor>$comment</font>
		</ul>
		</td>
		</tr>
		<tr>
		<td align=right>$name</td>
		</tr>
		<tr>
		<td align=right>$email $url<input type=image src="$gomi_gif" width=$gomi_w height=$gomi_h border=0><input type=password name=pass size=8 maxlength=8 class="AL4"></td>
		</tr>
		</form>
EOM
		print "<tr><td align=right><form action=\"$script\" method=\"$method\">";
		print "<input type=hidden name=mode value=minna_res_form>\n";
		print "<input type=hidden name=num value=\"$num\">\n";

		print "<input type=submit class=\"AL5\"value=‚Ý‚ñ‚È‚ÅƒŒƒX></td></tr></form>";

		#ƒŒƒX‚Ì•\Ž¦
		if ($res){
			print "<tr>\n";
			print "<td>\n";
			print "<ul><ul>\n";
			print "<br>\n";
			print "<font color=\"$master_color\">$res</font>\n";
			print "</ul></ul>\n";
			print "</td>\n";
			print "</tr>\n";
		}

}



#‰ü‘¢‚R
		



		print <<"EOM";
	</table>

<br>
<br>
<!---[$num]-messgae-table-end--->



EOM
	}
	
	
##Žg‚¢•û•\Ž¦‚ðŽæ“¾

	#Žg‚¢•û‚ð•\Ž¦‚·‚é‚È‚çA
	if ($mode eq "howtogo"){
		
		#•\Ž¦ˆ—‚Ö
		&how_to;
		
	#•\Ž¦‚µ‚È‚¢‚È‚ç
	}else{
	
		#ƒŠƒ“ƒN‚ð•\Ž¦
		$howto = "<center><a href=\"$script?mode=howtogo\">Žg‚¢•û‚ð‚Ý‚é</a></center>";
	}

##html•\Ž¦ˆ—
	
	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";

<!---page/copyright-table--->
	<table width=100% border=0><tr><td align=left nowrap>$page_back</td><td align=left nowrap>$page_next</td><td></td></tr>
	<tr><td></td><td></td><td align=right>$ver <a href="http://www.netpro.ne.jp/~kai/" target="_blank">kaism</a></td></tr>
	<tr><td></td><td></td><td align=right>house icon<a href="http://www.ushikai.com/" target="_blank">Y.Kishino</a></td></tr>
	<tr><td></td><td></td><td align=right>$verEz <a href="http://homepage2.nifty.com/ezy/" target="_blank">Ez Club</a></td></tr>
</table>
<!---page/copyright-table-end--->

</td>
<!--left-cell-end--->

<!--right-cell--->
<td align=center nowrap valign=top width=250>

<!--info-table--->
	<table cellspacing=0 cellpadding=3 border=0 bgcolor="$info_bgcolor">
		<tr><td><br></td></tr>
EOM

if ($kazariimg) {
	print "<tr><td nowrap width=200 align=center><img src=$kazariimg></td></tr>\n";
	}
if ($midi) {
	print"<tr><td nowrap width=200 align=center><EMBED src=$midi type=\"audio/midi\" width=\"150\" height=\"40\" autostart=\"TRUE\" loop=\"TRUE\" repeat=\"TRUE\" save=\"FALSE\" volume=\"60\" align=\"middle\"></td></tr>\n";
	}
if ($midiurl) {
	print"<tr><td nowrap width=200 align=center><A href=$midiurl target=\"_blank\"><FONT size=\"2\">$midisname</FONT></A></td></tr>\n";
}
	print <<"EOM";
		<tr><td nowrap width=200 align=center>$message</td></tr>
		<tr><td nowrap width=200 align=left><hr size=1 width=100%>$howto<hr size=1 width=100%></td></tr>
		<tr><td nowrap width=200 align=center><a href="$home" target="$h_target">‚Ü‚¾‚Þ‚Ì•”‰®</a> | <a href="$script?mode=admin_in">ŠÇ——p </a>

EOM

##‰ß‹ŽƒƒOƒŠƒ“ƒN‚ÉŠÖ‚µ‚Ä

	#‰ß‹ŽƒƒO‚ðŽg‚¤‚©‚Ç‚¤‚©
	if($past_check){
	
		#$pcnt_file‚Ìˆês–Ú‚É‚ ‚éA‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹NO‚ðŽæ‚èo‚·B
		open (IN ,"$pcnt_file") || &error("$pcnt_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½") ;
		$pcnt = <IN>;
		close (IN);
	
		#s––‚Ì‰üs•¶Žš‚ðØ‚è—Ž‚Æ‚·
		$pcnt =~ s/\n//g;
	
		#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹NO‚ª0‚Å‚È‚¢‚È‚çA‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚Ö‚ÌƒŠƒ“ƒN‚ð•\Ž¦
		unless($pcnt == 0){
			print "| <a href=\"$script?mode=frame\">‰ß‹ŽƒƒO</a>\n";
		}
	}
	
	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
		</td></tr>
		<tr><td><br></td></tr>
	</table>
<!--info-table-end--->

<br>

<!--town-table--->
EOM


	#town•\Ž¦ˆ—‘I‘ð
	#ˆê‚É•\Ž¦‚·‚é‚È‚çA•\Ž¦ˆ—‚ÉB
	if($ktown){&ktown;}
	
	#•Ê‘‹•\Ž¦‚È‚çtown‰æ‘œ‚ÉƒŠƒ“ƒN‚ð‚Í‚é
	else{
		print <<"EOM";
<table>
<tr>
	<td align=center width=200 nowrap align=center><b>$town_title</b><br><a href="$script?mode=town" target=_blank><img src="$iedir/town.gif" border=0></a></td>
</tr>
</table>
EOM
	}

	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
<!---town-table-end--->

</td>
<!---right-cell-end--->

</tr>
</table>

</center>

</body>
</html>
EOM

	#ˆ—‚ðI—¹B
	exit;

}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®
 
#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒƒOƒtƒ@ƒCƒ‹‚É‘‚«‚±‚Ý‚·‚éˆ—                          „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub write{                                                 

##“ñdˆ—‰ñ”ðˆ—

	#“ñdˆ—‚ð‰ñ”ð‚·‚é‚½‚ß‚ÉAƒƒbƒNˆ—‚ð‚·‚éB
	if($lock_check){&lock;}

##•K{€–Ú§ŒÀ‚Ìˆ—

	#“Še‹LŽ–‚É–¼‘O$name‚ª‹L“ü‚³‚ê‚Ä‚È‚©‚Á‚½Žž‚Ìˆ—
	#–¼‘O‚ª•K{€–Ú‚È‚ç
	if ($name_check){
	
		#–¼‘O‚ª•K{‚È‚çA‚»‚ÌŽ|‚ÌƒƒbƒZ[ƒW‚ð•\Ž¦‚µ‚ÄAˆ—‚ð’†’f
		if ($name eq ""){
			&uemess("$mess_name");
		}
	
	#•K{‚Å‚È‚¢‚È‚ç
	}else{
		if($name eq ""){
		
			#–¼‘O‚É$tokumei‚ÅŽw’è‚µ‚½–¼‘O‚ð“ü‚ê‚é
			$name = "$tokumei";
		}
	}
	
	#ƒ[ƒ‹ƒAƒhƒŒƒX‚ª‹L“ü‚³‚ê‚È‚©‚Á‚½‚Æ‚«‚Ìˆ—
	#ƒ[ƒ‹ƒAƒhƒŒƒX‚ª•K{€–Ú‚È‚ç
	if ($email_check){
		if ($email eq ""){
		
			#‚»‚ÌŽ|‚ÌƒƒbƒZ[ƒW‚ð•\Ž¦‚µ‚ÄAˆ—‚ð’†’f
			&uemess("$mess_email");
		}
	}

	#“Še‹LŽ–‚É‘è–¼$sub‚ª‹L“ü‚³‚ê‚Ä‚È‚©‚Á‚½Žž‚Ìˆ—
	#‘è–¼‚ª•K{€–Ú‚È‚ç
	if ($sub_check){
		if ($sub eq ""){
		
			#‚»‚ÌŽ|‚ÌƒƒbƒZ[ƒW‚ð•\Ž¦‚µ‚ÄAˆ—‚ð’†’f
			&uemess("$mess_sub");
		}
		
	#•K{€–Ú‚Å‚È‚¯‚ê‚ÎA
	}else{
		if ($sub eq ""){
		
			#ƒ^ƒCƒgƒ‹‚É$mudai‚ÅŽw’è‚µ‚½‚à‚Ì‚ð“ü‚ê‚é
			$sub ="$mudai";
		}
	}

	#“Še‹LŽ–‚ÉíœƒL[‚ª‹L“ü‚³‚ê‚Ä‚È‚©‚Á‚½Žž‚Ìˆ—
	#ƒL[‚ª•K{€–Ú‚È‚ç
	if ($pass_check){
		if ($pass eq ""){
			
			#‚»‚ÌŽ|‚ÌƒƒbƒZ[ƒW‚ð•\Ž¦‚µ‚ÄAˆ—‚ð’†’f
			&uemess("$mess_key_nashi");
		}
	}
	

##ƒƒOƒtƒ@ƒCƒ‹ƒf[ƒ^‚ðŽæ“¾‚·‚éˆ—

	#ƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$logfile") || &error("“Še‹LŽ–•Û‘¶ƒtƒ@ƒCƒ‹$logfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B");

	#Šes‚ð”z—ñ‚É‘ã“ü
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close(IN);

	#ˆÈ‰ºAsub decode‚©‚çŽó‚¯Žæ‚Á‚½•Ï”‚Ì’l‚ðŽg‚¤

##“ñd“Še‰ñ”ðˆ—

	#“ñd“Še‚ª‚ ‚Á‚½‚©‚Ç‚¤‚©‚Ìˆó‚ÌŽw’è
	$niju_flag = 0;
	
	#ƒƒO‚É‚ ‚é‘S‹LŽ–‚Ìˆê‚Âˆê‚Â‚É‘Î‚µ‚Ä
	foreach (@lines) {
	
		#Še—v‘f‚É•ªŠ„‚µ‚ÄA”z—ñ‚É‘ã“ü
		@datas_niju = split(/<>/,$_);
		
		#‚à‚µ‚àA“ŠeŽÒ‚ÆA“à—e‚ªˆê’v‚·‚é‚à‚Ì‚ª¡‚Ü‚Å‚ÌƒƒO‚É‚ ‚Á‚½‚çA
		if ($name eq "$datas_niju[1]" && $comment eq "$datas_niju[5]"){
		
			#“ñd“Še‚Ìˆó‚É‚P‚ð‘ã“ü
			$niju_flag = 1;
			
			#‚»‚Ì‹LŽ–‚ÌNo.‚ðŽæ“¾
			$niju_no = $datas_niju[0];
			
			#ƒ‹[ƒv‚©‚ç”²‚¯o‚·B
			last;
		}
	}
	
	#‚à‚µ‚àA“ñd“Še‚Ìˆó‚É‚P‚ª“ü‚Á‚Ä‚¢‚½‚çi‚O‚Å‚È‚¯‚ê‚Îj
	if ($niju_flag){
		
		#sub uemess‚É$mess_onaji‚Æ‚¢‚¤ƒƒbƒZ[ƒW‚ðŽ‚Á‚Ä‚¢‚Á‚ÄA
		#“ñd“Še‚ÌŽ|‚ð‚Â‚°A“Še‚ð‹‘”Û‚·‚éB
		&uemess("$mess_onaji","[$niju_no]");
	}

##”’Ž†ƒRƒƒ“ƒg‰ñ”ð
	#ƒRƒƒ“ƒg‚ª‘‚©‚ê‚Ä‚¢‚È‚©‚Á‚½‚Æ‚«‚ÍA
	#”’Ž†“Še‚ð‹ÖŽ~‚·‚éŽ|‚ÌƒƒbƒZ[ƒW‚ð‚à‚Á‚ÄAsub uemess‚Ö‚¢‚Á‚ÄA
	#ƒƒO‚É‘‚«‚±‚Ý‚·‚éˆ—‚ð‚â‚ß‚éB
	if ($comment eq ""){&uemess("$mess_nashi");}

##˜A‘±“Še‚ÉŠÖ‚µ‚Ä

	#’¼‘O‚Ì“Šeƒf[ƒ^‚¾‚¯‚ðŽæ‚èo‚·B
	@bline = split(/<>/,$lines[0]);
	
	#§ŒÀ‚ð‚©‚¯‚é‚È‚ç
	if ($renzoku_check){
		
		#’¼‘O‚Ì–¼‘O‚Æ“¯‚¶‚©ƒ`ƒFƒbƒN
		if ($name eq "$bline[1]"){
			
			#’¼‘O‚Ì“Še‚©‚ç‚ÌŒo‰ßŽžŠÔi•bj
			$keika_time = time - $bline[8];
			
			#˜A‘±“Še‚ð‹–‚·ŽžŠÔ‚ðŽw’èi•bj
			$renzoku_ok = 60 * $renzoku_time;
			
			#˜A‘±“Še‚ð‹–‰Â‚·‚é‚Ü‚Å‚ÌŽc‚èŽžŠÔ‚ðŽw’èi•bj
			$nokori_time = $renzoku_ok - $keika_time;
			
			#˜A‘±“Še‚ð‹–‰Â‚·‚é‚©
			#‘‰ß‚¬‚é‚È‚ç
			unless ($nokori_time < 0 ){
			
				#‚ ‚Æ‰½•bŒã‚Å‘‚«‚±‚ß‚é‚©‚ÌƒƒbƒZ[ƒW‚ð•\Ž¦
				&uemess("$nokori_time$renzoku_mess");
			}
		}
	}
	

##“Še‹LŽ–‚ÉŠÖ‚·‚éî•ñ‚ðŽæ“¾‚·‚éB

	#$date ‚É“ú•t‚ð‘ã“ü
	&get_time;

	#$host‚ÉƒzƒXƒgî•ñ‚ð‘ã“ü
	&get_host;

	#pass‚ª‚ ‚ê‚ÎA‚»‚ê‚ðˆÃ†‰»‚·‚é‚½‚ßA
	#sub make_pass‚Ö‚¢‚Á‚ÄA•Ô‚Á‚Ä‚«‚½’l‚ð$PW‚É‘ã“ü‚·‚éB
	if ($pass){ $PW = &make_pass($pass);}


##‰ü‘¢
	#‚l‚`‚wƒf[ƒ^‚Ì‹LŽ–”Ô†‚Éƒvƒ‰ƒX‚P‚µ‚ÄA¡‰ñ‚Ì‹LŽ–”Ô†‚É‚·‚éB

	@sorttbl = map {(split /<>/)[0]} @lines;
	@sorttbl2 = @lines[sort {$sorttbl[$b] <=> $sorttbl[$a]} 0 .. $#sorttbl];
	$maxnum = $sorttbl2[0];

	$num = $maxnum+1;

###	$num = $bline[0]+1;
########



##V’…‹LŽ–‚ðƒƒOƒtƒ@ƒCƒ‹‚É•Û‘¶‚·‚éˆ—

	#V“Še‹LŽ–‚ð•Û‘¶Œ`Ž®‚É®—‚µ‚ÄA$new‚Ì’l‚Æ‚·‚éB
	$new = "$num<>$name<>$email<>$url<>$sub<>$comment<>$res<>$date<>$second<>$host<>$PW<>$mcolor<>$hcolor\n";

	#V“Še‹LŽ–‚ðƒƒO”z—ñ‚Ìæ“ª‚É’Ç‰Á
	unshift (@lines,$new);

##•Û‘¶‹LŽ–”‚Ìˆ—
	#‘‹LŽ–”‚ðŽæ“¾
	$kiji = @lines;

	#Å‘å‹LŽ–•Û‘¶”E‘‹LŽ–”‚ð‚O‚©‚çŽn‚Ü‚és”‚É‚·‚é‚½‚ßAƒ}ƒCƒiƒX‚P‚·‚é
	$dmax = $max -1;
	$dkiji= $kiji -1;

	#logfile‚É‘‚«o‚·‹LŽ–‚ð“ü‚ê‚é”z—ñ‚ðŽw’è
	@news  =();

	#•Û‘¶‚·‚és”•ª‚¾‚¯A”z—ñ@news‚É‘ã“ü
	foreach (0 .. $dmax){
		push(@news,$lines[$_]);
	}

	#Å‘å‹LŽ–•Û‘¶”‚ð’´‚¦‚½‚Æ‚«‚ÉA‰ß‹ŽƒƒO‚Æ‚µ‚Ä•Û‘¶‚·‚é‚©‚Ç‚¤‚©
	if ($past_check){
	
		#ÅŒã‚Ìs”‚ªAÅ‘å•Û‘¶‚·‚és”‚æ‚è‚à‘å‚«‚¯‚ê‚ÎA
		if ($dkiji > $dmax){

			#‰ß‹ŽƒƒO‚É‘‚«‚±‚Þƒf[ƒ^‚ð“ü‚ê‚é”z—ñ‚ðŽw’è
			@pasts =();
			
			#ˆì‚ê‚½‹LŽ–‚Ìs”•ª‚¾‚¯A”z—ñ@pasts‚É‘ã“ü
			foreach ($max .. $dkiji){
				push(@pasts,$lines[$_]);
			}
			
			#‰ß‹ŽƒƒO‚É‘‚«ž‚Ý‚ð‚·‚éˆ—‚Ö
			&pastwrite;

		}
	}
	
	
	#•\Ž¦‚³‚ê‚é‹LŽ–‚ð‚ ‚ç‚½‚ß‚ÄA$logfile‚É‘‚«‚±‚ÞB
	open (OUT,">$logfile") || &error("$logfile‚ª‚Ð‚ç‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B");
	print OUT @news;
	close(OUT);

##townƒf[ƒ^‚ðXV‚·‚éˆ—

	#ƒJƒEƒ“ƒg‚ð‘‚â‚·‚Ì‚ÅAup‚Æ‚¢‚¤’l‚ðŽ‚Á‚Ä‚¢‚­Biíœ‚Ìê‡‚Æ‹æ•Ê‚·‚é‚½‚ßj
	&ktown_up("up");

##ŽŸ‚Ìˆ—‚ð‹–‰Â‚·‚é

	#ƒƒO‚ÌXVˆ—‚ªI—¹‚µ‚½‚Ì‚ÅAƒƒbƒN‚ð‰ðœ‚·‚é
	if($lock_check){&unlock;}

##ƒNƒbƒL[‚Ìˆ—

	#‘‚«‚±‚Ý‚³‚ê‚½“à—e‚ðƒNƒbƒL[‚Æ‚µ‚ÄÄ‚­
	&set_cookie;

##ƒ[ƒ‹’Ê’mˆ—

	#‘‚«‚±‚Ü‚ê‚½“à—e‚ðŠÇ—ŽÒ‚Éƒ[ƒ‹’Ê’m‚·‚é‚©‚Ç‚¤‚©ƒ`ƒFƒbƒN‚µ‚ÄA
	#‚à‚µ’Ê’m‚·‚é‚Ì‚È‚çA‚»‚Ìˆ—‚ðs‚È‚¤
	if ($mail_send) {&mail_to;}
	

}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«‹LŽ–‚ðíœ‚·‚éˆ—                                      „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub clear{

##“ñdˆ—‚ð‰ñ”ð

	#ƒƒO‚ðXV‚·‚é‚½‚ßAƒƒbƒNˆ—‚·‚éB
	if($lock_check){&lock;}

##‹LŽ–î•ñ‚ðŽæ“¾‚·‚éˆ—

	#ƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$logfile") || &error("$logfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B");
	
	#Šes‚ð”z—ñ‚É‘ã“ü
	@lines = <IN>;
	
	#ƒƒOƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close(IN);

##íœ‚·‚é‹LŽ–‚ðŒ©‚Â‚¯‚éˆ—
##sub decode‚©‚ç‚«‚½•Ï”‚ðŽg‚¤
##$num	íœ‚·‚é‹LŽ–”Ô†
##$pass	íœƒL[

	#íœ‚µ‚È‚¢‹LŽ–‚ð‘ã“ü‚·‚é”z—ñ‚ÌŽw’è
	@news=();
	
	#‹LŽ–î•ñ‚ðA‚Ð‚Æ‚Â‚Ã‚Âˆ—‚·‚éB
	foreach $line (@lines){

		#xx‚Ì•”•ª‚Í‚¢‚ç‚È‚¢‚Ì‚ÅAƒ_ƒ~[‚Ì•Ï”B
		#ÅŒã‚Ìc ‚Íclear‚Ìc
		#$namec,$urlc‚Í&ktown_up‚ÅŽg—p‚·‚éB
		($numc,$namec,$xx,$urlc,$xx,$xx,$xx,$xx,$xx,$xx,$psc,$xx,$xx) = split(/<>/,$line);

		#$psc‚Ís‚ÌÅŒã‚É‚ ‚é‚Ì‚ÅA‰üs‚ðíœ‚·‚éB
		$psc =~ s/\n//g;

		#sub decode‚©‚ç‘—‚ç‚ê‚Ä‚«‚½Aíœ‚·‚é‹LŽ–”Ô†$num‚ð‚à‚Æ‚É
		#íœ‚·‚é‹LŽ–‚©‚Ç‚¤‚©‚ð”»’fB
		if ($numc == $num){
		
			#Ý’è‚³‚ê‚Ä‚¢‚½íœƒL[‚ð$PW‚É‘ã“ü
			#íœ‚·‚é‹LŽ–‚Ì“ŠeŽÒ–¼‚ðŽæ“¾i•Ï”‚ð•Ï‚¦‚é‚Ì‚ÍA&ktown_up‚Å‚Ìˆ—‚Ì‚½‚ß)
			#íœ‚·‚é‹LŽ–‚ª‚Ý‚Â‚©‚Á‚½‚©A‚Ç‚¤‚©$del‚Å”»’f‚·‚é
			$PW = $psc;
			$name = $namec;
			$del = 1;

		#íœ‚·‚é‹LŽ–‚Å‚È‚¯‚ê‚ÎA”z—ñ@news‚É“ü‚ê‚é
		}else{
			push(@news,$line);
		}
	}

##íœ‚·‚é‚©‚Ç‚¤‚©‚Ìˆ—

	#“ü—Í‚³‚ê‚½íœƒL[‚ªƒ}ƒXƒ^[ƒL[‚¶‚á‚È‚©‚Á‚½‚ç
	unless ($pass eq "$masterkey"){

		#‚»‚Ì‹LŽ–‚ª“Še‚³‚ê‚½‚Æ‚«‚ÉAíœƒL[‚ªÝ’è‚³‚ê‚Ä‚¢‚È‚¯‚ê‚ÎA
		#sub uemess‚É‚»‚ÌŽ|‚ÌƒƒbƒZ[ƒW‚ð‚à‚Á‚Ä‚¢‚«Aíœ‚ð’†Ž~B
		if ($PW eq ""){&uemess("$mess_key_ng1");}

		#sub decode‚©‚ç‘—‚ç‚ê‚Ä‚«‚½AíœƒL[$pass‚ÆA‹LŽ–‚ÉÝ’è‚³‚ê‚Ä‚¢‚½íœƒL[$PW‚ªˆê’v‚·‚é‚©‚Ç‚¤‚©‚ð
		#sub match_pass‚Åˆ—‚µ‚ÄA‚»‚ÌŒ‹‰Ê‚ð$result‚É‘ã“ü‚·‚éB
		$result = &match_pass("$pass","$PW");

		#sub match_pass‚©‚çŽó‚¯Žæ‚Á‚½Œ‹‰Ê$result‚ªAok‚Å‚È‚¯‚ê‚ÎA
		#sub uemess‚É‚»‚ÌŽ|‚ÌƒƒbƒZ[ƒW‚ðŽ‚Á‚Ä‚¢‚«Aíœ‚ð’†Ž~
		unless ($result eq 'ok'){ &uemess("$mess_key_ng2");}
	}

##ƒƒOƒtƒ@ƒCƒ‹‚ÌXVˆ—

	#íœ‚·‚é‹LŽ–‚ª‚ ‚Á‚ÄA($del = 1‚È‚ç)
	#ˆÈã‚ÌíœƒL[‚É‘Î‚·‚é•]‰¿‚ðæ‚è‰z‚¦‚ÄAíœ‚ª”F‚ß‚ç‚ê‚½‚çA
	if($del){
	


		#ƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
		open (OUT,">$logfile") || &error("$logfile‚ª‚Ð‚ç‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B");
	
		#‚ ‚½‚ç‚µ‚¢ƒf[ƒ^‚ÉXV
		print OUT @news;
	
		#ƒƒOƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
		close (OUT);
	
		#townƒf[ƒ^ƒtƒ@ƒCƒ‹‚ÌXVˆ—
		#ƒJƒEƒ“ƒg‚ðŒ¸‚ç‚·‚Ì‚ÅAdown‚Æ‚¢‚¤’l‚ð‚à‚Á‚Ä‚¢‚­i‘‚«ž‚Ý‚Æ‹æ•Ê‚·‚é‚½‚ßj
		&ktown_up("down");
	}
	
	#ˆÈãAƒƒO‚ÌXVì‹Æ‚ªI—¹‚µ‚½‚Ì‚ÅAƒƒbƒN‚ð‰ðœ‚·‚éB
	if($lock_check){&unlock;}
}                                                          

#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒfƒR[ƒhˆ—                                            „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub decode {                                               

##‘—‚ç‚ê‚½ƒf[ƒ^‚ð“Ç‚ÝŽæ‚éˆ—

	#î•ñ‚Ì‘—M•û–@Post or Get‚Åˆ—‚ð‹æ•Ê
	#post‚Å‘—M‚³‚ê‚Ä‚¢‚ê‚ÎA
	if ($ENV{'REQUEST_METHOD'} eq "POST") {

		#‚»‚Ìƒf[ƒ^‚ð$buffer‚É‘ã“ü
		read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	
	#get‚È‚ç
	#‚»‚Ìƒf[ƒ^‚ð$buffer‚É‘ã“ü
	} else { $buffer = $ENV{'QUERY_STRING'}; }

##Žó‚¯Žæ‚Á‚½ƒf[ƒ^‚ð•ªÍ‚·‚éˆ—

	#Žó‚¯Žæ‚Á‚½î•ñ$buffer‚ð•‚Å•ªŠ„‚·‚éB
	@pairs = split(/&/, $buffer);

	#@pairs‚ð‚P‚Â‚Ã‚Âˆ—‚·‚é
	foreach $pair (@pairs) {

		#$pair‚ð˜A‘z”z—ñ‚ÌƒL[$name‚ÆA’l$value‚É•ªŠ„
		($name,$value) = split(/=/, $pair);

		#$value‚Ì‚È‚©‚Ì+‚ð”¼ŠpƒXƒy[ƒX‚ÉB
		$value =~ tr/+/ /;
		
		#Žó‚¯Žæ‚Á‚½$value‚Ì’†g‚ÍA%‚Æ16i”‚Å•\‹L‚³‚ê‚Ä‚¢‚é‚Ì‚ÅA
		#‚»‚ê‚ðˆ—‚·‚éB
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		
		#Å‰‚ÉŽw’è‚µ‚½Ajcode.pl‚ð—p‚¢‚ÄA•¶ŽšƒR[ƒh‚ð•ÏŠ·Shift-JISƒR[ƒh‚É•ÏŠ·ˆ—‚·‚éB

		&jcode'convert(*value,'sjis');



		
		#ƒ^ƒO‚ð‹–‰Â‚·‚é‚È‚ç
		if ($tag_check) {

			#ƒ^ƒO‚ð‹–‰Â
			#ƒRƒƒ“ƒgEŠëŒ¯‚ÈSSI‚Ì‘‚«‚±‚Ý‚ð”rœ‚·‚é
			$value =~ s/<!--(.|\n)*-->//g;
			
			#‹LŽ–ƒƒO‚ÌŠe—v‘f‚ð•ª‚¯‚Ä‚¢‚é<>‚Í•ÏŠ·‚·‚éB
			$value =~ s/<>/&lt;&gt;/g;

		#ƒ^ƒO‚ð‹–‰Â‚µ‚È‚¯‚ê‚Î
		}else{

			#<,>,"‚ð‚»‚ê‚¼‚ê•ÏŠ·‚·‚é
			$value =~ s/</&lt;/g;
			$value =~ s/>/&gt;/g;
			$value =~ s/\"/&quot;/g;
		}

		#‰üs‚ð<br>‚É•ÏŠ·‚·‚éB
		#‰üsƒR[ƒh‚ªˆá‚¤ê‡‚ð‘z’è‚µ‚ÄA‡‚É•ÏŠ·‚·‚éB
		$value =~ s/\r\n/<br>/g;
		$value =~ s/\r/<br>/g;
		$value =~ s/\n/<br>/g;
		
		#˜A‘z”z—ñ%FORM‚ÉƒL[$name‚Æ’l$value‚Æ‚µ‚ÄŽw’è‚·‚éB
		$FORM{$name} = $value;
	}
	
##ƒf[ƒ^‚ÌƒtƒH[ƒ}ƒbƒg

	#HPƒAƒhƒŒƒX‚ÌÅ‰‚Ìhttp://‚Ì•”•ª‚ðíœ‚·‚éB
	$FORM{'url'} =~ s/^http:\/\///g;

	#˜A‘z”z—ñ‚Å‚ÍŽg‚¢‚Ã‚ç‚¢‚Ì‚ÅA•Ï”‚É‘ã“ü‚µ‚È‚¨‚·B
	$mode    = $FORM{'mode'};
	$name    = $FORM{'name'};
	$email   = $FORM{'email'};	
	$sub     = $FORM{'sub'};
	$url     = $FORM{'url'};
	$comment = $FORM{'comment'};
	$pass    = $FORM{'pass'};
	$num     = $FORM{'num'};
	$cnt     = $FORM{'cnt'};
	$del     = $FORM{'del'};
	$bname   = $FORM{'bname'};
	$res     = $FORM{'res'};
	$color   = $FORM{'color'};
	$ie      = $FORM{'ie'};
	$owner   = $FORM{'owner'};
	$count   = $FORM{'count'};
	$sec     = $FORM{'sec'};
	$pass_t  = $FORM{'pass_t'};

	$mcolor   = $FORM{'mcolor'};
	$hcolor   = $FORM{'hcolor'};

	$rcolor  = $FORM{'rcolor'};
	$minresflg = '0';	
	
	#‹LŽ–“à‚ÉƒAƒhƒŒƒX‚È‚Ç‚ª‚ ‚Á‚½‚çAŽ©“®‚ÅƒŠƒ“ƒN‚ð‚Í‚éˆ—‚ðs‚È‚¤‚½‚ß
	&auto_link($comment);
	&auto_link($res);
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«íœƒL[‚ðˆÃ†‰»‚·‚éˆ—                                „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub make_pass{

	#Žó‚¯Žæ‚Á‚½íœƒL[‚ð•Ï”‚É‘ã“ü‚µ‚È‚¨‚·
	$password = $_[0];

	#Œ»ÝŽži•bj‚ðŽæ“¾‚·‚éB
	$time2 = time;

	#Œ»ÝŽži•bj‚Ì‰º“ñŒ…‚ðˆÃ†‰»‚·‚é‰–‚Æ‚µ‚ÄŽæ‚èo‚·B
	$salt = substr($time2,-2,2);
	
	#cryptŠÖ”‚É‚æ‚Á‚ÄAˆÃ†‰»‚µA‚»‚Ì’l‚ð‚±‚ÌƒTƒuƒ‹[ƒ`ƒ“‚ª‚æ‚Î‚ê‚½êŠ‚É•Ô‚·
	return crypt($password,$salt);
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«íœƒL[‚ÌÆ‡ˆ—                                      „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub match_pass{                                            
                                                           
	#Žó‚¯Žæ‚Á‚½”z—ñ‚ðAÝ’è‚³‚ê‚Ä‚¢‚½íœƒL[$log_pass‚Æ“ü—Í‚³‚ê‚½íœƒL[$form_pass‚É‘ã“ü‚µ‚È‚¨‚·B
	($form_pass,$log_pass)= @_;

	#‰–‚ÌêŠ‚ð’²‚×‚é
	if ($log_pass =~ /^\$1\$/) { $key=3;}
	else{ $key = 0; }

	#Ý’è‚³‚ê‚Ä‚¢‚½íœƒL[‚Æ“ü—Í‚³‚ê‚½íœƒL[‚ªˆê’v‚·‚é‚©‚ð”»’f
	if (crypt($form_pass,substr($log_pass,$key,2)) eq "$log_pass"){
	
		#ˆê’v‚µ‚½‚çA‚±‚ÌƒTƒuƒ‹[ƒ`ƒ“‚ðŒÄ‚ñ‚¾‚Æ‚±‚ë‚ÉA’l"ok"‚ð•Ô‚·
		return 'ok';
	}else{
	
	#ˆê’v‚µ‚È‚©‚Á‚½‚çA‚±‚ÌƒTƒuƒ‹[ƒ`ƒ“‚ðŒÄ‚ñ‚¾‚Æ‚±‚ë‚ÉA’l"ng"‚ð•Ô‚·
		return 'ng';
	}
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒtƒH[ƒ€‚Ì‰º‚É’ˆÓƒƒbƒZ[ƒW‚ð•\Ž¦‚·‚éˆ—              „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub uemess {                                               

	#ƒƒO‚ÌXVˆ—‚È‚Ç‚Ì“r’†‚Å‚ ‚Á‚½ê‡‚ð‘z’è‚µ‚ÄAƒƒbƒN‚ð‰ðœ‚·‚éB
	if($lock_check){&unlock;}

	#ƒƒbƒZ[ƒW“à—e‚ðAtempƒf[ƒ^‚É“ü‚ê‚éB
	$uemess = "$_[1] $_[0]";
	
	#ƒƒCƒ“•\Ž¦ƒTƒuƒ‹[ƒ`ƒ“sub html‚Ö
	&html;
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®
 
#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒGƒ‰[ƒƒbƒZ[ƒW‚Ì•\Ž¦ˆ—                              „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub error {                                                

	#ƒƒO‚ÌXVˆ—‚È‚Ç‚Ì“r’†‚Å‚ ‚Á‚½ê‡‚ð‘z’è‚µ‚ÄAƒƒbƒN‚ð‰ðœ‚·‚éB
	if($lock_check){&unlock;}
	
 &head_html("error message");

print <<"EOM";
<center>
<table border=0 bgcolor="#777777" width=400 cellpadding=5>
	<tr>
		<td align=center>
			<table width=370>
				<tr>
					<td align=center bgcolor="#eeeeee"><font color="#333333">---Message---</font></td>
				</tr>
				<tr>
					<td align=center><hr size=1><br>$_[0]</td>
				</tr>
				<tr>
					<td align=right><hr size=1><br>$ver <a href="http://www.netpro.ne.jp/~kai/">kaism</a></td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</center>
</body>
</html>
EOM
	exit;
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒŠƒ“ƒNˆ—                                              „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub auto_link {                                            

	#Žó‚¯Žæ‚Á‚½’l$_[0]‚ðƒŠƒ“ƒN‚ð’£‚Á‚½ó‘Ô‚É•ÏŠ·‚·‚éB
	$_[0] =~ s/([^=^\"]|^)(http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#]+)/$1<a href=\"$2\" target='$target'>$2<\/a>/g;
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«Œ»Ý“úŽž‚ÌŽæ“¾EƒtƒH[ƒ}ƒbƒgˆ—                        „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub get_time {                                             

	#“ú–{ŽžŠÔ‚ðŽw’è
	$ENV{'TZ'} = "JST-9";

	#time‚ÅŽæ“¾‚µ‚½•b‚ð‚»‚ê‚¼‚ê‚Ì—v‘f‚É•ª‚¯‚éB
	#Še—v‘f‚Í(•bE•ªEŽžE“úEŒŽE”NE—j“úE‰ÄŽžŠÔ’²®EHj
	($sec,$min,$hour,$mday,$mon,$year,$wday,$d,$d) = localtime(time);

	#”N$year‚Í1900”N‚©‚ç‚Ì”N”‚È‚Ì‚ÅA1900‚ð‘«‚·
	$year += 1900;

	#ŒŽ$mon‚Í0‚©‚ç11‚È‚Ì‚ÅA‚P‘«‚·B
	$mon++;

	#Še’l‚ÅAˆêŒ…‚Ì‚Æ‚«‚ÍAÅ‰‚É‚O‚ð‘«‚·BiŒ©‚½–Ú‚Ì‚½‚ßj
	if ($mon  < 10) { $mon  = "0$mon";  }
	if ($mday < 10) { $mday = "0$mday"; }
	if ($hour < 10) { $hour = "0$hour"; }
	if ($min  < 10) { $min  = "0$min";  }
	if ($sec  < 10) { $sec  = "0$sec";  }

	#—j“ú$week‚Í0‚©‚ç6‚È‚Ì‚ÅA‚»‚ê‚ð•¶Žš‚É•ÏŠ·‚·‚éB
	$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];

	#“úŽž‚ðƒtƒH[ƒ}ƒbƒg‚·‚éB
	$date = "$year\/$mon\/$mday\($week\) $hour\:$min\:$sec";

	#ŽžŠÔ‚Ì•b‚ðŽæ“¾‚µ‚Ä‚¨‚­B
	$second = time;
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒzƒXƒg–¼‚ðŽæ“¾‚·‚éˆ—                                  „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub get_host {                                             

	#ŠÂ‹«•Ï”‚©‚çAƒzƒXƒg–¼EIPƒAƒhƒŒƒX‚ðŽæ“¾‚·‚éB
	$host = $ENV{'REMOTE_HOST'};
	$addr = $ENV{'REMOTE_ADDR'};

	#ƒzƒXƒg–¼‚ªŽæ“¾‚Å‚«‚È‚©‚Á‚½‚©AIPƒAƒhƒŒƒX‚Ì‚Ý‚Ì‚Æ‚«‚ÍA
	#IPƒAƒhƒŒƒX‚©‚çAƒzƒXƒg–¼‚É•ÏŠ·‚·‚éB
	if ($host eq "" || $host eq "$addr") {
			$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
	}

	#•ÏŠ·‚Å‚«‚È‚¯‚ê‚ÎA‚µ‚å‚¤‚ª‚È‚¢‚Ì‚ÅAIPƒAƒhƒŒƒX‚ð$host‚É“ü‚ê‚éB
	if ($host eq "") { $host = $addr; }
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒƒbƒNˆ—                                              „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub lock{                                                  

	#ƒƒbƒN‚ð”»’f‚·‚éƒtƒ@ƒCƒ‹‚ÌŽw’è
	$lockfile = "board.lock";

	#ˆ—‚ð”»’f‚·‚éŠø‚ð—§‚Ä‚é
	local($flag) = 0;

	#ƒŠƒgƒ‰ƒC‰ñ”‚ðŽw’èiƒfƒtƒHƒ‹ƒg‚Í‚T‰ñj
	foreach (1..5) {

		#ƒƒbƒNƒtƒ@ƒCƒ‹‚ª‘¶Ý‚·‚ê‚ÎA1•b‘Ò‚Â
		if (-e $lockfile){ sleep(1);
		}else{

			#ƒƒbƒNƒtƒ@ƒCƒ‹‚ª‚È‚¯‚ê‚ÎA—e—Êƒ[ƒ‚ÌƒƒbƒNƒtƒ@ƒCƒ‹$lockfile‚ðì¬‚·‚éB
			open(LOCK,">$lockfile");
			close(LOCK);

			#ˆ—‚ð‚µ‚½‚±‚Æ‚ðŽ¦‚·Šø‚Éˆó‚ð‚Â‚¯‚éB
			$flag = 1;

			#ƒŠƒgƒ‰ƒCEƒ‹[ƒv‚©‚ç”²‚¯o‚·B
			last;
		}
	}

	#Šø‚Éˆó‚ª‚È‚¯‚ê‚ÎAƒƒbƒNƒtƒ@ƒCƒ‹‚ª‚ ‚èA’N‚©‚ª‘‚«‚±‚Ýˆ—‚ð‚µ‚Ä‚¢‚é‚±‚Æ‚¾‚©‚çA
	#‚µ‚Î‚ç‚­‘Ò‚Á‚Ä‚à‚ç‚¤Ž|‚ÌƒƒbƒZ[ƒW‚ð•\Ž¦‚³‚¹‚éB
	if ($flag == 0) {
		&uemess("‚µ‚Î‚ç‚­‘Ò‚Á‚Ä‚©‚çÄ“x“Še‚µ‚Ä‚­‚¾‚³‚¢B")
	}
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒƒbƒN‰ðœˆ—                                          „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub unlock{                                                

	#ˆ—‚ªI—¹‚µ‚½ˆó‚Å‚ ‚éAƒƒbƒNƒtƒ@ƒCƒ‹‚ðíœ‚µ‚ÄA
	#‘¼‚Ìl‚ª‘‚«‚±‚Ý‚È‚Ço—ˆ‚é‚æ‚¤‚É‚µ‚Ä‚ ‚°‚éB
	if (-e,$lockfile){unlink($lockfile);}
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒNƒbƒL[‚ð”­s‚·‚éˆ—                                  „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub set_cookie{                                            

	#ƒNƒbƒL[‚Ì•Û‘¶ŠúŠÔ‚Í60“ú‚ÉŽw’è
	($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$dmy,$dmy) = gmtime(time + 60*24*60*60);

	#ˆÈ‰ºA“ú•t‚ÌƒtƒH[ƒ}ƒbƒg
	$yearg += 1900;
	if ($secg  < 10) { $secg  = "0$secg";  }
	if ($ming  < 10) { $ming  = "0$ming";  }
	if ($hourg < 10) { $hourg = "0$hourg"; }
	if ($mdayg < 10) { $mdayg = "0$mdayg"; }

	$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong];
	$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg];

	$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";

	#ƒNƒbƒL[‚Ì“à—e‚ðŽw’è
	$cook="cname\:$name\,cemail\:$email\,curl\:$url\,cpass\:$pass,cmcolor\:$mcolor,chcolor\:$hcolor";

	#ƒNƒbƒL[‚ðÄ‚­
	print "Set-Cookie: kboard=$cook; expires=$date_gmt\n";

#ƒgƒNƒgƒNƒNƒbƒL[2001.8.31‰ü‘¢
	if ($tok2cookie == 1) {
		$wktok2cookie = "<META HTTP-EQUIV='Set-Cookie' CONTENT='kboard=$cook; expires=$date_gmt'>\n";
		}

}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒNƒbƒL[‚ðŽæ“¾‚·‚éˆ—                                  „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub get_cookie {                                           
	
	#ƒNƒbƒL[î•ñ‚ðŽæ“¾
	@pairs = split(/\;/, $ENV{'HTTP_COOKIE'});
	
	#“Ç‚ÝŽæ‚Á‚½ƒNƒbƒL[‚ð1‚Â‚Ã‚Â’²‚×‚é
	foreach $pair (@pairs) {
		local($name, $value) = split(/\=/, $pair);
		$name =~ s/ //g;
		$DUMMY{$name} = $value;
	}

	#kboard‚ÌƒNƒbƒL[‚ðŽæ‚èo‚·
	@pairs = split(/\,/, $DUMMY{'kboard'});
	
	#ƒNƒbƒL[î•ñ‚ð•ªÍ
	foreach $pair (@pairs) {
		local($name, $value) = split(/\:/, $pair);

		#ƒtƒH[ƒ€‚ÉŽæ“¾‚µ‚½ƒNƒbƒL[‚ð•\Ž¦‚³‚¹‚é‚½‚ß‚ÉA%cookie”z—ñ‚É‘ã“ü‚·‚éB
		$cookie{$name} = $value;
	}

	#‘‚«‚±‚Ý‚ð‚µ‚½’¼Œã‚Å‚ ‚ê‚ÎAÅV‚Ìî•ñ‚ÉŽæ‚è‘Ö‚¦‚é
	if ($FORM{'name'})  { $cookie{'cname'}  = $FORM{'name'}; }
	if ($FORM{'email'}) { $cookie{'cemail'} = $FORM{'email'}; }
	if ($FORM{'url'})   { $cookie{'curl'}   = $FORM{'url'}; }
	if ($FORM{'pass'})  { $cookie{'cpass'}  = $FORM{'pass'}; }
	if ($FORM{'mcolor'})  { $cookie{'cmcolor'}  = $FORM{'mcolor'}; }
	if ($FORM{'hcolor'})  { $cookie{'chcolor'}  = $FORM{'hcolor'}; }

	$cmcolor = $cookie{'cmcolor'};
	&jcode'convert(*cmcolor,'sjis');
	$chcolor = $cookie{'chcolor'};
	&jcode'convert(*chcolor,'sjis');



}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®
#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒŒƒXƒNƒbƒL[‚ð”­s‚·‚éˆ—                                  „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub set_res_cookie{                                            

	#ƒNƒbƒL[‚Ì•Û‘¶ŠúŠÔ‚Í60“ú‚ÉŽw’è
	($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$dmy,$dmy) = gmtime(time + 60*24*60*60);

	#ˆÈ‰ºA“ú•t‚ÌƒtƒH[ƒ}ƒbƒg
	$yearg += 1900;
	if ($secg  < 10) { $secg  = "0$secg";  }
	if ($ming  < 10) { $ming  = "0$ming";  }
	if ($hourg < 10) { $hourg = "0$hourg"; }
	if ($mdayg < 10) { $mdayg = "0$mdayg"; }

	$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong];
	$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg];

	$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";

	#ƒNƒbƒL[‚Ì“à—e‚ðŽw’è
	$cook="cname\:$name\,crcolor\:$rcolor";

	#ƒNƒbƒL[‚ðÄ‚­
	print "Set-Cookie: kboardres=$cook; expires=$date_gmt\n";

#ƒgƒNƒgƒNƒNƒbƒL[2001.8.31‰ü‘¢
	if ($tok2cookie == 1) {
		$wktok2cookie = "<META HTTP-EQUIV='Set-Cookie' CONTENT='kboardres=$cook; expires=$date_gmt'>\n";
		}

}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒŒƒXƒNƒbƒL[‚ðŽæ“¾‚·‚éˆ—                                  „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub get_res_cookie {                                           
	
	#ƒNƒbƒL[î•ñ‚ðŽæ“¾
	@pairs = split(/\;/, $ENV{'HTTP_COOKIE'});
	
	#“Ç‚ÝŽæ‚Á‚½ƒNƒbƒL[‚ð1‚Â‚Ã‚Â’²‚×‚é
	foreach $pair (@pairs) {
		local($name, $value) = split(/\=/, $pair);
		$name =~ s/ //g;
		$DUMMY{$name} = $value;
	}

	#kboard‚ÌƒNƒbƒL[‚ðŽæ‚èo‚·
	@pairs = split(/\,/, $DUMMY{'kboardres'});
	
	#ƒNƒbƒL[î•ñ‚ð•ªÍ
	foreach $pair (@pairs) {
		local($name, $value) = split(/\:/, $pair);

		#ƒtƒH[ƒ€‚ÉŽæ“¾‚µ‚½ƒNƒbƒL[‚ð•\Ž¦‚³‚¹‚é‚½‚ß‚ÉA%cookie”z—ñ‚É‘ã“ü‚·‚éB
		$cookie{$name} = $value;
	}

	#‘‚«‚±‚Ý‚ð‚µ‚½’¼Œã‚Å‚ ‚ê‚ÎAÅV‚Ìî•ñ‚ÉŽæ‚è‘Ö‚¦‚é
	if ($FORM{'name'})  { $cookie{'cname'}  = $FORM{'name'}; }
	if ($FORM{'rcolor'})  { $cookie{'crcolor'}  = $FORM{'rcolor'}; }

	$crcolor = $cookie{'crcolor'};
	&jcode'convert(*crcolor,'sjis');




}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒ[ƒ‹‘—Mˆ—                                          „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub mail_to {                                               

##ƒf[ƒ^‚ÌƒtƒH[ƒ}ƒbƒgˆ—
	#•¶ŽšƒR[ƒh‚ðjis‚É•ÏŠ·‚·‚éB
	&jcode'convert(*mail_sub,'jis');
	&jcode'convert(*name,'jis');
	&jcode'convert(*sub,'jis');
	&jcode'convert(*comment,'jis');

	#‹LŽ–“à—e‚ÌA‰üs“™‚ð•ÏŠ·‚·‚éB
	$comment =~ s/<br>/\n/g;
	$comment =~ s/&lt;/</g;
	$comment =~ s/&gt;/>/g;
	
	#mail‚Ìƒ^ƒCƒgƒ‹Žw’è
	if ($mailtitle_chek){
		$mail_title = "[$num] $sub";
	}else{
		$mail_title = "$mail_sub";
	}
	
##sendmail‚Ö‚Ìo—Íˆ—

	#sendmail‚ðŠJ‚­
	#ŠJ‚¯‚ê‚Î
	if (open(MAIL,"| $sendmail $mailto")) {
	
	#ŽóMŽÒ‚ÌƒAƒhƒŒƒX‚ðŽw’è
	print MAIL "To: $mailto\n";

	#“ŠeŽÒ‚Ìƒ[ƒ‹ƒAƒhƒŒƒX‚ª‚È‚¯‚ê‚ÎAƒ_ƒ~[‚ÌƒAƒhƒŒƒX‚ð‘ã“ü
	if ($email eq "") { $email = "nomail\@xxx.xxx"; }

	#ƒ[ƒ‹‚Ì“à—e‚ðo—Í
	print MAIL "From: $email\n";
	print MAIL "Subject: $mail_title\n";
	print MAIL "MIME-Version: 1.0\n";
	print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
	print MAIL "Content-Transfer-Encoding: 7bit\n";
	print MAIL "X-Mailer: $ver\n\n";
	print MAIL "--------------------------------------------------------\n";
	print MAIL "“Še“úŽžF $date\n";
	print MAIL "  ƒzƒXƒgF $host\n";
	print MAIL "    –¼‘OF $name\n";
	
	print MAIL "    MAILF $email\n";

	if ($url) { 
	print MAIL "     URLF http://$url\n"; }

	print MAIL "ƒ^ƒCƒgƒ‹F $sub\n\n";
	print MAIL "$comment\n";
	print MAIL "--------------------------------------------------------\n";
	
	#sendmail‚ð•Â‚¶‚é
	close(MAIL);
	}
	
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«V’…•\Ž¦ˆ—                                            „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub new_time{                                              

	#‰½ŽžŠÔ‘O‚ðV’…‚Æ‚·‚é‚©‚ðŽw’èB
	$newd = time - 60*60*$new_time;

	#Žw’è‚µ‚½Žži•bj‚æ‚è‚àA“ŠeŽži•bj‚ªV‚µ‚¯‚ê‚Î
	if ($newd <= $second){
	
		#V’…ƒ}[ƒN‰æ‘œ‚ª‚ ‚ê‚ÎA‚»‚ê‚ð•\Ž¦
		if ($newgif){
			$date = "<img src=\"$newgif\" width=$newgif_w height=$newgif_h> $date";
		
		#‚È‚¯‚ê‚ÎA“ú•t‚ÉF‚ð‚Â‚¯‚éB
		}else{
			$date = "<font color=\"$newcolor\">$date</font>";
		}
	}
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«HOW TO •\Ž¦ˆ—                                         „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub how_to{                                                

##how toƒRƒƒ“ƒg‚ÌŽw’è
	
	#ƒ^ƒO‚ð‹–‰Â‚·‚é‚È‚ç
	if ($tag_check){
		$howto_tag = "<li><b>ƒ^ƒO</b>‚ÍŽg‚¦‚Ü‚·B•Â‚¶–Y‚ê‚É’ˆÓB<br>";
	
	#‹–‰Â‚µ‚È‚¢‚Ì‚È‚ç
	}else{
		$howto_tag = "<li><b>ƒ^ƒO</b>‚ÍŽg‚¦‚Ü‚¹‚ñB<br>";
	}
	
	#•K{€–Ú‚Ìƒ`ƒFƒbƒN
	$howto_hissu = "<li>";
	
	#–¼‘O‚ª•K{€–Ú‚È‚ç
	if ($name_check){
	
		#•Ï”‚É’Ç‰ÁB
		$howto_hissu .= "<b>name</b> ";
		
		#•K{€–Ú‚ª‚ ‚é‚±‚Æ‚ðƒ`ƒFƒbƒN
		$flag=1;
	}
	
	#ƒ[ƒ‹ƒAƒhƒŒƒX‚ª•K{€–Ú‚È‚ç
	if ($email_check){
	
		#•Ï”‚É’Ç‰ÁB
		$howto_hissu .= "<b>email</b> ";
		
		#•K{€–Ú‚ª‚ ‚é‚±‚Æ‚ðƒ`ƒFƒbƒN
		$flag=1;
	}
	
	#ƒ^ƒCƒgƒ‹‚ª•K{€–Ú‚È‚ç
	if ($sub_check){
	
		#•Ï”‚É’Ç‰Á
		$howto_hissu .= "<b>title</b> ";
		
		#•K{€–Ú‚ª‚ ‚é‚±‚Æ‚ðƒ`ƒFƒbƒN
		$flag=1;
	}
	
	#ƒL[‚ª•K{€–Ú‚È‚ç
	if ($pass_check){
	
		#•Ï”‚É’Ç‰Á
		$howto_hissu .= "<b>key</b> ";
		
		#•K{€–Ú‚ª‚ ‚é‚±‚Æ‚ðƒ`ƒFƒbƒN
		$flag=1;
	}
	
	#•K{€–Ú‚ª‚ ‚é‚Ì‚È‚ç
	if ($flag){
	
		#•Ï”‚É’Ç‰Á
		$howto_hissu .= "‚Ì—“‚Í•K{‚Å‚·B";
	
	#•K{€–Ú‚ª‚È‚¯‚ê‚ÎA
	}else{
	
		#•Ï”‚ðƒNƒŠƒA[‚·‚é
		$howto_hissu = "";
	}

	#V’…ƒ}[ƒNˆ—‚ð‚·‚é‚È‚ç
	if ($new_time_check) {
	
		#ƒ}[ƒN‰æ‘œ‚ðŽg‚¤‚È‚ç
		if ($newgif){
			
			#ƒ}[ƒN‰æ‘œ‚ª‚Â‚­‚±‚Æ‚ð•Ï”‚É‘ã“ü
			$howto_newmark = "<li><b>$new_time</b>ŽžŠÔˆÈ“à‚Ì“Še‚É‚Í<img src=\"$newgif\" width=$newgif_w height=$newgif_h>‚ª‚Â‚«‚Ü‚·B";
		
		#“ú•t‚ÌF•t‚¯‚È‚ç
		}else{
		
			#“ú•t‚ÉF‚ª‚Â‚­‚±‚Æ‚ð•Ï”‚É‘ã“ü
			$howto_newmark = "<li><b>$new_time</b>ŽžŠÔˆÈ“à‚Ì“Še‚ÍA“úŽž‚É<font color=\"$newcolor\">F</font>‚ª‚Â‚«‚Ü‚·B";
		}
	}
	
	#íœƒL[‚ÉŠÖ‚·‚éà–¾
	$howto_key     = "<li><b>key</b>(‰p””¼Šp8•¶ŽšˆÈ‰º)‚ðÝ’è‚µ‚Ä‚¨‚­‚ÆAŽ©•ª‚Ì“Še‚ðŒã‚Åíœ‚·‚é‚±‚Æ‚ª‚Å‚«‚Ü‚·B<li>Ž©•ª‚Ì‹LŽ–‚ðíœ‚µ‚½‚¢Žž‚ÍA‚»‚Ì‹LŽ–‚Ì‰E‰º‚ÌƒtƒH[ƒ€‚É<b>key</b>‚ð“ü—Í‚µ<img src=\"$gomi_gif\">‚ðƒNƒŠƒbƒN‚µ‚Ä‚­‚¾‚³‚¢B";
	
	# change #1
	#town•\Ž¦‚ÉŠÖ‚·‚éà–¾
	$howto_town    = "<li><b>$town_title</b>‚Å‚ÍA‹K’è‚Ì“Še”‚ð’´‚¦‚é‚Æ‚»‚Ì‚½‚Ñ‚ÉŽ‚¿‰Æ‚ª•Ï‰»‚µ‚Ä‚¢‚«‚Ü‚·B";
	
	# change #2
	#•Ê‘‹•\Ž¦‚ÌŽž‚Ìà–¾
	if (!$ktown){
		$howto_town .= "<li><b>town‰æ‘œ</b>‚ðƒNƒŠƒbƒN‚·‚é‚ÆA’¬•À‚Ý‚ª‚Ý‚ê‚Ü‚·B";
	}
	
	# change #3
	#Ž„‘” ‹@”\‚Ìà–¾
	if ($shishobako_check){
		$howto_shisho = "<li>Še‰Æ‚É<b>’u‚«ŽèŽ†</b>‚ðŽc‚·‚±‚Æ‚ª‚Å‚«‚Ü‚·Bƒ|ƒXƒg‚ðƒNƒŠƒbƒN‚µ‚Ä‚­‚¾‚³‚¢B<li>ƒ|ƒXƒg‚É<b>ŽèŽ†</b>‚ª‚ ‚éŽž‚ÍA<b>$ygm_limitŽžŠÔˆÈ“à</b>‚Ì’u‚«ŽèŽ†‚ª‚ ‚é‚±‚Æ‚ðŽ¦‚µ‚Ä‚¢‚Ü‚·B<li>Še‰Æ‚²‚Æ‚ÉÅ‘å<b>$resmaxŒ</b>‚Ì’u‚«ŽèŽ†‚ª•Û‘¶‚³‚ê‚Ü‚·B";
	}
	
	if ($oki_pass_check){
		$howto_shisho .= "<li>ŒfŽ¦”Â‚Å“Še‚·‚é‚Æ‚«‚É<b>key</b>‚ðÝ’è‚µ‚Ä‚¨‚­‚ÆA<b>ƒ|ƒXƒg‚ÉŒ®</b>‚ð‚©‚¯‚é‚±‚Æ‚ª‚Å‚«A‘¼‚Ìl‚É’u‚«ŽèŽ†‚ð”`‚©‚ê‚È‚­‚È‚è‚Ü‚·B";
	}
	
	# change #4
	#‰Æ¬’·‹@”\‚ÉŠÖ‚µ‚Ä
	$howto_town   .= "<li><b>$old_limit</b>“úŠÔ“Še‚ª‚È‚¢‚ÆA”pšÐ‚ÉA<b>$baikyaku_limit</b>“úŠÔ“Še‚ª‚È‚¢‚ÆA”„‹p‚³‚ê‚Ü‚·‚Ì‚Å‚²’ˆÓ‚­‚¾‚³‚¢B”„‹p‚³‚ê‚é‚Æ”ƒ‚Á‚½l‚ÉƒJƒEƒ“ƒg”‚ª’Ç‰Á‚³‚ê‚Ü‚·B”„‹p‚Æ“¯Žž‚É‘‚«ž‚Ý‚µ‚½l‚¾‚¯”ƒ‚¤‚±‚Æ‚ª‚Å‚«‚Ü‚·B";
	
	#‘‚«ž‚Ý‚·‚é‚Æ‚«‚ÉƒNƒŠƒbƒN‚·‚é‰æ‘œ‚Ìà–¾
	$howto_post    = "<li>‘‚«‚±‚Ý‚µ‚½‚ ‚ÆA<img src=\"$submit_gif\" width=$submit_w height=$submit_h>‚ðƒNƒŠƒbƒN‚µ‚Ä“Še‚µ‚Ü‚·B";
	
##how to •\Ž¦‚ÌƒtƒH[ƒ}ƒbƒg

	#ˆÈã‚ðAŽg‚¢•û‚Ìà–¾‚É‚Ü‚Æ‚ß‚Ä‘ã“ü
	$howto = "<ul type=circle>$howto_post\n$howto_tag\n$howto_hissu\n$howto_newmark\n$howto_key\n$howto_town\n$howto_shisho</ul><center><a href=\"$script?\">Žg‚¢•û‚ð‚Æ‚¶‚é</a></center>\n";
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒy[ƒWˆ—                                              „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub page{                                                  

##ƒy[ƒW”Ô†‚ÌŽw’èˆ—
##s”Ô†‚ÅŽw’è‚·‚éiÅ‰‚Ìs‚Í0sj

	#ƒy[ƒWŽw’è‚ª‚È‚¯‚ê‚ÎAÅ‰‚Ìs”Ô†‚ðŽw’è
	if ($FORM{'page'} eq '') { $page_start = 0; } 

	#ƒy[ƒWŽw’è‚ª‚ ‚ê‚ÎA‚»‚Ìs”Ô†‚ðŽw’è
	else { $page_start = $FORM{'page'}; }

	#ƒƒOƒtƒ@ƒCƒ‹‚ÌÅŒã‚Ì‹LŽ–‚Ìs”Ô†‚ðŽw’è
	#‘s”-1‚Æ‚·‚é‚Ì‚ÍAs”Ô†‚Í0‚©‚çŽn‚Ü‚Á‚Ä‚é‚©‚ç
	$all_data = @lines - 1;

	#•\Ž¦‚·‚éÅŒã‚Ì‹LŽ–‚ðs”‚ÅŽw’èB
	$page_end = $page_start + $pagelog - 1;

	#ƒƒOƒtƒ@ƒCƒ‹‚ÌÅŒã‚Ìs”Ô†‚æ‚è‚àAŽw’è‚µ‚½ÅŒã‚Ìs”Ô†‚ª‘å‚«‚¯‚ê‚Î
	#ƒƒOƒtƒ@ƒCƒ‹‚ÌÅŒã‚Ìs”Ô†‚ðA•\Ž¦‚·‚éÅŒã‚Ì‹LŽ–‚Ìs”Ô†‚ÉŽw’è‚µ‚È‚¨‚·B
	if ($page_end >= $all_data) { $page_end = $all_data; }

	#ŽŸ‚Ìƒy[ƒW‚ÌÅ‰‚Ì‹LŽ–‚Ìs”Ô†‚ðŽw’è
	$next_page = $page_end + 1;
	
	#‘O‚Ìƒy[ƒW‚ÌÅ‰‚Ì‹LŽ–‚Ìs”Ô†‚ðŽw’è
	$back_page = $page_start - $pagelog;

##ƒy[ƒW•ÏXƒ{ƒ^ƒ“‚Ì•\Ž¦ˆ—

	#‚à‚µA‘O‚Ìƒy[ƒW‚ª‚ ‚é‚Ì‚È‚ç‚ÎA
	if ($back_page >= 0 ){

	#$page_back•Ï”‚É‘ã“ü‚·‚éB
	$page_back = <<"EOM";
<form method="$method" action="$script">
<input type=hidden name=page value="$back_page">
<input type=image src="$back_gif" width=$back_w height=$back_h border=0>
</form>
EOM
	}

	#‚à‚µAŽŸ‚Ìƒy[ƒW‚Ì‚ª‚ ‚é‚Ì‚È‚çA
	if ($page_end ne "$all_data") {

	#$page_next•Ï”‚É‘ã“ü‚·‚éB
	$page_next =<<"EOM";
<form method="$method" action="$script">
<input class="input" type=hidden name=page value="$next_page\">
<input type=image src="$next_gif" width=$next_w height=$next_h border=0>
</form>
EOM
	}
}                                                          

#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«house page countˆ—                                    „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub house_count{
	
	if($FORM{'hpc'} eq ''){
		$house_start = 0;
	}else{
		$house_start = $FORM{'hpc'};
	}
	
	$house_num = 20;
	$house_end = $house_start + $house_num - 1;
	
	if($house_end >= $#lines){
		$house_end = $#lines;
	}
	
	$house_next = $house_start + $house_num;
	
	$house_back = $house_start - $house_num;
}
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«town•\Ž¦ˆ—                                            „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub ktown{                                                  



##townƒf[ƒ^Žæ“¾ˆ—

	#rankƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$rankfile") || &error("$rankfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B");
	
	#ƒf[ƒ^‚ÌŠes‚ð•Ï”‚É‘ã“ü
	@lines = <IN>;
#‰ü‘¢
	$ietotalsu = $#lines+1;
	
	#ƒf[ƒ^ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);


##town‚Ì•\Ž¦ˆ—
	
	#ƒe[ƒuƒ‹‚ðì¬
	print <<"EOM";
	<table cellspacing=0 cellpadding=0 border=0>
		<tr>
			<td nowrap align=center colspan=5><b>$town_title<br>$ietotalsuŒ¬</b><br><img src="$iedir/town.gif"></td>
		</tr>
EOM




##Ž„‘” ƒf[ƒ^Žæ“¾ˆ—
	
	#Ž„‘” ‹@”\‚ðŽg‚¤‚È‚ç
	if ($shishobako_check){

		#Ž„‘” ƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðŠJ‚­
		open (IN,"$res_file") || &error("$res_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
		
		#ƒf[ƒ^‚ð”z—ñ‚É‘ã“ü
		@shishos = <IN>;
		
		#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
		close (IN);
	}


##ƒf[ƒ^‚ÌƒtƒH[ƒ}ƒbƒgE•\Ž¦ˆ—
	
	#‰Æ‚Ì”z’u‚ð§Œä‚·‚é•Ï”‚ðŽw’è
	$side = 0;

	#ƒf[ƒ^‚ð‚Ð‚Æ‚Â‚Ã‚Â•ªÍ‚·‚é
	
	#‰Æ•\Ž¦ƒy[ƒWˆ—‚Ö
	&house_page_count;

	print "<tr><td colspan=2 width=90 nowrap align=center>";

	if($ktown == 1){
		$ktown_win_select = none;
	}else{
		$ktown_win_select = town;
	}
	
	#‘O‚Ìƒy[ƒW‚ª‚ ‚ê‚Î
	if ($house_back >= 0){
		print "<a href=\"$script?hpc=$house_back\&mode=$ktown_win_select\"><img src=\"$back_gif\" width=$back_w height=$back_h border=0 alt=\"‘O‚Ì’Ê‚è‚Ö\"></a>";
		
	#–³‚¢‚È‚ç
	}else{
		print "<br>";
	}
	
	#“¹‚Ì•”•ª‚Ì•\Ž¦
	print <<"EOM";
</td>
			<td width=15 bgcolor="#cccccc" nowrap><img src="$gifdir/spacer.gif" width=15 height=40></td>
			<td width=90 colspan=2 nowrap align=center>
EOM
	
	#ŽŸ‚Ìƒy[ƒW‚ª‚ ‚ê‚Î
	if ($house_next <= $#lines){
		print "<a href=\"$script?hpc=$house_next\&mode=$ktown_win_select\"><img src=\"$next_gif\" width=$next_w height=$next_h border=0 alt=\"ŽŸ‚Ì’Ê‚è‚Ö\"></a>";
	
	#–³‚¯‚ê‚Î
	}else{
		print "<br>";
	}
	

	print "</td></tr>";

	#•\Ž¦•ª‚¾‚¯EEE
	foreach ($house_start .. $house_end){
		($name,$count,$town,$url,$sec,$pass) = split(/<>/,$lines[$_]);
		
		$sec  =~ s/\n//g;
		$pass =~ s/\n//g;
		
		#‰ÆƒAƒCƒRƒ“‚ÌŽw’è
		if($count == 1 ){$ie = "1";}		#Å‰‚Ì“Še
		elsif($count <= 2){$ie = "2";}		#‚Q‰ñ–Ú‚Ì“Še
		elsif($count <= 3){$ie = "3";}		#‚R‰ñ–Ú‚Ì“Še
		elsif($count <= 4){$ie = "4";}		#‚S‰ñ–Ú‚Ì“Še
		elsif($count <= 6){$ie = "5";}		#‚T`‚U‰ñ–Ú‚Ì“Še
		elsif($count <= 10){$ie = "6";}		#‚V`‚P‚O‰ñ–Ú‚Ì“Še
		elsif($count <= 20){$ie = "7";}		#‚P‚P`‚Q‚O‰ñ–Ú‚Ì“Še
		elsif($count <= 30){$ie = "8";}		#‚Q‚P`‚R‚O‰ñ–Ú‚Ì“Še
		elsif($count <= 40){$ie = "9";}		#‚R‚P`‚S‚O‰ñ–Ú‚Ì“Še
		elsif($count <= 50){$ie = "10";}	#‚S‚P`‚T‚O‰ñ–Ú‚Ì“Še
		elsif($count <= 60){$ie = "11";}	#‚T‚P`‚U‚O‰ñ–Ú‚Ì“Še
		elsif($count <= 70){$ie = "12";}	#‚U‚P`‚V‚O‰ñ–Ú‚Ì“Še
		elsif($count <= 80){$ie = "13";}	#‚V‚P`‚W‚O‰ñ–Ú‚Ì“Še
		elsif($count <= 99){$ie = "14";}	#‚W‚P`‚X‚X‰ñ–Ú‚Ì“Še
		elsif($count == 100){$ie = "town";}	#‚P‚O‚O‰ñ–Ú‚Ì“Še
	
		#”pšÐ‚ÌŠúŒÀ‚©‚Ç‚¤‚©‚ð”»’f
		$old = time - 60*60*24*$old_limit;  #”pšÐŠúŒÀ‚ðŽw’è
		
		#‚à‚µ‚à”pšÐŠúŒÀ‚É‚È‚Á‚Ä‚¢‚½‚çA‰ÆƒAƒCƒRƒ“‚ð”pšÐ‰æ‘œ‚É•ÏX
		if ($old > $sec){$ie = "old";}

		#“Še“úŽž‚ÌƒtƒH[ƒ}ƒbƒg
		&ktown_time;

		#‘“Še”‚ðŽæ‚èo‚·
		$count = $count + $town * 100;
		
		#Œ¨‘‚«‚ð“ü‚ê‚é•Ï”‚ðŽw’è
		$katagaki = "";

#‰ü‘¢
		if ($count > 99 && $ie ne "old") {
			if($count <= 120){$ie = "15";}		#100`120‰ñ–Ú‚Ì“Še
			elsif($count <= 140){$ie = "16";}	#121`140‰ñ–Ú‚Ì“Še
			elsif($count <= 160){$ie = "17";}	#141`160‰ñ–Ú‚Ì“Še
			elsif($count <= 180){$ie = "18";}	#161`180‰ñ–Ú‚Ì“Še
			elsif($count <= 200){$ie = "19";}	#181`200‰ñ–Ú‚Ì“Še
			elsif($count <= 250){$ie = "20";}	#201`250‰ñ–Ú‚Ì“Še
			elsif($count <= 300){$ie = "21";}	#251`300‰ñ–Ú‚Ì“Še
			elsif($count <= 350){$ie = "22";}	#301`350‰ñ–Ú‚Ì“Še
			elsif($count <= 400){$ie = "23";}	#351`400‰ñ–Ú‚Ì“Še
			elsif($count <= 450){$ie = "24";}	#401`450‰ñ–Ú‚Ì“Še
			elsif($count <= 500){$ie = "25";}	#451`500‰ñ–Ú‚Ì“Še
			elsif($count <= 600){$ie = "26";}	#501`600‰ñ–Ú‚Ì“Še
			elsif($count >  600){$ie = "27";}	#600ˆÈã
		}


		# change #5
		#Œ¨‘‚«Žw’è
		if($count >99) {$katagaki = "’¬’·";}	#‚P‚O‚OŒˆÈã‚È‚ç
		if($count >199){$katagaki = "Žs’·";}	#‚Q‚O‚OŒˆÈã‚È‚ç
		if($count >299){$katagaki = "’mŽ–";}	#‚R‚O‚OŒˆÈã‚È‚ç
		if($count >399){$katagaki = "Žñ‘Š";}	#‚S‚O‚OŒˆÈã‚È‚ç
		if($count >499){$katagaki = "’n‹…‰¤";}	#‚T‚O‚OŒˆÈã‚È‚ç
		if($count >599){$katagaki = "‰F’ˆ‰¤";}	#‚U‚O‚OŒˆÈã‚È‚ç


		#ƒ|ƒXƒg‰æ‘œ‚ðŽw’è
		$post = "$post1";
		
		#V’…ƒŠƒ~ƒbƒg‚ðŽw’è
		$ygm = time - 60*60*$ygm_limit;

##Ž„‘” ‚ÉV’…’u‚«ŽèŽ†‚ª‚ ‚é‚©‚Ç‚¤‚©‚Ìƒ`ƒFƒbƒN
		#Ž„‘” ‹@”\‚ðŽg‚¤‚È‚ç
		if ($shishobako_check){
			#ƒf[ƒ^‚ð•ªÍ
			foreach(@shishos){
				
				#ƒf[ƒ^‚ð•ª‰ð
				@shishodatas = split(/<>/,$_);
				
				#–¼‘O‚Å”»’f
				if ($name eq "$shishodatas[0]"){
					
					#V’…‚È‚ç
					if ($shishodatas[3] > $ygm){
					
						#ƒ|ƒXƒg‰æ‘œ‚ðŽw’è
						$post = "$post2";
						
						#ÅV‚Ì’u‚«ŽèŽ†‚¾‚¯‚Å‚æ‚¢‚Ì‚ÅAˆ—‚ðI—¹
						last;
					
					}
				}
			}
		}
		
##Ž„‘” ‹@”\‚ðŽg‚¤‚Æ‚«‚Ì•\Ž¦ˆ—

		#Ž„‘” ‹@”\‚ðŽg‚¤‚È‚ç
		if ($shishobako_check){
			
			if ($oki_win_check){
				$oki_target = "oki_window";
			}else{
				$oki_target = "";
			}
				
			#“¹‚Ì¶‘¤‚É•\Ž¦
			if ($side == 0){
			
				#ŽŸ‚Ì‰Æ‚ð‰E‘¤‚É•\Ž¦‚³‚¹‚é‚½‚ß‚Ìˆó
				$side = 1;
			
				#•\Ž¦
				print <<"EOM";
		<form action=$script method=$method target="$oki_target">
		<input type=hidden name=mode value=res_html>
		<input type=hidden name=owner value=$name>
		<input type=hidden name=url value=$url>
		<input type=hidden name=count value=$count>
		<input type=hidden name=ie value=$ie>
		<input type=hidden name=pass_t value=$pass>
		<tr>
			<td valign=bottom align=right>$katagaki $name [$count]<br>$date<br>
EOM
				if ($url){
					print "<a href=\"http\://$url\" target=$target><img src=\"$iedir/$ie.gif\" border=0></a>\n";
				}else{
					print "<img src=\"$iedir/$ie.gif\" border=0>\n";
				}
				print <<"EOM";
			</td>
			<td valign=bottom align=right><input type=image src="$post" width=$post_w height=$post_h border=0></td>
			<td width=15 bgcolor="#cccccc"><img src="$gifdir/spacer.gif" width=15 height=1></td>
			<td><br></td>
			<td><br></td>
		</tr>
		</form>
EOM

			#“¹‚Ì‰E‘¤‚É•\Ž¦
			}else{
			
				#ŽŸ‚Ì‰Æ‚Í¶‘¤‚É•\Ž¦‚³‚¹‚é‚½‚ß‚Ìˆó
				$side = 0;
				print <<"EOM";
		<form action=$script method=$method target="$oki_target">
		<input type=hidden name=mode value=res_html>
		<input type=hidden name=owner value=$name>
		<input type=hidden name=url value=$url>
		<input type=hidden name=count value=$count>
		<input type=hidden name=ie value=$ie>
		<input type=hidden name=pass_t value=$pass>

		<tr>
			<td><br></td>
			<td><br></td>
			<td width=15 bgcolor="#cccccc"><img src="$gifdir/spacer.gif" width=15 height=1></td>
			<td valign=bottom align=left><input type=image src="$post" width=$post_w height=$post_h border=0></a></td>
			<td valign=bottom align=left>$katagaki $name [$count]<br>$date<br>
EOM
				if ($url){
					print "<a href=\"http\://$url\" target=$target><img src=\"$iedir/$ie.gif\" border=0></a>\n";
				}else{
					print "<img src=\"$iedir/$ie.gif\" border=0>\n";
				}
				print <<"EOM";
			
			</td>
		</tr>
		</form>
EOM
			}

	#Ž„‘” ‹@”\‚ðŽg‚í‚È‚¢‚Ì‚È‚ç
		}else{
			#“¹‚Ì¶‘¤‚É•\Ž¦
			if ($side == 0){
		
				#ŽŸ‚Ì‰Æ‚ð‰E‘¤‚É•\Ž¦‚³‚¹‚é‚½‚ß‚Ìˆó
				$side = 1;
		
				#•\Ž¦
				print <<"EOM";
		<tr><td valign=bottom align=right>$katagaki $name [$count]<br>$date<br>
EOM

				#“ŠeŽÒ‚ÉHP‚ª‚ ‚ê‚Î‰ÆƒAƒCƒRƒ“‚ÉƒŠƒ“ƒN‚ð‚Í‚é
				if ($url ne ""){
					print "<a href=\"http://$url\" target=_blank><img src=\"$iedir/$ie.gif\" border=0></a>";
			
				#‚È‚¯‚ê‚ÎA‚»‚Ì‚Ü‚ÜB
				}else{
					print "<img src=\"$iedir/$ie.gif\" border=0>";
				}
					print <<"EOM";
			</td>
			<td valign=bottom align=right><img src="$no_post" width=$no_post_w height=$no_post_h></td>
			<td width=15 bgcolor="#cccccc"><img src="$gifdir/spacer.gif" width=15 height=1></td>
			<td><br></td>
			<td><br></td>
		</tr>
EOM

		#“¹‚Ì‰E‘¤‚É•\Ž¦
			}else{
		
				#ŽŸ‚Ì‰Æ‚Í¶‘¤‚É•\Ž¦‚³‚¹‚é‚½‚ß‚Ìˆó
				$side = 0;
			
				print <<"EOM";
		<tr><td><br></td>
			<td><br></td>
			<td width=15 bgcolor="#cccccc"><img src="$gifdir/spacer.gif" width=15 height=1></td>
			<td valign=bottom align=left><img src="$no_post" width=$no_post_w height=$no_post_h></td>
			<td valign=bottom align=left>$katagaki $name [$count]<br>$date<br>
EOM
		
				#HP‚ª‚ ‚ê‚ÎA‰ÆƒAƒCƒRƒ“‚ÉƒŠƒ“ƒN‚ð‚Í‚éB
				if ($url ne ""){
					print "<a href=\"http://$url\" target=_blank><img src=\"$iedir/$ie.gif\" border=0></a>";
		
				#‚È‚¯‚ê‚Î‚»‚Ì‚Ü‚Ü
				}else{
					print "<img src=\"$iedir/$ie.gif\" border=0>";
				}
					print <<"EOM";
			</td>
		</tr>
EOM
			}
		}
	}
	
	
		print "<tr><td colspan=2 width=90 nowrap align=center>";
	
	if ($house_back >= 0){
		print "<a href=\"$script?hpc=$house_back\&mode=$ktown_win_select\"><img src=\"$back_gif\" width=$back_w height=$back_h border=0 alt=\"\‘O‚Ì’Ê‚è‚Ö\"></a>";
	}else{
		print "<br>";
	}
	
	print <<"EOM";
</td>
			<td width=15 bgcolor="#cccccc" nowrap><img src="$gifdir/spacer.gif" width=15 height=40></td>
			<td width=90 colspan=2 nowrap align=center>
EOM
	
	if ($house_next <= $#lines){
		print "<a href=\"$script?hpc=$house_next\&mode=$ktown_win_select\"><img src=\"$next_gif\" width=$next_w height=$next_h border=0 alt=\"ŽŸ‚Ì’Ê‚è‚Ö\"></a>";
	}else{
		print "<br>";
	}
	
	print "</td></tr>";
	
	#ƒe[ƒuƒ‹‚ð•Â‚¶‚é
	print "\t</table>\n";
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«•Ê‘‹‚Åtown‚ð•\Ž¦‚·‚éˆ—                                „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub ktown_win{                                                 
	
 &head_html("town_title");

	print "<center>\n";

	#town•\Ž¦ƒƒCƒ“ˆ—
	&ktown;
	
	print "</center></body></html>";
	
	exit;
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«town‚É‚Â‚©‚¤“úŽž•\Ž¦‚Ìˆ—                              „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub ktown_time{                                             

	#“ú–{ŽžŠÔ‚ðŽw’è
	$ENV{'TZ'} = "JST-9";

	#Še—v‘f‚Í(•bE•ªEŽžE“úEŒŽE”NE—j“úE‰ÄŽžŠÔ’²®EHj
	($sec,$min,$hour,$mday,$mon,$year,$wday,$d,$d) = localtime($sec);

	#”N$year‚Í1900”N‚©‚ç‚Ì”N”‚È‚Ì‚ÅA1900‚ð‘«‚·
	$year += 1900;

	#ŒŽ$mon‚Í0‚©‚ç11‚È‚Ì‚ÅA‚P‘«‚·B
	$mon++;

	#Še’l‚ÅAˆêŒ…‚Ì‚Æ‚«‚ÍAÅ‰‚É‚O‚ð‘«‚·BiŒ©‚½–Ú‚Ì‚½‚ßj
	if ($mon  < 10) { $mon  = "0$mon";  }
	if ($mday < 10) { $mday = "0$mday"; }
	if ($hour < 10) { $hour = "0$hour"; }
	if ($min  < 10) { $min  = "0$min";  }
	if ($sec  < 10) { $sec  = "0$sec";  }

	#“úŽž‚ðƒtƒH[ƒ}ƒbƒg‚·‚éB•b”‚ÍƒJƒbƒg‚µ‚½B
	$date = "$year\/$mon\/$mday";
	$rdate= "$mon\/$mday $hour:$min";


}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«town‚Ìƒf[ƒ^‚ÌXVˆ—                                  „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub ktown_up{

	#“Še‰ñ”‚ð‘‚â‚·‚Ì‚©AŒ¸‚ç‚·‚Ì‚©‚Ì”»’fiup or downj‚ðŽæ“¾
	local($flag) = "$_[0]";

##ƒf[ƒ^Žæ“¾ˆ—

	#ƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$rankfile")  || &error("$rankfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");

	#ƒf[ƒ^‚ÌŠes‚ð•Ï”‚É‘ã“ü
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close(IN);
	
##XV‚·‚éƒf[ƒ^‚ðŒ©‚Â‚¯Aƒf[ƒ^‚ðƒtƒH[ƒ}ƒbƒg‚·‚éˆ—

	#XV‚³‚ê‚½ƒf[ƒ^‚ð‚¢‚ê‚é”z—ñ‚ÌŽw’è
	@ranks = ();
	
	#”„‹p‚³‚ê‚é‰Æ‚Ìƒf[ƒ^‚ð“ü‚ê‚é”z—ñ‚ÌŽw’è
	@saledata = ();

	#ƒf[ƒ^‚ð1‚Â‚Ã‚Â•ªÍ‚·‚éB
	foreach $line (@lines){
	
		#ÅŒã‚Ìt‚Ítown‚Ìt
		($namet,$cnt,$town,$urlt,$sect,$passt) = split(/<>/,$line);

		$sect =~ s/\n//g;
		$passt=~ s/\n//g;
		
		#XV‚·‚éƒf[ƒ^‚ð–¼‘O‚Å”»’f‚·‚éB
		#$name‚Ì’l‚ÍA&write or &clear‚©‚ç‚Ì‚à‚ÌB
		if ($name eq "$namet"){

			#&write‚©‚ç‚«‚½ê‡
			if ($flag eq "up"){
				
				#ƒJƒEƒ“ƒg‚ðƒAƒbƒv
				++$cnt;

				#“Še‰ñ”‚ª‚P‚O‚O‚ð’´‚¦‚½Žž‚Ìˆ—
				if ($cnt > 100){
				
				#100‚ÌˆÊ‚ð§Œä‚·‚é$town‚ÌƒJƒEƒ“ƒg‚ðƒAƒbƒv
				++$town;
				
				#ƒJƒEƒ“ƒg‚ð1‚É–ß‚·
				$cnt = 1;
				}

				#ƒf[ƒ^‚ðƒtƒH[ƒ}ƒbƒg
				#$url,$second,$PW‚Í&write‚©‚ç‚Ì’l

###‰ü‘¢				$rank = "$namet<>$cnt<>$town<>$url<>$second<>$PW\n";

				if ($minresflg eq '1') {#ƒŒƒX‚ÌŽž
					$rank = "$namet<>$cnt<>$town<>$urlt<>$second<>$passt\n";
				} else {
					$rank = "$namet<>$cnt<>$town<>$url<>$second<>$PW\n";
				}


			#&clear‚©‚ç‚Ìê‡
			}elsif($flag eq "down"){
				
				#ƒJƒEƒ“ƒg‚ðƒ_ƒEƒ“
				$cnt=$cnt-1;

				#Œ¸‚ç‚µ‚½Žž‚ÉA“Še‰ñ”‚ª‚O‚Æ‚È‚Á‚½Žž
				if ($cnt <1){

					#‘“Še‰ñ”‚ª‚P‚O‚O‚ð‰z‚¦‚Ä‚¢ê‡
					if ($town >0){
					
						#ƒJƒEƒ“ƒg‚ð100‚É‚·‚é
						$cnt = 100;
						
						#100‚ÌˆÊ‚ð§Œä‚·‚é$town‚ð‚PŒ¸‚ç‚·
						$town = $town-1;
					
					#‚P‚O‚O‚ð‰z‚¦‚Ä‚¢‚È‚¢‚Æ‚«‚ÍA‚»‚Ìƒf[ƒ^‚ðíœ‚·‚éˆó‚ð‚Â‚¯‚é
					}else{$nodata = "yes";}
				}

				#ƒf[ƒ^‚ðXV‚·‚éB
				$rank = "$namet<>$cnt<>$town<>$urlt<>$sect<>$passt\n";
			}

		#XV‚·‚éƒf[ƒ^‚Å‚È‚¢ê‡
		}else{
	
			#ƒf[ƒ^‚Ì‚È‚©‚ÅA”„‹pŠúŒÀ‚Æ‚È‚Á‚Ä‚¢‚é‚©‚Ì”»’f
			$baikyaku = time - 60*60*24 * $baikyaku_limit;    #”„‹pŠúŒÀ
		
			#”„‹p‘ÎÛ‚Æ‚È‚ç‚È‚¢‚à‚Ì‚¾‚¯A•Û‘¶‚·‚éB
			if ($sect > $baikyaku){
				push(@ranks,$line);
			
			#”„‹p‘ÎÛ‚Ì‰Æ‚ª‚ ‚Á‚½‚Æ‚«
			}else{
				
				#”„‹p”z—ñ‚É’Ç‰Á
				push(@saledata,$line);
				
				#”„‹p‘ÎÛ‚ª‚ ‚Á‚½‚±‚Æ‚Ìˆó
				$saleflag = 1;
			}
		}
	}

##XV‚·‚éƒf[ƒ^‚ª–³‚¢Žž
##‰“Še or townƒf[ƒ^C³‚Åíœ‚³‚ê‚Ä‚¢‚½ê‡

	#‰‚ß‚Ä‚Ì“Še‚Ìê‡
	#ƒ_ƒEƒ“‚Ìê‡‚ð”rœ
	if ($flag eq "up" && $rank eq ""){
	
		#ƒf[ƒ^‚ÌƒtƒH[ƒ}ƒbƒg
		#$name,$url,$second,$PW‚Í&write‚©‚ç‚Ì•Ï”
		$rank = "$name<>1<>0<>$url<>$second<>$PW\n";
	}

##”„‹pˆ—

	#”„‹p‘ÎÛ‚ª‚ ‚Á‚½ê‡
	if ($saleflag){
		
		#‘ƒJƒEƒ“ƒg”‚Ì•Ï”‚ðŽw’è
		$cntup =0;
		
		#”„‹p‘ÎÛ‚Ì‚·‚×‚Ä‚Ì‰Æƒf[ƒ^‚ð•ªÍ
		foreach (@saledata){
		
			#•ª‰ð‚µ‚ÄA”z—ñ‚É‘ã“ü
			@data = split(/<>/,$_);
			
			#ƒJƒEƒ“ƒg”‚ðŽæž‚Þ
			$cntup = $cntup + $data[1];
		}
	}

##V‹Kƒf[ƒ^”z—ñ‚É’Ç‰Áˆ—
##”„‹pŽž‚ÌƒJƒEƒ“ƒgˆ—

	#XV‚ªíœ‚Å‚È‚¯‚ê‚ÎA
	#íœˆ—‚Ìê‡‚ÍA”„‹pƒJƒEƒ“ƒgƒAƒbƒvˆ—‚Í
	#s‚È‚í‚È‚¢B‚Â‚Ü‚èA‚»‚Ì‚Ü‚Ü”„‹piíœj‚³‚ê‚é‚¾‚¯
	unless ($nodata eq "yes"){
		
		#”„‹p‚·‚é‰Æ‚ª‚ ‚ê‚ÎA
		if ($saleflag){
		
			#•s“®ŽY”„‹p‹@”\‚ðŽg‚¤ê‡‚Í
			if($fudousan_check){
		
				#‰ü‚ß‚ÄA¡‘‚«ž‚Ý‚µ‚½l‚Ìƒf[ƒ^‚ð•ªÍ
				#æ“ª‚Ìs‚Ísale‚Ìs
				($sname,$scnt,$stown,$surl,$ssec,$spass) = split(/<>/,$rank);
				
				#ƒJƒEƒ“ƒg‚ð’Ç‰Á
				$scnt = $scnt + $cntup;
				
				#’Ç‰Á‚µ‚½Œ‹‰Ê‚ªA100ˆÈ‰º‚É‚È‚é‚Ü‚ÅA
				while ($scnt > 100){
				
					#100‚ÌˆÊ‚ð§Œä‚·‚é$stown‚ÌƒJƒEƒ“ƒg‚ðƒAƒbƒv
					++$stown;
					
					#$scnt‚©‚ç100‚ðˆø‚­
					$scnt = $scnt - 100;
				}
				
				#ƒf[ƒ^‚ÌƒtƒH[ƒ}ƒbƒg
				$rank = "$sname<>$scnt<>$stown<>$surl<>$ssec<>$spass";
				
				#•s“®ŽY•ñƒƒbƒZ[ƒW‚Ì‘‚«‚±‚Ýˆ—‚Ö
				&fudousan;

			}
		}
		
		
		#XV”z—ñ‚Ìˆê”Ôã‚É’Ç‰Á
		unshift(@ranks,$rank);
	}

##ƒf[ƒ^XVˆ—

	#ƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (OUT,">$rankfile");
	
	#V‹Kƒf[ƒ^”z—ñ‚ðo—Í
	print OUT @ranks;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (OUT);
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«•s“®ŽY‰®‚©‚ç‚Ì•ñ‚ð‘‚«ž‚Ý‚·‚éˆ—                    „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub fudousan{
 
	#ƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$logfile") || &error("“Še‹LŽ–•Û‘¶ƒtƒ@ƒCƒ‹$logfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B");

	#’¼‘O‚Ìs‚ð”z—ñ‚É‘ã“ü
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close(IN);
	
	#’¼‘O‚Ìƒf[ƒ^‚ðŽæ“¾‚·‚é
	@bline = split(/<>/,$lines[0]);


	#’¼‘O‚Ì‹LŽ–No‚ðŽæ“¾

##‰ü‘¢
	@sorttbl = map {(split /<>/)[0]} @lines;
	@sorttbl2 = @lines[sort {$sorttbl[$b] <=> $sorttbl[$a]} 0 .. $#sorttbl];
	$maxnum = $sorttbl2[0];

	$bnum = $maxnum;
##	$bnum = $bline[0];


	
	#‹LŽ–No‚ð‘ã“ü
	#f‚Ífudousan‚Ìf
	$fnum  = $bnum + 1;
	
	#”ƒŽå‚Ì–¼‘O‚ð‚Æ‚è‚¾‚·B
	$kainushi = "$sname";
	
	#•s“®ŽY‚ÌƒŠƒXƒg‚ð“ü‚ê‚é”z—ñ‚ðŽw’è
	@ielist = ();

##”„‹pƒŠƒXƒgì¬

	#”„‹p‘ÎÛ”z—ñ‚ð1‚Â‚Ã‚Â•ªÍ
	foreach(@saledata){
	
		#”„‹p‘ÎÛƒf[ƒ^‚ð•ªŠ„‚·‚éB
		@bukken = split(/<>/,$_);
		
		#Ž‚¿Žå‚Ì–¼‘O‚ðŽæ‚èo‚·
		$urinushi = "$bukken[0]";
		
		# change #6
		#“Še”‚©‚ç’l’i‚ðŒˆ’è‚·‚é
		#‚È‚ñ‚Æ‚È‚­’l’i‚ç‚µ‚¢‚à‚Ì‚É‚·‚é‚½‚ß
		#‚ ‚¦‚Ä”¼’[‚È”‚ð‚©‚¯‚é
		$nedan    =  $bukken[1] * 976;
		
		# change #7
		#•¨Œƒf[ƒ^‚ðƒtƒH[ƒ}ƒbƒg
		$list     = "<b>$urinushi</b> —l‚Ì“y’nŒš•¨ <b>$nedan</b> –œ‰~ ‚Å”„‹pB";
		
		#•s“®ŽYƒŠƒXƒg”z—ñ‚É’Ç‰Á
		push (@ielist,$list);
	}

##ŒfŽ¦”Â‚É‘‚«‚±‚Þƒf[ƒ^‚ðì¬

	# change #8
	#–¼‘O
	$fname    = "$town_title•s“®ŽY";
	
	# change #9
	#ƒ^ƒCƒgƒ‹
	$fsub     = "”„‹p•ñ";
	
	# change #10
	#ƒRƒƒ“ƒg“à—e‚Pi‘O’u‚«j
	$fcomment = "‚±‚Ì‚½‚Ñ <b>$kainushi</b> —l‚Æ‚ÌŠÔ‚Å“y’nŒš•¨”„‹pŒ_–ñ‚ª¬—§‚µ‚Ü‚µ‚½B<br>";
	
	#ƒRƒƒ“ƒg“à—e‚Qi•¨ŒƒŠƒXƒgj’Ç‰Á‘ã“ü
	$fcomment .= join ('<br>',@ielist);
	
	#ƒRƒƒ“ƒg“à—e‚R i‚µ‚ßj’Ç‰Á‘ã“ü
	$fcomment .= "<br>ˆÈã‚É‚æ‚è <b>$kainushi</b> —l‚Ì‘ƒJƒEƒ“ƒg”‚Í $cntup ‚¾‚¯ƒAƒbƒv‚µ‚Ü‚µ‚½B";
	
	#ƒpƒXƒ[ƒh
	$fpass   = "$masterkey";

	$fmcolor = $recolor;
	$fhcolor = $rehcolor;
	#ƒf[ƒ^‚ÌƒtƒH[ƒ}ƒbƒg
	$line = "$fnum<>$fname<><><>$fsub<>$fcomment<>$fres<>$date<>$second<><>$fpass<>$fmcolor<>$fhcolor\n";

	#ƒf[ƒ^”z—ñ‚Ìæ“ª‚É’Ç‰Á
	unshift(@lines,$line);
	
	#ƒf[ƒ^ƒtƒ@ƒCƒ‹‚ð‘‚«‚±‚Ý—p‚ÉŠJ‚­
	open (OUT,">$logfile") || &error("$logfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#ƒf[ƒ^”z—ñ‚ð‘‚«‚±‚Þ
	print OUT @lines;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close(OUT);
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðXV‚·‚éˆ—                          „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub pastwrite{                                             

##‰ß‹ŽƒƒONO‚ðŽæ“¾‚·‚éˆ—
	
	#‰ß‹ŽƒƒONOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN ,"$pcnt_file") || &error("$pcnt_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½") ;
	
	#ˆês–Ú‚ÌNo‚¾‚¯‚ð‚Æ‚è‚¾‚·
	$pcnt = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);
	
	#s––‚Ì‰üs•¶Žš‚ðíœ‚·‚é
	$pcnt =~ s/\n//g;
	
##‰ß‹ŽƒƒOƒfƒBƒŒƒNƒgƒŠ‚ÌÝ’è‚ª‚¿‚á‚ñ‚Æ‚È‚Á‚Ä‚¢‚é‚©‚Ìƒ`ƒFƒbƒNˆ—iÅ‰‚¾‚¯j

	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ª¶¬‚³‚ê‚Ä‚¢‚È‚¢‚È‚ç
	if ($pcnt == 0){
	
		#ƒ_ƒ~[ƒtƒ@ƒCƒ‹‚ð‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ð•Û‘¶‚·‚éƒfƒBƒŒƒNƒgƒŠ‚ÉŽw’è‚·‚éB
		$dmyfile = "$pastdir\/dmy.html";
		
		#ƒ_ƒ~[ƒtƒ@ƒCƒ‹ì¬iì¬‚Å‚«‚È‚¯‚ê‚ÎAˆ—‚ð’†’fj
		open (DMY,">$dmyfile") || &error("‰ß‹ŽƒƒOƒfƒBƒŒƒNƒgƒŠ‚ÌŽw’è‚ðÄ“xŠm”F‚µ‚Ä‚­‚¾‚³‚¢B");
		
		#ƒ_ƒ~[ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
		close (DMY);
		
		#ƒ_ƒ~[ƒtƒ@ƒCƒ‹‚ðíœ‚·‚éB
		unlink($dmyfile);
	}

##‘‚«‚±‚Þƒtƒ@ƒCƒ‹‚ðŒˆ’è‚·‚éˆ—

	#Œ»Ý‚ ‚éÅV‚Ì‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðŽw’è
	$p_file = "$pastdir\/$pcnt\.html";

	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ª‚È‚¯‚ê‚ÎAì¬‚·‚éˆ—‚ÉB
	#‚Í‚¶‚ß‚Ä‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðì‚éŽž‚ªA‚±‚ê‚É‚ ‚½‚éB
	#0.htmlƒtƒ@ƒCƒ‹‚È‚ñ‚Ä‚ ‚é•ª‚¯‚È‚¢
	unless(-e $p_file){&new_pfile;}
	
	
	#Œ»Ý‚ ‚éÅV‚Ì‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$p_file") || &error("$p_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#Šes‚ð”z—ñ‚É‘ã“ü
	@plines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);
	
	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ÌÅ‘ås”‚ÌÅŒã‚Ìs”Ô†‚ðŽw’è
	#26‚Í‹LŽ–ˆÈŠO‚Ìs”i&new_pfile‚Ìƒx[ƒXhtml‚ðì¬‚ðŽQÆ‚µ‚Ä‚­‚¾‚³‚¢Bj
	$pline_max = 26 + $pline_max - 1;

	
	#¡‚ ‚é‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ÌÅIs‚Ìs”Ô†‚ªAÅ‘ås”‚Ìs”Ô†‚Æ‚¨‚È‚¶‚È‚ç
	#$#plines‚Í¡‚ ‚é‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ÌÅIs‚Ìs”Ô†
	if ($#plines >= $pline_max){
	
		#V‚µ‚¢‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðì¬‚·‚éˆ—‚É
		&new_pfile;
	}

##‘‚«ž‚Ýˆ—

	#‘‚«‚±‚Þ‹LŽ–‚ð“ü‚ê‚é”z—ñ‚ðŽw’è
	@phtmls= ();

	#&write‚©‚ç‚«‚½ˆì‚êo‚µ‚½‹LŽ–‚ª“ü‚Á‚½”z—ñ1‚Â‚Ã‚Â‚ð•ªÍ
	foreach (@pasts){
	
		#ƒf[ƒ^‚ð•ª‰ð
		#“Še“úŽži•bjAƒzƒXƒgî•ñAíœƒL[‚Í‚¢‚ç‚È‚¢‚Ì‚ÅAƒ_ƒ~[‚É‘ã“ü
		($pnum,$pname,$pemail,$purl,$psub,$pcomment,$pres,$pdate,$xx,$xx,$xx,$xx,$xx) = split(/<>/,$_);
		
		#ƒ[ƒ‹ƒAƒhƒŒƒX‚ª‚ ‚ê‚ÎA–¼‘O‚ÉƒŠƒ“ƒN
		if ($pemail){$pname = "<a href=\"mailto:$pemail\">$pname</a>";}
		
		#ƒTƒCƒg‚ª‚ ‚ê‚ÎA[url]‚Ì•¶Žš‚ÉƒŠƒ“ƒN
		if ($purl){$purl = "| [<a href=\"http://$purl\" target=_blank>url</a>]";}
		
		if ($pres){$pres_data = "<ul><ul><font color=\"$master_color\">$pres</font><p align=right>$master_name</p></ul></ul>";}

		#‹LŽ–‚ð®—‚·‚éB
		$phtml = "<p align=left><b>[$pnum]$psub</b><br>$pdate</p><ul>$pcomment</ul><p align=right>$pname $purl</p>$pres_data<hr size=1>\n";
		
		#‘‚«‚±‚Þ”z—ñ‚É‘ã“ü
		push(@phtmls,$phtml);
	}

	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$p_file") || &error("$p_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#Šes‚ð”z—ñ‚É‘ã“ü
	@plines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close(IN);
	
	#‰ß‹ŽƒƒO‚É‰ü‚ß‚Ä‘‚«‚±‚ÞAŠes‚Ìƒf[ƒ^‚ð“ü‚ê‚é”z—ñ‚ÌŽw’è
	@pnews = ();
	
	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚É¡‚Ü‚Å‘‚©‚ê‚Ä‚¢‚½ƒf[ƒ^‚ÌŠes‚É‘Î‚µ‚Ä
	foreach $pline (@plines){
	
		#XV‚·‚é”z—ñ‚É‘ã“ü
		push(@pnews,$pline);
		
		#‚à‚µ‚àA<!--start-->‚Æ‚¢‚¤s‚É‚«‚½‚ç
		if($pline =~ /<!--start-->/i){
			
			#V‚µ‚­‘‚«ž‚Ý‚·‚é‹LŽ–‚Ì”z—ñ‚ðˆê‹C‚É‘ã“ü
			push(@pnews,@phtmls);}
	}
	
	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (OUT,">$p_file") || &error("$p_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#XVƒf[ƒ^”z—ñ‚ðo—Í
	print OUT @pnews;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (OUT);

}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðì¬‚·‚éˆ—                          „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub new_pfile{                                                  

##‰ß‹ŽƒƒONoƒtƒ@ƒCƒ‹‚ðXV‚·‚éˆ—

	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ÌNO‚ð1‚Â‘‚â‚·
	++$pcnt;
	
	#‰ß‹ŽƒƒONoƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (CNT,">$pcnt_file") || &error("$pcnt_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#No‚ðXV‚·‚é
	print CNT "$pcnt";
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (CNT);
	
##‰ß‹ŽƒƒO”’²®ˆ—

	#‰ß‹ŽƒƒO”’²®‚ðs‚È‚¤‚©
	if ($pastlog_check){
		
		#Œ»Ý‚ÌÅV‰ß‹ŽƒƒONo.Å‘å‰ß‹ŽƒƒO•Û‘¶”‚æ‚è‚¨‚¨‚«‚¢‚È‚ç
		#iíœ‚·‚×‚«‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹Œó•â‚ª‚ ‚é‚Æ‚¢‚¤‚±‚Æ‚¾‚©‚çj
		if ($pcnt > $pastlog_max){
			
			#íœ‚·‚×‚«‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚Ì‚È‚©‚Åˆê”Ô‘å‚«‚¢No.
			$pastlog_del = $pcnt - $pastlog_max;
			
			#íœ‚·‚×‚«‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ð‡‚Éˆ—‚·‚é
			foreach (1 .. $pastlog_del){
				
				#íœ‚·‚×‚«‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðŽw’è
				$del_file = "$pastdir\/$_\.html";
				
				#‚»‚Ì‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ª‘¶Ý‚·‚é‚È‚ç
				if (-e $del_file){
					
					#‚»‚Ìƒtƒ@ƒCƒ‹‚ðíœ
					unlink($del_file);
				}
			}
		}
	}
			
	
##‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚Ìƒx[ƒX‚ðì¬‚·‚éˆ—

	#‚ ‚ç‚½‚ß‚ÄA‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðŽw’è
	$p_file = "$pastdir\/$pcnt\.html";

	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (OUT,">$p_file") || &error("$p_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚Ìƒx[ƒXhtmlƒ^ƒO‚ð‘‚«‚±‚Þ
	#‚±‚Ì‰º‚ÌƒqƒAƒhƒLƒ…ƒƒ“ƒg{<bodyEEE‚Ìs”‚ªA&pastwrite‚Ì‰ß‹ŽƒƒO‚ÌÅ‘å•Û‘¶‹LŽ–”‚Ì
	#26‚Æ‚¢‚¤s”‚É‚ ‚½‚éB
	print OUT <<"EOM";
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<title>kboard‰ß‹ŽƒƒO[$pcnt]</title>
<meta http-equiv="Content-Style-Type" content="text/css">
<style type="text/css">
<!--
a:link    {text-decoration:none;    color:$link; }
a:visited {text-decoration:none;    color:$vlink; }
a:active  {text-decoration:none;    color:$alink; }
a:hover   {text-decoration:underline;    color:$alink; }
table     {font-size:12px; }
.title    {font-size:18px; }
-->
</style>
</head>
EOM
	if ($bg_gif){
		print OUT "<body text=\"$text_color\" bgcolor=\"$bg_color\" background=\"$bg_gif\" link=\"$link\" alink=\"$alink\" vlink=\"$vlink\">\n";
	}else{
		print OUT "<body text=\"$text_color\" bgcolor=\"$bg_color\" link=\"$link\" alink=\"$alink\" vlink=\"$vlink\">\n";
	}
	print OUT <<"EOM";
<center>
<table border=0 width=400 bgcolor="$mess_color">
<tr><td>
<!--start-->
</td>
</tr>
</table>
</body>
</html>
EOM

	#ƒx[ƒX‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (OUT);
	
	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚Ìƒp[ƒ~ƒbƒVƒ‡ƒ“‚ðŽw’è
	chmod(0666,"$p_file");
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«‰ß‹ŽƒƒO‚ÌƒtƒŒ[ƒ€‚ð¶¬‚·‚éˆ—                        „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub frame{                                                 

##‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹NO‚ðŽæ“¾‚·‚éˆ—

	#‰ß‹ŽƒƒONoƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$pcnt_file") || &error("$pcnt_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#ˆês–Ú‚ÌNo‚ð‘ã“ü
	$pcnt = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);

	#s––‚Ì‰üs•¶Žš‚ðíœ
	$pcnt =~ s/\n//g;


##ƒtƒŒ[ƒ€‚ð¶¬‚·‚éˆ—

	#htmlo—Í‚ðéŒ¾
	print "Content-type: text/html\n\n";
	
	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
<html>
<frameset cols="*,200" border=0 >
	<frame src="$pastdir2/$pcnt.html" name="kiji">
	<frame src="$script?mode=menu" name="menu">
</frameset>
<noframes>
<body>
<center>
ƒtƒŒ[ƒ€‘Î‰žƒuƒ‰ƒEƒU‚Å‚²——‚­‚¾‚³‚¢
</center>
</body>
</noframes>
</html>
EOM

	#ˆ—‚ðI—¹‚·‚é
	exit;

}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«‰ß‹ŽƒƒO‚Ìƒƒjƒ…[iƒtƒŒ[ƒ€‚Ì‰E‘¤j•\Ž¦‚Ìˆ—          „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub menu{                                                  

##‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹NO‚ðŽæ“¾‚·‚éˆ—

	#‰ß‹ŽƒƒONoƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$pcnt_file") || &error("$pcnt_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#ˆês–Ú‚ð“Ç‚Ý‚±‚Þ
	$pcnt = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);

	#s––‚Ì‰üs•¶Žš‚ðíœ‚·‚éB
	$pcnt =~ s/\n//g;

 &head_html("‰ß‹ŽƒƒOƒƒjƒ…[");

	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
<center>
	<table width=150 border=0 bgcolor="$info_bgcolor" cellspacing=5 cellpadding=0>
	<tr>
		<td align=center>‰ß‹ŽƒƒO</td>
	</tr>
	<tr>
		<td align=center>b<a href="$script" target=$b_target>ŒfŽ¦”Â‚É–ß‚é</a>b</td>
	</tr>
	<tr>
		<td align=center>
EOM

	#foreachˆ—‚Ìˆ×‚ÉANo‚ðƒ}ƒCƒiƒX‚P‚·‚é
	$pend = $pcnt - 1;

##‰ß‹ŽƒƒO”’²®ˆ—
	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ÌÅ‘å•Û‘¶”‚ð
	#0‚©‚ç‚Í‚¶‚Ü‚é”‚É‚·‚éB
	$pastlog_max = $pastlog_max - 1;

	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹”‚ð§ŒÀ‚·‚é‚È‚çA
	if ($pastlog_check){
	
		#Å‘å‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹”ˆÈã‚Å‚ ‚Á‚½‚çA
		if ($pend >= $pastlog_max){
			
			#ƒŠƒ“ƒN‚³‚ê‚é”‚ðÅ‘å‰ß‹ŽƒƒO”‚É•ÏX
			$pend = $pastlog_max;
		}
	}
	

	#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚Ì”‚¾‚¯
	foreach (0..$pend){
		
		#ƒŠƒ“ƒN‚Ì‡‚ð‹t‚É‚·‚éˆ×A‘Sƒtƒ@ƒCƒ‹”‚©‚çAˆø‚­
		$file_num = $pcnt - $_;
		
		#‚»‚ÌNo.‚Ì‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚ª‚ ‚é‚È‚ç‚Î
		if (-e "$pastdir\/$file_num\.html"){
		
			#‰ß‹ŽƒƒOƒtƒ@ƒCƒ‹‚Ö‚ÌƒŠƒ“ƒN‚ð•\Ž¦
			print "[<a href=\"$pastdir2\/$file_num\.html\" target=\"kiji\">$file_num</a>]\n";
		}
	}
	
	#‚µ‚ß
	print "</td></tr></table></center></body></html>\n";
	
	#ˆ—‚ðI—¹‚·‚é
	exit;
	}                                                      
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ŠÇ——pƒ}ƒXƒ^[EƒL[”FØˆ—                            „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub admin_in{

	#’ˆÓƒƒbƒZ[ƒW‚ÌŽæ“¾
	unless($_[0]=~ /value/){$mess2 = $_[0];}

 &head_html("ŠÇ—ŽÒ”FØƒy[ƒW");

	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
<center>
<table border=0 bgcolor="$mess_color"><tr><td align=center valign=middle>
<table><tr><td nowrap bgcolor="#dddddd">
ƒ}ƒXƒ^[EƒL[‚ð“ü—Í‚µ‚Ä‚­‚¾‚³‚¢</td></tr></table>
<font color="#ff0000">$mess2</font>
<form action="$script" method=$method>
<input type=hidden name=mode value=admin_pass>
<input type=password size=8 name=pass> <input type=submit value=" IN ">
</form>

b<a href="$script">ŒfŽ¦”Â‚É–ß‚é</a>b
</td></tr></table>
</center>
</body>
</html>
EOM
	
	#ˆ—‚ðI—¹
	exit;
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«townƒf[ƒ^‚ÌC³ƒtƒH[ƒ€o—Íˆ—                        „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub admin_form{

	#•s³ˆ—Œã‚É–ß‚Á‚Ä‚«‚½Žž‚Ìê‡‚ð‘z’è‚µ‚Ä
	#ƒƒbƒN‚ð‰ðœ‚µ‚Ä‚¨‚­
	if($lock_check){&unlock;}
	
##ƒf[ƒ^‚ðŽæ“¾
	
	#townƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$rankfile");
	
	#ƒf[ƒ^‚ð”z—ñ‚É‘ã“ü
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);

 &head_html("ŠXŠÇ—Ž––±Š");

	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
<center>
<table border=0  bgcolor="$mess_color">
<tr><td align=center valign=middle>
<table border=0>
	<tr>
	<!---# change #11--->
		<td align=center colspan=5 bgcolor="#dddddd" nowrap>‚»‚Ì‰Æ‚ð<b>íœ‚·‚é</b>ê‡‚ÍA<b>ƒ`ƒFƒbƒN‚ð“ü‚ê‚Ä</b>•ÒW‚ðƒNƒŠƒbƒNB<br>ƒf[ƒ^‚ð<b>•ÒW‚·‚é‚¾‚¯</b>‚È‚çA<b>ƒ`ƒFƒbƒN‚ð“ü‚ê‚¸‚É</b>•ÒW‚ðƒNƒŠƒbƒNB<br><b>ƒJƒEƒ“ƒg</b>‚Í<b>”¼Šp”Žš</b>‚ÅŽw’è‚µ‚Ä‚­‚¾‚³‚¢B<br>‚»‚Ì‰Æ‚É‚ ‚é<b>’u‚«ŽèŽ†</b>‚ðíœ‚µ‚½‚¯‚ê‚Î<br>’u‚«ŽèŽ†‚Ì•ÒW‚ðƒNƒŠƒbƒN‚µAíœƒtƒH[ƒ€‚ÖB</td>
	</tr>
	<tr><td colspan=5 align=center><p><br>b<a href="$script">ŒfŽ¦”Â‚É–ß‚é</a>b<br><br></td></tr>
	<tr><td colspan=5 align=center><p><font color="#ff0000">$mess</font></p></td></tr>
	<tr>
		<td nowrap align=center>íœ</td>
		<td nowrap align=center>–¼‘O</td>
		<td nowrap align=center>ƒJƒEƒ“ƒg</td>
		<td nowrap align=center><br></td>
		<td nowrap align=center><br></td>
	</tr>

EOM

	#ƒf[ƒ^‚Ì•ªÍEo—Í
	foreach $line (@lines){
	
		($name,$juu,$hyaku,$xx,$xx,$xx) = split (/<>/,$line);
		
		#ƒJƒEƒ“ƒg‚ÌƒtƒH[ƒ}ƒbƒg
		$cnt= $hyaku * 100 + $juu;
		
		#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
		print <<"EOM";
<tr>
<form action="$script" method=$method>
<input type=hidden name=mode value="admin_write">
<input type=hidden name=bname value="$name">
<td align=center><input type=checkbox name="del" value="yes"></td>
<td align=center><input type=text size=20 name="name" value="$name"></td>
<td align=center><input type=text size=4 name="cnt" value="$cnt"></td>
<td align=center><input type=submit value="•ÒW"></td>
</form>
<form action="$script" method=$method>
<input type=hidden name=mode value="res_clear_form">
<input type=hidden name=owner value="$name">
<td aling=center><input type=submit value="’u‚«ŽèŽ†‚Ì•ÒW"></td>
</form>
</tr>
EOM
	}
	
	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
</table>
</td></tr></table>
</center>
</body>
</html>
EOM

	#ˆ—‚ðI—¹
	exit;
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«townƒf[ƒ^C³ˆ—                                      „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub admin_write{                                           

	#“ñdˆ—‚ð‰ñ”ð‚·‚é‚½‚ß‚ÉAƒƒbƒNˆ—‚ð‚·‚éB
	if($lock_check){&lock;}

##ƒf[ƒ^Žæ“¾ˆ—

	#townƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$rankfile");
	
	#ƒf[ƒ^‚ð”z—ñ‚É‘ã“ü
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close(IN);

##ƒJƒEƒ“ƒg‚ÌŽw’è•¶Žš‚Ìƒ`ƒFƒbƒN

	#ƒJƒEƒ“ƒg•ÒWŽžA‘SŠp”Žš‚ªŽg‚í‚ê‚Ä‚¢‚½‚ç
	if ($cnt =~ /\D/){
	
		#’ˆÓƒƒbƒZ[ƒWŽæ“¾
		$mess= "ƒJƒEƒ“ƒg‚Í”¼Šp”Žš‚ÅŽw’è‚µ‚Ä‚­‚¾‚³‚¢";
		
		#ˆ—‚ð’†’f
		&admin_form;
	}
	
##ˆÊã‚°ˆ—

	#•SˆÈã‚ÌˆÊ‚Ì•Ï”‚ÌŽw’è
	$hyaku = 0;
	
	#ƒJƒEƒ“ƒgŽw’è‚ª100‚ð‰z‚¦‚Ä‚¢‚½‚ç
	if ($cnt > 100){
	
		#100‚ð‰z‚¦‚Ä‚¢‚éŠÔ
		while($cnt > 100){
		
			#100‚ðˆø‚¢‚Ä
			$cnt = $cnt - 100;
			
			#•SˆÈã‚ÌˆÊ‚ðŽw’è‚·‚é•Ï”‚ðƒAƒbƒv
			#ˆÊã‚°ˆ—
			++$hyaku;
		}
	}

	#100ˆÈ‰º‚Ì’l‚ðŽæ“¾
	$juu = $cnt;
	

##ƒf[ƒ^XVˆ—
	
	#XVƒf[ƒ^‚ð“ü‚ê‚é”z—ñ‚ÌŽw’è
	@news = ();
	
	#ƒf[ƒ^•ªÍ
	foreach $line (@lines){
		($pname,$pjuu,$phyaku,$purl,$psec,$ppass)=split(/<>/,$line);
		
		$psec =~ s/\n//g;
		$ppass=~ s/\n//g;
		
		#C³‚·‚é‚à‚Ì‚È‚çi–¼‘O‚Å”»’fj
		if ($pname eq $bname){
			
			#íœ‚Å‚È‚¯‚ê‚Î
			unless ($del eq "yes"){
				
				#–¼‘O‚Ì•ÏX‚ª‚ ‚éê‡
				if ($bname ne "$name"){
				
					##“ñdŽw’è‚ð‰ñ”ð‚·‚éˆ—
					
					#ƒf[ƒ^‚ð•ªÍ
					foreach (@lines){
						($pn,$x,$x,$x,$x,$x) = split(/<>/,$_);
					
						#“ñdŽw’è‚Ìê‡
						if ($pn eq "$name"){
						
							#’ˆÓƒƒbƒZ[ƒW‚ðŽæ“¾
							$mess = "<b>$name</b>‚ÍŠù‚ÉŽg‚í‚ê‚Ä‚¢‚Ü‚·";
							
							#ˆ—‚ð’†’f
							&admin_form;
						}
					}
					
					#ƒf[ƒ^‚ÌƒtƒH[ƒ}ƒbƒg
					$new = "$name<>$juu<>$hyaku<>$purl<>$psec<>$ppass\n";
					
					#XVƒf[ƒ^‚ð”z—ñ‚É’Ç‰Á
					push (@news,$new);
				
				#–¼‘O‚É•ÏX‚ª–³‚¢ê‡
				}else{
				
					#ƒf[ƒ^‚ÌƒtƒH[ƒ}ƒbƒg
					$new = "$pname<>$juu<>$hyaku<>$purl<>$psec<>$ppass\n";
				
					#XVƒf[ƒ^‚ð”z—ñ‚É’Ç‰Á
					push (@news,$new);
				}
			}
		
		#C³‚µ‚È‚¢‚à‚Ì‚Í
		}else{
		
		#ƒf[ƒ^‚ð”z—ñ‚É’Ç‰Á
		push(@news,$line);
		}
	
	}

	#XV—p‚Éƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (OUT,">$rankfile") || &error("$rankfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#‘‚«‚±‚Ý
	print OUT @news;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (OUT);


	#ˆÈãAƒƒO‚ÌXVì‹Æ‚ªI—¹‚µ‚½‚Ì‚ÅAƒƒbƒN‚ð‰ðœ‚·‚éB
	if($lock_check){&unlock;}

	#ŠÇ——pC³ƒtƒH[ƒ€‚É–ß‚é
	&admin_form;
}
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®



#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ŠÇ—ŽÒ‹LŽ–ŠÇ—ƒtƒH[ƒ€                                  „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub admin_res_form{

##‹LŽ–ƒf[ƒ^Žæ“¾ˆ—
	
	#‹LŽ–ƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$logfile") || &error("$logfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#ƒf[ƒ^‚ð”z—ñ‚É‘ã“ü‚·‚éB
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);
	
	#ƒf[ƒ^‚ð•ªÍ
	foreach $line (@lines){
		
		#ƒf[ƒ^‚ðŠe—v‘f‚É•ªŠ„
		@datas = split (/<>/,$line);
		
		#ƒŒƒX‚ð•t‚¯‚éƒf[ƒ^‚ðŒ©‚Â‚¯‚é
		if ($num == $datas[0]){
		
			#ƒŒƒX‚ð•t‚¯‚éƒf[ƒ^‚ðŽæ‚èo‚·
			@ress = @datas;
			
			#•ªÍˆ—‚ðI—¹
			last;
		}
	}
	
	#‚à‚Æ‚à‚Æ‚ ‚Á‚½ƒŒƒX‹LŽ–‚Ì‰üsƒ^ƒO‚ðÜ‚è•Ô‚µ‚É•ÏŠ·
	$ress[6] =~ s/<br>/\r/g;
	
 &head_html("ŠÇ—ŽÒ‹LŽ–ŠÇ—");


	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
<center>
	<table bgcolor="$mess_color">
		<tr>
			<td align=center>
				<table width=400 cellspacing=0 cellpadding=4>
					<tr>
						<td align=center bgcolor="#dddddd">ŠÇ—ŽÒ‹LŽ–ŠÇ—<br>‘I‘ð‚µ‚½‹LŽ–‚ðíœ‚·‚é‚©AƒŒƒX‚ð•t‚¯‚é‚©‚ð‘I‘ð‚µ‚Ä‚­‚¾‚³‚¢B</td>
					</tr>
					<form action="$script" method="$method">
					<input type="hidden" name="mode" value="admin_clear">
					<input type="hidden" name="num" value="$num">
					<input type="hidden" name="pass" value="$masterkey">
					<tr>
						<td align=center>b<a href="$script?">ŒfŽ¦”Â‚É–ß‚é</a>b</td>
					</tr>
					<tr>
						<td align=center><input type=submit value="-----íœ‚·‚é-----"></td>
					</tr>
					</form>
					<tr>
						<td><hr size=1></td>
					</tr>
					<tr>
						<td valign=top>
							[$ress[0]] $ress[4] || $ress[1] $ress[7]<br>
							<ul>
								<font color=$ress[11]>$ress[5]</font>
							</ul>
						</td>
					</tr>
					<form action="$script" method="$method">
					<input type="hidden" name="mode" value="admin_res_write">
					<input type="hidden" name="num" value="$num">
					<tr>
						<td align=center>
							<textarea name="res" wrap="$wrap" cols=40 rows=4>$ress[6]</textarea>
						</td>
					</tr>
					<tr>
						<td align=center>
							<input type=submit value="-----ƒŒƒX‚ð•ÒW-----">
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
	</center>
</body>
</html>
EOM

	#ˆ—‚ðI—¹
	exit;
}
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ŠÇ—ŽÒƒŒƒX‘‚«‚±‚Ýˆ—                                  „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub admin_res_write{
	
	#ƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$logfile") || &error("$logfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#ƒf[ƒ^‚ðŽæ“¾
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);
	
	#XV‚·‚éƒf[ƒ^‚ð“ü‚ê‚é”z—ñ‚ðŽw’è
	@news = ();
	
	#ƒf[ƒ^‚ð•ªÍ
	foreach $line (@lines){
	
		#ƒf[ƒ^‚ðŠe—v‘f‚É•ª‰ð
		@datas = split(/<>/,$line);
		
		#ƒŒƒX‚ð•t‚¯‚éƒf[ƒ^‚ðŒ©‚Â‚¯‚é
		if ($num == $datas[0]){
		
			#V‚µ‚¢ƒŒƒX‚ð‘ã“ü
			$datas[6] = $res;
			
			#V‚µ‚¢ƒf[ƒ^‚ÉƒtƒH[ƒ}ƒbƒg
			$line = join ("<>",@datas);
		}
		
		#ƒf[ƒ^‚ðXV‚·‚éƒf[ƒ^”z—ñ‚É‘ã“ü
		push (@news,$line);
	}
	
	#ƒƒOƒtƒ@ƒCƒ‹‚ðã‘‚«—p‚ÉŠJ‚­
	open (OUT,">$logfile") || &error("$logfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#ƒf[ƒ^‚ð‘‚«‚±‚Ý
	print OUT @news;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (OUT);
	
	&html;
}
                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«Ž„‘” •\Ž¦ˆ—                                          „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub res_html{                                              
	
	#ƒGƒ‰[ƒƒbƒZ[ƒW‚ðŽ‚Á‚Ä‚¢‚½‚çA‚»‚ê‚ð‘ã“ü
	if($_[1] eq "res_html"){$mess = $_[0];}
	
	#ƒƒO‚ÌXVˆ—‚È‚Ç‚Ì“r’†‚Å‚ ‚Á‚½ê‡‚ð‘z’è‚µ‚ÄAƒƒbƒN‚ð‰ðœ‚·‚éB
	if($lock_check){&unlock;}

	#ƒNƒbƒL[‚ðŽæ“¾
	&get_cookie;
	
	#Ž‘ŽY‰¿’l‚ðŒvŽZ
	#Œ»ŽÀ–¡‚ðŽ‚½‚¹‚é‚½‚ßA
	#ƒJƒEƒ“ƒg‚É976–œ‚ð‚©‚¯‚é
	$nedan = $count * 976;
	
	&head_html("$owner‚³‚ñ‚ÌŽ„‘” ");

	print <<"EOM";
<center>
<table width=370 bgcolor="#99ccff">
<tr><td align=center>
<br>
<table width=350 border=1 bgcolor="#ffcccc" bordercolor="#000000" cellpadding=2>
<tr>
	<td width=200 rowspan=3 align=center valign=middle><img src="$iedir\/$ie\.gif"></td>
	<!---# change #12--->
	<td width=150 align=left><b>$owner</b>‚³‚ñ‚Ì‚¨‘î</td>
</tr>
<tr>
EOM
	if($url){
		print "<td width=150 align=left>ZŠF<a href=\"http\:\/\/$url\" target=_blank>‚±‚±</a></td>\n";
	}else{
		print "<td width=150 align=left>ZŠF•s’è</td>\n";
	}
	print <<"EOM";
</tr>
<tr><!---# change #13--->
	<td width=150 align=left>Ž‘ŽY‰¿’lF$nedan–œ‰~</td>
</tr>
</table>
<br>
EOM
	if ($oki_win_check){
		print "| <a href=\"JavaScript:window.close()\">•Â‚¶‚é</a> |";
	}else{
		print "| <a href=\"$script?\">ŒfŽ¦”Â‚É–ß‚é</a> |";
	}
	print <<"EOM";
<br>
<br>
<table width=350 border=0>
<form action="$script" method=$method>
<input type=hidden name=mode value=res_write>
<input type=hidden name=owner value=$owner>
<input type=hidden name=ie value=$ie>
<input type=hidden name=url value=$url>
<input type=hidden name=count value=$count>
<input type=hidden name=pass_t value=$pass_t>
<tr>
	<td width=350 align=center valign=bottom><b>$owner</b>‚³‚ñ‚É’u‚«ŽèŽ†‚ðŽc‚·‚½‚ß‚ÌƒtƒH[ƒ€<br><br></td>
</tr>
<tr>
	<td width=350 align=center valign=bottom>
		<b>‚¨–¼‘OF</b><input type=text name=name size=20 value="$cookie{'cname'}">
		<input type=submit value="---write---">
	</td>
</tr>
<tr>
	<td width=350 align=right valign=bottom><textarea cols=45 rows=3 name=res></textarea>
</tr>
<tr>
	<td width=350 align=center><input type=radio name=color value=000000 checked><font color="#000000">¡</font>
EOM
		foreach (@res_colors){
			print "<input type=radio name=color value=$_><font color=\"\#$_\">¡</font>\n";
		}
		print <<"EOM";
	</td>
</tr>
</form>
EOM
		if ($oki_pass_check){
		print <<"EOM";
<tr>
	<form action="$script" method=$method>
	<td width=350 align=center>
	<input type=hidden name=mode value=res_pass>
	<input type=hidden name=owner value=$owner>
	<input type=hidden name=pass_t value=$pass_t>
	<input type=hidden name=ie value=$ie>
	<input type=hidden name=url value=$url>
	<input type=hidden name=count value=$count>
	<br><br>
	Ž©•ªˆ¶‚Ä‚Ì’u‚«ŽèŽ†‚ðŒ©‚é‚Æ‚«‚Í‰º‚ÌƒtƒH[ƒ€‚Ékey‚ðc<br>
	keyF<input type=password name=pass size=8 maxlength=8 value="$cookie{'cpass'}"><input type=submit value="--look--">
	</td>
</tr>
EOM
		}
		print <<"EOM";
</form>
</table>

<br>
<font color="$uemess_color">$mess</font>
<br>
<hr size=1 width=350>

EOM
	if ($oki_pass_check == "0" || $oki_pass eq "ok"){
	
		#Ž„‘” ƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðŠJ‚­
		open (IN,"$res_file") || &error("$res_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
		#ƒf[ƒ^‚ð”z—ñ‚É‘ã“ü
		@lines = <IN>;
	
		#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
		close (IN);

		#’u‚«ŽèŽ†‚Ì”‚ð”‚¦‚é•Ï”
		$rescnt=0;
	
		#Šeƒf[ƒ^‚ð•ªÍ
		foreach $line (@lines){
		
			#ƒf[ƒ^‚ð•ª‰ð
			($ownerr,$guest,$res,$sec,$color) = split(/<>/,$line);
		
			#‰Æ‚ÌŽ‚¿Žå‚Ìƒf[ƒ^‚Ì‚ÝŽæ‚èo‚·B
			if ($owner eq "$ownerr"){
			
				#’u‚«ŽèŽ†‚Ì”‚ðƒJƒEƒ“ƒg
				++$rescnt;
			
				#’u‚«ŽèŽ†‚Ì”‚ªÅ‘å”‚ð‚±‚¦‚½‚ç“Ç‚Ý‚±‚ÝI—¹
				if ($rescnt > $resmax){last;}
			
				#“úŽž‚ðE“¾
				&ktown_time;
			
				#F‚Ì‰üs‚ðíœ
				$color =~ s/\n//g;
			
				#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
				print <<"EOM";
<table cellpadding=0 cellspacing=0 border=0>
	<tr>
		<td align=left valign=top width=10 height=10><img src="$hu"></td>
		<td bgcolor="#ffffff" width=320 height=10><img src="$spacer" width=300 height=1></td>
		<td align=right valign=top width=10 height=10><img src="$mu"></td>
	</tr>
	<tr>
		<td bgcolor="#ffffff" width=10><img src="$spacer" width=10 height=1></td>
		<td bgcolor="#ffffff" width=320>
		<font color="\#$color">$res</font>
		<p align=right>$guest || $rdate</p></td>
		<td bgcolor="#ffffff" width=10><img src="$spacer" width=10 height=1></td>
	</tr>
	<tr>
		<td width=10 height=10 align=right valign=bottom><img src="$hs"></td>
		<td bgcolor="#ffffff" width=320 height=10><img src="$spacer" width=300 height=1></td>
		<td width=10 height=10 align=left valign=bottom><img src="$ms"></td>
	</tr> 
</table>
<br>
EOM
			}
		}
		if ($rescnt == 0){
			print "<font color=\"uemess_color\"</font>’u‚«ŽèŽ†‚ÍŒä—a‚©‚è‚µ‚Ä‚¨‚è‚Ü‚¹‚ñ</font><br><br>";
		}
	}
	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
</td>
</tr>
</table>
</center>
</body>
</html>
EOM
	
	#ˆ—‚ðI—¹
	exit;
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«Ž„‘” ƒf[ƒ^‚Ì‘‚«‚±‚Ýˆ—                              „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub res_write{


##“ñdˆ—‰ñ”ðˆ—

	#“ñdˆ—‚ð‰ñ”ð‚·‚é‚½‚ß‚ÉAƒƒbƒNˆ—‚ð‚·‚éB
	if($lock_check){&lock;}
	
##ƒƒOƒtƒ@ƒCƒ‹ƒf[ƒ^‚ðŽæ“¾‚·‚éˆ—

	#ƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$res_file") || &error("$res_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B");

	#Šes‚ð”z—ñ‚É‘ã“ü
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close(IN);

##“ñd“Še‰ñ”ðˆ—

	#’¼‘O‚Ì“Šeƒf[ƒ^‚¾‚¯‚ðŽæ‚èo‚·B
	@bline = split(/<>/,$lines[0]);
	
	#ˆÈ‰ºAsub decode‚©‚çŽó‚¯Žæ‚Á‚½•Ï”‚Ì’l‚ðŽg‚¤
	
	#’¼‘O‚Ìƒf[ƒ^‚ÌƒRƒƒ“ƒg‚Æ‘S‚­ˆê‚¾‚Á‚½Žž‚ÍA
	#“ñd“Še‚ð‹ÖŽ~‚·‚éŽ|‚ÌƒGƒ‰[ƒƒbƒZ[ƒW‚ð•\Ž¦
	if ($res eq "$bline[2]"){&res_html("$mess_onaji","res_html");}

	#ƒRƒƒ“ƒg‚ª‘‚©‚ê‚Ä‚¢‚È‚©‚Á‚½‚Æ‚«‚ÍA
	#”’Ž†“Še‚ð‹ÖŽ~‚·‚éŽ|‚ÌƒƒbƒZ[ƒW‚ð•\Ž¦B
	if ($res eq ""){&res_html("$mess_nashi","res_html");}

	#–¼‘O‚ª‚È‚¯‚ê‚ÎA
	#‚»‚ÌŽ|‚ÌƒƒbƒZ[ƒW‚ð•\Ž¦
	unless($name){&res_html("–¼‘O‚ð‹L“ü‚µ‚Ä‚­‚¾‚³‚¢","res_html");}


##“Še‹LŽ–‚ÉŠÖ‚·‚éî•ñ‚ðŽæ“¾‚·‚éB

	#$second ‚É“ú•t‚ð‘ã“ü
	&get_time;

##V’…‹LŽ–‚ðƒƒOƒtƒ@ƒCƒ‹‚É•Û‘¶‚·‚éˆ—

	#V“Še‹LŽ–‚ð•Û‘¶Œ`Ž®‚É®—‚µ‚ÄA$new‚Ì’l‚Æ‚·‚éB
	$new = "$owner<>$name<>$res<>$second<>$color\n";

	#V“Še‹LŽ–‚ðƒƒO”z—ñ‚Ìæ“ª‚É’Ç‰Á
	unshift (@lines,$new);

##•Û‘¶‹LŽ–”‚Ìˆ—
	#‘‹LŽ–”‚ðŽæ“¾
	$kiji = @lines;

	#Å‘å‹LŽ–•Û‘¶”E‘‹LŽ–”‚ð‚O‚©‚çŽn‚Ü‚és”‚É‚·‚é‚½‚ßAƒ}ƒCƒiƒX‚P‚·‚é
	$dmax = $reslog_max -1;
	$dkiji= $kiji -1;

	#logfile‚É‘‚«o‚·‹LŽ–‚ð“ü‚ê‚é”z—ñ‚ðŽw’è
	@news  =();

	#•Û‘¶‚·‚és”•ª‚¾‚¯A”z—ñ@news‚É‘ã“ü
	foreach (0 .. $dmax){
		push(@news,$lines[$_]);
	}

	#•\Ž¦‚³‚ê‚é‹LŽ–‚ð‚ ‚ç‚½‚ß‚ÄA$logfile‚É‘‚«‚±‚ÞB
	open (OUT,">$res_file") || &error("$res_file‚ª‚Ð‚ç‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B");
	print OUT @news;
	close(OUT);

##ŽŸ‚Ìˆ—‚ð‹–‰Â‚·‚é

	#ƒƒO‚ÌXVˆ—‚ªI—¹‚µ‚½‚Ì‚ÅAƒƒbƒN‚ð‰ðœ‚·‚é
	if($lock_check){&unlock;}

	$mess = "ŒäŽèŽ†Šm‚©‚ÉŽó‚¯Žæ‚è‚Ü‚µ‚½B";

	#Ž„‘” •\Ž¦ˆ—‚Ö
	&res_html;

}
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®


#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«Ž„‘” ‹LŽ–‚ðíœ‚·‚éƒtƒH[ƒ€•\Ž¦ˆ—                    „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub res_clear_form{

	#•s³ˆ—Œã‚É–ß‚Á‚Ä‚«‚½Žž‚Ìê‡‚ð‘z’è‚µ‚Ä
	#ƒƒbƒN‚ð‰ðœ‚µ‚Ä‚¨‚­
	if($lock_check){&unlock;}
	
##ƒf[ƒ^‚ðŽæ“¾
	
	#townƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$res_file");
	
	#ƒf[ƒ^‚ð”z—ñ‚É‘ã“ü
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);
	
##htmlo—Íˆ—

 &head_html("Ž„‘” íœƒtƒH[ƒ€");

	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
<center>
<table border=0  bgcolor="$mess_color">
<tr><td align=center valign=middle>
<table border=0>
	<tr>
		<td align=center colspan=3 bgcolor="#dddddd" nowrap>íœ‚·‚é‹LŽ–‚Éƒ`ƒFƒbƒN‚ð“ü‚êAíœ‚ðƒNƒŠƒbƒN‚µ‚Ä‚­‚¾‚³‚¢B</td>
	</tr>
	<tr><td colspan=3 align=center><p><br>b<a href="$script">ŒfŽ¦”Â‚É–ß‚é</a>b<br><br></td></tr>
	<tr><td colspan=3 align=center><p><font color="#ff0000">$mess</font></p></td></tr>
	<tr><td colspan=3 align=center><p><b>$owner</b>‚Ö‚Ì’u‚«ŽèŽ†‚ð•ÒW‚·‚é</p></td></tr>

EOM

	$cnt = 0;
	
	#ƒf[ƒ^‚Ì•ªÍEo—Í
	foreach $line (@lines){
	
		($rowner,$rguest,$rres,$rsec,$xx) = split (/<>/,$line);
		
		if ($owner eq "$rowner"){
			
		#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
		print <<"EOM";
<form action="$script" method=$method>
<tr>
<input type=hidden name=mode value="res_clear">
<input type=hidden name=owner value="$rowner">
<input type=hidden name=sec value=$rsec>
<td align=center valign=middle><input type=checkbox name="del" value="yes"></td>
<td align=left bgcolor="#ffffff" width=300>$rres<br><p align=right>from $rguest</p></td>
<td align=center><input type=submit value="íœ"></td>
</form>
</tr>
EOM
		}
	}
	
	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
</table>
</td></tr></table>
</center>
</body>
</html>
EOM

	#ˆ—‚ðI—¹
	exit;
}
                                                           
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«Ž„‘” ƒf[ƒ^‚ðíœ‚·‚éˆ—                              „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub res_clear{                                             

	#ƒƒO‚ðXV‚·‚é‚½‚ßAƒƒbƒNˆ—‚·‚éB
	if($lock_check){&lock;}
	
	#Ž„‘” ƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$res_file") || &error("$res_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#ƒf[ƒ^‚ð“Ç‚Ýž‚Þ
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);
	
	#XV‚·‚éƒf[ƒ^‚ð“ü‚ê‚é”z—ñ‚ðŽw’è
	@news = ();
	
	#ƒf[ƒ^‚ðŒÂ•Ê‚É•ªÍ
	foreach $line (@lines){
	
		#ƒf[ƒ^‚ð—v‘f‚É•ª‰ð
		@datas = split (/<>/,$line);
		
		#íœ‘ÎÛ‹LŽ–‚Å‚È‚¯‚ê‚Î
		unless ("$del" eq "yes" && "$owner" eq "$datas[0]" && "$sec" eq "$datas[3]"){
			
			#XVƒf[ƒ^”z—ñ‚ÌÅŒã‚É’Ç‰Á
			push (@news,$line);
		}
	}
	
	#Ž„‘” ƒf[ƒ^ƒtƒ@ƒCƒ‹‚ðã‘‚«—p‚ÉŠJ‚­
	open (OUT,">$res_file") || &error("$res_file‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#ƒf[ƒ^‚ðXV‚·‚é
	print OUT @news;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (OUT);
	
	#ˆÈãAƒƒO‚ÌXVì‹Æ‚ªI—¹‚µ‚½‚Ì‚ÅAƒƒbƒN‚ð‰ðœ‚·‚éB
	if($lock_check){&unlock;}
	
	#Ž„‘” íœƒtƒH[ƒ€•\Ž¦ˆ—‚Ö
	&res_clear_form;
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«’u‚«ŽèŽ†ƒpƒXƒ[ƒhÆ‡ˆ—                              „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub res_pass{
	#sub decode‚©‚ç‘—‚ç‚ê‚Ä‚«‚½A$pass‚ÆAƒ|ƒXƒg‚ÉÝ’è‚³‚ê‚Ä‚¢‚½ƒL[$pass_t‚ªˆê’v‚·‚é‚©‚Ç‚¤‚©‚ð
	#sub match_pass‚Åˆ—‚µ‚ÄA‚»‚ÌŒ‹‰Ê‚ð$oki_pass‚É‘ã“ü‚·‚éB
	$oki_pass = &match_pass("$pass","$pass_t");
	
	#‚à‚µ‚àA$pass_t‚ªÝ’è‚³‚ê‚Ä‚¢‚È‚©‚Á‚½‚Ì‚È‚çiíœƒL[‚ªÝ’è‚³‚ê‚Ä‚¢‚È‚©‚Á‚½‚çj
	if ($pass_t eq ""){
	
		#‚¾‚ê‚Å‚àŒ©‚ê‚é‚æ‚¤‚ÉAok‚ð‚©‚¦‚·B
		$oki_pass = "ok";
		
		#‚»‚ÌŽ|‚ÌƒƒbƒZ[ƒW‚ð•\Ž¦
		$mess = "ƒƒCƒ“ŒfŽ¦”Â‚Åkey‚ð“ü—Í‚µ‚Ä‚ËA‘¼‚Ìl‚É‚à‚Ý‚ç‚ê‚¿‚á‚¤‚æB";
	}
	
	#‚à‚µ‚àAƒL[‚ªˆá‚Á‚½‚ç
	if ($oki_pass ne "ok"){
	
		#”`‚«Œ©‚µ‚¿‚á‚¾‚ß‚Æ‚¢‚¤Ž|‚ÌƒƒbƒZ[ƒW‚ð•\Ž¦
		$mess = "‚Ì‚¼‚¢‚¿‚á‚¾‚ßII";
	}
	
	#’u‚«ŽèŽ†•\Ž¦ˆ—‚Ö
	&res_html;
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒAƒNƒZƒXƒ`ƒFƒbƒNˆ—                                    „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub access_deny{

	#”rœƒzƒXƒgŒó•â‚ª‚ ‚ê‚ÎA
	if ($deny_list[0]) {
	
		# ƒzƒXƒg–¼‚ðŽæ“¾
		&get_host;
		
		#ƒ`ƒFƒbƒNˆó
		$flag_deny = 0;
		
		#”rœƒŠƒXƒg‚ð‚P‚Â‚Ã‚Â
		foreach (@deny_list) {
		
			#‹ó‚É‚È‚Á‚½‚çAI‚í‚è
			if ($_ eq '') { 
				last;
			}
			
			#*‚Ì•”•ª‚ð³‹K•\Œ»‚É‘‚«‚È‚¨‚·
			$_ =~ s/\*/\.\*/g;
			
			#Žæ“¾‚µ‚½ƒzƒXƒgî•ñ‚ÆƒŠƒXƒg‚ªˆê’v‚·‚é‚©
			if ($host =~ /$_/) { 

				#ˆó‚ð‚Â‚¯‚é
				$flag_deny = 1;
				
				#ƒ‹[ƒv‚©‚ç’Eo
				last;
			}
		}
		
		#ˆó‚ª‚Â‚¢‚Ä‚¢‚½‚ç
		if ($flag_deny) {
		
			# ƒGƒ‰[•\Ž¦
			&error("$access_deny_mess");
			exit;
		}
	}
}                                                          
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«ƒwƒbƒ_[•\Ž¦ˆ—                                        „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub head_html{
	
	#ƒy[ƒWƒ^ƒCƒgƒ‹Žæ“¾
	local($t) = @_[0];

	#htmlo—ÍéŒ¾
	print "Content-type: text/html\n\n";
	
	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
EOM

#2001.8.31‰ü‘¢
if ($tok2cookie == 1) {
	print $wktok2cookie; # ƒgƒNƒgƒNƒNƒbƒL[‚Ì”­Œø
	}

	print <<"EOM";
<title>$t</title>
<meta http-equiv="Content-Style-Type" content="text/css">
<style type="text/css">
<!--
body,table,tr,td,p {font-size: 9pt; font-family: MS UI Gothic;
scrollbar-track-color: $sctrack;
scrollbar-face-color: $scface;
scrollbar-shadow-color: $scshadow;
scrollbar-arrow-color: $scarrow;}

a:link    {text-decoration:none;font-weight:bold; color:$link; }
a:visited {text-decoration:none;font-weight:bold; color:$vlink; }
a:active  {text-decoration:none;font-weight:bold; color:$alink; }
a:hover   {text-decoration:underline;font-weight:bold; color:$alink; }
table     {font-size:12px; }
.title    {font-size:24px; font-family: MS UI Gothic; }
hr {color:hotpink;}
.AL6  {background-color: $mestlbgcol;}
.AL   {filter:Alpha(opacity=70,enabled=70);background-color: $mestlbgcol;}
.AL2  {filter:Alpha(opacity=70,enabled=70);background-color: #ffffff;}
.AL3  {filter:Alpha(opacity=70,enabled=70);background-color: #ffffff;border:1 solid $tblline; color:#000000;}
.AL4  {border:1 solid $tblline;}
.AL5  {border:1 solid #ffffff;background-color: $mestlbgcol;font-size:9pt;color:$mestltxcol;}
-->
</style>
</head>
EOM

	#”wŒi‰æ‘œ‚ª‚ ‚ê‚ÎA
	if ($bg_gif){
		print "<body style=\"background:$bg_color url($bg_gif) no-repeat fixed center\" text=\"$text_color\" link=\"$link\" alink=\"$alink\" vlink=\"$vlink\">\n";
#		print "<body bgcolor=\"$bg_color\" background=\"$bg_gif\" text=\"$text_color\" link=\"$link\" alink=\"$alink\" vlink=\"$vlink\" bgproperties=\"fixed\">\n";

	#”wŒi‰æ‘œ‚ª‚È‚¯‚ê‚ÎA
	}else{
		print "<body bgcolor=\"$bg_color\" link=\"$link\" alink=\"$alink\" vlink=\"$vlink\" text=\"$text_color\">\n";
	}
}
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®

#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«‰Æ•\Ž¦ƒy[ƒWˆ—                                        „«
#„°„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„²
sub house_page_count{
	
##•\Ž¦‚·‚éÅ‰‚Ì‰Æ‚Ìs”
	#’l‚ðŽ‚Á‚Ä‚¢‚È‚¯‚ê‚Î
	if($FORM{'hpc'} eq ''){
	
		#0s–ÚAÅ‰‚©‚ç
		$house_start = 0;
	
	#’l‚ðŽ‚Á‚Ä‚¢‚é‚È‚ç
	}else{
	
		#‚»‚Ìs–Ú‚©‚çA
		$house_start = $FORM{'hpc'};
	}
	
	#‚»‚Ìƒy[ƒW‚ÌÅŒã‚Ì‰Æ‚Ìs”
	$house_end = $house_start + $house_num - 1;
	
	#ÅŒã‚Ì‰Æ‚Ìs”‚ªAƒf[ƒ^ã‚Å‚ÌÅŒã‚Ìs”ˆÈã‚Ì‚Æ‚«‚ÍA
	if($house_end >= $#lines){
	
		#ƒf[ƒ^ã‚Å‚ÌÅŒã‚Ìs”‚É‚È‚é
		$house_end = $#lines;
	}
	
	#ŽŸ‚Ìƒy[ƒW‚ÌÅ‰‚Ì‰Æ‚Ìs”
	$house_next = $house_start + $house_num;
	
	#‘O‚Ìƒy[ƒW‚ÌÅ‰‚Ì‰Æ‚Ìs”
	$house_back = $house_start - $house_num;
}
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®
#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«‚Ý‚ñ‚È‚ÅƒŒƒX“ü—ÍƒtƒH[ƒ€        ‰ü‘¢’Ç‰Á                „«

sub minna_res_form{

	&get_res_cookie;
##‹LŽ–ƒf[ƒ^Žæ“¾ˆ—
	
	#‹LŽ–ƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$logfile") || &error("$logfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½");
	
	#ƒf[ƒ^‚ð”z—ñ‚É‘ã“ü‚·‚éB
	@lines = <IN>;
	
	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close (IN);
	
	#ƒf[ƒ^‚ð•ªÍ
	foreach $line (@lines){
		
		#ƒf[ƒ^‚ðŠe—v‘f‚É•ªŠ„
		@datas = split (/<>/,$line);
		
		#ƒŒƒX‚ð•t‚¯‚éƒf[ƒ^‚ðŒ©‚Â‚¯‚é
		if ($num == $datas[0]){
		
			#ƒŒƒX‚ð•t‚¯‚éƒf[ƒ^‚ðŽæ‚èo‚·
			@ress = @datas;
			
			#•ªÍˆ—‚ðI—¹
			last;
		}
	}
	
	#‚à‚Æ‚à‚Æ‚ ‚Á‚½ƒŒƒX‹LŽ–‚Ì‰üsƒ^ƒO‚ðÜ‚è•Ô‚µ‚É•ÏŠ·



 &head_html("‚Ý‚ñ‚È‚ÅƒŒƒX");


	#ƒqƒAƒhƒLƒ…ƒƒ“ƒg
	print <<"EOM";
<center>
	<table>
		<tr>
			<td align=center>
				<table width=400 cellspacing=0 cellpadding=4>
					<tr>
						<td align=center bgcolor=$mestlbgcol><font color=$mestltxcol>‚Ý‚ñ‚È‚ÅƒŒƒX</font></td>
					</tr>
					<form action="$script" method="$method">
					<input type="hidden" name="num" value="$num">
					<tr>
						<td align=center>b<a href="$script?">ŒfŽ¦”Â‚É–ß‚é</a>b</td>
					</tr>
					</form>
					<tr>
					</tr>

					<table width=400 cellspacing=0 cellpadding=4 class="AL3">
					<tr>
						<td align=left class="AL">
							<font color=$mestltxcol><b>[$ress[0]] $ress[4]</b>$ress[1] $ress[7]</font><br>
						</td>
					</tr>
					<tr>
						<td align=left class="AL2">
							<font color=$ress[11]>$ress[5]</font>
						</td>
					</tr>
					<tr><td><br><br></td></tr>
					<tr>
						<td td align=left class="AL2">
							<ul>
								<font color="$master_color">$ress[6]</font>
							</ul>
						</td>
					</tr>
					</table>
					<tr><td><br><br></td></tr>
					<form action="$script" method="$method">
					<input type="hidden" name="mode" value="minna_res_write">
					<input type="hidden" name="num" value="$num">
					<tr>
						<td align=left>name<input type=text name=name size=10 class="AL3" value="$cookie{'cname'}"></td>
					</tr>
					<tr>
						<td align=center>
							<textarea cols=40 rows=4 name="res" wrap="$wrap" class="AL3"></textarea>
						</td>
					</tr>

<tr>
	<td width=350 align=center>
EOM
	foreach (@in_mcolors) {
		if ($crcolor eq $_) {
			print "<input type=radio name=rcolor value=$_ checked>";
			print "<font color=$_>¡</font>\n";
		} else {
			print "<input type=radio name=rcolor value=$_>";
			print "<font color=$_>¡</font>\n";
		}
	}
		print <<"EOM";
	</td>
</tr>

					
					<tr>
						<td align=center>
							<input type=submit value="-----ƒŒƒX‚ð•t‚¯‚é-----">
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
	</center>
</body>
</html>
EOM

	#ˆ—‚ðI—¹
	exit;


}
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®
#„¬„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„­
#„«‚Ý‚ñ‚È‚ÅƒŒƒX‘‚«‚±‚Ý‚·‚éˆ—          ‰ü‘¢’Ç‰Á      @@„«


sub minna_res_write{

##“ñdˆ—‰ñ”ðˆ—

	#“ñdˆ—‚ð‰ñ”ð‚·‚é‚½‚ß‚ÉAƒƒbƒNˆ—‚ð‚·‚éB
	if($lock_check){&lock;}

##•K{€–Ú§ŒÀ‚Ìˆ—

	#“Še‹LŽ–‚É–¼‘O$name‚ª‹L“ü‚³‚ê‚Ä‚È‚©‚Á‚½Žž‚Ìˆ—

	if ($name eq ""){
		&uemess("$mess_name");
	}



##ƒƒOƒtƒ@ƒCƒ‹ƒf[ƒ^‚ðŽæ“¾‚·‚éˆ—

	#ƒƒOƒtƒ@ƒCƒ‹‚ðŠJ‚­
	open (IN,"$logfile") || &error("“Še‹LŽ–•Û‘¶ƒtƒ@ƒCƒ‹$logfile‚ªŠJ‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B");

	#Šes‚ð”z—ñ‚É‘ã“ü
	@lines = <IN>;

	#ƒtƒ@ƒCƒ‹‚ð•Â‚¶‚é
	close(IN);

	#ƒRƒƒ“ƒg‚ª‘‚©‚ê‚Ä‚¢‚È‚©‚Á‚½‚Æ‚«‚ÍA
	#”’Ž†“Še‚ð‹ÖŽ~‚·‚éŽ|‚ÌƒƒbƒZ[ƒW‚ð‚à‚Á‚ÄAsub uemess‚Ö‚¢‚Á‚ÄA
	#ƒƒO‚É‘‚«‚±‚Ý‚·‚éˆ—‚ð‚â‚ß‚éB
	if ($res eq ""){&uemess("$mess_nashi");}

	#“ñd“Še‚ª‚ ‚Á‚½‚©‚Ç‚¤‚©‚Ìˆó‚ÌŽw’è
	$niju_flag = 0;

	#ƒƒO‚É‚ ‚é‘S‹LŽ–‚Ìˆê‚Âˆê‚Â‚É‘Î‚µ‚Ä
	foreach (@lines) {
		#Še—v‘f‚É•ªŠ„‚µ‚ÄA”z—ñ‚É‘ã“ü
		@datas_niju = split(/<>/,$_);
		$niju_flag = index("$datas_niju[6]", "$res");   # “¯‚¶“à—e‚ð’T‚·
		#ƒ‹[ƒv‚©‚ç”²‚¯o‚·B
		if($niju_flag > 0){last;}
	}
	if ($niju_flag > 0){
		&uemess("$mess_onaji","");
	}

##“Še‹LŽ–‚ÉŠÖ‚·‚éî•ñ‚ðŽæ“¾‚·‚éB

	#$date ‚É“ú•t‚ð‘ã“ü
	&get_time;

	#$host‚ÉƒzƒXƒgî•ñ‚ð‘ã“ü
	&get_host;


	$resdat = "<font color=$rcolor>$date $name<br>$res</font><br>";


	#XV‚·‚éƒf[ƒ^‚ð“ü‚ê‚é”z—ñ‚ðŽw’è
	@news = ();

	#ƒŒƒXƒf[ƒ^ŒŸõXV
	foreach $line (@lines){
		@datas = split(/<>/,$line);
		if ($num == $datas[0]){
			#ƒŒƒX’Ç‰Á
			$datas[6] = "$datas[6]<br>$resdat";
			$line = join ("<>",@datas);
			if ($resupflg eq '1') {
				unshift (@news , $line);
			} else {
				push (@news,$line);
			}
		}else{
			push (@news,$line);
		}
	}


	#•\Ž¦‚³‚ê‚é‹LŽ–‚ð‚ ‚ç‚½‚ß‚ÄA$logfile‚É‘‚«‚±‚ÞB
	open (OUT,">$logfile") || &error("$logfile‚ª‚Ð‚ç‚¯‚Ü‚¹‚ñ‚Å‚µ‚½B");
	print OUT @news;
	close(OUT);

##townƒf[ƒ^‚ðXV‚·‚éˆ—

#ƒŒƒXƒtƒ‰ƒOƒIƒ“
	$minresflg = '1';

	#ƒJƒEƒ“ƒg‚ð‘‚â‚·‚Ì‚ÅAup‚Æ‚¢‚¤’l‚ðŽ‚Á‚Ä‚¢‚­Biíœ‚Ìê‡‚Æ‹æ•Ê‚·‚é‚½‚ßj
	if ($name ne $kanri_name) {
		&ktown_up("up");
	}

##ŽŸ‚Ìˆ—‚ð‹–‰Â‚·‚é

	#ƒƒO‚ÌXVˆ—‚ªI—¹‚µ‚½‚Ì‚ÅAƒƒbƒN‚ð‰ðœ‚·‚é
	if($lock_check){&unlock;}

##ƒNƒbƒL[‚Ìˆ—

	#‘‚«‚±‚Ý‚³‚ê‚½“à—e‚ðƒNƒbƒL[‚Æ‚µ‚ÄÄ‚­
	&set_res_cookie;


}
#„¯„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„ª„®