#┌─────────────────────────────────
#│ 携帯用表示モジュール for Joyful Note v1.95 Rev1.94
#│ Copyright isso. Sep, 2006
#└─────────────────────────────────

#------------------#
#  新着順一覧表示  #
#------------------#
sub keitai_new_list {
	local($no,$reno,$dat,$name,$eml,$sub,$msg,$url,$h,$pw,$color,$tail,$w,$h,$chk,$tm,$i,$j,$k);

	if ($mode eq "k_admin") {
		if ($in{'pass'} eq "") { &enter; }
		if ($in{'pass'} ne $pass) { &error("パスワードが違います"); }
	}

	$i = 0;
	open(IN,"$logfile") || &error("Open Error : $logfile");
	$top = <IN>;
	while (<IN>) {
		chomp;
		($no,$reno,$dat,$name,$eml,$sub,$msg,$url,$h,$pw,$color,$tail,$w,$h,$chk,$tm) = split(/<>/);
		$no{$i}    = $no;
		$reno{$i}  = $reno;
		$sub{$i}   = $sub;
		$email{$i} = $email;
		$url{$i}   = $url;
		$name{$i}  = $name;
		$dat{$i}   = $dat;
		$msg{$i}   = $msg;
		$tm{$i}    = $tm; 
		$h{$i}     = $h; 
		$pw{$i}    = $pw;
		$i++;
	}
	&header;
	print "$title<hr>\n";
	if ($mode eq "k_admin" || $in{'kmode'} eq "admin") {print "$keitai_mode<br>\n";}
		if ($mode eq "k_admin" || $in{'kmode'} eq "admin") {
			print "<table border=0><tr><td><form action=\"$script\" method=\"$method\">\n",
			"<input type=submit value=\"掲示板へ戻る\"></form></td>\n";
			print "<td><form action=\"$script\" method=\"$method\">\n",
			"<input type=hidden name=mode value=\"klist\">\n",
			"<input type=hidden name=kmode value=\"$in{'kmode'}\">\n",
			"<input type=hidden name=pass value=\"$in{'pass'}\">\n",
			"<input type=submit value=\"親記事\"></form></td></tr></table><br>\n",
			"<form action=\"$script\" method=\"$method\">\n";
		} else {
			print "<A HREF=\"$script?mode=klist\">親記事順</A>/",
			"<A HREF=\"$script?mode=newpost\">投稿</A>/",
			"<A HREF=\"$script?mode=k_admin\">管理</A><hr>\n";
		}

	# ソート処理
	$j = 0;
	$page = $in{'page'};
	foreach (sort { ($no{$b} <=> $no{$a}) } keys(%no)) {
		$j++;
		if ($j < $page + 1) { next; }
		if ($j > $page + $keitai_page) { next; }
		if ($reno{$_} eq '') { print "$treehead"; } else { print "$cohead"; }
		if ($mode eq "k_admin" || $in{'kmode'} eq "admin") {
			print "<input type=checkbox name=no value=\"$no{$_}\">削除 ",
			"[$no{$_}] <A HREF=\"$script?mode=kaview&no=$no{$_}&kmode=admin\">$sub{$_}</A><br>\n";
		} else {
			print "<A HREF=\"$script?mode=kmsgview&no=$no{$_}\">$sub{$_}</A><br>\n";
		}
	}

	if ($mode eq "k_admin" || $in{'kmode'} eq "admin") {
		print "<br>\n<input type=hidden name=mode value=\"dele\">\n",
		"<input type=hidden name=kmode value=\"$in{'kmode'}\">\n",
		"パスワード: <input type=password name=pass size=8 value=\"$in{'pass'}\">\n",
		"<input type=hidden name=no value=\"$in{'no'}\">\n",
		"<input type=submit value=\"削除\"></form>\n";
	}

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

	print "<hr><table><tr>\n";
	if ($back >= 0) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=\"$mode\">\n";
		print "<input type=hidden name=kmode value=\"$in{'kmode'}\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=submit value=\"前画面\"></form></td>\n";
	}
	if ($next < $i) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=\"$mode\">\n";
		print "<input type=hidden name=kmode value=\"$in{'kmode'}\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=submit value=\"次画面\"></form></td>\n";
	}
	print "</tr></table>\n";

	print "- <a href='http://www.kent-web.com/' target='_top'>Joyful Note</a> -<br>\n",
	"携帯対応 by isso\n";
	print "</body></html>\n";
	exit;
}

#--------------------#
#  タイトル一覧表示  #
#--------------------#
sub keitai_list_view {
	local($no,$reno,$dat,$name,$eml,$sub,$i,$j,$k);

	if ($mode eq "k_admin") {
		if ($in{'pass'} eq "") { &enter; }
		if ($in{'pass'} ne $pass) { &error("パスワードが違います"); }
	}

	$i = 0;
	open(IN,"$logfile") || &error("Open Error : $logfile");
	$top = <IN>;
	while (<IN>) {
		($no,$reno,$dat,$name,$eml,$sub) = split(/<>/);
		if ($reno eq '') {
			$no{$i}    = $no;
			$reno{$i}  = $reno;
			$sub{$i}   = $sub;
			$num{$i}   = $i;
			$i++;
		}
	}
	&header;
	print "$title<hr>\n";
	if ($in{'pass'} eq $pass || $in{'kmode'} eq "admin") {print "$keitai_mode<br>\n";}
		if ($in{'pass'} eq $pass || $in{'kmode'} eq "admin") {
			print "<table border=0><tr><td><form action=\"$script\" method=\"$method\">\n",
			"<input type=submit value=\"掲示板へ戻る\"></form></td>\n";
			print "<td><form action=\"$script\" method=\"$method\">\n",
			"<input type=hidden name=mode value=\"knew\">\n",
			"<input type=hidden name=kmode value=\"$in{'kmode'}\">\n",
			"<input type=hidden name=pass value=\"$in{'pass'}\">\n",
			"<input type=submit value=\"新着順\"></form></td></tr></table><br>\n";
		} else {
			print "<A HREF=\"$script?mode=knew\">新着順</A>/",
			"<A HREF=\"$script?mode=newpost\">投稿</A>/",
			"<A HREF=\"$script?mode=k_admin\">管理</A><hr>\n";
		}

	# ソート処理
	$j = 0;
	$page = $in{'page'};
	foreach (sort { ($num{$a} <=> $num{$b}) } keys(%num)) {
		$j++;
		if ($j < $page + 1) { next; }
		if ($j > $page + $keitai_page) { next; }
		if ($reno{$_} eq '') { print "$treehead"; } else { print "$cohead"; }
		if ($in{'pass'} eq $pass || $in{'kmode'} eq "admin") {
			print "[$no{$_}] <A HREF=\"$script?mode=klview&kmode=admin&no=$no{$_}\">$sub{$_}</A><br>\n";
		} else {
			print "<A HREF=\"$script?mode=klview&no=$no{$_}\">$sub{$_}</A><br>\n";
		}
	}
	$next = $page + $keitai_page;
	$back = $page - $keitai_page;

	print "<hr><table><tr>\n";
	if ($back >= 0) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=\"$mode\">\n";
		print "<input type=hidden name=kmode value=\"$in{'kmode'}\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=submit value=\"前画面\"></form></td>\n";
	}
	if ($next < $i) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=\"$mode\">\n";
		print "<input type=hidden name=kmode value=\"$in{'kmode'}\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=submit value=\"次画面\"></form></td>\n";
	}
	print "</tr></table>\n";

	print "- <a href='http://www.kent-web.com/' target='_top'>Joyful Note</a> -<br>\n",
	"携帯対応 by isso\n";
	print "</body></html>\n";
	exit;
}

#----------------------#
#  スレッド内順表示  #
#----------------------#
sub keitai_log_list {
	local($no,$reno,$dat,$name,$eml,$sub,$msg,$url,$h,$pw,$color,$tail,$w,$h,$chk,$tm,$i,$j,$k);

	$i = 0;
	open(IN,"$logfile") || &error("Open Error : $logfile");
	$top = <IN>;
	while (<IN>) {
		($no,$reno,$dat,$name,$eml,$sub,$msg,$url,$h,$pw,$color,$tail,$w,$h,$chk,$tm) = split(/<>/);
		if ($in{'no'} eq $reno || $in{'no'} eq $no) {
			$no{$i}    = $no;
			$reno{$i}  = $reno;
			$sub{$i}   = $sub;
			$email{$i} = $email;
			$url{$i}   = $url;
			$name{$i}  = $name;
			$dat{$i}   = $dat;
			$msg{$i}   = $msg;
			$tm{$i}    = $tm; 
			$h{$i}     = $h; 
			$pw{$i}    = $pw;
			$i++;
		}
	}
	&header;
	print "$title<hr>\n";
	if ($mode eq "k_admin" || $in{'kmode'} eq "admin") {print "$keitai_mode<br>\n";}
		if ($mode eq "k_admin" || $in{'kmode'} eq "admin") {
			print "<table border=0><tr><td><form action=\"$script\" method=\"$method\">\n",
			"<input type=submit value=\"掲示板へ戻る\"></form></td>\n";
			print "<td><form action=\"$script\" method=\"$method\">\n",
			"<input type=hidden name=mode value=\"klist\">\n",
			"<input type=hidden name=kmode value=\"$in{'kmode'}\">\n",
			"<input type=hidden name=pass value=\"$in{'pass'}\">\n",
			"<input type=submit value=\"親記事順\"></form></td>\n";
			print "<td><form action=\"$script\" method=\"$method\">\n",
			"<input type=hidden name=mode value=\"knew\">\n",
			"<input type=hidden name=kmode value=\"$in{'kmode'}\">\n",
			"<input type=hidden name=pass value=\"$in{'pass'}\">\n",
			"<input type=submit value=\"新着順\"></form></td></tr></table><br>\n",
			"<form action=\"$script\" method=\"$method\">\n";
		} else {
			print "<A HREF=\"$script?mode=klist\">親記事順</A>/",
			"<A HREF=\"$script?mode=knew\">新着順</A>/",
			"<A HREF=\"$script?mode=k_admin\">管理</A><hr>\n";
		}

	# ソート処理
	$j = 0;
	$page = $in{'page'};
	foreach (sort { ($no{$a} <=> $no{$b}) } keys(%no)) {
		$j++;
		if ($j < $page + 1) { next; }
		if ($j > $page + $keitai_page) { next; }
		if ($reno{$_} eq '') { print "$treehead"; } else { print "$thcohead"; }
		if ($mode eq "k_admin" || $in{'kmode'} eq "admin") {
			print "<input type=checkbox name=no value=\"$no{$_}\">削除 ",
			"[$no{$_}] <A HREF=\"$script?mode=kaview&kmode=admin&no=$no{$_}\">$sub{$_}</A><br>\n";
		} else {
			print "<A HREF=\"$script?mode=kmsgview&no=$no{$_}\">$sub{$_}</A><br>\n";
		}
	}

	if ($mode eq "k_admin" || $in{'kmode'} eq "admin") {
		print "<br>\n<input type=hidden name=mode value=\"dele\">\n",
		"<input type=hidden name=kmode value=\"$in{'kmode'}\">\n",
		"パスワード: <input type=password name=pass size=8 value=\"$in{'pass'}\">\n",
		"<input type=submit value=\"削除\"></form></td>\n";
	}

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

	print "<hr>\n<table><tr>\n";
	if ($back >= 0) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=\"klview\">\n";
		print "<input type=hidden name=kmode value=\"$in{'kmode'}\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=page value=\"$back\">\n";
		print "<input type=hidden name=no value=\"$in{'no'}\">\n";
		print "<input type=submit value=\"前画面\"></form></td>\n";
	}
	if ($next < $i) {
		print "<td><form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=mode value=\"klview\">\n";
		print "<input type=hidden name=kmode value=\"$in{'kmode'}\">\n";
		print "<input type=hidden name=pass value=\"$in{'pass'}\">\n";
		print "<input type=hidden name=page value=\"$next\">\n";
		print "<input type=hidden name=no value=\"$in{'no'}\">\n";
		print "<input type=submit value=\"次画面\"></form></td>\n";
	}
	print "</tr></table>\n";

	print "- <a href='http://www.kent-web.com/' target='_top'>Joyful Note</a> -<br>\n",
	"携帯対応 by isso\n";
	print "</body>\n</html>\n";
	exit;
}

#------------------#
#  メッセージ表示  #
#------------------#
sub keitai_msg_view {
	local($no,$reno,$dat,$name,$eml,$sub,$msg,$url,$h,$pw,$color,$tail,$w,$h,$chk,$tm,$i,$j,$k);

	&header;
	print "$title<hr>\n";
	if ($mode eq "kaview" || $in{'kmode'} eq "admin") {print "$keitai_mode<br>\n";}
		if ($mode eq "kaview" || $in{'kmode'} eq "admin") {
			print "<A HREF=\"$script?mode=klist&kmode=admin\">親記事順</A>/",
			"<A HREF=\"$script?mode=knew&kmode=admin\">新着順</A><hr>\n",
			"<form action=\"$script\" method=\"$method\">\n";
		} else {
			print "<A HREF=\"$script?mode=klist\">親記事順</A>/",
			"<A HREF=\"$script?mode=knew\">新着順</A>/",
			"<A HREF=\"$script?mode=k_admin\">管理</A><hr>\n";
		}

	$i = 0;
	open(IN,"$logfile") || &error("Open Error : $logfile");
	$top = <IN>;
	while (<IN>) {
		($no,$reno,$dat,$name,$eml,$sub,$msg,$url,$h,$pw,$color,$tail,$w,$h,$chk,$tm) = split(/<>/);
		if ($in{'no'} eq $no) {
			if($reno) { $oya =$reno; } else { $oya = $no; }
			# コメントタイトル
			$res_sub = $sub;
			$res_sub =~ s/<([^>]|\n)*>//g;
			if ($res_sub =~ /^Re(.*)/) { $res_sub = "Re$1"; }
			else { $res_sub = "Re: $res_sub"; }
			# コメント
			print "No\.$no<BR>\題名: $sub<BR>\n投稿者: $name さん<hr>\n$msg";
			# 添付画像
			if ($tail) {
				# サムネイル画像あり
				$imgfilename = "$imgurl$no"."s"."$tail";
				if (-e "$imgfilename") {
					print "<BR>\n<BR>\n<A HREF=\"$imgfilename\">添付画像ファイル</A><BR>\n";
				} else {
					# サムネイル画像なし
					if ($tail eq ".gif" || $tail eq ".jpg" || $tail eq ".png") {
						$imgfilename = "$imgurl$no$tail";
						if (-e "$imgfilename") {
							$size = int(( -s "$imgfilename" )/1000);
							$size = ($size < 1000) ? ($size)."kB" : (int(($size+50)/100)/10)."MB";
							print "<BR>\n<BR>\n<A HREF=\"$imgfilename\">添付画像ファイル ($size)</A><BR>\n";
						}
					}
				}
			}
			"<table><tr>\n<td>\n";
			print "<form action=\"$script\" method=\"$method\">\n";
			if ($mode eq "kaview" || $in{'kmode'} eq "admin") {
				print "<input type=hidden name=mode value=\"dele\">\n",
				"<input type=hidden name=kmode value=\"$in{'kmode'}\">\n",
				"<input type=password name=pass size=8 value=\"$in{'pass'}\">\n",
				"<input type=hidden name=no value=\"$in{'no'}\">\n",
				"<input type=submit value=\"削除\"></form></td>\n";
			} else {
				print "<td><input type=hidden name=mode value=\"newpost\">\n",
				"<input type=hidden name=kaction value=\"comment\">\n",
				"<input type=hidden name=res_sub value=\"$res_sub\">\n",
				"<input type=hidden name=no value=\"$in{'no'}\">\n",
				"<input type=hidden name=oya value=\"$oya\">\n",
				"<input type=submit value=\"返信\"></form></td>\n",
				"<td><form action=\"$script\" method=\"$method\">\n",
				"<input type=hidden name=mode value=\"klview\">\n",
				"<input type=hidden name=no value=\"$oya\">\n",
				"<input type=hidden name=page value=\"$in{'page'}\">\n",
				"<input type=submit value=\"リストにもどる\"></form></td>\n";
			}
			print "</tr></table>\n";
		}
	}

	if ($mode eq "kmsgview") { &edit_form; }
	print "</body>\n</html>\n";
	exit;
}

#----------------#
#  投稿フォーム  #
#----------------#
sub k_msg_form{
	# クッキーを取得
	local($cname,$cmail,$curl,$cpwd,$cico,$ccol) = &get_cookie;

	my $access = &encode_bbsmode();
	my $enaddress = &encode_addr();
	if ($keychange && $_[0] ne "edit") {
		$url_key  = 'email'; $mail_key = 'url'; $name_key = 'comment'; $comment_key = 'name';
	} else { $url_key  = 'url'; $mail_key = 'email'; $name_key = 'name'; $comment_key = 'comment'; }

	&header;
	print "[<a href=\"$script\">掲示板へ戻る</a>]\n";
	$wrap=$iniwrap;
	# 修正時
	if ($_[0] eq "edit") {
		($edittype,$no,$reno,$date,$cname,$cmail,$res_sub,$res_msg,$curl,$host,$pw,$kcolor) = @_;

		print "修正フォーム<hr>\n",
		"<form action=\"$script\" method=\"$method\">\n";
		print "<!-- //\n<input type=hidden name=mode value=\"write\">\n// -->\n";
		print "<input type=hidden name=$bbscheckmode value=$access>\n";
		print "<input type=hidden name=mode value=\"usr_edt\">\n",
		"<input type=hidden name=kaction value=\"edit\">\n",
		"<input type=hidden name=pwd value=\"$in{'pwd'}\">\n",
		"<input type=hidden name=no value=\"$no\">\n";
	# 返信時
	} elsif ($in{'kaction'} eq 'comment') {
		$res_sub = $in{'res_sub'};
		print "<hr>- 返信フォーム -<hr>\n",
		"<form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=$bbscheckmode value=$access>\n";
		print "<!--    //\n<input type=hidden name=mode value=\"write\">\n//     -->\n";
		print "<input type=hidden name=page value=\"$page\">\n",
		"<input type=hidden name=kaction value=\"res_msg\">\n",
		"<input type=hidden name=no value=\"$in{'no'}\">\n",
		"<input type=hidden name=reno value=\"$in{'reno'}\">\n";
	# 新規時
	} else {
		print "<hr>- 新規投稿フォーム -<hr>\n",
		"<form action=\"$script\" method=\"$method\">\n";
		print "<input type=hidden name=$bbscheckmode value=$access>\n";
		print "<!--    //\n<input type=hidden name=mode value=\"write\">\n//     -->\n";
		print "<input type=hidden name=page value=\"$page\">\n",
		"<input type=hidden name=no value=\"new\">\n";
	}

	print "おなまえ <input type=text name=$name_key size=20 value=\"$cname\"><BR>\n";

	print "Ｅメール <input type=hidden name=mail size=28 value=\"$enaddress\">\n",
	"<input type=text name=$mail_key size=20 value=\"$cmail\">\n";
	if ($in_email) { print "<font color='#FF0000'>必須</font>\n"; }
	print "<br>\n";

	print "タイトル <input type=text name=sub size=20 value=\"$res_sub\">\n",
	"<td>\n<!-- //\n<input type=text name=subject size=36 value=\"\">\n// -->\n",
	"<input type=hidden name=title size=36 value=\"\">\n",
	"<input type=hidden name=theme size=36 value=\"\">\n<br>\n";

	$f_c_d = int(rand(5E07)) + 11E08;
	print "URL <!--//\n  URL\n<input type=text name=url2 size=50 value=\"\">\n//-->\n",
	"<input type=hidden name=\"$formcheck\" value=\"$f_c_d\">\n",
	"<input type=text name=$url_key size=20 value=\"$curl\"><br>\n";

	print "<input type=hidden name=color value=\"$kcolor\">\n";

	print "メッセージ<br>\n";
	print "<textarea name=$comment_key rows=5 cols=20 wrap=soft>$res_msg</textarea><br>\n";

	if ($_[0] eq "edit") {
		print "<input type=submit value=' 記事を修正する '></form><br>\n";
	} else {
		print "暗証キー <input type=password name=pwd size=8 value=\"$cpwd\" maxlength=8>\n";
		if ($in_pwd) { print "<B><FONT COLOR=\"#FF0000\">※必須</FONT></B>"; }
		print "<br>(英数字で8文字以内)<br>\n";
		if ($_[0] ne "edt") { print "<input type=hidden name=mode value=\"$writevalue\">\n"; }
		print "<input type=submit value=\" 記事を投稿する \"></form>\n";
	}
	print "</body>\n</html>\n";
	exit;
}

#------------#
#  入室画面  #
#------------#
sub enter {
	&header;
	print <<EOM;
<A HREF="$script">掲示板へ戻る</A>
<hr>
管理者パスワード: 
<form action="$script" method="$method">
<input type=hidden name=mode value="k_admin">
<input type=hidden name=kmode value="admin">
<input type=password name=pass size=8>
<input type=submit value=" 認証 "></form>
</body>
</html>
EOM
	exit;
}

#------------#
#  記事削除  #
#------------#
sub k_dele {
	local($no,$reno,$dat,$name,$eml,$sub,$msg,$url,$h,$pw,$color,$tail,$w,$h,$chk,$tm);

	# POST限定
	if ($postonly && !$post_flag) { &error("不正なアクセスです"); }

	if ($in{'pass'} ne $pass) { &error("パスワードが違います"); }

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

	@DEL = split(/\0/, $in{'no'});

	# ロック処理
	if ($lockkey) { &lock; }

	# 削除情報をマッチングし更新
	@new=();
	open(IN,"$logfile") || &error("Open Error: $logfile");
	$top = <IN>;
	while (<IN>) {
		$flag=0;
		($no,$reno,$d,$n,$m,$s,$com,$u,$ho,$p,$c,$tail,$w,$h,$chk)
							 	= split(/<>/);
		foreach $del (@DEL) {
			if ($no eq $del || $reno eq $del) {
				if (-e "$imgdir$no$tail") {
					unlink("$imgdir$no$tail");
				}
				$flag=1;
				last;
			}
		}
		if ($flag == 0) { push(@new,$_); }
	}
	close(IN);

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

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

	&header;
	print "<table border=0><tr><td><form action=\"$script\" method=\"$method\">\n",
	"<input type=submit value=\"掲示板へ戻る\"></form></td>\n";
	print "<td><form action=\"$script\" method=\"$method\">\n",
	"<input type=hidden name=mode value=\"knew\">\n",
	"<input type=hidden name=kmode value=\"$in{'kmode'}\">\n",
	"<input type=hidden name=pass value=\"$in{'pass'}\">\n",
	"<input type=submit value=\"管理モード\"></form></td></tr></table>\n";
	print "</body></html>\n";
	exit;
}

#----------------#
#  修正フォーム  #
#----------------#
sub edit_form {
	print <<EOM;
<hr>
- 記事の修正・削除 - <br>
<form action="$script" method="$method">
処理選択 <select name=mode>
<option value="usr_edt">修正
<option value="usr_del">削除</select><br>
記事No. <input type=text name=no size=6 value="$in{'no'}"><br>
暗証キー <input type=password name=pwd size=8 value=""></small>
<input type=submit value="実行"></form>
<hr>
- <a href='http://www.kent-web.com/' target='_top'>Joyful Note</a> -<br>
携帯対応 by isso
EOM
	exit;
}

#----------------#
#  書き込み完了  #
#----------------#
sub k_after {
	&header;
	print "<A HREF=\"$script\">掲示板へ戻る</A>\n";
	print "</body></html>\n";
	exit;
}

1;