# yybbs_tel.pl 最終更新 2006/01/12

#┌─────────────────────────────────
#│ 携帯対応YY-BOARD（改）
#│ yybbs_tel.pl 通常版・マルチ掲示板対応版共用
#│ 携帯用表示部 for yybbs.cgi
#└─────────────────────────────────

#-------------------------------------------------
#  記事表示部(ケータイ)
#-------------------------------------------------
sub logView {
	local($top,$start,$end,$next,$back,$i,$y,$prepage,$ResNG,$utnform1);
	# DoCoMo用formタグ
	if (($imode == 3 || $imode == 8) && $UtnOn == 3) {
		$utnform1 = "<form action=\"$script\" method=\"$method\" utn>";
	} else {
		$utnform1 = "<form action=\"$script\" method=\"$method\">";
	}

	$sortnew = ($mode eq "sortnew");
	$preview = ($mode eq "preview");
	$msgview = ($mode eq "msgview");

	# 携帯での表示モード用
	if ($imode_out == 0) {
		if ($in{'mode2'} eq "sortnew") { $sortnew = 1; }
		elsif ($in{'mode2'} eq "preview") { $preview = 1; }
	}
	if ($imode_out && $in{'mode2'} eq "sortnew") { $sortnew = 1; }
	elsif ($imode_out && !$sortnew && !$preview && !$msgview) { $preview = 1; }

	# １ページ当たりの記事表示数
	if ($sortnew) { $pageView = $new_log; } # 新着表示
	elsif ($preview) { $pageView = $p_my_log; } # 一覧表示
	elsif ($msgview) { $pageView = $p_msg_log; } # メッセージ表示
	else { $pageView = $new_log; } # 標準表示

	# ヘッダを出力
	&header;

	# uemini_link表示用
	$uemini_flag = 1;

	# ページ内リンク用
	if ($pageLink2) { print "<a name=\"up\"></a>\n"; }

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

	if ($it_img) { print "<center><img src=\"$it_img\"></center>\n"; }
	elsif ($tColi) { print "<font color=\"$tColi\">$title</font><br>\n"; }
	else { print "$title<br>\n"; }

	# メッセージ
	if ($messegei) { print "$messegei\n"; }

	print "<hr>\n";

	if ($ihomepage eq "") { print "<a href=\"$homepage\">HOME</a>"; }
	else { print "<a href=\"$ihomepage\">HOME</a>"; }

	# ページ下部へのリンク（閲覧者限定時）
	if ($miruPass && $pageLink1) { print "/<a href=\"#down\">$pageLink1</a>"; }

	# 新規投稿後の表示モードの設定
if ($miruPass) { # 閲覧者限定時
	print "$utnform1\n";
	if ($multi_form) { print "$multi_form\n"; }
	print "<input type=\"hidden\" name=\"mode\" value=\"imode\">\n";
	print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
	if ($preview == 1 || $msgview == 1) {
		print "<input type=\"hidden\" name=\"mode2\" value=\"preview\">\n";
	} elsif ($sortnew == 1){
		print "<input type=\"hidden\" name=\"mode2\" value=\"sortnew\">\n";
	}
	print "<input type=\"submit\" value=\"新規投稿\">\n";
	print "</form>\n";
} else {
	if ($preview == 1 || $msgview == 1) {
		print "/<a href=\"$script?${multi_link}mode=imode&amp;mode2=preview\"$DCMUtn>新規投稿</a>";
	} elsif ($sortnew == 1) {
		print "/<a href=\"$script?${multi_link}mode=imode&amp;mode2=sortnew\"$DCMUtn>新規投稿</a>";
	} else {
		print "/<a href=\"$script?${multi_link}mode=imode\"$DCMUtn>新規投稿</a>";
	}
}

	# 掲示板の使い方
if ($miruPass) { # 閲覧者限定時
	print "$utnform1\n";
	if ($multi_form) { print "$multi_form\n"; }
	print "<input type=\"hidden\" name=\"mode\" value=\"howto\">\n";
	print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
	print "<input type=\"submit\" value=\"HELP\">\n";
	print "</form>\n";
} else {
	print "/<a href=\"$script?${multi_link}mode=howto\"$DCMUtn>？</a>";
}

	# ページ下部へのリンク（閲覧者限定なし）
	if (!$miruPass && $pageLink1) { print "/<a href=\"#down\">$pageLink1</a>"; }

	if (!$miruPass) { print "<br>\n"; }

	# 表示方法の設定
if ($miruPass) { # 閲覧者限定時
	if ($imode_out == 0) {
		print "$utnform1\n";
		if ($multi_form) { print "$multi_form\n"; }
		print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
		print "<input type=\"submit\" value=\"標準\">\n";
		print "</form>\n";
	}
	print "$utnform1\n";
	if ($multi_form) { print "$multi_form\n"; }
	print "<input type=\"hidden\" name=\"mode\" value=\"preview\">\n";
	print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
	print "<input type=\"submit\" value=\"一覧\">\n";
	print "</form>\n";
	if ($newok == 1) {
		print "$utnform1\n";
		if ($multi_form) { print "$multi_form\n"; }
		print "<input type=\"hidden\" name=\"mode\" value=\"sortnew\">\n";
		print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
		print "<input type=\"submit\" value=\"新着\">\n";
		print "</form>\n";
	}
	print "$utnform1\n";
	if ($multi_form) { print "$multi_form\n"; }
	print "<input type=\"hidden\" name=\"mode\" value=\"kkc\">\n";
	print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
	print "<input type=\"submit\" value=\"拡張\">\n";
	print "</form>\n";

} else {
	if ($imode_out == 0) {
		if ($preview == 0 && $sortnew == 0 && $msgview == 0 && $mode ne "allno") { print "標準/"; }
		else { print "<a href=\"$script?${multi_link}\"$DCMUtn>標準</a>/"; }
	}
	if ($newok == 0) {
		print "<a href=\"$script?${multi_link}mode=preview\"$DCMUtn>一覧</a>";
	} else {
		if ($preview == 1 && $mode ne "allno") { print "一覧";}
		else { print "<a href=\"$script?${multi_link}mode=preview\"$DCMUtn>一覧</a>"; }
	}
	if ($newok == 1) {
		if ($sortnew == 1) { print "/新着"; }
		else { print "/<a href=\"$script?${multi_link}mode=sortnew\"$DCMUtn>新着</a>";}
	}
	print "/<a href=\"$script?${multi_link}mode=kkc\"$DCMUtn>拡張</a>";
	print "<br>\n";
}

	# ページ区切り処理
	$start = $page + 1;
	$end   = $page + $pageView;
	$i=0;

	# 記事を展開

	#  一記事全文表示
	if ($mode eq "allno") {
		if (!$in{'no'}) { &error('記事番号が指定されていません'); }

		local($flag)=0;
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		$top = <IN>;
		while (<IN>) {
			($no) = split(/<>/);

			if ($in{'no'} == $no) {
				# 記事の表示
				&KijiView($_);
				$flag++;
				last;
			}
		}
		close(IN);

		if (!$flag) { &error('該当の記事が見つかりません'); }

		print "<hr>\n<center>\n";
		# ページ内リンク用
		if ($pageLink1) { print "<a name=\"down\"></a>\n"; }
		&uemini_ilink;
		# ページ上部へのリンク
		if ($pageLink2) { 
			if (!$miruPass) { print "<br>"; } # 閲覧者限定時以外
			print "<a href=\"#up\">$pageLink2</a>";
		}
		print "</center>\n";
		print "</body>\n</html>\n";
		exit;

	# 新着順表示（ケータイ）
	} elsif ($sortnew == 1) {
		local($temp,@logdata,@tmp,$log);

		# 記事を展開
		open(IN,"$logfile") || &error("Open Error : ログファイル");
			@logdata = <IN>;
		close(IN);
		$temp = shift(@logdata);

		#投稿Noでソート
		@tmp = map {(split /,/)[0]} @logdata;
		@logdata = @logdata[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];
		foreach $log (@logdata) {
			$i++;
			if ($i < $start) { next; }
			if ($i > $end) { last; }

			# 記事の表示
			&KijiView($log);
		}

	# 親記事とレス記事一括表示（ケータイ）
	} elsif ($msgview == 1) {
		local($no,$re,$mytime,$tempresno,@lines2,$res,$a,$page_less,$oya,$f);

		# エラー判定
		if (!$in{'no'}) { &error("記事番号が指定されていません"); }

		# スレッド参照数保存
		if ((-e "$viewcntfile") && ($PreviewRes == 2 || $PreviewRes == 3 || $PreviewResi == 2 || $PreviewResi == 3) && !$page) { &ViewCountUp($in{'no'}); }

		# 該当記事取得
		$res=0;
		$page_less=0;
		@lines2=();
		$ResNG="";
		$oya="";
		$f=0;
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		$top = <IN>;
		while (<IN>) {
			($no,$re,$mytime) = (split(/<>/))[0,1,12];
			if ($in{'no'} == $no && $re) { $f++; last; }
			if (($in{'no'} == "$no" && !$re) || ($in{'no'} == "$re" && $re)) {
				if ($meslast == 2 && $in{'no'} eq "$no") { $oya=$_; }
				else { push (@lines2,$_); }
				if ($mytime =~ /^0/) { $ResNG="この記事には返信出来ません"; }
				if ($mytime =~ /^9/) { $ResNG="未認証の記事には返信出来ません"; }
				if ($mytime =~ /^8/) { $ResNG="閲覧専用です"; }
			}
		}
		close(IN);

		# エラー判定
		if ($f) { &error("不正な表\示要求です"); }

		# 新しいレスから表示する場合
		if ($meslast == 2) {
			if ($oya) { push (@lines2,$oya); }
			@lines2 = reverse(@lines2);
		}

		# 該当記事の数
		$res = @lines2;
		if (!$res) { &error("該当の記事がありません"); }

		# レス数限定
		if ($resMax && $res-1 >= $resMax && !$ResNG) { $ResNG="返信終了です"; }

		# 最新のレスを表示する場合
		if ($meslast == 1 && $page eq "") {
			$page_less = 1;

			# 初期表示レス番号取得
			if ($pageView == 1) { $start = $res - $pageView +1; }
			else { $start = $res - $pageView +2; }
			$end = $res;

			# 現在ページ取得（ページ送り用）
			$a = $res / $pageView;
			if ($a ne int($a)) { $a = int($a+1); }
			$a -= 1;
			$page = $a * $pageView;
		}

		foreach (@lines2) {
			$i++;
			if (($i < $start) && ($i ne 1 || !$page_less)) { next; }
			if ($i > $end) { next; }

			# レス番号を定義
			if ($meslast == 2) { # 最新のレスを表示する場合
				$tempresno = $res - $i + 1; # レス記事
			} else { $tempresno = $i - 1; } # 初めのレスから表示する場合

			# 記事の表示
			&KijiView($_,$tempresno);
		}

	# 一覧表示（ケータイ）
	} elsif  ($preview == 1) {
		local($r_flag,$rcount,%ViewCnt,$tempno,$tempdate,$tempname,
			$no,$re,$dat,$nam,$eml,$sub,$mytime,$newsign,$newsign_res);
		local($subC,$namC,$noC) = &color1;
		local(%colors) = &color2;

		# スレッド参照数取得
		if ((-e "$viewcntfile") && ($PreviewResi == 2 || $PreviewResi == 3)) { %ViewCnt = &ViewCountGet; }

		print "<hr>\n";
		$rcount=0;
		$r_flag=1;

		# 記事を展開
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		$top = <IN>;
		while (<IN>) {
			($no,$re,$dat,$nam,$eml,$sub,$mytime)=(split(/<>/))[0,1,2,3,4,5,12];
local($com)=(split(/<>/))[6]; # ←追加
			if (!$re) { $i++; }
			if ($i < $start) { next; }
			if ($i > $end) { last; }

			# 親記事の場合
			if (!$re) {
				# 一覧表示の後方の表示(レスの数等)
				if (!$r_flag) {
					&PrePlus1($rcount,$tempname,$tempdate,$ViewCnt{$tempno},$newsign,$newsign_res);
					if ($miruPass) { print "</form>\n<hr>\n"; } # 閲覧者限定時
###					else { print "<br>\n"; }
					else { print "<hr>\n"; }
					$newsign = "";
					$newsign_res = "";
					$r_flag++;
				}

				# 疑似削除した記事の処理
				if ($mytime =~ /^0/) { &dude; }

				# 管理人未認証の記事
				if ($mytime =~ /^9/) { &chkMae; }

				# 全角→半角変換
				if ($telHalf) {
					$sub = &tel_half($sub);
					$nam = &tel_half($nam);
				}

				# 絵文字処理 <e-PAD>
				# 長さ調整
				$sub = &emoji_length($sub,2,'tel',$sub_leni_pre);
				$nam = &emoji_length($nam,2,'tel',$nam_leni_pre);
$com = &emoji_length($com,2,'tel',5); # ←追加
				# メールアドレスを変換
				if ($eml) { $nam = &eml_henkan($eml,$nam,$no); }

#				# 時間変換
#				&time_change;

				# タイトルを【と】で囲む
				$sub = "【$sub】";

				# 管理メッセージ
				if ($mytime =~ /AD$/) {
					if (!$re || $sortnew == 1) { print "$KanriMessagei"; }
#					$mytime =~ s/AD$//;
				}

				# 記事を表示
				if ($miruPass) { # 閲覧者限定時
					print "$utnform1";
					if ($multi_form) { print "$multi_form"; }
					print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">";
					print "<input type=\"hidden\" name=\"mode\" value=\"msgview\">";
					print "<input type=\"hidden\" name=\"no\" value=\"$no\">";
					if ($page) { print "<input type=\"hidden\" name=\"page2\" value=\"$page\">"; }
					print "<input type=\"submit\" value=\"$no\">";
###					print "$subC$sub$colors{'subC'} $namC$nam$colors{'namC'}";
					print "$subC$sub$colors{'subC'} $namC$nam$colors{'namC'} $com"; # ←修正
				} else {
###					print "[$noC<a href=\"$script?${multi_link}mode=msgview&amp;no=$no&amp;page2=$page\"$DCMUtn>$no</a>$colors{'noC'}]$subC$sub$colors{'subC'} $namC$nam$colors{'namC'}";
###					print "[$noC<a href=\"$script?${multi_link}mode=msgview&amp;no=$no&amp;page2=$page\"$DCMUtn>$no</a>$colors{'noC'}]$subC$sub$colors{'subC'} $namC$nam$colors{'namC'} $com"; # ←修正
					# ↓ここから修正
					print <<EOM;
$subC$sub$colors{'subC'}<br>
Name:$namC$nam$colors{'namC'}<br>
No.$no $dat<br>
$com<br>
EOM
					# ↑ここまで修正
				}
				$rcount=0;
				$r_flag=0;

				# NEWマークの計算
				if ($newViewi || $newViewi2) { $newsign = &get_newsign($mytime); }

				# 参照数表示用
###				if ($PreviewResi == 2 || $PreviewResi == 3) { $tempno = $no; }
				$tempno = $no; # ← 修正
			# レス記事の場合
			} else {
				$rcount++;
				# NEWマークの計算
				if ($newViewResi || $newViewResi2) { $newsign_res = &get_newsign($mytime,'res'); }
				# 最終返信表示用
				if ($PreviewResi == 1 || $PreviewResi == 3) {
					$tempdate = $dat; $tempname = $nam;
				}
			}
		}
		close(IN);

		# 一番最後の記事の後方の表示(レスの数等)
		if (!$r_flag) {
			&PrePlus1($rcount,$tempname,$tempdate,$ViewCnt{$tempno},$newsign,$newsign_res);
			if ($miruPass) { print "</form>\n"; } # 閲覧者限定時
			else { print "<br>\n"; }
		}

	# 標準表示（ケータイ）
	} else {

		# 記事を展開
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		$top = <IN>;
		while (<IN>) {
			($re) = (split(/<>/))[1];

			if (!$re) { $i++; }
			if ($i < $start) { next; }
			if ($i > $end) { last; }

			# 記事の表示
			&KijiView($_);
		}
		close(IN);

	}

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

	if ($back >= 0 || $next < $i) {
		if ($msgview == 1){ print"<hr size=\"1\">\n"; }
		else { print"<hr>\n"; }
	}

	print "<center>\n";

	# ページ内リンク用
	if ($pageLink1) { print "<a name=\"down\"></a>\n"; }

	# ページ送り
	# メッセージ表示
	if ($msgview == 1){
		if ($back >= 0 || $next < $i) {
			print "ページ<br>\n";
			$x=1;
			$y=0;
			while ($i > 0) {
				if ($page == $y) { print "[$x]\n"; }
				elsif ($miruPass) { # 閲覧者限定時
					print "$utnform1\n";
					if ($multi_form) { print "$multi_form\n"; }
					print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="msgview">
<input type="hidden" name="no" value="$in{'no'}">
<input type="hidden" name="page" value="$y">
<input type="hidden" name="page2" value="$in{'page2'}">
<input type="submit" value="$x">
</form>
EOM
				} else { print " <a href=\"$script?${multi_link}mode=msgview&amp;no=$in{'no'}&amp;page=$y&amp;page2=$in{'page2'}\"$DCMUtn>$x</a>\n"; }
				$x++;
				$y = $y + $pageView;
				$i = $i - $pageView;
			}
		}

		print "<hr>";
#		if ($ResNG eq "返信終了です" && $miruPass) { # 閲覧者限定時
#			print "$utnform1\n";
#			if ($multi_form) { print "$multi_form\n"; }
#			print <<EOM;
#<input type="hidden" name="mPass" value="$in{'mPass'}">
#<input type="hidden" name="mode" value="imode">
#<input type="hidden" name="resno" value="$in{'no'}">
#<input type="hidden" name="mode2" value="preview">
#<input type="hidden" name="page2" value="$in{'page2'}">
#<input type="submit" value="$ResNG">
#</form>
#EOM
#		} elsif ($ResNG eq "返信終了です") {
#			print "[<a href=\"$script?${multi_link}mode=imode&amp;resno=$in{'no'}&amp;mode2=preview&amp;page2=$in{'page2'}\"$DCMUtn>$ResNG</a>]<br>";
#		} els

		if ($ResNG) { print "[$ResNG]<br>"; }
		elsif ($miruPass) { # 閲覧者限定時
			print "$utnform1\n";
			if ($multi_form) { print "$multi_form\n"; }
			print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="imode">
<input type="hidden" name="resno" value="$in{'no'}">
<input type="hidden" name="mode2" value="preview">
<input type="hidden" name="page2" value="$in{'page2'}">
<input type="submit" value="返信">
</form>
EOM
		} else {
			print "[<a href=\"$script?${multi_link}mode=imode&amp;resno=$in{'no'}&amp;mode2=preview&amp;page2=$in{'page2'}\"$DCMUtn>返信</a>]<br>";
		}
		# 一覧の1ページ以外のmsgviewの場合、該当の一覧ページへもリンク
		$prepage = ($in{'page2'}/$p_my_log)+1;
		if ($prepage > 1 && $miruPass) { # 閲覧者限定時
			print "$utnform1\n";
			if ($multi_form) { print "$multi_form\n"; }
			print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="preview">
<input type="hidden" name="page" value="$in{'page2'}">
<input type="submit" value="一覧の$prepageページへ">
</form>
EOM
			print "$utnform1\n";
			if ($multi_form) { print "$multi_form\n"; }
			print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="preview">
<input type="submit" value="一覧の先頭へ">
</form>
EOM
		} elsif ($prepage > 1) {
			print "[<a href=\"$script?${multi_link}mode=preview&amp;page=$in{'page2'}\"$DCMUtn>一覧の$prepageページへ</a>]<br>\n";
			print "[<a href=\"$script?${multi_link}mode=preview\"$DCMUtn>一覧の先頭へ</a>]<br>\n";
		} elsif ($miruPass) { # 閲覧者限定時
			print "$utnform1\n";
			if ($multi_form) { print "$multi_form\n"; }
			print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="preview">
<input type="submit" value="一覧へ戻る">
</form>
EOM
		} else {
			print "[<a href=\"$script?${multi_link}mode=preview\"$DCMUtn>一覧へ戻る</a>]<br>\n";
		}

	} else {
		# 順に新着表示、一覧表示、その他
		if ($back >= 0) {
			if ($miruPass) { # 閲覧者限定時
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
				if ($sortnew == 1) { print "<input type=\"hidden\" name=\"mode\" value=\"sortnew\">\n"; }
				elsif ($preview == 1) { print "<input type=\"hidden\" name=\"mode\" value=\"preview\">\n"; }
				print <<EOM;
<input type="hidden" name="page" value="$back">
<input type="submit" value="前の$pageView件">
</form>
EOM
			} elsif ($sortnew == 1) {
				print "[<a href=\"$script?${multi_link}mode=sortnew&amp;page=$back\"$DCMUtn>前の$pageView件</a>]<br>\n";
			} elsif ($preview == 1) {
				print "[<a href=\"$script?${multi_link}mode=preview&amp;page=$back\"$DCMUtn>前の$pageView件</a>]<br>\n";
			} else {
				print "[<a href=\"$script?${multi_link}page=$back\"$DCMUtn>前の$pageView件</a>]<br>\n";
			}
		}
		if ($next < $i) {
			if ($miruPass) { # 閲覧者限定時
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
				if ($sortnew == 1) { print "<input type=\"hidden\" name=\"mode\" value=\"sortnew\">\n"; }
				elsif ($preview == 1) { print "<input type=\"hidden\" name=\"mode\" value=\"preview\">\n"; }
				print <<EOM;
<input type="hidden" name="page" value="$next">
<input type="submit" value="次の$pageView件">
</form>
EOM
			} elsif ($sortnew == 1){
				print "[<a href=\"$script?${multi_link}mode=sortnew&amp;page=$next\"$DCMUtn>次の$pageView件</a>]<br>\n";
			} elsif ($preview == 1){
				print "[<a href=\"$script?${multi_link}mode=preview&amp;page=$next\"$DCMUtn>次の$pageView件</a>]<br>\n";
			} else {
				print "[<a href=\"$script?${multi_link}page=$next\"$DCMUtn>次の$pageView件</a>]<br>\n";
			}
		}
	}

	# ページ上部へのリンク
	if ($pageLink2) { print "<a href=\"#up\">$pageLink2</a>\n"; }

	# 著作権表\示部 ---削除不可---
	if ($miruPass) { # 閲覧者限定時
		print "<hr><a href=\"$script?mode=jump&amp;url=http://www.kent-web.com/i/\">KENT</a> & MakiMaki<br>\n";
		print "携帯用改造：<a href=\"$script?mode=jump&amp;url=http://www.url-battle.com/i.html\">湯一路</a>\n";
		if (-e './resize.pl' && $upload == 1){ print "<br>- <a href=\"$script?mode=jump&amp;url=http://sugachan.dip.jp/download/\">resize</a> -\n"; }
		if ($upload == 1 && $iupload == 1) { print "<br>[<a href=\"$script?mode=jump&amp;url=http://www.web-liberty.net/\">Web Liberty</a>]\n"; }
		print "<br>Modified by <a href=\"$script?mode=jump&amp;url=http://vvv.ciao.jp/yy/i/index.html\">Tambo</a>\n";
	} else {
		print "<hr><a herf=\"http://www.kent-web.com/i/\">KENT</a> & MakiMaki<br>\n";
		print "携帯用改造：<a href=\"http://www.url-battle.com/i.html\">湯一路</a>\n";
		if (-e './resize.pl' && $upload == 1){ print "<br>- <a href=\"http://sugachan.dip.jp/download/\">resize</a> -\n"; }
		if ($upload == 1 && $iupload == 1) { print "<br>[<a href=\"http://www.web-liberty.net/\">Web Liberty</a>]\n"; }
		print "<br>Modified by <a href=\"http://vvv.ciao.jp/yy/i/index.html\">Tambo</a>\n";
	}

	print "<br>[<a href=\"$regist?${multi_link}mode=admin\"$DCMUtn>管理用</a>]\n";
	print "</center>\n</body>\n</html>\n";
	exit;
}

# 一覧表示の後方の表示
sub PrePlus1 {
	local($rcount,$nam,$dat,$ViewCnt,$newsign,$newsign_res)=@_;

	# 返信数
#	if ($rcount > 0) {
#		if ($PreviewResi == 2 || $PreviewResi == 3) { $rcount = "返:".$rcount; }

		# 最終返信表示
		if ($rcount && ($PreviewResi == 1 || $PreviewResi == 3)) {
			# 全角→半角変換
			if ($telHalf) {
				$nam = &tel_half($nam);
			}
			# 絵文字処理 <e-PAD>
			# 長さ調整
			$nam = &emoji_length($nam,2,'tel',$nam_leni_pre);
###			print " ($rcount/$nam)";
			print "<a href=\"$script?${multi_link}mode=msgview&amp;no=$tempno&amp;page2=$page\"$DCMUtn>[返信:$rcount件]</a>/$nam\n"; # ← 修正
		} else {
###			print " ($rcount)";
			print "<a href=\"$script?${multi_link}mode=msgview&amp;no=$tempno&amp;page2=$page\"$DCMUtn>[返信:$rcount件]</a>\n"; # ← 修正
		}
#	}

#	# 返信数
#	if ($rcount > 0) { print " ($rcount)"; }
#
#	# 最終返信表示
#	if ($rcount && ($PreviewResi == 1 || $PreviewResi == 3)) {
#		# 全角→半角変換
#		if ($telHalf) {
#			$nam = &tel_half($nam);
#		}
#		# 絵文字処理 <e-PAD>
#		# 長さ調整
#		$nam = &emoji_length($nam,2,'tel',$nam_leni_pre);
#		# 時間変換
#		&time_change;
#		print " [$nam:$dat]";
#	}

	# 参照数を表示
	if (($PreviewResi == 2 || $PreviewResi == 3) && $ViewCnt)
		{ print " [参:$ViewCnt]"; }

	# 新着マーク
	print "$newsign$newsign_res";
}

#-------------------------------------------------
#  記事表示 新着表示/親記事とレス記事一括表示/標準表示/一記事全文表示
#-------------------------------------------------
sub KijiView {
	local($kiji) = $_[0];
	local($i) = $_[1]; # レス番号
	local($no,$re,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col,$ico,$mytime,$chk,$tail,$vw,$vh) = split(/<>/,$kiji);
	local($ResNG) = 0;
	local($subC,$namC,$noC) = &color1;
	local($comC) = &color3($col);
	local(%colors) = &color2;
	local($no2,$newsign,$utnform1,$flag);
	local($flag2) = 0;

	# DoCoMo用formタグ
	if (($imode == 3 || $imode == 8) && $UtnOn == 3) {
		$utnform1 = "<form action=\"$script\" method=\"$method\" utn>";
	} else {
		$utnform1 = "<form action=\"$script\" method=\"$method\">";
	}

	# 疑似削除した記事の処理
	if ($mytime =~ /^0/) { &dude; $ResNG=1; }

	# 管理人未認証の記事
	if ($mytime =~ /^9/) { &chkMae; $ResNG=1; }

	# 返信禁止の記事
	if ($mytime =~ /^8/) { $ResNG=1; }

	# 全角→半角変換
	if ($telHalf) {
		$sub = &tel_half($sub);
		$nam = &tel_half($nam);
		$com = &tel_half($com);
	}

	# 一記事全文表示
	if ($mode eq "allno") {
		# 絵文字処理 <e-PAD>
		if ($epad_use) {
			$sub = &emoji_henkan_tel($sub);
			$nam = &emoji_henkan_tel($nam);
			$com = &emoji_henkan_tel($com);
		}

	} else {
		# 表示文字数制限 コメント
		if ($com_len && length($com) > $com_len*2) {
			$com = &com_seigen($com);
			if ($miruPass) { $flag2 = 1; }
		} elsif ($epad_use) {
			# 絵文字変換 <e-PAD>
			$com = &emoji_henkan_tel($com);
		}

		# 絵文字処理 <e-PAD>
		# 長さ調整
		$sub = &emoji_length($sub,2,'tel',$sub_leni);
		$nam = &emoji_length($nam,2,'tel',$nam_leni);
	}

	# 引用部文字色変更
	if ($refTel) { $com = &com_ref($com); }

	# メールアドレスを変換
	if ($eml) { $nam = &eml_henkan($eml,$nam,$no); }

	# 時間変換
	&time_change;

	# 文字色の設定
	if ($subC) { $sub = $subC . "【" . $sub . "】" . $colors{'subC'}; }
	else { $sub = "【" . $sub . "】"; }
	if ($namC) { $nam = $namC . $nam . $colors{'namC'}; }
	if ($noC) { $no2 = $noC . "[" . $no . "]" . $colors{'noC'}; }
	else { $no2 = "[" . $no . "]"; }
	if ($comC) { $com = $comC . $com . $colors{'comC'}; }

	# NEWマークの計算
	if ($newViewi || $newViewi2) { $newsign = &get_newsign($mytime); }
	else { $newsign = ""; }

	# 記事番号へのリンク
	if (!$miruPass) { # 閲覧者限定時は無効
		$com =~ s/(No\.(\d+))/<a href="$script?${multi_link}mode=allno&amp;no=$2">$1<\/a>/g;
	}

	# オートリンクをjump経由にする
	if ($miruPass) { $com = &jump_link($com); }

	# 一記事全文表示/新着順表示（ケータイ）
	if ($mode eq "allno" || $sortnew == 1) { print "<hr>"; }
	# 親記事とレス記事一括表示/標準表示（ケータイ）
	else {
		if (!$re) { print "<hr size=\"2\">"; }
		else { print "<hr size=\"1\">"; }
	}

	# 管理メッセージ
	if ($mytime =~ /AD$/) {
		if (!$re || $sortnew == 1) { print "$KanriMessagei<br>\n"; }
#		$mytime =~ s/AD$//;
	}

	$flag=0;
	# 一記事全文表示
	if ($mode eq "allno") {
		print "$no2$sub<br>\n";
		# 親記事の場合
		if (!$re) {
			print "TO:$nam<br>$dat$newsign<br>\n";
			if ($miruPass) { # 閲覧者限定時
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="msgview">
<input type="hidden" name="no" value="$no">
<input type="submit" value="ｽﾚｯﾄﾞ">
</form>
EOM
			} else {
				print "[<a href=\"$script?${multi_link}mode=msgview&amp;no=$no\"$DCMUtn>ｽﾚｯﾄﾞ</a>]<br>\n";
			}
			if ($ResNG) { print "[返信不可]"; }
			elsif ($miruPass) { # 閲覧者限定時
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="imode">
<input type="hidden" name="resno" value="$no">
<input type="submit" value="返信">
EOM
				$flag=1;
			} else { print "[<a href=\"$script?${multi_link}mode=imode&amp;resno=$no\"$DCMUtn>返信</a>]"; }
		# レス記事の場合
		} else {
			print "→TO:$nam<br>$dat$newsign<br>\n";
			if ($miruPass) { # 閲覧者限定時
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="msgview">
<input type="hidden" name="no" value="$re">
<input type="submit" value="ｽﾚｯﾄﾞ">
</form>
EOM
			} else {
				print "[<a href=\"$script?${multi_link}mode=msgview&amp;no=$re\"$DCMUtn>ｽﾚｯﾄﾞ</a>]<br>\n";
			}
			if ($ResNG) { print "[返信不可]"; }
			elsif ($miruPass) { # 閲覧者限定時
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="imode">
<input type="hidden" name="resno" value="$re">
<input type="submit" value="返信">
EOM
				$flag=1;
			} else { print "[<a href=\"$script?${multi_link}mode=imode&amp;resno=$re\"$DCMUtn>返信</a>]"; }
		}
		print "[<a href=\"$regist?${multi_link}mode=ied&amp;no=$no\"$DCMUtn>修削</a>]";

	# 新着順表示（ケータイ）
	} elsif ($sortnew == 1) {
		print "$no2$sub<br>\n";
		if (!$re) {
			print "TO:$nam<br>$dat$newsign<br>\n";
			if ($ResNG) { print "[返信不可]"; }
			elsif ($miruPass) { # 閲覧者限定時
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="imode">
<input type="hidden" name="resno" value="$no">
<input type="hidden" name="mode2" value="sortnew">
<input type="submit" value="返信">
EOM
				$flag=1;
			} else { print "[<a href=\"$script?${multi_link}mode=imode&amp;resno=$no&amp;mode2=sortnew\"$DCMUtn>返信</a>]"; }
		} else {
			print "→TO:$nam<br>$dat$newsign<br>\n";
			if ($ResNG) { print "[返信不可]"; }
			elsif ($miruPass) { # 閲覧者限定時
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="imode">
<input type="hidden" name="resno" value="$re">
<input type="hidden" name="mode2" value="sortnew">
<input type="submit" value="返信">
EOM
				$flag=1;
			} else { print "[<a href=\"$script?${multi_link}mode=imode&amp;resno=$re&amp;mode2=sortnew\"$DCMUtn>返信</a>]"; }
		}
		print "[<a href=\"$regist?${multi_link}mode=ied&amp;no=$no&amp;mode2=sortnew&amp;page=$page\"$DCMUtn>修削</a>]";

	# 親記事とレス記事一括表示（ケータイ）
	} elsif ($msgview == 1) {
		if (!$re) {
			print "$no2$sub<br>\n";
			print "TO:$nam<br>$dat$newsign<br>\n";
			if ($ResNG) { print "[返信不可]"; }
			elsif ($miruPass) { # 閲覧者限定時
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="imode">
<input type="hidden" name="resno" value="$no">
<input type="hidden" name="mode2" value="preview">
<input type="hidden" name="page2" value="$in{'page2'}">
<input type="submit" value="返信">
EOM
				$flag=1;
			} else { print "[<a href=\"$script?${multi_link}mode=imode&amp;resno=$no&amp;mode2=preview&amp;page2=$in{'page2'}\"$DCMUtn>返信</a>]"; }
		} else {
			print "RES:$i $no2$sub<br>\n";
			print "→TO:$nam<br>$dat$newsign<br>\n";
		}
		print "[<a href=\"$regist?${multi_link}mode=ied&amp;no=$no&amp;mode2=preview&amp;page2=$in{'page2'}\"$DCMUtn>修削</a>]";

	# 標準表示（ケータイ）
	} else {
		print "$no2$sub<br>\n";
		if (!$re) {
			print "TO:$nam<br>$dat$newsign<br>\n";
			if ($ResNG) { print "[返信不可]"; }
			elsif ($miruPass) { # 閲覧者限定時
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="imode">
<input type="hidden" name="resno" value="$no">
<input type="hidden" name="page" value="$page">
<input type="submit" value="返信">
EOM
				$flag=1;
			} else { print "[<a href=\"$script?${multi_link}mode=imode&amp;resno=$no&amp;page=$page\"$DCMUtn>返信</a>]"; }
		} else {
			print "→TO:$nam<br>$dat$newsign<br>\n";
		}
		print "[<a href=\"$regist?${multi_link}mode=ied&amp;no=$no&amp;page=$page\"$DCMUtn>修削</a>]";
	}

	if ($telurl && $url && $miruPass) { # 閲覧者限定時
		print "[<a href=\"$script?mode=jump&amp;url=$url\">URL</a>]";
	} elsif ($telurl && $url) {
		print "[<a href=\"$url\">URL</a>]";
	}
	if ($flag) { print "</form>\n$com\n"; }
	else { print "<br>\n$com\n"; }

	# 添付ファイル処理
	if ($upload ==1 && $tail) {
		print "<br>";
		&FileOuti($no,$chk,$tail);
	}

	# ホスト名とUserAgentの表示
	if ($HosUaOuti && $hos) { &HosUaOuti($hos,$flag2); }

	# IDの表示
	if ($IDOut == 2 || $IDOut == 3) { &IDOut($hos,$flag2); }
}

#-------------------------------------------------
#  携帯電話からの書込み
#-------------------------------------------------
sub imode_write {
	local($top,$resub,$mysub,$sub_short,$reg_icon,$tempico,$tempcol,
		$work,$flag,$cnam,$ceml,$curl,$cpwd,$check,$temp,$res_all,
		$utnform1,$utnform2,$cked2,$comment);

	# 投稿記事訂正時
	if ($in{'sub'} eq "無題") { $in{'sub'} = ""; }

	# DoCoMo用formタグ
	if (($imode == 3 || $imode == 8) && $UtnOn >= 1) {
		$utnform1 = "<form action=\"$regist\" method=\"$method\" utn>";
	} else {
		$utnform1 = "<form action=\"$regist\" method=\"$method\">";
	}
	if (($imode == 3 || $imode == 8) && $UtnOn == 3) {
		$utnform2 = "<form action=\"$script\" method=\"$method\" utn>";
	} else {
		$utnform2 = "<form action=\"$script\" method=\"$method\">";
	}

	# ヘッダを出力
	&header;

	# 投稿パスワード確認
	if ($in{'wPass'}) {
		$check = &decrypt($in{'wPass'}, $writePass2);
		if ($check != 1) { $temp = 1; }
	}

	# 投稿者限定時
	if (($check != 1 && !$in{'resno'} && $writePass) || $check != 1 && ($in{'resno'} && $writePass == 2)) {

		if ($it_img) { print "<center><img src=\"$it_img\"></center>\n"; }
		elsif ($tColi) { print "<font color=\"$tColi\">$title</font><br>\n"; }
		else { print "$title<br>\n"; }
		print "<hr>\n";
		print "投稿にはパスワードが必要です\n";
		if ($temp) { print "<br><font color=\"red\">パスワードが違います</font>\n"; }

		print <<"EOM";
$utnform2
<input type="hidden" name="mode" value="imode">
EOM
		if ($multi_form) { print "$multi_form\n"; }
		if ($miruPass) { print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n"; } # 閲覧者限定時
		if ($in{'resno'}) { print "<input type=\"hidden\" name=\"resno\" value=\"$in{'resno'}\">\n"; }
		if ($in{'mode2'}) {  print "<input type=\"hidden\" name=\"mode2\" value=\"$in{'mode2'}\">\n"; }
		if ($in{'mode2'} eq "preview" && $in{'page2'}) { $page = $in{'page2'}; }
		if (!$topsort && $page) { print "<input type=\"hidden\" name=\"page\" value=\"$page\">\n"; }

		print <<"EOM";
<input type="password" name="wPass">
<input type="submit" value="認証">
</form>
EOM

		print "<hr><center>\n";
		&uemini_ilink;
		print "</center>\n</body>\n</html>";
		exit;
	}

	&uemini_ilink;
	print "<br>\n";

	# 返信の場合
	if ($in{'resno'}) {

		$work = "返信する";
		$flag=0;
		$res_all=0;

		# ログを読み込み
		open(IN,"$logfile") || &error("Open Error : ログファイル");
		$top = <IN>;
		while (<IN>) {
			local($no,$re,$sub,$mytime) = (split(/<>/))[0,1,5,12];

			# 親記事取得
			if ($in{'resno'} eq "$no" && !$re) {
				# 疑似削除した記事の処理
				if ($mytime =~ /^0/) { $flag=3; last; }

				# 管理人未認証の記事
				if ($mytime =~ /^9/) { $flag=4; last; }

				# 返信禁止の記事
				if ($mytime =~ /^8/) { $flag=5; last; }

				# flagを初期化
				$sub_short=0;

				if (length($sub) > 50) {
					$sub = &sj_substr($sub,0,50);
					$sub .= '..';
					$sub_short=1;
				}

				$resub = " value=\"Re: $sub\"";

				if ($epad_use) {
					# 絵文字が分断した場合の対策 <e-PAD>
					if ($sub_short) { $resub = &emoji_check($resub,2); }

					# 絵文字復元 <e-PAD>
					$resub = &emoji_fukugen_edt($resub);
				}

				# 下で表示するために追加
				$mysub = $sub;

				if ($epad_use) {
					# 絵文字が分断した場合の対策 <e-PAD>
					if ($sub_short) { $mysub = &emoji_check($mysub,2); }

					# 絵文字変換 <e-PAD>
					$mysub = &emoji_henkan_tel($mysub);
				}

				$flag=1;
				if (!$resMax) { last; }

			# 返信数制限時、レス数取得
			} elsif ($resMax && $in{'resno'} eq "$re") {
				$res_all++;
				if ($resMax && $res_all >= $resMax) {
					$flag=2; last;
				}
			}
		}
		close(IN);

		if (!$flag) { &error("不正な返信要求です"); }
		elsif ($flag == 2) { #&error("返信が規定数に達したため返信できません"); }
			print <<EOM;
[お知らせ]<br>
返信が規定数に達したため返信できません
EOM
			if ($miruPass) { # 閲覧者限定時
				print "$utnform2\n";
				if ($multi_form) { print "$multi_form\n"; }
				print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="imode">
<input type="hidden" name="mode2" value="$in{'mode2'}">
<input type="submit" value="新規投稿">
</form>
EOM
			} else {
				print "<br><a href=\"$script?${multi_link}mode=imode&amp;mode2=$in{'mode2'}\"$DCMUtn>新規投稿</a>";
			}
			print <<EOM;
してください
</body>
</html>
EOM
			exit;
		}
		elsif ($flag == 3) { &error("この記事には返信できません"); }
		elsif ($flag == 4) { &error("未認証の記事には返信できません"); }
		elsif ($flag == 5) { &error("このｽﾚｯﾄﾞは閲覧専用です"); }

	} else {
	# 新規投稿の場合
		$work = "投稿する";
	}

	# 投稿記事訂正時
	if ($in{'job'} eq "kakunin") {
		$work = "訂正する";
		# 絵文字復元 <e-PAD>
		if ($epad_use) {
			$in{'sub'} = &emoji_fukugen_edt($in{'sub'});
			$in{'name'} = &emoji_fukugen_edt($in{'name'});
			$in{'comment'} = &emoji_fukugen_edt($in{'comment'});
		}
		if ($in{'name'}) { $cnam = " value=\"$in{'name'}\""; }
		if ($in{'email'}) { $ceml = " value=\"$in{'email'}\""; }
		if ($in{'url'}) { $curl = " value=\"$in{'url'}\""; }
		if ($in{'pwd'}) { $cpwd = " value=\"$in{'pwd'}\""; }
		$resub = " value=\"$in{'sub'}\"";
		$ccookid = $in{'cookid'};
		$comment = $in{'comment'};
		$comment =~ s/<br>/\n/g;

	# クッキー取得（EZweb/AirH"PHONE）
	} elsif ($imode == 4 || $imode == 6) {
		($cnam,$ceml,$curl,$cpwd,$ccookid) = &get_cookie;
		if ($cnam) { $cnam = " value=\"$cnam\""; }
		if ($ceml) { $ceml = " value=\"$ceml\""; }
		if ($curl) { $curl = " value=\"$curl\""; }
		if ($cpwd) { $cpwd = " value=\"$cpwd\""; }
	}

	if (!$curl) { $curl = " value=\"http://\""; }

	# 文字色の設定
	$tempcol = &keitai_col("new");

	if ($check == 1) { print "-パスワードが認証されました-<br>\n"; }

	# メッセージを追加
	if ($in{'resno'}) {
		print "[$in{'resno'}]<br><center>【$mysub】<br>への返信\n";
	} else {
		print "<center>【新規投稿】\n";
	}

	print <<"EOM";
<br><font color="red">$imode_msg2<br>$epad_msg</font></center><br>
EOM
	if ($in{'job'} eq "kakunin") { print "【訂正した後「訂正する」を押してください】<br>\n"; }
	print <<"EOM";
$utnform1
<input type="hidden" name="mode" value="regist">
EOM
	if ($multi_form) { print "$multi_form\n"; }
	if ($miruPass) { print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n"; } # 閲覧者限定時
	if ($ccookid) { print "<input type=\"hidden\" name=\"ccookid\" value=\"$ccookid\">\n"; }
	local($a1,$a2) = &a1a2Get;
	print "<input type=\"hidden\" name=\"$a1\" value=\"$a2\">\n";
	print "<input type=\"hidden\" name=\"L76nI5Dm\" value=\"$a1\">\n";

	# アイコンモード
	if ($iconMode) {
		# アイコンの設定
		$tempico = &keitai_ico("new");
		print "<input type=\"hidden\" name=\"icon\" value=\"$tempico\">\n";
	}

	print <<"EOM";
<input type="hidden" name="color" value="$tempcol">
<input type="hidden" name="reno" value="$in{'resno'}">
おなまえ<br>
<input type="text" name="name" maxlength="50"$cnam>
EOM
	if ($trip == 1 && $miruPass) { print "(トリップ可)"; }
	elsif ($trip == 1) { print "(<a href=\"$script?${multi_link}mode=howto#trip\">トリップ可</a>)"; }
	print <<"EOM";
<br>
題名<br>
<input type="text" name="sub" maxlength="50"$resub><br>
EOM
if ($mailcheck > 0){
	print <<"EOM";
Ｅメール<br>
<input type="text" $input_alphabet name="email" maxlength="50"$ceml><br>
EOM
}
if ($mailcheck > 1){
	print <<"EOM";
ＵＲＬ<br>
<input type="text" $input_alphabet name="url"$curl><br>
EOM

}
	print <<"EOM";
暗証キー<br>
<input type="password" name="pwd" maxlength="8"$cpwd><br>
コメント<br>
<textarea name="comment">$comment</textarea><br>
EOM

	if ($in{'resno'} && $usertop) {
		local(@usertop) = ('管理人の設定','移動しない','トップへ移動');
		local($usertop2) = $usertop;
		$usertop2 -= 1;
		print "記事移動<br>\n";
		print "<select name=\"usertop\">\n";
		foreach(0 .. 2) {
			if ($usertop2 eq $_) {
				print "<option value=\"$_\" selected>$usertop[$_]\n";
			} else {
				print "<option value=\"$_\">$usertop[$_]\n";
			}
		}
		print "</select><br>\n";
	}

	if ($in{'mode2'}) {  print "<input type=\"hidden\" name=\"mode2\" value=\"$in{'mode2'}\">\n"; }
	if ($in{'mode2'} eq "preview" && $in{'page2'}) { $page = $in{'page2'}; }
	if (!$topsort && $page) { print "<input type=\"hidden\" name=\"page\" value=\"$page\">\n"; }
	if ($in{'wPass'}) { print "<input type=\"hidden\" name=\"wPass\" value=\"$in{'wPass'}\">\n"; }

	# 携帯からのファイル投稿
	if (($upload == 1 && $iupload == 1) && (!$in{'resno'} || $res_clip == 1)) {
		if ($in{'ifile'} eq "on") { $cked3=" checked"; } else { $cked3=""; }
		print "<input type=\"checkbox\" name=\"ifile\" value=\"on\"$cked3>添付ファイルを投稿する<br>\n";
	}

	# 投稿記事訂正時
	if ($in{'job'} eq "kakunin") { $cked2=" checked"; } else { $cked2=""; }

	print <<"EOM";
<input type="checkbox" name="pview" value="on"$cked2>投稿を確認する<br>
<input type="submit" value="$work"><br>
<INPUT TYPE="reset" VALUE="リセット">
</form>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  留意事項 〜表示部〜
#-------------------------------------------------
sub howto_view {
	local($past_msg,$past_msg2,$epad_msg)=@_;
	&tag_on($newViewi,$newViewi2,$newViewResi,$newViewResi2);

	&header;
	&uemini_ilink;
	print <<"EOM";
<center>【掲示板の使い方】</center><br>
･投稿内容には、ﾀｸﾞは一切使用できません<br>
･$epad_msg<br>
EOM
	if ($writePass == 2) {
	print <<"EOM";
･投稿には投稿用ﾊﾟｽﾜｰﾄﾞが必要です<br>
EOM
	} elsif ($writePass == 1) {
	print <<"EOM";
･新規投稿には投稿用ﾊﾟｽﾜｰﾄﾞが必要です。返信には必要ありません<br>
EOM
	}
	print <<"EOM";
･記事を投稿する上での必須入力項目は｢おなまえ｣と｢ﾒｯｾｰｼﾞ｣です。その他は任意です<br>
EOM
	if ($trip == 1) {
	print <<"EOM";
<a name="trip"></a>･なりすましを防ぐトリップ機能\が有効です。お名前を｢お名前#任意の文字列｣(#は半角)として投稿すると、｢お名前 ◆暗号化された文字列｣と表\示されます<br>
EOM
	}
	print <<"EOM";
･投稿には、半角ｶﾅは一切使用しないで下さい。文字化けの原因となります<br>
EOM
	if ($upload == 1 && $iupload == 1) {
	print <<"EOM";
･携帯でﾌｧｲﾙを投稿するには、記事投稿後、ﾒｯｾｰｼﾞに従ってﾒｰﾙに添付して送ります<br>
EOM
	} elsif ($upload == 1) {
	print <<"EOM";
･携帯では投稿の際にﾌｧｲﾙを添付することは出来ません<br>
EOM
	}
	if ($telHalf == 1 || $telHalf == 3) {
	print <<"EOM";
･全角のｶﾀｶﾅ、英数字及び一部の記号を半角に変換して表\示します<br>
EOM
	}
	if ($telHalf == 2 || $telHalf == 3) {
	print <<"EOM";
･2行以上改行のみの行が続く時、1行の改行に変換して表\示します<br>
EOM
	}
	if ($PreviewResi == 1 || $PreviewResi == 3) {
	print <<"EOM";
･一覧表\示の(数字/名前)は、返信数と最新返信者を示します<br>
EOM
	} else {
	print <<"EOM";
･一覧表\示の(数字)は、返信数を示します<br>
EOM
}
	if ($PreviewResi == 2 || $PreviewResi == 3) {
	print <<"EOM";
･一覧表\示後方の[数字]は、そのスレッドの参照数を示します<br>
EOM
	}
	if ($newViewi && $newViewi2) {
	print <<"EOM";
･$new_time時間以内の投稿には$newViewiを、$new_time2時間以内には$newViewi2を表\示します<br>
EOM
	} elsif ($newViewi) {
	print <<"EOM";
･$new_time時間以内の投稿には$newViewiを表\示します<br>
EOM
	}
	if ($newViewResi && $newViewResi2) {
	print <<"EOM";
･一覧表\示では$new_time時間以内の返信には$newViewResiを、$new_time2時間以内には$newViewResi2を表\示します<br>
EOM
	} elsif ($newViewResi) {
	print <<"EOM";
･一覧表\示では$new_time時間以内の記事は$newViewResiを表\示します<br>
EOM
	}
	print <<"EOM";
･｢新規投稿｣をｸﾘｯｸすると新規投稿用のﾌｫｰﾑが現れます<br>
･記事の投稿時に｢ﾊﾟｽﾜｰﾄﾞ｣にﾊﾟｽﾜｰﾄﾞ(英数字で8文字以内)を入れておくと、その記事はﾊﾟｽﾜｰﾄﾞによって修正･削除することができます<br>
･表\示方法には標準、一覧、新着の三通りあります。標準は従来通り、一覧は親記事の一覧とﾚｽの数を、新着は新しい投稿から順に表\示します。ただし、管理者の設定によって標準､新着表\示がされない場合があります<br>
･一覧表\示の場合には記事番号をｸﾘｯｸすると、親記事、ﾚｽ記事の全体を表\示します<br>
･既存の記事に｢返信｣することができます。[返信]をｸﾘｯｸすると返信用ﾌｫｰﾑが現れます<br>
EOM
	if ($resMax) {
	print <<"EOM";
･ひとつの親記事に対する返信は最大$resMax件です。さらに話題が続く時は、別に新規投稿してそちらに返信して頂くようにお願いします<br>
EOM
	}
	print <<"EOM";
･投稿した記事を｢修正｣または｢削除｣することができます。[修削]をｸﾘｯｸして該当の欄に暗証ｷｰを入力して操作します<br>
･記事の保持件数は最大$max件です。それを超えると古い順に自動的に削除され$past_msgます。$past_msg2<br>
EOM
	print <<"EOM";
･管理者が不適切と判断する記事や他人を誹謗中傷する記事は予\告なく削除することがあります<br>
EOM
	&uemini_ilink;
	print "</body>\n</html>\n";
}

#-------------------------------------------------
#  投稿ファイル一覧
#-------------------------------------------------
sub pic {
	local($i,$j,$wh,$link,$flag,$top,$start,$end,$next,$back,$utnform1,
		$no,$re,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col,$ico,$mytime,
		$chk,$tail,$vw,$vh);
	# DoCoMo用formタグ
	if (($imode == 3 || $imode == 8) && $UtnOn == 3) {
		$utnform1 = "<form action=\"$script\" method=\"$method\" utn>";
	} else {
		$utnform1 = "<form action=\"$script\" method=\"$method\">";
	}

	&header;
	&uemini_ilink;
	print "<center>【投稿ﾌｧｲﾙ一覧】<br>";

	if (!$upload) { &error('ファイル添付機能\は無効です'); }

	if ($miruPass) { # 閲覧者限定時
		print "</center>\n";
	} elsif ($in{'job'} eq 'view') { # 単独表示
		print "<a href=\"$script?${multi_link}mode=pic\">一覧</a>/単独</center><br>\n";
	} else { # 一覧表示
		print "一覧/<a href=\"$script?${multi_link}mode=pic&amp;job=view\">単独</a></center><br>\n";
	} 

	# ページ区切り処理
	if ($in{'job'} eq 'view') { $pageView = 1; }
	else { $pageView = 10; }
	$start = $page + 1;
	$end   = $page + $pageView;
	$i=0;
	$flag=0;
	$flag2=0;

	open(IN,"$logfile") || &error("Open Error : ログファイル");
		@logdata = <IN>;
	close(IN);
	$top = shift(@logdata);

	# 投稿Noでソート
	if ($newok == 1) {
		@tmp = map {(split /,/)[0]} @logdata;
		@logdata = @logdata[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];
	}
	foreach (@logdata) {
		($no,$re,$dat,$nam,$eml,$sub,$com,$url,$hos,
			$pw,$col,$ico,$mytime,$chk,$tail,$vw,$vh) = split(/<>/);

		# 疑似削除した記事の処理
		if ($mytime =~ /^0/) { &dude; }

		# 管理人未認証の記事
		if ($mytime =~ /^9/) { &chkMae; }

		# 添付ファイルが存在する場合
		if ($tail) {
			$i++;
			if ($i < $start) { next; }
			if ($i > $end) { last; }

			# 記事へのリンク
			if ($miruPass && $in{'job'} ne 'view') {
				if ($flag2 == 1) { print "<hr>"; }
				print "$utnform1\n";
				if ($multi_form) { print "$multi_form\n"; }
				print <<"EOM";
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="allno">
<input type="hidden" name="no" value="$no">
<input type="submit" value="$no">
EOM
			} elsif (!$miruPass) {
				print "[<a href=\"$script?${multi_link}mode=allno&amp;no=$no\"$DCMUtn>No.$no</a>]";
			}

			# 単独表示
			if ($in{'job'} eq 'view') {
				# 記事へのリンク
				print "<br>\n<center>\n";
				if ($tail eq ".gif" || $tail eq ".jpg" || $tail eq ".png") {
					if ($ImageCheck && $chk != 1) {
						print "<img src=\"$imgurl$IconSoon\"><br>$link\n";
					} else {
						if (-e "${updir}s$no.jpg"){
							print "<a href=\"$upurl$no$tail\"><img src=\"${upurl}s$no.jpg\"></a>\n";
						} else {
							print "<a href=\"$upurl$no$tail\"><img src=\"$upurl$no$tail\"></a>\n";
						}
					}
				} else {
					print "<a href=\"$upurl$no$tail\"><img src=\"$imgurl$IconClip\"></a><br>$no$tail\n";
				}
				if ($miruPass) {
					print "$utnform1\n";
					if ($multi_form) { print "$multi_form\n"; }
					print <<"EOM";
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="allno">
<input type="hidden" name="no" value="$no">
<input type="submit" value="$no">
</form>
EOM
				}
				print "</center>\n";
			# 一覧表示
			} else {
				# 添付ファイル処理
				&FileOuti($no,$chk,$tail,'2');
				if ($miruPass) { print "</form>\n"; $flag2=1; }
			}
			if (!$miruPass) { print "<br>\n"; }
		}
	}

	if (!$i) {
		print "登録されたﾌｧｲﾙはありません<br>\n";
	}

	# ページ送り
	print"<hr>\n";
	$next = $page + $pageView;
	$back = $page - $pageView;
	print "<center>\n";
	if ($back >= 0 && $miruPass) { # 閲覧者限定時
		print "$utnform1\n";
		if ($multi_form) { print "$multi_form\n"; }
		if ($in{'job'} eq 'view') { print "<input type=\"hidden\" name=\"job\" value=\"view\">\n"; }
		print <<"EOM";
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="pic">
<input type="hidden" name="page" value="$back">
EOM
		if ($in{'job'} eq 'view') { print "<input type=\"submit\" value=\"前\">\n"; }
		else { print "<input type=\"submit\" value=\"前の$pageView件\">\n"; }
		print "</form>\n";
		$flag=1;
	} elsif ($back >= 0 && $in{'job'} eq 'view') {
		print "[<a href=\"$script?${multi_link}mode=pic&amp;job=view&amp;page=$back\"$DCMUtn>前</a>]\n";
		$flag=1;
	} elsif ($back >= 0) {
		print "[<a href=\"$script?${multi_link}mode=pic&amp;page=$back\"$DCMUtn>前の$pageView件</a>]<br>\n";
		$flag=1;
	}
	if ($next < $i && $miruPass) { # 閲覧者限定時
		print "$utnform1\n";
		if ($multi_form) { print "$multi_form\n"; }
		if ($in{'job'} eq 'view') { print "<input type=\"hidden\" name=\"job\" value=\"view\">\n"; }
		print <<"EOM";
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="pic">
<input type="hidden" name="page" value="$next">
EOM
		if ($in{'job'} eq 'view') { print "<input type=\"submit\" value=\"次\">\n"; }
		else { print "<input type=\"submit\" value=\"次の$pageView件\">\n"; }
		print "</form>\n";
		$flag=1;
	} elsif ($next < $i && $in{'job'} eq 'view') {
		print "[<a href=\"$script?${multi_link}mode=pic&amp;job=view&amp;page=$next\"$DCMUtn>次</a>]\n";
		$flag=1;
	} elsif ($next < $i) {
		print "[<a href=\"$script?${multi_link}mode=pic&amp;page=$next\"$DCMUtn>次の$pageView件</a>]\n";
		$flag=1;
	}

	if ($miruPass) { # 閲覧者限定時
	if ($flag) { print"<hr>\n"; }
	print <<"EOM";
<form action="$script" method="$method">
EOM
	if ($multi_form) { print "$multi_form\n"; }
	print <<"EOM";
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="pic">
<input type="submit" value="ﾌｧｲﾙ一覧">
</form>
<form action="$script" method="$method">
EOM
	if ($multi_form) { print "$multi_form\n"; }
	print <<"EOM";
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="pic">
<input type="hidden" name="job" value="view">
<input type="submit" value="ﾌｧｲﾙ単独">
</form>
EOM
	}

	if ($miruPass || $flag) { print"<hr>\n"; } # 閲覧者限定時等
	&uemini_ilink;
	print "</center>\n</body>\n</html>\n";
	exit;
}

#-------------------------------------------------
#  投稿ランキング表示
#-------------------------------------------------
sub WriteCountView {
	local(%mark)=();
	local(%sort2)=();
	local(@log,@tmp,$n);
	local($i,$m)=('0','0');

	&header;
	&uemini_ilink;
	print "<center>【投稿ﾗﾝｷﾝｸﾞ】</center><br>";

	if (!$WriteCnt) { &error('投稿ランキング機能\は無効です'); }

	# ログを読み込み
	open(IN,"$writecntfile") || &error("Open Error: $writecntfile");
	@log = <IN>;
	close(IN);

	# ソート処理
	if ($in{'sort'} eq 'count' && $in{'sort2'} == 1) {
		@tmp = map {(split/<>/)[1]} @log;
		@log = @log[sort {$tmp[$a] <=> $tmp[$b]} 0 .. $#tmp];
		$mark{'count'} = "▲";
	} else {
		@tmp = map {(split/<>/)[1]} @log;
		@log = @log[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp];
		$mark{'count'} = "▼";
		$sort2{'count'} = 1;
	}

if ($miruPass) { # 閲覧者限定時
	print <<EOM;
<form action="$script" method="$method">$mark{'count'}
EOM
	if ($multi_form) { print "$multi_form\n"; }
	if ($sort2{'count'}) { print "<input type=\"hidden\" name=\"sort2\" value=\"$sort2{'count'}\">\n"; }
	print <<EOM;
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="mode" value="WCV">
<input type="hidden" name="sort" value="count">
<input type="submit" value="回数">
</form>
<hr>
EOM
} else {
	print <<EOM;
$mark{'count'}<a href="$script?${multi_link}mode=WCV&amp;sort=count&amp;sort2=$sort2{'count'}">回数</a></br>
EOM
}

	foreach (@log) {
		$i++;
		local($nam,$count,$chk) = (split(/<>/))[0,1,5];
		if ($chk != 1) {
			# 絵文字処理 <e-PAD>
			# 長さ調整
			$nam = &emoji_length($nam,3,'tel',$nam_leni);
	
			$n=$i-$m;
			print "[$n]$nam/$count回<br>\n";
		} else { $m++; }
	}

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

#-------------------------------------------------
#  拡張メニュー表示
#-------------------------------------------------
sub kakucho {
	local($utnform1,$utnform2);
	# DoCoMo用formタグ
	if (($imode == 3 || $imode == 8) && $UtnOn == 3) {
		$utnform1 = "<form action=\"$script\" method=\"$method\" utn>";
		$utnform2 = "<form action=\"$regist\" method=\"$method\" utn>";
	} else {
		$utnform1 = "<form action=\"$script\" method=\"$method\">";
		$utnform2 = "<form action=\"$regist\" method=\"$method\">";
	}

	&header;
	&uemini_ilink;
	print "<center>【拡張ﾒﾆｭｰ】</center>\n<hr>\n";

if ($miruPass) { # 閲覧者限定時
#	print "$utnform1\n";
#	if ($multi_form) { print "$multi_form\n"; }
#	print "<input type=\"hidden\" name=\"mode\" value=\"find\">\n";
#	print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
#	print "<input type=\"submit\" value=\"ﾜｰﾄﾞ検索\">\n";
#	print "</form>\n";
	if ($upload == 1) {
		print "$utnform1\n";
		if ($multi_form) { print "$multi_form\n"; }
		print "<input type=\"hidden\" name=\"mode\" value=\"pic\">\n";
		print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
		print "<input type=\"submit\" value=\"投稿ﾌｧｲﾙ\">\n";
		print "</form>\n";
	}
	if ($WriteCnt) {
		print "$utnform1\n";
		if ($multi_form) { print "$multi_form\n"; }
		print "<input type=\"hidden\" name=\"mode\" value=\"WCV\">\n";
		print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
		print "<input type=\"submit\" value=\"投稿ﾗﾝｷﾝｸﾞ\">\n";
		print "</form>\n";
	}
	if ($pastkey) {
		print "$utnform2\n";
		if ($multi_form) { print "$multi_form\n"; }
		print "<input type=\"hidden\" name=\"mode\" value=\"past\">\n";
		print "<input type=\"hidden\" name=\"mPass\" value=\"$in{'mPass'}\">\n";
		print "<input type=\"submit\" value=\"過去ﾛｸﾞ\">\n";
		print "</form>\n";
	}

} else {

	print "<a href=\"$script?${multi_link}mode=find\"$DCMUtn>ﾜｰﾄﾞ検索</a>\n";
	if ($upload) {
		print "<br><a href=\"$script?${multi_link}mode=pic\"$DCMUtn>投稿ﾌｧｲﾙ</a>\n";
	}
	if ($WriteCnt) {
		print "<br><a href=\"$script?${multi_link}mode=WCV\"$DCMUtn>投稿ﾗﾝｷﾝｸﾞ</a>\n";
	}
	if ($pastkey) {
		print "<br><a href=\"$regist?${multi_link}mode=past\"$DCMUtn>過去ﾛｸﾞ</a>\n";
	}
}

	print "<hr>\n<center>\n";
	&uemini_ilink;
	print "</center>\n</body>\n</html>\n";
	exit;
}

#-------------------------------------------------
#  ワード検索
#-------------------------------------------------
sub find {
	# 閲覧者限定時
	if ($miruPass) { &error("検索機能\は使用出来ません"); }

	&header;
	# ページ内リンク用
	if ($pageLink2) { print "<a name=\"up\"></a>\n"; }
	&uemini_ilink;
	# ページ下部へのリンク
	if ($pageLink1) { print "/<a href=\"#down\">$pageLink1</a>\n"; }
	print <<EOM;
<center>【ﾜｰﾄﾞ検索】</center>
<hr>
ｷｰﾜｰﾄﾞを入力し、条件・表\示を選択して検索ﾎﾞﾀﾝを押して下さい<br>
ｷｰﾜｰﾄﾞはｽﾍﾟｰｽで区切って複数指定できます<br>
<form action="$script" method="GET">
EOM
	if ($multi_form) { print "$multi_form\n"; }
	print <<EOM;
<input type="hidden" name="mode" value="find">
ｷｰﾜｰﾄﾞ<input type="text" name="word" value="$in{'word'}"><br>
条件<select name="cond">
EOM
	if (!$in{'cond'}) { $in{'cond'} = "AND"; }
	foreach ("AND", "OR") {
		if ($in{'cond'} eq $_) {
			print "<option value=\"$_\" selected>$_\n";
		} else {
			print "<option value=\"$_\">$_\n";
		}
	}
	if (!$in{'view'}) { $in{'view'} = 5; }
	print "</select><br>表\示<select name=\"view\">\n";
	foreach (1,3,5,10,15,20) {
		if ($in{'view'} == $_) {
			print "<option value=\"$_\" selected>$_件\n";
		} else {
			print "<option value=\"$_\">$_件\n";
		}
	}

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

	# 同じ条件で過去ログを検索
	if ($pastkey && $in{'word'}) {
		print <<EOM;
<form action="$regist" method="GET">
EOM
		if ($multi_form) { print "$multi_form\n"; }
		print <<EOM;
<input type="hidden" name="mode" value="past">
<input type="hidden" name="pas" value="find">
<input type="hidden" name="word" value="$in{'word'}">
<input type="hidden" name="cond" value="$in{'cond'}">
<input type="hidden" name="view" value="$in{'view'}">
同じ条件で過去ﾛｸﾞを検索<input type="submit" value="過去ﾛｸﾞ検索">
</form>
EOM
	}

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

		$enwd = &url_enc($in{'word'});
		if ($back >= 0) {
			print "<br>[<a href=\"$script?${multi_link}mode=find&page=$back&word=$enwd&view=$in{'view'}&cond=$in{'cond'}\">前の$in{'view'}件</a>]\n";
		}
		if ($next < $i) {
			print "<br>[<a href=\"$script?${multi_link}mode=find&page=$next&word=$enwd&view=$in{'view'}&cond=$in{'cond'}\">次の$in{'view'}件</a>]\n";
		}
	}
	# ページ内リンク用
	if ($pageLink1) { print "<a name=\"down\"></a>\n"; }
	# ページ上部へのリンク
	if ($pageLink2 && $i) { print "<br><a href=\"#up\">$pageLink2</a>\n"; }
	print "</center>\n</body></html>\n";
	exit;
}

#-------------------------------------------------
#  PCのみのサブルーチン
#-------------------------------------------------
sub ResOutput { &error("無効な機能\の呼び出しです"); }
sub ResOutput2 { &error("無効な機能\の呼び出しです"); }
sub shinki { &error("無効な機能\の呼び出しです"); }
sub resForm { &error("無効な機能\の呼び出しです"); }
sub ResOutputR { &error("無効な機能\の呼び出しです"); }
sub image { &error("無効な機能\の呼び出しです"); }
sub edtdel_form { &error("無効な機能\の呼び出しです"); }
sub chosakuken { &error("無効な機能\の呼び出しです"); }
sub title_msg { &error("無効な機能\の呼び出しです"); }
sub PrePlus2 { &error("無効な機能\の呼び出しです"); }
sub logView2 { &error("無効な機能\の呼び出しです"); }
sub filecom { &error("無効な機能\の呼び出しです"); }
sub KijiHenkan { &error("無効な機能\の呼び出しです"); }
sub threadIchiran { &error("無効な機能\の呼び出しです"); }


1;
__END__