# yyini_pc.pl 最終更新 2009/04/07

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

#-------------------------------------------------
#  投稿画面
#-------------------------------------------------
# $temp
# 1：親記事修正時
# 2：親記事新規投稿時
sub form {
	my ($nam,$eml,$url,$pwd,$ico,$col,$sub,$com,$work,$temp,$plval1,$plval2,$plval3,$plval4,$plval5,$resNG) = @_;
	# Ｅメール非表示・返信通知用
	my ($email,$email2,$email3) = split(/<:>/,$eml);
	# 選択肢・初期選択値
	if ($email2 eq '' && $in_email_chd ne '') { $email2 = $in_email_chd; }
	# リターン変数
	my $out;

	if(!$work) { $work = "投稿する"; }

	if ($url eq "") { $url = 'http://'; }
	my $pattern = 'https?\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\,]+';
	$com =~ s/<a href="$pattern" target="_blank">($pattern)<\/a>/$1/go;
	if ($com =~ /^<br>/) { $com = '<br>' . $com; }
	$com =~ s/<br>/\n/g;

	if ($miruPass) { # 閲覧者限定時
		$out .= qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|;
	}

	$out .= <<EOM;
<table border="0" cellspacing="1">
<tr>
  <td nowrap><b>お名前</b></td>
  <td><input type="text" name="name" size="28" value="$nam" class="f">
EOM
	if ($trip == 1 && $miruPass) { $out .= qq |（トリップ機能\あり）|; }
	elsif ($trip == 1) { $out .= qq |（<a href="$script?${multi_link}mode=howto#trip" target="_blank" title="「お名前#任意の文字列」（#は半角）">トリップ機能\あり</a>）|; }
	$out .= <<EOM;
  </td>
</tr>
EOM

	if ($in_email != 2 || $email) {
		$out .= <<EOM;
<tr>
  <td nowrap><b>Ｅメール</b></td>
  <td><input type="text" name="email" size="28" value="$email" class="f">
EOM

		# メールアドレス表示方法選択
		my (@in_email_nam,@in_email_val,@in_email_chk);
		if ($in_email_open ne '') {
			push(@in_email_nam,$in_email_open);
			push(@in_email_val,'3');
			if ($email2 == 3) { push(@in_email_chk,' selected'); }
			else { push(@in_email_chk,''); }
		}
		if ($in_email_non ne '') {
			push(@in_email_nam,$in_email_non);
			push(@in_email_val,'1');
			if ($email2 == 1) { push(@in_email_chk,' selected'); }
			else { push(@in_email_chk,''); }
		}
		if ($in_email_form ne '') {
			push(@in_email_nam,$in_email_form);
			push(@in_email_val,'2');
			if ($email2 == 2) { push(@in_email_chk,' selected'); }
			else { push(@in_email_chk,''); }
		}
		if (@in_email_nam >= 2) {
			if ($in_email_def ne '') { unshift(@in_email_nam,$in_email_def); }
			else { unshift(@in_email_nam,"既定方式で表\示"); }
			unshift(@in_email_val,'');
			unshift(@in_email_chk,'');
		}

		if (@in_email_nam >= 3) {
			$out .= qq |<select name="email2">\n|;
			foreach (0 .. $#in_email_nam) {
				$out .= qq |<option value="$in_email_val[$_]"$in_email_chk[$_]>$in_email_nam[$_]\n|;
			}
			$out .= qq |</select>\n|;
		} elsif (@in_email_nam == 1) {
			my $ckd = ' checked' if ($in_email_chk[0] eq ' selected');
			$out .= qq |（<input type="checkbox" name="email2" value="$in_email_val[0]"$ckd>$in_email_nam[0]）\n|;
		}
		$out .= <<EOM;
  </td>
</tr>
EOM
	}

	$out .= <<EOM;
<tr>
  <td nowrap><b>タイトル</b></td>
  <td nowrap>
    <input type="text" name="sub" size="36" value="$sub" class="f">
<input type="submit" value="$work"><input type="reset" value="リセット">
  </td>
</tr>
<tr>
  <td colspan="2">
    <b>メッセージ</b>
EOM

	if ($epad_use && $em_form) {
		$out .= <<EOM;
<script  type="text/javascript">
	<!--
	document.write("&nbsp;&nbsp;【絵文字入力&nbsp;&nbsp;<a href='javascript:iemoji()'>i-mode<\/a>&nbsp;&nbsp;");
	document.write("<a href='javascript:jemoji1()'>SBM<\/a>&nbsp;&nbsp;");
	document.write("<a href='javascript:eemoji1()'>EZweb<\/a>】");
	// -->
</script>
<noscript>
	&nbsp;&nbsp;【絵文字入力&nbsp;&nbsp;<a href="$ihtm" target="_blank">i-mode<\/a>&nbsp;
	<a href="$j1htm" target="_blank">SBM<\/a>&nbsp;
	<a href="$e1htm" target="_blank">EZweb<\/a>&nbsp;&nbsp;(要：JavaScript)】
</noscript>
EOM
	}
	if ($autolink) {
		my $cked1 = $in{'autolink'} == 1 ? ' checked' : '';
		$out .= qq |<input type="checkbox" name="autolink" value="1"$cked1>URLの自動リンク無効\n|;
	}

	$out .= <<EOM;
  </td>
</tr>
<tr>
  <td colspan="2">
    <textarea cols="60" rows="7" name="$com_name" wrap="soft" class="f">$com</textarea>
  </td>
</tr>
<tr>
  <td nowrap><b>ＵＲＬ</b></td>
  <td><input type="text" size="55" name="url" value="$url" class="f"></td>
</tr>
EOM

	# 添付フォーム
	if ($upload >= 1) {
		if (($hyoujichu && $mode ne 'allno') || ($mode eq 'shinki' && $in{'job'} ne 'kakunin')) {
			foreach (1 .. $upload) {
				my $ulno = $_ == 1 ? '' : $_;
				my $t;
				if ($_ == 1 && $upload == 1) { $t = ''; }
				elsif ( $_ == 1 &&$upload >= 2) { $t = 1; }
				else { $t = $_; }
				$out .= qq |<tr><td><b>添付File$t</b></td>\n|;
				$out .= qq |<td><input type="file" name="upfile$ulno" size="55" class="f"></td></tr>\n|;
			}
			$out .= qq |<tr><td colspan='2' align='right'>（$upok/$maxdata2まで）</td></tr>\n|;
		} elsif ($mode eq 'res' || $mode eq 'allno') {
			if ($res_clip) {
				foreach (1 .. $upload) {
					my $ulno = $_ == 1 ? '' : $_;
					my $t;
					if ($_ == 1 && $upload == 1) { $t = ''; }
					elsif ( $_ == 1 &&$upload >= 2) { $t = 1; }
					else { $t = $_; }
					$out .= qq |<tr><td><b>添付File$t</b></td>\n|;
					$out .= qq |<td><input type="file" name="upfile$ulno" size="55" class="f"></td></tr>\n|;
				}
				$out .= qq |<tr><td colspan='2' align='right'>（$upok/$maxdata2まで）</td></tr>\n|;
			} else {
				$out .= qq |<tr><td><b>添付File</b></td>\n|;
				$out .= qq |<td>（返信時はファイルを添付出来ません）</td></tr>\n|;
			}
		}
	}

	# アイコンモード
	if ($iconMode) {
		# アイコン配列取得
		my @ico1 = &geticon1; # アイコンファイル名
		my @ico2 = &geticon2; # アイコン名

		# ケータイ用アイコンを配列に付加
		if ($imode_icon && $ico eq $imode_gif) {
			push(@ico1,"$imode_gif");
			push(@ico2,"ケータイ");
		}

		$out .= qq |<tr><td nowrap><b>イメージ</b></td><td><select name="icon" class="f">\n|;
		foreach(0 .. $#ico1) {
			if ($ico eq $ico1[$_]) {
				$out .= qq |<option value="$_" selected>$ico2[$_]\n|;
			} else {
				$out .= qq |<option value="$_">$ico2[$_]\n|;
			}
		}
		$out .= qq |</select>&nbsp;&nbsp;\n|;

		# イメージ参照のリンク
		if ($ImageView == 1) {
			$out .= qq |[<a href="javascript:ImageUp()">イメージ参照</a>]|;
		} else {
			$out .= qq |[<a href="$script?${multi_link}mode=image" target="_blank">イメージ参照</a>]|;
		}
		if ($iconUp > 0 && $iconCheck < 2) {
			$out .= qq |&nbsp;&nbsp;[<a href="$script?${multi_link}mode=iconup">アイコン登録</a>]|;
		}
		$out .= qq |</td></tr>\n|;
	}

	if ($pwd ne "??") {
		if ($editNG != 1 || $deleNG != 1) {
			$out .= qq |<tr><td nowrap><b>暗証キー</b></td>|;
			$out .= qq |<td><input type="password" name="pwd" size="8" maxlength="8" value="$pwd" class="f">\n|;
			$out .= qq |(英数字で8文字以内)</td></tr>\n|;
		}

		# 投稿キー
		if ($regist_key >= 1) {
			require "${libDir}registkey2.cgi";
			my ($str_plain,$str_crypt,$regi_code) = &pcp_makekey;
			$out .= <<EOM;
<tr><td><b>投稿キー</b></td>
<td><input type="text" name="regikey" size="8" style="ime-mode:inactive" class="f" value="">
<input type="hidden" name="strcrypt" value="$str_crypt">
EOM
			if ($regist_key == 1 || $regist_key == 2) {
				$out .= qq |(投稿時 <img src="$registkeycgi?$str_crypt" align="absmiddle" alt="投稿キー"> を入力してください)</td></tr>|;
			} elsif ($regist_key > 2) {
				$out .= qq |(投稿時 <b style='color: $moji_col; background-color:$back_col;'>$regi_code</b></font> を入力してください)</td></tr>|;
			}
		}
	}

	# 色情報
	my @col = split(/\s+/, $color);

	# ケータイ用文字色が指定されていれば配列に付加
	if ($keitaiCol) {
		# $keitaiColが$colorに含まれるか確認
		my $tmp_flag = &nakami_check($color,$keitaiCol);

		# 含まれていない場合
		if (!$tmp_flag && $col eq $keitaiCol) {
			push(@col,"$keitaiCol");
		}
	}

	if ($col eq "") { $col = 0; }

	# 文字色が1つの場合は選択肢を表示しない
	if (@col == 1) {
		$out .= qq |<input type="hidden" name="color" value="0">\n|;
	} else {
		$out .= qq |<tr><td nowrap><b>文字色</b></td><td>\n|;
		foreach (0 .. $#col) {
			if ($col eq $col[$_] || $col eq $_) {
				$out .= qq |<input type="radio" name="color" value="$_" checked>|;
				$out .= qq |<font color="$col[$_]">■</font>\n|;
			} else {
				$out .= qq |<input type="radio" name="color" value="$_">|;
				$out .= qq |<font color="$col[$_]">■</font>\n|;
			}
		}
		$out .= qq |</td></tr>\n|;
	}

	# 追加項目
	foreach (1 .. 5) {
		my ($plusNam,$plusKei,$plusSen,@plusSen,$plusHen,$plusVal);
		if ($_ == 1) {
			if (!$plusKo1) { next; } # 機能無効
			elsif ($plusKo1Kei == 3 && $mode ne 'admin' && $mode ne 'edit') { next; } # 投稿ランキング
			else {
				$plusNam = $plusKo1Nam;
				$plusKei = $plusKo1Kei;
				$plusSen = $plusKo1Sen;
				@plusSen = split(/\s+/, $plusSen);
				$plusHen = 'plnam1';
				$plusVal = $plval1;
			}
		} elsif ($_ == 2) {
			if (!$plusKo2) { next; } # 機能無効
			elsif ($plusKo2Kei == 3 && $mode ne 'admin' && $mode ne 'edit') { next; } # 投稿ランキング
			else {
				$plusNam = $plusKo2Nam;
				$plusKei = $plusKo2Kei;
				$plusSen = $plusKo2Sen;
				@plusSen = split(/\s+/, $plusSen);
				$plusHen = 'plnam2';
				$plusVal = $plval2;
			}
		} elsif ($_ == 3) {
			if (!$plusKo3) { next; } # 機能無効
			elsif ($plusKo3Kei == 3 && $mode ne 'admin' && $mode ne 'edit') { next; } # 投稿ランキング
			else {
				$plusNam = $plusKo3Nam;
				$plusKei = $plusKo3Kei;
				$plusSen = $plusKo3Sen;
				@plusSen = split(/\s+/, $plusSen);
				$plusHen = 'plnam3';
				$plusVal = $plval3;
			}
		} elsif ($_ == 4) {
			if (!$plusKo4) { next; } # 機能無効
			elsif ($plusKo4Kei == 3 && $mode ne 'admin' && $mode ne 'edit') { next; } # 投稿ランキング
			else {
				$plusNam = $plusKo4Nam;
				$plusKei = $plusKo4Kei;
				$plusSen = $plusKo4Sen;
				@plusSen = split(/\s+/, $plusSen);
				$plusHen = 'plnam4';
				$plusVal = $plval4;
			}
		} elsif ($_ == 5) {
			if (!$plusKo5) { next; } # 機能無効
			elsif ($plusKo5Kei == 3 && $mode ne 'admin' && $mode ne 'edit') { next; } # 投稿ランキング
			else {
				$plusNam = $plusKo5Nam;
				$plusKei = $plusKo5Kei;
				$plusSen = $plusKo5Sen;
				@plusSen = split(/\s+/, $plusSen);
				$plusHen = 'plnam5';
				$plusVal = $plval5;
			}
		}

		$out .= qq |<tr><td nowrap><b>$plusNam</b></td><td>\n|;
		# ラジオボタン型
		if ($plusKei == 1) {
#			if ($plusVal eq '') { $plusVal = $plusSen[0]; }
			foreach (0 .. $#plusSen) {
				if ($plusVal eq $plusSen[$_]) {
					$out .= qq |<input type="radio" name="$plusHen" value="$plusSen[$_]" checked>$plusSen[$_]&nbsp;\n|;
				} else {
					$out .= qq |<input type="radio" name="$plusHen" value="$plusSen[$_]">$plusSen[$_]&nbsp;\n|;
				}
			}
		# メニュー型
		} elsif ($plusKei == 2) {
#			if ($plusVal eq '') { $plusVal = $plusSen[0]; }
			$out .= qq |<select name="$plusHen" class="f">\n|;
			foreach (0 .. $#plusSen) {
				if ($plusVal eq $plusSen[$_]) {
					$out .= qq |<option value="$plusSen[$_]" selected>$plusSen[$_]\n|;
				} else {
					$out .= qq |<option value="$plusSen[$_]">$plusSen[$_]\n|;
				}
			}
			$out .= qq |</select> &nbsp;\n|;
		# 投稿ランキング（管理者修正モード）
		} elsif ($plusKei == 3 && $mode eq 'admin') {
			$out .= qq |<input type="text" size="10" name="$plusHen" value="$plusVal" class="f">&nbsp;（半角数字）\n|;
		# 投稿ランキング（投稿者修正モード）
		} elsif ($plusKei == 3 && $mode eq 'edit') {
			$out .= qq |：&nbsp;$plusVal\n|;
		# テキスト型
		} else {
			$out .= qq |<input type="text" size="55" name="$plusHen" value="$plusVal" class="f">\n|;
		}
		$out .= qq |</td></tr>\n|;
	}

	if ($usertop && ($mode eq 'res' || $in{'reno'}) || $mode eq 'allno') {
		local($usertop2) = $usertop;
		$usertop2 -= 1;
		# 投稿記事訂正時
		if ($in{'job'} eq 'kakunin') { $usertop2 = $in{'usertop'}; }
		$out .= <<EOM;
<tr><td nowrap><b>記事移動</b></td>
<td>
EOM

		local(@usertop) = ('管理人の設定','移動しない','トップへ移動');
		foreach(0 .. 2) {
			if ($usertop2 eq $_) {
				$out .= qq |<input type="radio" name="usertop" value="$_" checked>$usertop[$_]\n|;
			} else {
				$out .= qq |<input type="radio" name="usertop" value="$_">$usertop[$_]\n|;
			}
		}
		$out .= qq |</td></tr>\n|;
	}

	if ($hyoujichu || $mode eq 'res' || $mode eq 'shinki') {
		# 投稿記事訂正時
		my ($cked1,$cked2);
		if ($in{'no_cookie'} == 1) { $cked1=" checked"; }
		if ($in{'job'} eq "kakunin") { $cked2=" checked"; }
		$out .= <<EOM;
<tr><td nowrap><b>クッキー</b></td>
<td><input type="checkbox" name="no_cookie" value="1"$cked1>クッキー情報を記録しない
</td></tr>
<tr><td nowrap><b>プレビュー</b></td>
EOM
		$out .= $pview == 1 ? qq |<td>確認する| : qq |<td><input type="checkbox" name="pview" value="on"$cked2>投稿を確認する| , qq |\n</td></tr>\n|;
	}

	if (($temp == 1 || $temp == 2) && $resNG ne 'NG' && $henshinNG != 1) {
		$out .= <<EOM;
<tr><td nowrap><b>返　信</b></td>
EOM
		# 投稿記事訂正時
		my $cked1;
		if ($in{'resNG'} == 1 || $resNG == 1) { $cked1 = " checked"; }
		if ($temp == 1) { $out .= qq |<td><input type="checkbox" name="resNG" value="1"$cked1>スレッドを終了して返信不可にする\n</td></tr>\n|; }
		elsif ($temp == 2) { $out .= qq |<td><input type="checkbox" name="resNG" value="1"$cked1>返信無効にする\n</td></tr>\n|; }
	}

	if ($temp && ($oyamailing eq 'all' || $oyamailing >= 1) && $in_email != 2 && $henshinNG != 1) {
		$out .= <<EOM;
<tr><td nowrap><b>返信通知</b></td>
EOM
		my $cked1;
		if ($email3 == 1) { $cked1=" checked"; }
		my $y = $mode eq 'edit' ? "返信をメールで受信する" : "投稿者に返信をメールで通知する";
		my $z = $oyamailing >= 1 ? "（投稿から$oyamailing日間有効）" : '';
		$out .= qq |<td><input type="checkbox" name="email3" value="1"$cked1>$y$z\n</td></tr>\n|;
	}

	$out .= qq |</table>\n|;

	return $out;
}

#-------------------------------------------------
#  記事表示
#  ・標準表示、新着表示、レス画面、一記事全文表示
#  ・過去ログ
#  ・ワード検索
#-------------------------------------------------
sub KijiView {
	local($no,$re,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$col,$ico,$mytime,$chk,$tail,$vw,$vh,$plus1,$plus2,$plus3,$plus4,$plus5,$ulnam,$tail2,$vw2,$vh2,$ulnam2,$tail3,$vw3,$vh3,$ulnam3) = split(/<>/,$_[0]);
	my ($i) = $_[1]; # レス番号
	my ($a) = $_[2]; # 上の記事との間隔の設定
	my ($log,$p) = split(/:/,$_[3]); # ワード検索フラグ now：現行ログ past：過去ログ 数字：過去ログ番号（統合ワード検索用）, 検索番号
	my ($SubBkgrd1,$SubBkgrd2,$formMes,$method2);
	my $no_view = $no; # 検索対象語句の強調表示用
	my $nam2 = $nam; # 投稿ランクキング用

	# methodの設定
	if ($miruPass) { $method2 = 'POST'; } else { $method2 = 'GET'; }

	# 記事タイトル部の背景色設定時、上とのスペースの設定
	if ($SubBkgrd) {
		$SubBkgrd1 = " style=\"background-color:$SubBkgrd;\"";
		$SubBkgrd2 = " style=\"background-color:$SubBkgrd; margin:0.5em 0px 0px 0px;\"";
	}

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

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

	# 返信禁止の記事
	if ($mytime == 0 || $mytime =~ /^8/) { $formMes = "スレッド"; }
	# 一記事全文表示
	elsif ($mode eq 'allno' || $mode eq 'allno2') { $formMes = "スレッド"; }
	else { $formMes = " 返信 "; }

	# 絵文字処理 <e-PAD>
	# 長さ調整
	if (($mode eq 'res' || $mode eq 'allno' || $mode eq 'allno2' || $mode eq 'past') && $epad_use) {
		$sub = &o2p($sub);
		$nam = &o2p($nam);
		$com = &o2p($com);
	} else {
		$sub = &emoji_length($sub,3,'pc',$sub_len);
		$nam = &emoji_length($nam,3,'pc',$nam_len);
		if ($epad_use) { $com = &o2p($com); }
	}

	# 引用元へリンク
	if ($mode eq 'allno' || $mode eq 'allno2') {
		if (!$miruPass) {
			$sub =~ s/^\[(→(\d+))\]/\[<a href="$script?${multi_link}mode=$mode&tp=$in{'tp'}&no=$2&ref=sub" title="No.$2を表\示">$1<\/a>\]/;
		}
	} else {
		$sub =~ s/^\[(→(\d+))\]/\[<a href="#$2" title="No.$2へ移動">$1<\/a>\]/;
	}

	# 動画貼り付け
	if ($dougaOn1 >= 1) { $com = &douga_on1($com); }
	if ($dougaOn2 >= 1) { $com = &douga_on2($com); }

	# 検索対象語句の強調表示
	# タグの外側だけ対象に置換 より
	# http://www.din.or.jp/~ohzaki/regex.htm
#	if ($log) {
	if ($in{'word'} ne '') {
		# キーワードを配列化
		$word = $in{'word'};
		$word =~ s/\x81\x40/ /g;
		my @wd = split(/\s+/, $word);

		# 検索対象語句の強調表示（文字色と背景色はペアで設定）
		# 文字色
		my @h_col  = ('#000000','#000000','#000000','#000000','#000000');
		# 背景色
		my @h_back = ('#ffff66','#99ffff','#99ff99','#ff9999','#ff66ff');

		my $j=0;
		foreach my $wd (@wd) {
			$no_view =~ s/((?:\G|>)[^<]*?)(\Q$wd\E)/$1<b style='color:$h_col[$j];background-color:$h_back[$j]'>$2<\/b>/ig;
			$dat =~ s/((?:\G|>)[^<]*?)(\Q$wd\E)/$1<b style='color:$h_col[$j];background-color:$h_back[$j]'>$2<\/b>/ig;

			# 置換対象をEUCに変換
			jcode::convert(\$wd,'euc');
			jcode::convert(\$sub,'euc');
			jcode::convert(\$nam,'euc');
			jcode::convert(\$com,'euc');
			jcode::convert(\$plus1,'euc');
			jcode::convert(\$plus2,'euc');
			jcode::convert(\$plus3,'euc');
			jcode::convert(\$plus4,'euc');
			jcode::convert(\$plus5,'euc');

			$sub =~ s/((?:\G|>)[^<]*?)(\Q$wd\E)/$1<b style='color:$h_col[$j];background-color:$h_back[$j]'>$2<\/b>/ig;
			$nam =~ s/((?:\G|>)[^<]*?)(\Q$wd\E)/$1<b style='color:$h_col[$j];background-color:$h_back[$j]'>$2<\/b>/ig;
			$com =~ s/((?:\G|>)[^<]*?)(\Q$wd\E)/$1<b style='color:$h_col[$j];background-color:$h_back[$j]'>$2<\/b>/ig;
			$plus1 =~ s/((?:\G|>)[^<]*?)(\Q$wd\E)/$1<b style='color:$h_col[$j];background-color:$h_back[$j]'>$2<\/b>/ig;
			$plus2 =~ s/((?:\G|>)[^<]*?)(\Q$wd\E)/$1<b style='color:$h_col[$j];background-color:$h_back[$j]'>$2<\/b>/ig;
			$plus3 =~ s/((?:\G|>)[^<]*?)(\Q$wd\E)/$1<b style='color:$h_col[$j];background-color:$h_back[$j]'>$2<\/b>/ig;
			$plus4 =~ s/((?:\G|>)[^<]*?)(\Q$wd\E)/$1<b style='color:$h_col[$j];background-color:$h_back[$j]'>$2<\/b>/ig;
			$plus5 =~ s/((?:\G|>)[^<]*?)(\Q$wd\E)/$1<b style='color:$h_col[$j];background-color:$h_back[$j]'>$2<\/b>/ig;

			# SJISに戻す
			jcode::convert(\$sub,'sjis');
			jcode::convert(\$nam,'sjis');
			jcode::convert(\$com,'sjis');
			jcode::convert(\$plus1,'sjis');
			jcode::convert(\$plus2,'sjis');
			jcode::convert(\$plus3,'sjis');
			jcode::convert(\$plus4,'sjis');
			jcode::convert(\$plus5,'sjis');

			if ($j < $#h_back) { $j++; } else { $j=0; }
		}
	}

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

	# URLを変換
	if ($url) { $url = &url_henkan($url); }

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

	# URL文字列の折り返し表示
	if ($br_use) { $com = &com_br($com); }

	# NEWマークの計算
	my $newsign = &get_newsign($mytime);

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

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

	# 上段
	print qq |<!--●--><a name="$no"></a><!--●-->\n|;
	if ($re && $mode ne 'sortnew' && $mode ne 'allno' && $mode ne 'allno2' && $in{'pas'} ne 'allno' && !$log) {
		if (!$SubBkgrd) { print qq |<hr noshade size="1" width="95%" align="right" class="hr1">\n|; }
		print qq |<div align="right">\n|;
		if ($a) { print qq |<table width="95%" border="0" cellpadding="0" cellspacing="0"$SubBkgrd1><tr>\n|; }
		else { print qq |<table width="95%" border="0" cellpadding="0" cellspacing="0"$SubBkgrd2><tr>\n|; }
	} else {
		print qq |<table width="100%" border="0" cellpadding="0" cellspacing="0"$SubBkgrd1><tr>\n|;
	}
	print qq |<tr><td align="left">\n|;
	print qq |<TABLE border="0" cellpadding="0" cellpadding="0"><tr>\n|;
	print qq |<td>\n|;

	# ログ種別（統合ワード検索時）
	if ($in{'pastlog'} eq 'all') {
		if ($log eq 'now') { print qq |$p.【現行ログ】<br>\n|; }
		elsif ($log > 0) { print qq |$p.【過去ログ$log】<br>\n|; }
	}

	# 管理メッセージ
	if ($mytime =~ /AD$/ && (!$re || $mode eq "sortnew"))
		{ print &tag_on($KanriMessage) . qq |<br>\n|; }

	# レス番号表示（レス表示数未制限時は未表示）
	if ($re && $i) {
		my $iout=0;
		if ($mode eq 'sortnew' || $mode eq 'allno' || $mode eq 'allno2') { $iout=0; }
		elsif ($mode eq 'res' && ($resViewR || $in{'resViewR'} || $in{'newresView'})) { $iout=1; }
		elsif ((!$mode || $mode eq 'std') && ($resView || $in{'resView'})) { $iout=1; }
		if ($iout) { print qq |<span style="color:$subCol;font-weight:bold">$i.</span>&nbsp;&nbsp;|; }
	}

	print qq |<font color="$subCol"><b>$sub</b></font>|;
	if ($mode eq 'res') { print qq |<br>\n|; }
	else { print qq |&nbsp;&nbsp;\n|; }
	print qq |<font color="$namCol"><b>$nam</b></font><small>&nbsp;：&nbsp;$dat</small>\n|;
	print qq |<font color="$noCol"><small>No\.$no_view</small></font>\n</td>\n|;

	if ($url || $newsign) {
		print qq |<td nowrap>\n|;
		if ($url) { print qq |&nbsp;$url\n|; }
		if ($newsign) { print qq |&nbsp;<strong>$newsign</strong>\n|; }
		print qq |</td>\n|;
	}

	print qq |</tr></TABLE>\n|;
	print qq |</td>\n|;

	# 返信ボタン等表示
	# ワード検索時・閲覧者限定時
	if ($log && $miruPass) {
		print qq |<td width="10%" nowrap align="right">\n|;

		if ($log eq "now") {
			print qq |<form action="$script" method="POST">\n|;
			if ($room ne '') { print qq |$multi_form\n|; }
			print <<"EOM";
<input type="hidden" name="mode" value="res">
<input type="hidden" name="resViewR" value="all">
EOM
			if (!$re) {
				print qq |<input type="hidden" name="no" value="$no">\n|;
			} else {
				print qq |<input type="hidden" name="no" value="$re">\n|;
			}

		} elsif ($log eq "past") {
			print qq |<form action="$regist" method="POST">\n|;
			if ($room ne '') { print qq |$multi_form\n|; }
			print <<"EOM";
<input type="hidden" name="mode" value="past">
<input type="hidden" name="pas" value="view">
<input type="hidden" name="pastlog" value="$in{'pastlog'}">
EOM
			if (!$re) {
				print qq |<input type="hidden" name="no" value="$no">\n|;
			} else {
				print qq |<input type="hidden" name="no" value="$re">\n|;
			}

		} elsif ($log > 0) {
			print qq |<form action="$regist" method="POST">\n|;
			if ($room ne '') { print qq |$multi_form\n|; }
			print <<"EOM";
<input type="hidden" name="mode" value="past">
<input type="hidden" name="pas" value="view">
<input type="hidden" name="pastlog" value="$log">
EOM
			if (!$re) {
				print qq |<input type="hidden" name="no" value="$no">\n|;
			} else {
				print qq |<input type="hidden" name="no" value="$re">\n|;
			}
		}

		print <<"EOM";
<input type="hidden" name="mPass" value="$in{'mPass'}">
<input type="hidden" name="word" value="$in{'word'}">
<input type="submit" value="スレッド全体" class="f">
</td></form>
EOM

	# ワード検索時
	} elsif ($log) {
		my $enwd = &url_enc($in{'word'});
		print qq |<td width="10%" nowrap align="right">\n|;
		if ($log eq "now") {
			if (!$re) {
				print qq |[<a href="$script?${multi_link}mode=res&amp;no=$no&amp;resViewR=all&amp;word=$enwd">スレッド全体</a>]\n|;
			} else {
				print qq |[<a href="$script?${multi_link}mode=res&amp;no=$re&amp;resViewR=all&amp;word=$enwd">スレッド全体</a>]\n|;
			}
		} elsif ($log eq "past") {
			if (!$re) {
				print qq |[<a href="$regist?${multi_link}mode=past&amp;pas=view&amp;pastlog=$in{'pastlog'}&amp;no=$no&amp;word=$enwd">スレッド全体</a>]\n|;
			} else {
				print qq |[<a href="$regist?${multi_link}mode=past&amp;pas=view&amp;pastlog=$in{'pastlog'}&amp;no=$re&amp;word=$enwd">スレッド全体</a>]\n|;
			}
		} elsif ($log > 0) {
			if (!$re) {
				print qq |[<a href="$regist?${multi_link}mode=past&amp;pas=view&amp;pastlog=$log&amp;no=$no&amp;word=$enwd">スレッド全体</a>]\n|;
			} else {
				print qq |[<a href="$regist?${multi_link}mode=past&amp;pas=view&amp;pastlog=$log&amp;no=$re&amp;word=$enwd">スレッド全体</a>]\n|;
			}
		}
		print qq |</td>\n|;

	# 返信ボタン
	} elsif ((!$re || $mode eq 'sortnew' || $mode eq 'allno') && ($mode ne 'res' && $mode ne 'allno2') && $henshinNG != 1 && $mode ne 'past') {
		print qq |<form action="$script" method="$method2">\n<td width="3%" nowrap align="right">\n|;
		if ($miruPass) { print qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|; }
		if ($room ne '') { print qq |$multi_form\n|; }
		print qq |<input type="hidden" name="mode" value="res">\n|;
		if ($mode eq 'sortnew') {
			print qq |<input type="hidden" name="mode2" value="sortnew">\n|;
		}
		if ($in{'tp'} eq 'tree') {
			print qq |<input type="hidden" name="mode2" value="tree">\n|;
		}
		if (!$re){ print qq |<input type="hidden" name="no" value="$no">\n|; }
		else { print qq |<input type="hidden" name="no" value="$re">\n|; }
		if ($page) {
			print qq |<input type="hidden" name="page" value="$page">\n|;
			print qq |<input type="hidden" name="bl" value="$in{'bl'}">\n|;
		}
		print qq |<input type="submit" value="$formMes" title="スレッドを表\示する">\n|;
		print qq |</td>\n</form>\n|;

	# 過去ログ一記事全文表示時
	} elsif ($mode eq 'past' && $in{'pas'} eq 'allno') {
		print qq |<td width="10%" nowrap align="right">\n|;
		if (!$re) {
			print qq |[<a href="$regist?${multi_link}mode=past&amp;pas=view&amp;pastlog=$in{'pastlog'}&amp;no=$no">スレッド全体</a>]\n|;
		} else {
			print qq |[<a href="$regist?${multi_link}mode=past&amp;pas=view&amp;pastlog=$in{'pastlog'}&amp;no=$re">スレッド全体</a>]\n|;
		}
	print qq |</td>\n|;

#	} else {
#		print qq |<td><br></td>\n|;
	}

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

	# 追加項目
	if ($plusKo1 >= 1 || $plusKo2 >= 1 || $plusKo3 >= 1 || $plusKo4 >= 1 || $plusKo5 >= 1) {
		if ($re && $mode ne 'sortnew' && $mode ne 'allno' && $mode ne 'allno2' && $in{'pas'} ne 'allno' && !$log) {
			print qq |<table width="95%" border="0" cellpadding="1" cellspacing="1"$SubBkgrd1><tr><td align="left">\n|;
		} else {
			print qq |<table width="100%" border="0" cellpadding="1" cellspacing="1"$SubBkgrd1><tr><td align="left">\n|;
		}
	}
	# 投稿ランキング
	if ($plusKo1 >= 1 && $plusKo1Kei == 3 && $plus1 > 0) {
		$plus1 = &WCntGet($nam2,$plus1,'1');
	}
	if ($plusKo2 >= 1 && $plusKo2Kei == 3 && $plus2 > 0) {
		$plus2 = &WCntGet($nam2,$plus2,'2');
	}
	if ($plusKo3 >= 1 && $plusKo3Kei == 3 && $plus3 > 0) {
		$plus3 = &WCntGet($nam2,$plus3,'3');
	}
	if ($plusKo4 >= 1 && $plusKo4Kei == 3 && $plus4 > 0) {
		$plus4 = &WCntGet($nam2,$plus4,'4');
	}
	if ($plusKo5 >= 1 && $plusKo5Kei == 3 && $plus5 > 0) {
		$plus5 = &WCntGet($nam2,$plus5,'5');
	}
	if ($plusKo1 >= 1) {
		if ($plus1 eq '') { $plus1 = '(未入力)'; }
		print qq |$plusKo1Nam：$plus1\n|;
	}
	if ($plusKo2 >= 1) {
		if ($plus2 eq '') { $plus2 = '(未入力)'; }
#		print qq |<br>$plusKo2Nam：$plus2\n|;
		print qq |&nbsp;$plusKo2Nam：$plus2\n|;
	}
	if ($plusKo3 >= 1) {
		if ($plus3 eq '') { $plus3 = '(未入力)'; }
#		print qq |<br>$plusKo3Nam：$plus3\n|;
		print qq |&nbsp;&nbsp;$plusKo3Nam：$plus3\n|;
	}
	if ($plusKo4 >= 1) {
		if ($plus4 eq '') { $plus4 = '(未入力)'; }
#		print qq |<br>$plusKo4Nam：$plus4\n|;
		print qq |&nbsp;&nbsp;$plusKo4Nam：$plus4\n|;
	}
	if ($plusKo5 >= 1) {
		if ($plus5 eq '') { $plus5 = '(未入力)'; }
#		print qq |<br>$plusKo5Nam：$plus5\n|;
		print qq |&nbsp;&nbsp;$plusKo5Nam：$plus5\n|;
	}
	if ($plusKo1 >= 1 || $plusKo2 >= 1 || $plusKo3 >= 1 || $plusKo4 >= 1 || $plusKo5 >= 1) {
		print qq |</td></tr></table>\n|;
	}

	# 下段
	if ($re && $mode ne 'sortnew' && $mode ne 'allno' && $mode ne 'allno2') {
		print qq |<table width="95%" border="0" cellpadding="2" cellspacing="2"><tr>\n|;
	} else {
		print qq |<table width="100%" border="0" cellpadding="2" cellspacing="2"><tr>\n|;
	}

	# アイコンモード
	if ($iconMode && $ico) {
		# アイコンとaltの設定
		my $temp_alt = &icon_mode($ico);
		print qq |<td><img src="$imgurl$ico" alt="$temp_alt"></td>\n|;
	} else { print qq |<td width="20"><br></td>\n|; }

	if ($mode eq 'allno2' || $mode eq 'past' || $mode eq 'find') {
		print qq |<td width="95%" align="left">\n|;
	} else {
		print qq |<td width="90%" align="left">\n|;
	}

	# 添付ファイル表示処理
	if ($upload && ($tail || $tail2 || $tail3)) { &FileOut($no,$com,$col,$chk,$tail,$vw,$vh,'','','',$ulnam,$tail2,$vw2,$vh2,$ulnam2,$tail3,$vw3,$vh3,$ulnam3); }
	else { print qq |<span style="color:$col">$com</span>|; }

	if ($mode ne 'allno2' && $mode ne 'past' && $mode ne 'find') {
		# 修正/削除のリンク
		my ($mode2);
		if ($in{'mode2'}) { $mode2 = $in{'mode2'}; }
		elsif ($in{'tp'}) { $mode2 = $in{'tp'}; }
		elsif ($mode ne 'res' && $mode ne 'allno') { $mode2 = $mode; }
		if (!$mode2) { $mode2 = 'std'; }
		my $oya = $oyaWork && $re > 0 ? "&amp;oya=$re" : '';
		print <<EOM;
</td>
<td width="3%" nowrap align="right" valign="bottom">
EOM

		if ($mode ne 'allno' && $miruPass eq '' && $mytime != 0 && $mytime !~ /^8/ && $henshinNG != 1) {
			print qq |[<a href="$script?${multi_link}mode=allno&amp;tp=$mode2&amp;no=$no&amp;top=$re&amp;reson=1&amp;inyou=1" title="この記事を引用して返信する">返信</a>]<br>\n|;
		}
		if ($editNG != 1) {
			print qq |[<a href="$regist?${multi_link}mode=ninsho_edt&amp;no=$no$oya&amp;mode2=$mode2&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を修正する">修正</a>]<br>\n|;
		}
		if ($deleNG != 1) {
			print qq |[<a href="$regist?${multi_link}mode=ninsho_del&amp;no=$no$oya&amp;mode2=$mode2&amp;page=$page&amp;bl=$in{'bl'}" title="この記事を削除する">削除</a>]\n|;
		}
		print qq |</td>\n|;
	} else {
		print qq |</td>\n|;
	}

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

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

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

	if ($re && $mode ne 'sortnew' && $mode ne 'allno' && $mode ne 'allno2') { print qq |</div>\n|; }
}

#-------------------------------------------------
#  添付ファイル表示処理
#-------------------------------------------------
# $p   '1' 改行を挿入          : ''
# $str 'skin' スキン表示用     : ''
# $mod 'only' ファイルのみ表示 : ''
sub FileOut {
	my ($no,$com,$col,$chk,$tail,$vw,$vh,$p,$str,$mod,$ulnam,$tail2,$vw2,$vh2,$ulnam2,$tail3,$vw3,$vh3,$ulnam3) = @_;
	my ($ipt,$pp,$wh,$flag);
	my $str2 = '';

	# ファイル添付数
	my $files;
	if ($tail ne '') { $files++; }
	if ($tail2 ne '') { $files++; }
	if ($tail3 ne '') { $files++; }

	# 画像以外は常にメッセージの下に表示
	if ($imgpoint2 == 1 && $tail ne ".gif" && $tail ne ".jpg" && $tail ne ".png" && $tail ne ".swf" && !$imgpoint && $mod ne 'only') {
		$flag = 1;
		$imgpoint = 1;
	}

	# 添付ファイルを表示する位置の設定
	if ($imgpoint == 1 && $mod ne 'only') { # 下に表示
		$ipt = 'align="top"';
		if ($p == 1) { $pp = '<br>'; }
		else { $pp = '<p>'; }
		$str2 .= qq |<span style="color:$col">$com</span>\n|;
	} elsif ($mod ne 'only') { # 左に表示
		$ipt = 'align="left" hspace="5"';
		$pp = '';
	}

	$str2 .= qq |$pp|;

	# 縦に並べて表示 || 添付複数
	if ($imgpoint3 == 1 || $files >= 2) {
		$str2 .= qq |<table border="0" cellspacing="2" cellpadding="2" align="left">\n<tr><td>\n|;
	}

	my ($i,$ptail,$pvw,$pvh,$pulnam,$pulno);
	foreach (1 .. 3) {
		if ($_ == 1) {
			if ($tail eq '') { next; }
			else { 
				$ptail = $tail;
				$pvw = $vw;
				$pvh = $vh;
				$pulnam = $ulnam;
				$pulno = '';
				$i++;
			}
		} elsif ($_ == 2) {
			if ($tail2 eq '') { next; }
			else {
				$ptail = $tail2;
				$pvw = $vw2;
				$pvh = $vh2;
				$pulnam = $ulnam2;
				$pulno = '-2';
				$i++;
			}
		} elsif ($_ == 3) {
			if ($tail3 eq '') { next; }
			else {
				$ptail = $tail3;
				$pvw = $vw3;
				$pvh = $vh3;
				$pulnam = $ulnam3;
				$pulno = '-3';
				$i++;
			}
		}

		if ($imgpoint3 == 1 && $files >= 2 && $i >= 2) {
			$str2 .= qq |</td></tr>\n<tr><td>\n|;
		}

		# 添付ファイルが存在する場合
		if ($ptail eq ".gif" || $ptail eq ".jpg" || $ptail eq ".png") {
			if ($ImageCheck && $chk != 1) {
				$str2 .= qq |<img src="$imgurl$IconSoon" alt="しばらくお待ち下さい" $ipt>\n|;
			} else {
				if ($pvw && $pvh) { $wh = "width=$pvw height=$pvh"; }
				else { $wh = ''; }
				if (-e "${updir}s$no$pulno.jpg") {
					my $alt = $pulnam eq '' ? '拡大' : "拡大 $pulnam";
					if ($SBView == 1) { # Shadowbox.jsで表示
						$str2 .= qq |<a rel="shadowbox" href="$upurl$no$pulno$ptail" class="option" target="_blank" title="$alt"><img src="${upurl}s$no$pulno.jpg" border="0" $ipt $wh alt="$alt"></a>\n|;
					} else {
						$str2 .= qq |<a href="$upurl$no$pulno$ptail" target='_blank' title="$alt"><img src="${upurl}s$no$pulno.jpg" border="0" $ipt $wh alt="$alt"></a>\n|;
					}
				} else {
					my $alt = $pulnam eq '' ? '単独表\示' : "単独表\示 $pulnam";
					if ($SBView == 1) { # Shadowbox.jsで表示
						$str2 .= qq |<a rel="shadowbox" href="$upurl$no$pulno$ptail" class="option" target="_blank" title="$alt"><img src="$upurl$no$pulno$ptail" border="0" $ipt $wh alt="$alt"></a>\n|;
					} else {
						$str2 .= qq |<a href="$upurl$no$pulno$ptail" target='_blank' title="$alt"><img src="$upurl$no$pulno$ptail" border="0" $ipt $wh alt="$alt"></a>\n|;
					}
				}
			}
		} elsif ($ptail eq ".swf") {
			if ($ImageCheck && $chk != 1) {
				$str2 .= qq |<img src="$imgurl$IconSoon" alt="しばらくお待ち下さい" $ipt>\n|;
			} else {
				my $vw2 = $pvw && $pvw !~ /\D/ ? qq |width="$pvw"| : qq |width="200"|;
				my $vh2 = $pvh && $pvh !~ /\D/ ? qq |height="$pvh"| : qq |height="150"|;

				my $alt = $pulnam eq '' ? "$no$pulno$ptail" : $pulnam;
				my ($SWF) = <<"EOM";
<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,0,0" id="$no$pulno" $vw2 $vh2 $ipt>
<param name="allowScriptAccess" value="sameDomain" />
<param name="movie" value="$upurl$no$pulno$ptail" />
<param name="quality" value="high" />
<param name="bgcolor" value="$tblCol" />
<embed src="$upurl$no$pulno$ptail" quality="high" bgcolor="$tblCol" $vw2 $vh2 name="$no$pulno" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" $ipt/>
</object>
<noscript>
<a href="$upurl$no$pulno$ptail" target='_blank' title="$alt"><img src="$imgurl$IconClip" border="0" alt="Download：$alt"></a> <b><span title="$pulnam">$pno$pulno$ptail</span></b>
</noscript>
EOM
				if ($SBView == 1) { # Shadowbox.jsで表示
					my $vw2 = $pvw ? ";width=$pvw" : '';
					my $vh2 = $pvh ? ";height=$pvh" : '';
					my $pp2 = $mod ne 'only' ? '<p>' : '';
					my $pp3 = $mod ne 'only' ? '' : '<br>';
					$SWF .= <<"EOM";
<script language="JavaScript">
<!--
document.write("$pp3\[<a rel='shadowbox$vw2$vh2' class='option' title='$ptail on Shadowbox' href='$upurl$no$pulno$ptail'>$no$pulno$ptail on Shadowbox</a>\]$pp2");
// -->
</script>
EOM
				}
				$str2 .= qq |$SWF|;
			}

		} elsif ($ptail) {
			my $tmp;
			# 外部プレーヤーでポップアップ再生
			if ($ExtView == 1 && ($ptail eq '.flv' || $ptail eq '.mov' || $ptail eq '.mp4' || $ptail eq '.mp3')) {
				my $tmp2 = "'$script?${multi_link}mode=extplay&amp;file=$upurl$no$pulno$ptail'";
				my $tmp3 = $pulnam eq '' ? "$upurl$no$pulno$ptail" : $pulnam;
				$tmp = qq |<a href="$upurl$no$pulno$ptail" onclick="javascript:windowOpen1($tmp2,'attfile','530','325'); return false;" title="$tmp3をPOPUP再生" target="attfile">$no$tail</a>|;
			} else {
				$tmp = qq |<span title="$pulnam">$no$pulno$ptail</span>|;
			}

			my $alt = $pulnam eq '' ? "$no$pulno$ptail" : $pulnam;
			$str2 .= qq |<a href="$upurl$no$pulno$ptail" target='_blank'><img src="$imgurl$IconClip" border="0" alt="Download：$alt"></a> <b>$tmp</b>\n|;

			# Shadowbox.jsで表示
			if ($SBView == 1) {
				my $pp2 = $flag == 1 ? '' : "<p>"; # 左に表示なら<p>挿入
				if ($mod eq 'only') { $pp2 = ''; }
				my $pp3 = $mod eq 'only' ? '<br>' : "&nbsp\;";
				my $alt = $pulnam eq '' ? $ptail : $pulnam;

				if ($ptail eq '.flv' || $ptail eq '.mov' || $ptail eq '.wmv' || $ptail eq '.mp4' || $ptail eq '.mp3') {
					$str2 .= <<"EOM";
<script language="JavaScript">
<!--
document.write("$pp3\[<a rel='shadowbox;width=400;height=300' class='option' title='$alt on Shadowbox' href='$upurl$no$pulno$ptail'>Play at Shadowbox</a>(<a rel='shadowbox;width=534;height=300' class='option' title='$alt on Shadowbox' href='$upurl$no$pulno$ptail'>Wide</a>)\]$pp2");
// -->
</script>
EOM
				} elsif ($ptail eq '.htm' || $ptail eq '.txt') {
					$str2 .= <<"EOM";
<script language="JavaScript">
<!--
document.write("$pp3\[<a rel='shadowbox' class='option' title='$alt on Shadowbox' href='$upurl$no$pulno$ptail'>Show at Shadowbox</a>\]$pp2");
// -->
</script>
EOM
				}
			}
		}
	}

	if ($imgpoint3 == 2 && $files >= 2 && !$imgpoint) {
		$str2 .= qq |</td></tr>\n<tr><td>\n|;
	} elsif ($imgpoint3 == 1 || $files >= 2) {
		$str2 .= qq |</td></tr>\n</table>\n|;
	}

	if ($imgpoint ne 1 && $mod ne 'only') { # 左に表示
		$str2 .= qq |<span style="color:$col">$com</span><br clear=all>\n|;
	}

	if ($imgpoint3 == 2 && $files >= 2 && !$imgpoint) {
		$str2 .= qq |</td></tr>\n</table>\n|;
	}

	# 画像以外は常にメッセージの下に表示/元に戻す
	if ($flag == 1) { $imgpoint = 0; }

	if ($str eq 'skin' || $mod eq 'only') { return $str2; }
	else { print $str2; }
}

#-------------------------------------------------
#  上部のリンク
#-------------------------------------------------
sub ue_link {
	local($mode2,$out);

if ($miruPass) { # 閲覧者限定時
	$out = <<EOM;
<TABLE border="0" cellspacing="0" cellpadding="0">
<TR><TD align="center">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>[<a href="$homepage" target="_top">トップに戻る</a>]</td>
<td><form action="$script" method="POST">
EOM
	if ($room ne '') { $out .= "$multi_form\n"; }
	$out .= <<EOM;
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=hidden name=mode value="howto">
<input type=submit value="留意事項" class=f>
</td></form>
EOM

# 閲覧者限定時 ワード検索無効
	$out .= <<EOM;
<td><form action="$script" method="POST">
EOM
	if ($room ne '') { $out .= "$multi_form\n"; }
	$out .= <<EOM;
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=hidden name=mode value="find">
<input type=submit value="ワード検索" class=f>
</td></form>
EOM

	if ($pastkey) {
		$out .= <<EOM;
<td><form action="$regist" method="POST">
EOM
		if ($room ne '') { $out .= "$multi_form\n"; }
		$out .= <<EOM;
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=hidden name=mode value="past">
<input type=submit value="過去ログ" class=f>
</td></form>
EOM
	}
	if ($upload >= 1) {
		$out .= <<EOM;
<td><form action="$script" method="POST">
EOM
		if ($room ne '') { $out .= "$multi_form\n"; }
		$out .= <<EOM;
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=hidden name=mode value="pic">
<input type=submit value="投稿ファイル" class=f>
</td></form>
EOM
	}
	if ($WriteCnt) {
		$out .= <<EOM;
<td><form action="$script" method="POST">
EOM
		if ($room ne '') { $out .= "$multi_form\n"; }
		$out .= <<EOM;
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=hidden name=mode value="WCV">
<input type=submit value="投稿ランキング" class=f>
</td></form>
EOM
	}
	if ($kiriban == 1) {
		$out .= <<EOM;
<td><form action="$script" method="POST">
EOM
		if ($room ne '') { $out .= "$multi_form\n"; }
		$out .= <<EOM;
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=hidden name=mode value="kiview">
<input type=submit value="キリ番コメント" class=f>
</td></form>
EOM
	}
	if ($shinkiForm == 1) {
		$out .= <<EOM;
<td><form action="$script" method="POST">
EOM
		if ($room ne '') { $out .= "$multi_form\n"; }
		$out .= <<EOM;
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=hidden name=mode value="shinki">
<input type=hidden name=mode2 value="$mode">
<input type=submit value="新規投稿" class=f>
</td></form>
EOM
	} elsif ($writePass || ($shinkiForm == 0 && ($mode eq 'sortnew' || $mode eq 'preview' || $mode eq 'tree')) || $shinkiForm == 3) {
		$out .= "<td>[<a href=\"#shinki\">新規投稿</a>]</td>\n";
	}
	$out .= <<EOM;
<td><form action="$admin" method="POST">
EOM
	if ($room ne '') { $out .= "$multi_form\n"; }
	$out .= <<EOM;
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=hidden name=mode value="admin">
<input type=submit value="管理用" class=f>
</td></form>
</tr>
</table>
</TD></TR>
<TR><TD align="center">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
EOM
	if ($wwwc_use == "1" || $rss_use == "1") {
		$out .= "<td>[投稿情報(";
		if ($wwwc_use == "1") { $out .= "<a href=\"$wwwc_check\">WWWC</a>"; }
		if ($wwwc_use == "1" && $rss_use == "1") { $out .= "/"; }
		if ($rss_use == "1") { $out .= "<a href=\"$rss_check\">RSS</a>"; }
		$out .= ")]</td>\n";
	}
	if ($send_mail) {
		$out .= <<EOM;
<td><form action="$regist" method="POST">
EOM
		if ($room ne '') { $out .= "$multi_form\n"; }
		$out .= <<EOM;
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=hidden name=mode value="mobilemail">
<input type=submit value="携帯にURLを送信" class=f>
</td></form>
EOM
	}
	$out .= <<EOM;
<td><form action="$script" method="POST">
EOM
	if ($room ne '') { $out .= "$multi_form\n"; }
	$out .= <<EOM;
<input type=hidden name=mode value="std">
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=submit value="標準" class=f>
</td></form>
<td><form action="$script" method="POST">
EOM
	if ($room ne '') { $out .= "$multi_form\n"; }
	$out .= <<EOM;
<input type=hidden name=mode value="preview">
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=submit value="一覧" class=f>
</td></form>
EOM
	if ($newok == 1) {
		$out .= <<EOM;
<td><form action="$script" method="POST">
EOM
		if ($room ne '') { $out .= "$multi_form\n"; }
		$out .= <<EOM;
<input type=hidden name=mode value="sortnew">
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=submit value="新着" class=f>
</td></form>
EOM
	}
	$out .= <<EOM;
<td><form action="$script" method="POST">
EOM
	if ($room ne '') { $out .= "$multi_form\n"; }
	$out .= <<EOM;
<input type=hidden name=mode value="tree">
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=submit value="ツリー" class=f>
</td></form>
EOM
	if ($pageLink1) { $out .= qq |<td>[<a href=\"#bottom\">$pageLink1</a>]</td>\n|; }
	$out .= <<EOM;
</tr></table>
</TD></TR>
</TABLE>
EOM

} else { # 通常時
	$out = <<EOM;
[<a href="$homepage" target="_top">トップに戻る</a>]
[<a href="$script?${multi_link}mode=howto">留意事項</a>]
[<a href="$script?${multi_link}mode=find">ワード検索</a>]
EOM

	# 過去ログのリンク部を表示
	if ($pastkey) {	$out .= "[<a href=\"$regist?${multi_link}mode=past\">過去ログ</a>]\n"; }

	# 添付ファイル一覧
	if ($upload >= 1) { $out .= "[<a href=\"$script?${multi_link}mode=pic\">投稿ファイル</a>]\n"; }

	# 投稿ランキング
	if ($WriteCnt) { $out .= "[<a href=\"$script?${multi_link}mode=WCV\">投稿ランキング</a>]\n"; }

	# キリ番コメント
	if ($kiriban == 1) { $out .= "[<a href=\"$script?${multi_link}mode=kiview\">キリ番コメント</a>]\n"; }

	# 新規投稿へのリンク
	if ($shinkiForm == 1) {
		$out .= "[<a href=\"$script?${multi_link}mode=shinki&amp;mode2=$mode\">新規投稿</a>]\n";
	} elsif ($writePass || ($shinkiForm == 0 && ($mode eq 'std' || $mode eq 'sortnew' || $mode eq 'preview' || $mode eq 'tree')) || ($shinkiForm == 3 && $mode ne 'allno')) {
		$out .= "[<a href=\"#shinki\">新規投稿</a>]\n";
	}

	$out .= "[<a href=\"$admin?${multi_link}mode=admin\">管理用</a>]<br>\n";

	# 掲示板アドレスメール送信機能を表示
	if ($send_mail) { $out .= "[<a href=\"$regist?${multi_link}mode=mobilemail\">携帯に掲示板アドレスを送信</a>]\n"; }

	# WWWCチェックファイル/RSS出力
	if ($wwwc_use == "1" || $rss_use == "1") {
		$out .= "　[投稿情報(";
		if ($wwwc_use == "1") { $out .= "<a href=\"$wwwc_check\">WWWC</a>"; }
		if ($wwwc_use == "1" && $rss_use == "1") { $out .= "/"; }
		if ($rss_use == "1") { $out .= "<a href=\"$rss_check\">RSS</a>"; }
		$out .= ")]\n";
	}

	if ($newok == 1){
		$out .= "　[<a href=\"$script?${multi_link}mode=std\">標準</a>/<a href=\"$script?${multi_link}mode=preview\">一覧</a>/<a href=\"$script?${multi_link}mode=sortnew\">新着</a>/<a href=\"$script?${multi_link}mode=tree\">ツリー</a>]\n";
	} else {
		$out .= "　[<a href=\"$script?${multi_link}mode=std\">標準</a>/<a href=\"$script?${multi_link}mode=preview\">一覧</a>/<a href=\"$script?${multi_link}mode=tree\">ツリー</a>]\n";
	}

	if ($pageLink1) { $out .= "　[<a href=\"#bottom\">$pageLink1</a>]\n"; }
}

	if ($_[0] eq 'skin') { return $out; }
	else { print $out; }
}

#-------------------------------------------------
#  下部のリンク
#-------------------------------------------------
sub shita_link {
	local($out);

if ($miruPass) { # 閲覧者限定時
	$out = <<EOM;
<table border="0" cellspacing="0" cellpadding="0"><tr>
<td><form action="$script" method="POST">
EOM
	if ($room ne '') { $out .= "$multi_form\n"; }
	$out .= <<EOM;
<input type=hidden name=mode value="std">
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=submit value="標準" class=f>
</td></form>
<td><form action="$script" method="POST">
EOM
	if ($room ne '') { $out .= "$multi_form\n"; }
	$out .= <<EOM;
<input type=hidden name=mode value="preview">
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=submit value="一覧" class=f>
</td></form>
EOM
	if ($newok == 1) {
		$out .= <<EOM;
<td><form action="$script" method="POST">
EOM
	if ($room ne '') { $out .= "$multi_form\n"; }
	$out .= <<EOM;
<input type=hidden name=mode value="sortnew">
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=submit value="新着" class=f>
</td></form>
EOM
	}
	$out .= <<EOM;
<td><form action="$script" method="POST">
EOM
	if ($room ne '') { $out .= "$multi_form\n"; }
	$out .= <<EOM;
<input type=hidden name=mode value="tree">
<input type=hidden name=mPass value="$in{'mPass'}">
<input type=submit value="ツリー" class=f>
</td></form>
EOM
	if ($pageLink1) { $out .= "<a name=\"bottom\"></a>"; }
	if ($pageLink2) { $out .= "<td>[<a href=\"#top\">$pageLink2</a>]</td>\n"; }
	$out .= <<EOM;
</tr></table>
EOM

} else { # 通常時
	if ($newok == 1){
		$out = "[<a href=\"$script?${multi_link}mode=std\">標準</a>/<a href=\"$script?${multi_link}mode=preview\">一覧</a>/<a href=\"$script?${multi_link}mode=sortnew\">新着</a>/<a href=\"$script?${multi_link}mode=tree\">ツリー</a>]\n";
	} else {
		$out .= "　[<a href=\"$script?${multi_link}mode=std\">標準</a>/<a href=\"$script?${multi_link}mode=preview\">一覧</a>/<a href=\"$script?${multi_link}mode=tree\">ツリー</a>]\n";
	}

	if ($pageLink1) { $out .= "<a name=\"bottom\"></a>"; }
	if ($pageLink2) { $out .= "&nbsp;[<a href=\"#top\">$pageLink2</a>]\n"; }
}

	if ($_[0] eq 'skin') { return $out; }
	else { print $out; }
}

#-------------------------------------------------
#  サブルーチン用の上部メッセージ
#-------------------------------------------------
# 書式：&ue_msg("バック色","文字色","メッセージ");
sub ue_msg {
	print <<EOM;
<table width='100%'><tr><th bgcolor="$_[0]">
<font color="$_[1]">$_[2]</font>
</th></tr></table>
EOM
}

#-------------------------------------------------
#  完了文言
#-------------------------------------------------
sub message {
	my ($msg,$str) = @_;

	if ($str != 1) {
		&header;
		if (!$uemini_flag) {
			&uemini_link;
			&ue_msg("#00a7ad","#FFFFFF","完了メッセージ");
			print qq |<p><p>\n|;
		}
	}

	print <<EOM;
<div align="center">
<hr width=400>
<h3>$msg</h3>
<hr width=400>
<p>
<form action="$script" method="POST">
EOM
	if ($room ne '') { print qq |$multi_form\n|; }
	print <<EOM;
<input type=submit value="掲示板に戻る">
EOM

	if ($in{'mode2'}) { print qq |<input type=hidden name=mode value=\"$in{'mode2'}\">\n|; }
	if (!$topsort && $page) {
		print qq |<input type=hidden name=page value=\"$page\">\n|;
		print qq |<input type=hidden name=\"bl\" value=\"$in{'bl'}\">\n|;
	}
	if ($miruPass) { # 閲覧者限定時
		print qq |<input type=hidden name=mPass value=\"$in{'mPass'}\">\n|;
	}

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

#-------------------------------------------------
#  移動ボタン
#-------------------------------------------------
sub mvbtn {
	local($link,$i,$view,$str) = @_;
	local($start,$end,$x,$y,$bk_bl,$fw_bl);
	local($str2) = "";

##	if ($in{'view'}) { $view = $in{'view'}; }

	if ($in{'bl'}) {
		$start = $in{'bl'}*10 + 1;
		$end   = $start + 9;
	} else {
		$in{'bl'} = 0;
		$start = 1;
		$end   = 10;
	}

	$x=1; $y=0;
	while ($i > 0) {
		# 当ページ
		if ($page == $y) {

			if ($str eq 'skin') { $str2 .= "| <b style='color:red' class=n>$x</b>\n"; }
			else { print "| <b style='color:red' class=n>$x</b>\n"; }

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

			if ($str eq 'skin') { $str2 .= "| <a href=\"$link$y&bl=$in{'bl'}\" class=n>$x</a>\n"; }
			else { print "| <a href=\"$link$y&bl=$in{'bl'}\" class=n>$x</a>\n"; }

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

			$bk_bl = $in{'bl'}-1;
			if ($str eq 'skin') { $str2 .= "| <a href=\"$link$y&bl=$bk_bl\">←</a>\n"; }
			else { print "| <a href=\"$link$y&bl=$bk_bl\">←</a>\n"; }

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

			$fw_bl = $in{'bl'}+1;
			if ($str eq 'skin') { $str2 .= "| <a href=\"$link$y&bl=$fw_bl\">→</a>\n"; }
			else { print "| <a href=\"$link$y&bl=$fw_bl\">→</a>\n"; }

		}

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

	if ($str eq 'skin') { $str2 .= "|\n"; return $str2; }
	else { print qq "|\n"; }
}

#-------------------------------------------------
#  複数ページ表示
#-------------------------------------------------
sub mvbtn3 {
	my ($target,$a,$i,$pageView,$str,$p11,$p12,$p21,$p22,$p31,$p32) = @_;
	my ($mtd,$out,$p1l,$p1f,$p2l,$p2f,$p3l,$p3f);
	if ($a || $miruPass) { $mtd = 'POST'; } else { $mtd = 'GET'; }
	if ($method eq 'GET') { $mtd = 'GET'; }
	if ($p11 ne '' && $p12 ne '') {
		$p1l = "&amp;$p11=$p12";
		$p1f = qq |<input type="hidden" name="$p11" value="$p12">|;
	}
	if ($p21 ne '' && $p22 ne '') {
		$p2l = "&amp;$p21=$p22";
		$p2f = qq |<input type="hidden" name="$p21" value="$p22">|;
	}
	if ($p31 ne '' && $p32 ne '') {
		$p3l = "&amp;$p31=$p32";
		$p3f = qq |<input type="hidden" name="$p31" value="$p32">|;
	}
	# 閲覧者限定時等
	my $z;
	if ($miruPass || $mtd eq 'POST') { $z = 1; }
	# 表示数
	my $pgok = $pgoku;

	my $f1;
	if ($back >= 0 || $next < $i) {
		my $x=1;
		my $y=0;
		if ($z) {
			$out .= qq |<form action="$target" method="$mtd">\n|;
			if ($room ne '') { $out .= "$multi_form\n"; }
			if ($p1f) { $out .= qq |$p1f\n|; }
			if ($p2f) { $out .= qq |$p2f\n|; }
			if ($p3f) { $out .= qq |$p3f\n|; }
			if ($miruPass) { $out .= qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|; }
			$out .= qq |<input type="hidden" name="mode" value="$mode">\n|;
			$f1=1;
		}

		# 最終ページ番号取得
		my $lp = int($i/$pageView);
		if ($i/$pageView != int($i/$pageView)) { $lp += 1; }

		my ($f2,$f3);
		while ($i > 0) {
			if ($page == $y) {
				if ($z) {
					$out .= "<b style='color:red' class=n>[$x]</b>\n";
				} else {
					$out .= "| <b style='color:red' class=n>$x</b>\n";
				}
			} elsif ($x == 1 || $x == $lp || ($y >= $page - $pageView * $pgok && $y < $page) || ($y <= $page + $pageView * $pgok && $y > $page) || $pgok eq 'all') {
				if ($z) {
					$out .= "<input type=\"submit\" name=\"pagex\" value=\"$x\" class=f>\n";
				} else {
					$out .= "| <a href=\"$target?${multi_link}mode=$mode$p1l$p2l$p3l&amp;page=$y\" class=n>$x</a>\n";
				}
			} elsif ($y < $page - $pageView * $pgok && !$f2) {
				if ($z) { $out .= " - \n"; }
				else { $out .= "| -\n"; }
				$f2++;
			} elsif ($y > $page + $pageView * $pgok && !$f3) {
				if ($z) { $out .= " - \n"; }
				else { $out .= "| -\n"; }
				$f3++;
			}
			$x++;
			$y = $y + $pageView;
			$i = $i - $pageView;
		}
	}
	if (!$z) { $out .= "|\n"; }

	if ($str eq 'skin') { return $out; }
	else { print $out; }
}

#-------------------------------------------------
#  移動ボタン フォームで表示
#-------------------------------------------------
# $target 対象cgi名
# $a 0:GET 1:POST
# $i 記事数
# $pageView ページあたり表示記事数
# $str skin:スキン表示
# $p** 追加送信項目
sub mvbtn4 {
	my ($target,$a,$i,$pageView,$str,$p11,$p12,$p21,$p22,$p31,$p32) = @_;
	my ($mtd,$out,$p1l,$p1f,$p2l,$p2f,$p3l,$p3f);
	if ($a || $miruPass) { $mtd = 'POST'; } else { $mtd = 'GET'; }
	if ($p11 ne '' && $p12 ne '') {
		$p1l = "&amp;$p11=$p12";
		$p1f = qq |<input type="hidden" name="$p11" value="$p12">|;
	}
	if ($p21 ne '' && $p22 ne '') {
		$p2l = "&amp;$p21=$p22";
		$p2f = qq |<input type="hidden" name="$p21" value="$p22">|;
	}
	if ($p31 ne '' && $p32 ne '') {
		$p3l = "&amp;$p31=$p32";
		$p3f = qq |<input type="hidden" name="$p31" value="$p32">|;
	}

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

	if ($back >= 0 || $next < $i) {
		$out .= qq |<table><tr>\n|;
		my $last2 = int($i/$pageView); # 最終ページ番号
		if ($i/$pageView == int($i/$pageView)) { $last2 -= 1; }
		my $last = $last2 * $pageView; # 最終ページ始まり番号

		if ($miruPass || $mtd eq 'POST') { # 閲覧者限定時
			if ($back < 0) { # 1ページ表示中
				$out .= qq |<td>[最初]</td>\n|;
			} elsif ($back == 0) { # 2ページ表示中
				$out .= qq |<form action="$target" method="$mtd">\n<td>\n|;
				if ($room ne '') { $out .= qq |$multi_form\n|; }
				if ($p1f) { $out .= qq |$p1f\n|; }
				if ($p2f) { $out .= qq |$p2f\n|; }
				if ($p3f) { $out .= qq |$p3f\n|; }
				if ($miruPass) { $out .= qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|; } # 閲覧者限定時
				$out .= <<EOM;
<input type="hidden" name="mode" value="$mode">
<input type="hidden" name="page" value="0">
<input type="submit" value="最初(前)" class="f">
</td>
</form>
EOM
			} elsif ($back > 0) { # 3ページ以降表示中
				$out .= qq |<form action="$target" method="$mtd">\n<td>\n|;
				if ($room ne '') { $out .= qq |$multi_form\n|; }
				if ($p1f) { $out .= qq |$p1f\n|; }
				if ($p2f) { $out .= qq |$p2f\n|; }
				if ($p3f) { $out .= qq |$p3f\n|; }
				if ($miruPass) { $out .= qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|; } # 閲覧者限定時
				$out .= <<EOM;
<input type="hidden" name="mode" value="$mode">
<input type="hidden" name="page" value="0">
<input type="submit" value="最初" class="f">
</td>
</form>
<form action="$target" method="$mtd">
<td>
EOM
				if ($room ne '') { $out .= qq |$multi_form\n|; }
				if ($p1f) { $out .= qq |$p1f\n|; }
				if ($p2f) { $out .= qq |$p2f\n|; }
				if ($p3f) { $out .= qq |$p3f\n|; }
				if ($miruPass) { $out .= qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|; } # 閲覧者限定時
				$out .= <<EOM;
<input type="hidden" name="mode" value="$mode">
<input type="hidden" name="page" value="$back">
<input type="submit" value="前の$pageView件" class="f">
</td>
</form>
EOM
			}

			if ($next > $last) { # 最後ページ表示中
				$out .= qq |<td>[最後]</td>\n|;
			} elsif ($next == $last) { # 最後の1ページ前表示中
				$out .= qq |<form action="$target" method="$mtd">\n<td>\n|;
				if ($room ne '') { $out .= qq |$multi_form\n|; }
				if ($p1f) { $out .= qq |$p1f\n|; }
				if ($p2f) { $out .= qq |$p2f\n|; }
				if ($p3f) { $out .= qq |$p3f\n|; }
				if ($miruPass) { $out .= qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|; } # 閲覧者限定時
				$out .= <<EOM;
<input type="hidden" name="mode" value="$mode">
<input type="hidden" name="page" value="$last">
<input type="submit" value="(次)最後" class="f">
</td>
</form>
EOM
			} elsif ($next < $i) { # 最後の2ページ前以前表示中
				$out .= qq |<form action="$target" method="$mtd">\n<td>\n|;
				if ($room ne '') { $out .= qq |$multi_form\n|; }
				if ($p1f) { $out .= qq |$p1f\n|; }
				if ($p2f) { $out .= qq |$p2f\n|; }
				if ($p3f) { $out .= qq |$p3f\n|; }
				if ($miruPass) { $out .= qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|; } # 閲覧者限定時
				$out .= <<EOM;
<input type="hidden" name="mode" value="$mode">
<input type="hidden" name="page" value="$next">
<input type="submit" value="次の$pageView件" class="f">
</td>
</form>
<form action="$target" method="$mtd">
<td>
EOM
				if ($room ne '') { $out .= qq |$multi_form\n|; }
				if ($p1f) { $out .= qq |$p1f\n|; }
				if ($p2f) { $out .= qq |$p2f\n|; }
				if ($p3f) { $out .= qq |$p3f\n|; }
				if ($miruPass) { $out .= qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|; } # 閲覧者限定時
				$out .= <<EOM;
<input type="hidden" name="mode" value="$mode">
<input type="hidden" name="page" value="$last">
<input type="submit" value="最後" class="f">
</td>
</form>
EOM
			}

		} else { # 閲覧者限定時以外
			$out .= qq |<td>\n|;
			if ($back < 0) { # 1ページ表示中
				$out .= qq |[最初] / |;
			} elsif ($back == 0) { # 2ページ表示中
				$out .= qq |<a href="$target?${multi_link}mode=$mode$p1l$p2l$p3l&amp;page=0">最初(前)</a> / |;
			} elsif ($back > 0) { # 3ページ以降表示中
				$out .= qq |<a href="$target?${multi_link}mode=$mode$p1l$p2l$p3l&amp;page=0">最初</a> / <a href="$target?${multi_link}mode=$mode$p1l$p2l$p3l&amp;page=$back">前の$pageView件</a> / |;
			}

			if ($next > $last) { # 最後ページ表示中
				$out .= qq |[最後]\n|;
			} elsif ($next == $last) { # 最後の1ページ前表示中
				$out .= qq |<a href="$target?${multi_link}mode=$mode$p1l$p2l$p3l&amp;page=$last">(次)最後</a>\n|;
			} elsif ($next < $i) { # 最後の2ページ前以前表示中
				$out .= qq |<a href="$target?${multi_link}mode=$mode$p1l$p2l$p3l&amp;page=$next">次の$pageView件</a> / <a href="$target?${multi_link}mode=$mode$p1l$p2l$p3l&amp;page=$last">最後</a>\n|;
			}
			$out .= qq |</td>\n|;
		}
		$out .= qq |<td width="15"></td>\n|;

		$out .= qq |<form action="$target" method="$mtd">\n|;
		$out .= qq |<td>\n|;
		if ($room ne '') { $out .= qq |$multi_form\n|; }
		if ($p1f) { $out .= qq |$p1f\n|; }
		if ($p2f) { $out .= qq |$p2f\n|; }
		if ($p3f) { $out .= qq |$p3f\n|; }
		if ($miruPass) { $out .= qq |<input type="hidden" name="mPass" value="$in{'mPass'}">\n|; } # 閲覧者限定時
		$out .= <<EOM;
<input type="hidden" name="mode" value="$mode">
<select name="page">
EOM
		foreach (0 .. $last2) {
			my $z = $_ + 1;
			my $page2 = $_ * $pageView;
			if ($page == $page2) { $out .= qq |<option value="$page2" selected>$zページ\n|; }
			else { $out .= qq |<option value="$page2">$zページ\n|; }
		}
		$out .= <<"EOM";
</select>
<input type="submit" value="表\示" class="f">
</td>
</form>
EOM

	} else {
		$out .= qq |<td>（次のページはありません）</td>\n|;
	}

	if ($mode eq 'past' && $pageLink2 ne '') { $out .= qq |<td>　[<a href="#top">$pageLink2</a>]</td>\n|; }

	$out .= qq |</tr>\n</table>\n|;

	if ($str eq 'skin') { return $out; }
	else { print $out; }
}

#-------------------------------------------------
#  入室画面
#-------------------------------------------------
sub enter {
	local($cpwd);
	# クッキー取得
	if ($miruPass) {
		($cpwd) = &get_cookie('GATE');
	}

	&header;
	&uemini_link;
	&ue_msg("#800080","#FFFFFF","管理モード");

	if (!$mspass) { &error("マスターパスワードが設定されていません"); }

	print <<EOM;
<div align="center">
<h4>希望の操作の欄にパスワードを入力してください</h4>
<table border="0">
<tr>
  <th>記　事　管　理</th>
  <form action="$admin" method="POST">
  <td>
  <input type=hidden name=mode value="admin">
EOM
	if ($room ne '') { print qq |$multi_form\n|; }
	if ($miruPass) { 
		print <<EOM;
  入室パスワード</td>
  <td><input type=password name="mPass" size="8" value="$cpwd"class=f></td>
</tr>
<tr><td><br></td>
  <td>マスターパスワード</td>
  <td><input type=password name="pass" size="8" class=f></td>
</tr>
<tr><td><br></td>
  <td colspan=2 align="center"><input type=submit value=" 認　証 ">
EOM
	} else {
		print <<EOM;
  <input type=password name="pass" size="8" class=f></td>
  <td><input type=submit value=" 認証 ">
EOM
	}
	print <<EOM;
  </td>
  </form>
</tr>
<tr>
  <th>設定データ編集</th>
  <form action="$setup" method="POST">
  <td>
  <input type=hidden name=mode value="addata">
EOM
	if ($room ne '') { print qq |$multi_form\n|; }
	if ($miruPass) { 
		print <<EOM;
  入室パスワード</td>
  <td><input type=password name="mPass" size="8" value="$cpwd"class=f></td>
</tr>
<tr><td><br></td>
  <td>マスターパスワード</td>
  <td><input type=password name="pass" size="8" class=f></td>
</tr>
<tr><td><br></td>
  <td colspan="2" align="center"><input type=submit value=" 認　証 ">
EOM
	} else {
		print <<EOM;
  <input type=password name="pass" size="8" class=f></td>
  <td><input type=submit value=" 認証 ">
EOM
	}
	print <<EOM;
  </td>
  </form>
</tr>
</table>
</div>
</body>
</html>
EOM
	exit;
}

#-------------------------------------------------
#  絵文字入力フォーム <e-PAD>
#-------------------------------------------------
sub em_form {
	$ihtm = "$ijf" . "i.htm";
	$j1htm = "$ijf" . "j1.htm";
	$e1htm = "$ijf" . "e1.htm";
}

#-------------------------------------------------
#  ホスト名とUserAgentの表示
#-------------------------------------------------
sub HosUaOut {
	local ($ho,$UA) = split(/<:>/,$_[0]);

	print qq |<div align=\"right\" style=\"font-size:90%; margin:0px 0.5em 0px 0px;\">\n|;
	if ($HosUaOut == 1 || $HosUaOut == 3) {
		# 暗号化
		if ($HosUaEnc == 1 || $HosUaEnc == 3) {
			$ho = &HosUaEnc($ho);
			$ho = "ホスト：$ho";
		}
		print qq |$ho\n|;
	}
	if ($HosUaOut == 3 && $UA) { print qq |<br>|; }
	if (($HosUaOut == 2 || $HosUaOut == 3) && $UA) {
		if ($telAgentPC == 1) { $UA = &telAgent($UA); } # 携帯機種名取得
		# 暗号化
		if ($HosUaEnc == 2 || $HosUaEnc == 3) {
			$UA = &HosUaEnc($UA);
			$UA = "ブラウザ：$UA";
		}
		print qq |$UA\n|;
	}
	print qq |</div>\n|;
}

#-------------------------------------------------
#  動画貼り付け 1
#-------------------------------------------------
# Special Thaks !!!
# ようつべリンカーR
# http://afox.s206.xrea.com/0ch_youtube_r_pl.20070620.txt
# YouTubeのURLが入力されたら再生画面を表示させたい
# http://katsubemakito.net/cgiperl/a-la-carte/youtubeurl-1.html
sub douga_on1 {
	my $com = shift;

	# YouTube
	my $pturl = 'http://((jp|www)\.)?youtube\.com/watch\?';
	my $tar   = 'v=([\w\_\-]{1,})';
	my $opt1  = '[\w\_\-\&=;+]*';
	my $opt2  = '[\w\_\-\&=;+<>]{1,}';

	# 閲覧者限定・auto_link有効時 (オプション指定時サポート)
	if ($com =~ m|<a href="$script\?(${multi_link})?mode=jump&amp;url=$pturl$opt1$tar$opt1" target="_blank">$pturl$opt2<\/a>|i) {
		$com =~ s|(<a href="$script\?(${multi_link})?mode=jump&amp;url=$pturl$opt1$tar$opt1" target="_blank">$pturl$opt2</a>)|&youtube_on($1,$5)|ieg;
	# auto_link有効時 (オプション指定時サポート)
	} elsif ($com =~ m|<a href="$pturl$opt1$tar$opt1" target="_blank">$pturl$opt2</a>|i) {
		$com =~ s|(<a href="$pturl$opt1$tar$opt1" target="_blank">$pturl$opt2</a>)|&youtube_on($1,$4)|ieg;
	# auto_link無効時 (オプション指定時サポート)
	} elsif ($com =~ m|$pturl$opt1$tar$opt1|i) {
		$com =~ s|($pturl$opt1$tar$opt1)|&youtube_on($1,$4)|ieg;
	}

	# ニコニコ動画
	# 以前はこれで行けてたけど、ダメになったみたい
#	$com =~ s|<a href="http://(www\.)?nicovideo.jp/watch/([^<]+)" target="_blank">http://(www\.)?nicovideo.jp/watch/([^<]+)</a>|<embed src=http://nicosns.inventor.jp/play/FlowPlayer.swf?config={videoFile:'http://nicosns.inventor.jp/watch/$2',loop:false} width=500 height=410></embed><br><iframe src=http://www.nicovideo.jp/thumb?v=$2 width=500  scrolling=no border=0 frameborder=0></iframe>|g;

	$pturl = 'http://(www\.)?nicovideo.jp/watch/';

	# 閲覧者限定・auto_link有効時
	if ($com =~ m|<a href="$script\?(${multi_link})?mode=jump&amp;url=$pturl(\w+)" target="_blank">$pturl([\w<>]+)</a>|i) {
		$com =~ s|(<a href="$script\?(${multi_link})?mode=jump&amp;url=$pturl(\w+)" target="_blank">$pturl([\w<>]+)</a>)|&nico_on($1,$4,2)|ieg;
	# auto_link有効時
	} elsif ($com =~ m|<a href="$pturl(\w+)" target="_blank">$pturl([\w<>]+)</a>|i) {
		$com =~ s|(<a href="$pturl(\w+)" target="_blank">$pturl([\w<>]+)</a>)|&nico_on($1,$3,1)|ieg;
	# auto_link無効時
	} elsif ($com =~ m|$pturl(\w+)|i) {
		$com =~ s|($pturl(\w+))|&nico_on($1,$3)|ieg;
	}

	# GyaOうたブロ
	$pturl = 'http://www.gyao.jp/utablog/play.php\?';

	# 閲覧者限定・auto_link有効時
	if ($com =~ m|<a href="$script\?(${multi_link})?mode=jump&amp;url=${pturl}contents_id=(uta\d{1,})" target="_blank">$pturl([\w<>=]+)</a>|i) {
		$com =~ s|(<a href="$script\?(${multi_link})?mode=jump&amp;url=${pturl}contents_id=(uta\d{1,})" target="_blank">$pturl([\w<>=]+)</a>)|&utablog_on($1,$3)|ieg;
	# auto_link有効時
	} elsif ($com =~ m|<a href="${pturl}contents_id=uta\d{1,}" target="_blank">$pturl([\w<>=]+)</a>|i) {
		$com =~ s|(<a href="${pturl}contents_id=(uta\d{1,})" target="_blank">$pturl([\w<>=]+)</a>)|&utablog_on($1,$2)|ieg;
	# auto_link無効時
	} elsif ($com =~ m|${pturl}contents_id=(uta\d{1,})|i) {
		$com =~ s|(${pturl}contents_id=(uta\d{1,}))|&utablog_on($1,$2)|ieg;
	}

	if (!$dougaOn2) { # 動画貼り付け機能2が有効ならそちらでのみ実行
		$com =~ s|</div><br>|</div>|g; # 間が空いてしまうから。
	}
	return $com;
}

#-------------------------------------------------
#  動画貼り付け YouTube置換
#-------------------------------------------------
# $ut_url リンク先
# $ut_nam 動画指定
sub youtube_on {
	my ($ut_url,$ut_nam) = @_;
#	my $str = qq |<div><object width="320" height="240"><param name="movie" value="http://www.youtube.com/v/$ut_nam"></param><param name="wmode" value="transparent"></param><embed src="http://www.youtube.com/v/$ut_nam" type="application/x-shockwave-flash" wmode="transparent" width="320" height="265"></embed></object><br>[$ut_url]</div>|;
	my $str;
	# プレーヤーを埋め込み
	if ($dougaOn1 == 1) {
		# HD再生対応
		$str = qq |<div><object width="400" height="245"><param name="movie" value="http://www.youtube.com/v/$ut_nam&hl=ja&fs=1"></param><param name="allowFullScreen" value="true"></param><param name="allowscriptaccess" value="always"></param><embed src="http://www.youtube.com/v/$ut_nam&hl=ja&fs=1" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="400" height="245"></embed></object><br>[$ut_url]</div>|;
	# ポップアップ再生
	} else {
		my $tmp = $miruPass ? "$script?mode=jump&amp;url=http://www.youtube.com/v/$ut_nam" : "http://www.youtube.com/v/$ut_nam";
#-# 	↓これだとWindow再使用の時にアクティブにならない
#-#		my $str = qq |<div><a href="$tmp" onclick="javascript:window.open(this.href,'YouTube','width=500,height=300,menubar=no,toolbar=no,scrollbars=no,resizable=yes'); return false;" title="別窓再生" target="YouTube"><img src="http://img.youtube.com/vi/$ut_nam/default.jpg" border="0"></a><br>[$ut_url]</div>|;
		my $tmp2 = "'$tmp'";
		$str = qq |<div><a href="$tmp" onclick="javascript:windowOpen1($tmp2,'YouTube','500','300'); return false;" title="YouTube再生" target="YouTube"><img src="http://img.youtube.com/vi/$ut_nam/default.jpg" border="0"></a><br>[$ut_url]</div>|;
	}
	return $str;
}

#-------------------------------------------------
#  動画貼り付け ニコニコ動画置換
#-------------------------------------------------
# $ut_url リンク先
# $ut_nam 動画指定
sub nico_on {
	my ($ut_url,$ut_nam,$tmp) = @_;
	if ($tmp == 1) {
		$tmp = qq|[→<a href="http://dic.nicovideo.jp/v/$ut_nam" target="_blank" title="http://dic.nicovideo.jp/v/$ut_nam">アカウントない人はこっち</a>]|;
	} elsif ($tmp == 2) {
		$tmp = qq|[→<a href="$script?${multi_link}mode=jump&amp;url=http://dic.nicovideo.jp/v/$ut_nam" target="_blank" title="http://dic.nicovideo.jp/v/$ut_nam">アカウントない人はこっち</a>]|;
	} else {
		$tmp = qq|[アカウントない人は→http://dic.nicovideo.jp/v/$ut_nam]|;
	}
	my $str;
	# プレーヤーを埋め込み
	if ($dougaOn1 == 1) {
		$str = qq |<div style="width:320px; border:solid 1px #CCC;"><iframe src="http://www.nicovideo.jp/thumb?v=$ut_nam" width="100%" height="198" scrolling="no" border="0" frameborder="0"><p style="font-size:12px; padding:4px;">[iframe対応ブラウザでご覧下さい]</p></iframe><br>[$ut_url]<br>$tmp</div>|;
	# ポップアップ再生
	} else {
		$str = qq |<div style="width:250px; border:solid 1px #CCC;"><iframe src="http://www.nicovideo.jp/thumb?v=$ut_nam" width="100%" height="120" scrolling="no" border="0" frameborder="0"><p style="font-size:90%; padding:4px;">[iframe対応ブラウザでご覧下さい]</p></iframe></div><div>[$ut_url]<br>$tmp</div>|;
	}
	return $str;
}

#-------------------------------------------------
#  GyaOうたブロ
#-------------------------------------------------
# $ut_url リンク先
# $ut_nam 動画指定
sub utablog_on {
	my ($ut_url,$ut_nam) = @_;
	my $tmp = $miruPass ? "$script?mode=jump&amp;url=http://www.gyao.jp/utablog/wmv.php?contents_id=$ut_nam" : "http://www.gyao.jp/utablog/wmv.php?contents_id=$ut_nam";
	my $tmp2 = "'$tmp'";
	my $str = qq |<div><a href="$tmp" onclick="javascript:windowOpen1($tmp2,'utablog','350','340'); return false;" title="utablog再生" target="utablog"><img src="http://www.gyao.jp/utablog/Thumbnail/$ut_nam.jpg" border="0"></a><br>[$ut_url]</div>|;
}

#-------------------------------------------------
#  動画貼り付け 2
#-------------------------------------------------
# asf asx wmv mov mp4 swf rm ram flvファイルのURL
sub douga_on2 {
	my $com = shift;

	my $pturl  = 'http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\,]+';
	my $pturl2 = 'http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\,\<\>]+';

	# flv player
	# yybbs.cgiの設置ディレクトリにflvplayer.swfが必要です。
	# ↑Rev2.38、2.38Mで↓に変更
	# flvplayer.swfのパスは[20]拡張設定2−flvplayer.swfのパスで指定します。
	# 閲覧者限定・auto_link有効時
	if ($com =~ m|<a href="$script\?(${multi_link})?mode=jump&amp;url=$pturl\.flv" target="_blank">$pturl2\.(<br>)?f(<br>)?l(<br>)?v</a>|i) {
		$com =~ s|(<a href="($script\?(${multi_link})?mode=jump&amp;url=($pturl\.flv))" target="_blank">$pturl2\.(<br>)?f(<br>)?l(<br>)?v</a>)|&flvplayer_on($1,$4)|ieg;
	# auto_link有効時
	} elsif ($com =~ m|<a href="$pturl\.flv" target="_blank">$pturl2\.(<br>)?f(<br>)?l(<br>)?v</a>|i) {
		$com =~ s|(<a href="($pturl\.flv)" target="_blank">$pturl2\.(<br>)?f(<br>)?l(<br>)?v</a>)|&flvplayer_on($1,$2)|ieg;
	# auto_link無効時
	} elsif ($com =~ m|$pturl\.flv|i) {
		$com =~ s|($pturl\.flv)|&flvplayer_on($1,$1)|ieg;
	}

	# QuickTime
	# 閲覧者限定・auto_link有効時
	if ($com =~ m/<a href="$script\?(${multi_link})?mode=jump&amp;url=$pturl\.(mov|mp4)" target="_blank">$pturl2\.((<br>)?m(<br>)?o(<br>)?v|(<br>)?m(<br>)?p(<br>)?4)<\/a>/i) {
		$com =~ s/(<a href="($script\?(${multi_link})?mode=jump&amp;url=($pturl\.(mov|mp4)))" target="_blank">$pturl2\.((<br>)?m(<br>)?o(<br>)?v|(<br>)?m(<br>)?p(<br>)?4|)<\/a>)/$dougaOn2 == 1 ? &quicktime_on($1,$4) : &extplayer_on($1,$4)/ieg;
	# auto_link有効時
	} elsif ($com =~ m/<a href="$pturl\.(mov|mp4)" target="_blank">$pturl2\.((<br>)?m(<br>)?o(<br>)?v|(<br>)?m(<br>)?p(<br>)?4)<\/a>/i) {
		$com =~ s/(<a href="($pturl\.(mov|mp4))" target="_blank">$pturl2\.((<br>)?m(<br>)?o(<br>)?v|(<br>)?m(<br>)?p(<br>)?4)<\/a>)/$dougaOn2 == 1 ? &quicktime_on($1,$2) : &extplayer_on($1,$2)/ieg;
	# auto_link無効時
	} elsif ($com =~ m/$pturl\.(mov|mp4)/i) {
		$com =~ s/($pturl\.(mov|mp4))/$dougaOn2 == 1 ? &quicktime_on($1,$1) : &extplayer_on($1,$1)/ieg;
	}

	if ($dougaOn2 == 2) {
		# mp3
		# 閲覧者限定・auto_link有効時
		if ($com =~ m/<a href="$script\?(${multi_link})?mode=jump&amp;url=$pturl\.mp3" target="_blank">$pturl2\.(<br>)?m(<br>)?p(<br>)?3<\/a>/i) {
			$com =~ s/(<a href="($script\?(${multi_link})?mode=jump&amp;url=($pturl\.(mov|mp4)))" target="_blank">$pturl2\.(<br>)?m(<br>)?p(<br>)?4<\/a>)/&extplayer_on($1,$4)/ieg;
		# auto_link有効時
		} elsif ($com =~ m/<a href="$pturl\.mp3" target="_blank">$pturl2\.(<br>)?m(<br>)?p(<br>)?3<\/a>/i) {
			$com =~ s/(<a href="($pturl\.mp3)" target="_blank">$pturl2\.(<br>)?m(<br>)?p(<br>)?3<\/a>)/&extplayer_on($1,$2)/ieg;
		# auto_link無効時
		} elsif ($com =~ m/$pturl\.mp3/i) {
			$com =~ s/($pturl\.mp3)/&extplayer_on($1,$1)/ieg;
		}
	}

	# 以下のファイルは変換しない
	# 外部プレーヤーでポップアップ再生
	if ($dougaOn2 == 2) {
		$com =~ s|</div><br>|</div>|g; # 間が空いてしまうから。
		return $com;
	}

	# Windows Media Player
	# 閲覧者限定・auto_link有効時
	if ($com =~ m/<a href="$script\?(${multi_link})?mode=jump&amp;url=$pturl\.(as(f|x)|wmv)" target="_blank">$pturl2\.((<br>)?a(<br>)?s(<br>)?(f|x)|(<br>)?w(<br>)?m(<br>)?v)<\/a>/i) {
		$com =~ s/(<a href="($script\?(${multi_link})?mode=jump&amp;url=($pturl\.(as(f|x)|wmv)))" target="_blank">$pturl2\.((<br>)?a(<br>)?s(<br>)?(f|x)|(<br>)?w(<br>)?m(<br>)?v|)<\/a>)/&wmp_on($1,$4)/ieg;
	# auto_link有効時
	} elsif ($com =~ m/<a href="$pturl\.(as(f|x)|wmv)" target="_blank">$pturl2\.((<br>)?a(<br>)?s(<br>)?(f|x)|(<br>)?w(<br>)?m(<br>)?v)<\/a>/i) {
		$com =~ s/(<a href="($pturl\.(as(f|x)|wmv))" target="_blank">$pturl2\.((<br>)?a(<br>)?s(<br>)?(f|x)|(<br>)?w(<br>)?m(<br>)?v|)<\/a>)/&wmp_on($1,$2)/ieg;
	# auto_link無効時
	} elsif ($com =~ m/$pturl\.(as(f|x)|wmv)/i) {
		$com =~ s/($pturl\.(as(f|x)|wmv))/&wmp_on($1,$1)/ieg;
	}

	# flash player
	# 閲覧者限定・auto_link有効時
	if ($com =~ m|<a href="$script\?(${multi_link})?mode=jump&amp;url=$pturl\.swf" target="_blank">$pturl2\.(<br>)?s(<br>)?w(<br>)?f</a>|i) {
		$com =~ s|(<a href="($script\?(${multi_link})?mode=jump&amp;url=($pturl\.swf))" target="_blank">$pturl2\.(<br>)?s(<br>)?w(<br>)?f</a>)|&flashplayer_on($1,$4)|ieg;
	# auto_link有効時
	} elsif ($com =~ m|<a href="$pturl\.swf" target="_blank">$pturl2\.(<br>)?s(<br>)?w(<br>)?f</a>|i) {
		$com =~ s|(<a href="($pturl\.swf)" target="_blank">$pturl2\.(<br>)?s(<br>)?w(<br>)?f</a>)|&flashplayer_on($1,$2)|ieg;
	# auto_link無効時
	} elsif ($com =~ m|$pturl\.swf|i) {
		$com =~ s|($pturl\.swf)|&flashplayer_on($1,$1)|ieg;
	}

	# Real Player
	# 閲覧者限定・auto_link有効時
	if ($com =~ m|<a href="$script\?(${multi_link})?mode=jump&amp;url=$pturl\.ra?m" target="_blank">$pturl2\.(<br>)?r(<br>)?a?(<br>)?m</a>|i) {
		$com =~ s|(<a href="($script\?(${multi_link})?mode=jump&amp;url=($pturl\.ra?m))" target="_blank">$pturl2\.(<br>)?r(<br>)?a?(<br>)?m</a>)|&realplayer_on($1,$4)|ieg;
	# auto_link有効時
	} elsif ($com =~ m|<a href="$pturl\.ra?m" target="_blank">$pturl2\.(<br>)?r(<br>)?a?(<br>)?m</a>|i) {
		$com =~ s|(<a href="($pturl\.ra?m)" target="_blank">$pturl2\.(<br>)?r(<br>)?a?(<br>)?m</a>)|&realplayer_on($1,$2)|ieg;
	# auto_link無効時
	} elsif ($com =~ m|$pturl\.ra?m|i) {
		$com =~ s|($pturl\.ra?m)|&realplayer_on($1,$1)|ieg;
	}

	$com =~ s|</div><br>|</div>|g; # 間が空いてしまうから。
	return $com;
}

#-------------------------------------------------
#  動画貼り付け Windows Media Player置換
#-------------------------------------------------
# $ut_url リンク先
# $ut_nam 動画指定
sub wmp_on {
	my ($ut_url,$ut_nam) = @_;
	my $str = qq |<div><object classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" ID="mplayer" width="320" height="285"><param name="src" value="$ut_nam"><param name="ShowStatusBar" value="true"><param name="AutoStart" value="false"><param name="enableContextMenu" value="false"><param name="stretchToFit" value="true"><param name="uiMode" value="full"><param name="Volume" value="100"><embed src="$ut_nam" type="application/x-mplayer2" width="320" height="285" AnimationStart="0" PlayCount="1" ShowControls="1" EnablePositionControls="1" ShowPositionControls="1" ShowAudioControls="1" ShowTracker="1" ShowStatusBar="1" CanSeek="1" AutoSize="0" AllowScan="0" AutoStart="0" ClickToPlay="0" EnableContextmenu="0" TransparentStart="0" Volume="100"></embed></object><br>[$ut_url]</div>|;
}

#-------------------------------------------------
#  動画貼り付け QuickTime置換
#-------------------------------------------------
# $ut_url リンク先
# $ut_nam 動画指定
sub quicktime_on {
	my ($ut_url,$ut_nam) = @_;
	my $str = qq |<div><object classid="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" width="320" height="285"><param name="src" value="$ut_nam"><param name="autoplay" value="false"><param name="controller" value="true"><embed src="$ut_nam" width="320" height="285" autoplay="false" controller="true" type="video/quicktime"></embed></object><br>[$ut_url]</div>|;
}

#-------------------------------------------------
#  動画貼り付け flash player置換
#-------------------------------------------------
# $ut_url リンク先
# $ut_nam 動画指定
sub flashplayer_on {
	my ($ut_url,$ut_nam) = @_;
	my $str = qq |<div><OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" WIDTH="320" HEIGHT="285" ALIGN=""><PARAM NAME="movie" VALUE="$ut_nam"><PARAM NAME="quality" VALUE="autolow"><PARAM NAME="bgcolor" VALUE="#FFFFFF"><EMBED src="$ut_nam" quality="autolow" bgcolor="#FFFFFF"  WIDTH="320" HEIGHT="285" ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED></OBJECT><br>[$ut_url]</div>|;
}

#-------------------------------------------------
#  動画貼り付け Real Player置換
#-------------------------------------------------
# $ut_url リンク先
# $ut_nam 動画指定
sub realplayer_on {
	my ($ut_url,$ut_nam) = @_;
	my $id = int(rand(10000)) . substr($ut_nam,-15,-3) . int(rand(10000));
	$id =~ s/\W//g;
	my $str = qq |<div><object id="$id" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="320" height="240"><param name="controls" value="ImageWindow"><param name="console" value="$id"><param name="autostart" value="false"><param name="maintainaspect" value="true"><param name="nojava" value="true"><param name="src" value="$ut_nam"><embed type="audio/x-pn-realaudio-plugin" src="$ut_nam" width="320" height="240" nojava="true" console="$id" controls="ImageWindow" autostart="false" pluginspage="http://www.real.com/player/index.html"></embed></object><br><object id="$id" classid="clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA" width="320" height="30"><param name="src" value="$ut_nam"><param name="controls" value="ControlPanel"><param name="autostart" value="false"><param name="console" value="$id"><param name="nojava" value="true"><embed type="audio/x-pn-realaudio-plugin" src="$ut_nam" width="320" height="30" pluginspage="http://www.real.com/player/index.html" controls="ControlPanel" autostart="false" console="$id" nolabels="true" nojava="true"></embed></object><br>[$ut_url]</div>|;
}

#-------------------------------------------------
# 動画貼り付け flv player置換
#-------------------------------------------------
# Special Thanks!
# FLVやMP3をWEB上で再生する（その3） - JW FLV Media Player 4.x FLVやMP3をWEB上で再生する（その3） - JW FLV Media Player 4.x 
# http://www.nobodyplace.com/mutter/2009/02/09/172129.php
# yybbs.cgiの設置ディレクトリにflvplayer.swfが必要です。
# ↑Rev2.38、2.38Mで↓に変更
# flvplayer.swfのパスは[20]拡張設定2−flvplayer.swfのパスで指定します。
# $ut_url リンク先
# $ut_nam 動画指定
sub flvplayer_on {
	my ($ut_url,$ut_nam) = @_;
	my $str;
	# プレーヤーを埋め込み
	if ($dougaOn2 == 1) {
#-# ↓これだとflv以外別のアプリで再生しようとする
#-#		$str = qq |<div><object id="flvplayer" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="320" height="260"><param name="movie" value="$flvplayer?file=$ut_nam"><param name="wmode" value="transparent"><embed name="wiitube_refine" src="$flvplayer?file=$ut_nam" width="320" height="260" wmode="opaque" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer"></embed></object><br>[$ut_url]</div>|;
		$str = qq|<div><embed name="player1" id="player1" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" width="320" height="260" bgcolor="#FFFFFF" src="$flvplayer" allowfullscreen="true" allowscriptaccess="always" flashvars="file=$ut_nam"></embed><br>[$ut_url]</div>|;

	# flvplayer.swfでポップアップ再生
	} else {
		my $tmp;
		my $pturl  = 'http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\,]+';
		my $pturl2 = 'http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\,\<\>]+';
		# 閲覧者限定・auto_link有効時
		if ($ut_url =~ m|<a href="($script\?(${multi_link})?mode=jump&amp;url=$pturl\.flv)" target="_blank">$pturl2\.(<br>)?f(<br>)?l(<br>)?v</a>|i) {
			$tmp = $1;
		# auto_link有効時
		} elsif ($ut_url =~ m|<a href="($pturl\.flv)" target="_blank">$pturl2\.(<br>)?f(<br>)?l(<br>)?v</a>|i) {
			$tmp = $1;
		# auto_link無効時
		} elsif ($com =~ m|($pturl\.flv)|i) {
			$tmp = $1;
		}
		my $tmp2 = "'$flvplayer?file=$ut_nam'";
		$str = qq |<div>【<a href="$tmp" onclick="javascript:windowOpen1($tmp2,'flvplayer','500','300'); return false;" title="$ut_nam" target="flvplayer">POPUP再生</a>】<br>[$ut_url]</div>|;# ポップアップ
	}
	return $str;
}

#-------------------------------------------------
# 動画貼り付け 外部プレーヤーでポップアップ再生
#-------------------------------------------------
sub extplayer_on {
	my ($ut_url,$ut_nam) = @_;
	my ($str,$tmp);
	my $pturl  = 'http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\,]+';
	my $pturl2 = 'http\:[\w\.\~\-\/\?\&\+\=\:\@\%\;\#\%\,\<\>]+';
	# 閲覧者限定・auto_link有効時
	if ($ut_url =~ m|<a href="($script\?(${multi_link})?mode=jump&amp;url=$pturl\.\w{2,3})" target="_blank">$pturl2\..+</a>|i) {
		$tmp = $1;
	# auto_link有効時
	} elsif ($ut_url =~ m|<a href="($pturl\.\w{2,3})" target="_blank">$pturl2\..+</a>|i) {
		$tmp = $1;
	# auto_link無効時
	} elsif ($com =~ m|($pturl\.\w{2,3})|i) {
		$tmp = $1;
	}
	my $tmp2 = "'$script?${multi_link}mode=extplay&amp;file=$ut_nam'";
	$str = qq |<div>【<a href="$tmp" onclick="javascript:windowOpen1($tmp2,'extplay','500','300'); return false;" title="$ut_nam" target="extplay">POPUP再生</a>】<br>[$ut_url]</div>|;
	return $str;
}

#-------------------------------------------------
#  携帯のみのサブルーチン
#-------------------------------------------------
sub com_seigen { &error("無効な機能\の呼び出しです(ip-1)"); }
sub keitai_col { &error("無効な機能\の呼び出しです(ip-2)"); }
sub keitai_ico { &error("無効な機能\の呼び出しです(ip-3)"); }
sub FileOuti { &error("無効な機能\の呼び出しです(ip-4)"); }
sub tel_half { &error("無効な機能\の呼び出しです(ip-5)"); }
sub HosUaOuti { &error("無効な機能\の呼び出しです(ip-6)"); }
sub UtnCheck { &error("無効な機能\の呼び出しです(ip-7)"); }
sub color1 { &error("無効な機能\の呼び出しです(ip-8)"); }
sub color3 { &error("無効な機能\の呼び出しです(ip-9)"); }
sub color2 { &error("無効な機能\の呼び出しです(ip-10)"); }
sub mvbtn4_2 { &error("無効な機能\の呼び出しです(ip-11)"); }


1;