#!/usr/bin/perl
#発射＆リロード
# 99/07/03 update(v5.1)  by 普通
#====================================================================
#ご協力を頂いた方
#oidon<E-MAIL:oidon@iod.co.jp
#====================================================================
#【？】# 既にあればそこまでのパスを指定します。
require './jcode.pl';
require './chat_env.cgi';
require './chat_lib.pl';
#require './zchat_diccnv.pl';
&env_init;
&ng_check();
###########################################################################################
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$mon++;
$date_now = "$year年$mon月$mday日$hour時$min分";
$date = "$mon月$mday日$hour時$min分";
$time = "$mday日$hour時$min分";
$times = time;
$ipaddr = $ENV{'REMOTE_ADDR'};
$ipaddr =~ s/\.//g;
if ($remote_host eq 1) {$rhost = "/$ENV{'REMOTE_HOST'}";}
else                   {$rhost = '';}
#===============================================================
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	&jcode'convert(*value,'sjis');
	$in{$name} = $value;
}
#===============================================================
##################################################Option:002 by Add Start
#	@face =('m(__)m','(^○^)','(;_;)','(^^;)','(ﾟ-ﾟ)','(^^)','(>_<)');		#顔文字設定
##################################################Option:002 by Add End
if ($in{'cook'} eq 'yes') {&set_cookie();} #クッキー登録
print "Content-type: text/html\n\n";
if ($in{'roomno'} && $in{'chatname'}) {
	&profchk();
	if ($frame eq 'yes') {&main2();}
	else                 {&main();}}
else {&error("このスクリプトを動作させる為の情報が不足しています。");}
exit;

sub profchk {
	$roomno = $in{'roomno'};			#Ｃｈａｔ室Ｎｏ
	&roomset();							#部屋属性取得
	$chatname = $in{'chatname'};		#ハンドル名
	&rom_proc();						#参加者登録、登参加者・ＲＯＭ精査

	$profno = $bmf_profno;				#プロフィールＮｏ
	$java   = $bmf_java;				#java script利用可否
	$seq    = $bmf_seq;					#ささやき受付可否
	$color  = $bmf_ccolor;				#発言文字カラー

	if ($in{'font'}) {					#文字サイズ
		$font_s  = "<FONT SIZE=$in{'font'}>";
		$font_e  = "</FONT>";
	}
##################################################Option:002 by Add Start
#	if ($in{'face'} && !($in{'face'} eq 'none')) {$face = $in{'face'};}
##################################################Option:002 by Add End
	$frame = $in{'frame'};				#Frame利用可否
	$seqmem     = $in{'seqmem'};		#ささやき相手殿
	if ($in{'seqmem'} eq 'noneseq') {;}	#ささやき要求
	else {$seqreq = '1';}

#部屋表現セット
##############フラッシュバージョンへ変更############
	if ($ficon eq 'y') {
#		$roomdisp  = "<IMG SRC=\"${gbase}animal$roomno.gif\">";
#		$roomdisp2 = "<IMG SRC=\"${gbase}animal$roomno.gif\" HEIGHT=16 WIDTH=16 BORDER=0>";
		$roomdisp  = "<EMBED SRC=\"${flbase}animal$roomno.swf\" swLiveConnect=FALSE WIDTH=39 HEIGHT=40 QUALITY=high BGCOLOR=#FFFFFF TYPE=application/x-shockwave-flash></EMBED>";
		$roomdisp2 = "<EMBED SRC=\"${flbase}animal$roomno.swf\" swLiveConnect=FALSE WIDTH=16 HEIGHT=16 QUALITY=high BGCOLOR=#FFFFFF TYPE=application/x-shockwave-flash></EMBED>";
##############################################
	}else{
		$roomdisp  = $bhf_roomname;
		$roomdisp2 = $bhf_roomname;
	}
#あいこん一覧リンク
	if ($ic_chat) {
		if ($ic_chat eq '1') {
			$ic_disp = "<LI><A HREF=\"${sbase}chat_icon.cgi\" TARGET=\"_blank\">あいこん一覧</A>\n";
		} else {
			if ($frame eq 'yes') {
				$ic_disp = "<LI><A HREF=\"${sbase}chat_icon.cgi\" TARGET=\"text\">あいこん一覧</A>\n";
			} else {
				$ic_disp = "<LI><A HREF=\"${sbase}chat_icon.cgi\">あいこん一覧</A>\n";
			}
		}
	}
#発言ランキングリンク
	if ($ranking) {
		if ($frame eq 'yes') {
			$disp9 = "<LI><A HREF=\"${sbase}zchat_rank.cgi\" TARGET=\"text\">発言ランキング</A>\n";
		} else {
			$disp9 = "<LI><A HREF=\"${sbase}zchat_rank.cgi\">発言ランキング</A>\n";
		}
	}
#管理者ＩＣＱ呼び出し
	if ($func_icq eq '1' && !($bmf_end)) {
		$disp8 = "<LI><A HREF=\"${sbase}zchat_icqcall.cgi\" TARGET=\"text\">管理人ＩＣＱ呼び出し♪</A>\n";
	}
#プロフィールリンク
	if ($profno) {
		$chatname_disp = "<A HREF=\"${sbase}zchat_profref.cgi?regno=$profno\"><FONT COLOR=\"$color\">$chatname</FONT></A>";}
	else {$chatname_disp = $chatname;}
}

#非フレーム時処理
sub main {
	print "<HTML><HEAD><TITLE>$title2</TITLE></HEAD>\n";
	print<<"__EOF__";
$bhf_pgbody
<TABLE><TR>
<TD VALIGN=top><FORM METHOD="POST" ACTION="${sbase}chat_start.cgi">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<FONT COLOR="$color">発言</FONT>：<INPUT TYPE=text NAME="comment" SIZE="60" VALUE="">
__EOF__
#ささやき相手メンバー表示
	&seqmember ();
		print<<"__EOF__";
文字サイズ<SELECT NAME="font">
<OPTION VALUE="1">極小
<OPTION VALUE="2">小
<OPTION VALUE="3" selected>通常
<OPTION VALUE="4">大
<OPTION VALUE="5">極大
</SELECT>
__EOF__
##################################################Option:002 by Add Start
#	print<<"__EOF__";
#顔文字<SELECT NAME="face">
#<OPTION VALUE="none" selected>無し
#__EOF__
#	foreach $face (@face) {
#		print "<OPTION VALUE='$face'>$face\n";
#	}
#	print<<"__EOF__";
#</SELECT>
#__EOF__
##################################################Option:002 by Add End
		print<<"__EOF__";
<INPUT TYPE=submit VALUE="発言／リロード"><BR>
自発言消し：<INPUT TYPE="checkbox" NAME=del VALUE="1">
<INPUT TYPE=reset VALUE="消去"></FORM>
__EOF__

	if ($java eq 'yes') {
		print<<"__EOF__";
<Script Language="JavaScript"><!--
document.forms[0].comment.focus();
// --></Script>
__EOF__
	}

######退室する########################################################
	print<<"__EOF__";
<TD VALIGN=bottom><FORM METHOD="POST" ACTION="${sbase}chat_end.cgi">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=submit VALUE="退室する"></FORM>
</TR></TABLE><P>
__EOF__


	if ($seqreq eq '1')    {&seqmems ();}	#ささやき要求時でのメンバー検索
	if ($in{'comment'})    {&commsg ();}	#発言内容の書き込み
	elsif ($in{'wait'})    {&retmsg ();}	#待機からの復帰の書き込み
	elsif ($in{'del'})     {&msg_del();}	#記録済み発言削除
&prcom2();								#発言内容の表示

	print<<"__EOF__";
<HR SIZE=2><TABLE><TR>
<TD><FORM METHOD="POST" ACTION="${sbase}chat_awho.cgi">
<INPUT TYPE=submit VALUE="全参加者を見る"></FORM>
<TD><FORM METHOD="POST" ACTION="${sbase}chat_pro.cgi">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=submit VALUE="諸手続"></FORM>
<TD><FORM METHOD="POST" ACTION="${sbase}chat_wait.cgi">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=submit VALUE="待機♪"></FORM><P>
</TABLE><HR NOSHADE><FONT FACE="ＭＳ Ｐゴシック">
<H2><STRONG>ここは、$title - $roomdispです。</STRONG></H2>

<FONT SIZE="+1">よ</FONT>うこそ、いらっしゃいませ！<STRONG><FONT SIZE="+1">「$chatname」</FONT></STRONG>さん。<FONT COLOR="#FF0000">じゃん</FONT>、じゃん<STRONG><FONT SIZE="+1">遊</FONT></STRONG>んで<STRONG><FONT SIZE="+1">言</FONT></STRONG>ってくださいね！<BR>
<UL><LI><FONT COLOR="$color">発言内容</FONT>の更新は「発言／リロード」ボタンを押してください。
<LI>お帰り<FONT COLOR="#FF0000">（退室）</FONT>は下の<FONT COLOR="#FF0000">「退室する」</FONT>ボタンを押してネ！（参加人数を間違えるので・・・）<BR>
$disp9
$disp8
<LI><A HREF="zoohelp.html" TARGET=_blank>HELP</A><BR>
$ic_disp
</UL></FONT><HR NOSHADE></BODY></HTML>
__EOF__
	exit(0);
}

#フレームモード表示判定
sub main2 {
	if    ($in{'wind'} eq 'f') {&main2_f();}	#発言投稿フレーム
	elsif ($in{'wind'} eq 't') {&main2_t();}	#発言表示フレーム
	else                       {&main2_1st();}	#フレーム初期表示
}

#フレーム初期表示（フレーム対応）
sub main2_1st {
	$w_chatname = $chatname;
	$e_chatname = &encode($w_chatname);
	print "<HTML><HEAD><TITLE>$title2</TITLE></HEAD>\n";
	print<<"__EOF__";
<FRAMESET ROWS="$u_frame,$d_frame">
<FRAME SRC="${sbase}chat_start.cgi?wind=f&roomno=$roomno&chatname=$e_chatname&frame=yes&rlt=40" NAME="form" TARGET="_self">
<FRAME SRC="${sbase}chat_start.cgi?wind=t&roomno=$roomno&chatname=$e_chatname&frame=yes&rlt=40&fstart=y" NAME="text">
</FRAMESET><NOFRAMES>
$bhf_pgbody
<TABLE><TR>
<TD VALIGN=bottom><FORM METHOD="POST" ACTION="${sbase}chat_end.cgi">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=submit VALUE="退室する"></FORM>
</TR></TABLE><HR SIZE=2>
<FONT FACE="ＭＳ Ｐゴシック">
<H2><STRONG>ここは、$title - $roomdispです。</STRONG></H2>
現在、この部屋はフレーム表\示モードにて動作しています。一旦退室し、非フレームにて入室願います<BR>
</FONT><HR NOSHADE></NOFRAMES></BODY></HTML>
__EOF__
}

#発言フォーム表示（フレーム対応）
sub main2_f {
	print "<HTML><HEAD><TITLE>$title2</TITLE>\n";

	if ($java eq 'yes') {
		print<<"__EOF__";
<Script Language="JavaScript">
<!--
function autoclear() {
if (self.document.send) {
if (self.document.send.comment) {
self.document.send.seqmem.options[0].selected = true;
self.document.send.font.options[2].selected = true;
self.document.send.del.checked = false;
__EOF__
##################################################Option:002 by Add Start
#		print<<"__EOF__";
#self.document.send.face.options[0].selected = true;
#__EOF__
##################################################Option:002 by Add End
		print<<"__EOF__";
self.document.send.comment.value = "";
self.document.send.comment.focus();
}
}
}
// -->
</Script>
__EOF__
		$jsubmit = "onSubmit=\"setTimeout(&quot;autoclear()&quot;,10)\"";
	}
	print<<"__EOF__";
</HEAD>$bhf_pgbody<TABLE><TR><TD VALIGN=top>
<FORM NAME=send METHOD="POST" ACTION="${sbase}chat_start.cgi" TARGET="text" $jsubmit>
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="frame" VALUE="yes">
<INPUT TYPE=hidden NAME="wind" VALUE="t">
<FONT COLOR="$color">発言</FONT>：<INPUT TYPE=text NAME="comment" SIZE="60" VALUE="">
__EOF__
#ささやき相手メンバー表示
	&seqmember ();
		print<<"__EOF__";
文字サイズ<SELECT NAME="font">
<OPTION VALUE="1">極小
<OPTION VALUE="2">小
<OPTION VALUE="3" selected>通常
<OPTION VALUE="4">大
<OPTION VALUE="5">極大
</SELECT>
__EOF__
##################################################Option:002 by Add Start
#	print<<"__EOF__";
#顔文字<SELECT NAME="face">
#<OPTION VALUE="none" selected>無し
#__EOF__
#	foreach $face (@face) {
#		print "<OPTION VALUE='$face'>$face\n";
#	}
#	print<<"__EOF__";
#</SELECT>
#__EOF__
##################################################Option:002 by Add End
	print<<"__EOF__";
<INPUT TYPE=submit VALUE="発言／リロード"><BR>
自動リロード ：<SELECT NAME=rlt>
<OPTION VALUE=50>50秒
<OPTION VALUE=40 SELECTED>40秒
<OPTION VALUE=30>30秒
<OPTION VALUE=20>20秒
<OPTION VALUE=0>手動
</SELECT>
CallBell：<INPUT TYPE="checkbox" NAME=bell VALUE="1">
自発言消し：<INPUT TYPE="checkbox" NAME=del VALUE="1">
<INPUT TYPE=reset VALUE="消去"></FORM>
<TD VALIGN=bottom ALIGN=right><FORM METHOD="POST" ACTION="${sbase}chat_end.cgi" TARGET="_parent">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=submit VALUE="退室する"></FORM>
</TR></TABLE><HR SIZE=2>

<TABLE><TR>
<TD><FORM METHOD="POST" ACTION="${sbase}chat_awho.cgi" TARGET="text">
<INPUT TYPE=submit VALUE="全参加者を見る"></FORM>
<TD><FORM METHOD="POST" ACTION="${sbase}chat_pro.cgi" TARGET="text">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="wind" VALUE="f">
<INPUT TYPE=hidden NAME="rlt" VALUE="$in{'rlt'}">
<INPUT TYPE=submit VALUE="諸手続"></FORM>

<TD><FORM METHOD="POST" ACTION="${sbase}chat_start.cgi" TARGET="form">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="frame" VALUE="yes">
<INPUT TYPE=hidden NAME="wind" VALUE="f">
<INPUT TYPE=submit VALUE="ささやき更新"></FORM>

</TABLE><HR NOSHADE><FONT FACE="ＭＳ Ｐゴシック">
<H2><STRONG>ここは、$title - $roomdispです。</STRONG></H2>
<FONT SIZE="+1">よ</FONT>うこそ、いらっしゃいませ！<STRONG><FONT SIZE="+1">「$chatname」</FONT></STRONG>さん。<FONT COLOR="#FF0000">じゃん</FONT>、じゃん<STRONG><FONT SIZE="+1">遊</FONT></STRONG>んで<STRONG><FONT SIZE="+1">言</FONT></STRONG>ってくださいね！<BR>
<UL><LI><FONT COLOR="$color">発言内容</FONT>の更新は「発言／リロード」ボタンを押してください。
<LI>お帰り<FONT COLOR="#FF0000">（退室）</FONT>は下の<FONT COLOR="#FF0000">「退室する」</FONT>ボタンを押してネ！（参加人数を間違えるので・・・）<BR>
$disp9
$disp8
<LI><A HREF="zoohelp.html" TARGET=_blank>HELP</A><BR>
$ic_disp
</UL></FONT><HR NOSHADE></BODY></HTML>
__EOF__
}
#発言内容表示（フレーム対応）
sub main2_t {
	$rlt        = $in{'rlt'};
	$w_chatname = $chatname;
	$e_chatname = &encode($w_chatname);
	print "<HTML><HEAD><TITLE>$title2</TITLE></HEAD>\n";
	if ($in{'rlt'}) {
		if ($in{'rlt'} eq '0') {;}
		else {
			if ($in{'bell'} eq '1') {
				print "<META HTTP-EQUIV=REFRESH CONTENT=\"$in{'rlt'};URL=$rurl1?roomno=$roomno&chatname=$e_chatname&frame=yes&wind=t&rlt=$rlt&bell=1\">\n";
			}
			else {
				print "<META HTTP-EQUIV=REFRESH CONTENT=\"$in{'rlt'};URL=$rurl1?roomno=$roomno&chatname=$e_chatname&frame=yes&wind=t&rlt=$rlt\">\n";
			}
		}
	}
	print "$bhf_pgbody2\n";
#ささやき要求時でのメンバー検索
	if ($seqreq eq '1') {&seqmems ();}
#発言内容の書き込み
	if ($in{'comment'}) {&commsg();}
	elsif ($in{'del'})     {&msg_del();}	#記録済み発言削除

#発言内容の表示
	if ($in{'bell'} eq '1') {print "<FONT COLOR=\"#FF00CC\">【ベルＯＮ】</FONT><BR>\n";}
	&prcom2();
	print "<HR NOSHADE>\n";
	if ($in{'rlt'}) {
		if ($in{'rlt'} eq '0') {print "<FONT SIZE=\"-1\">リロード：手動</FONT>\n";}
		else                   {print "<FONT SIZE=\"-1\">リロード：$in{'rlt'}秒</FONT>\n";}}
	else                       {print "<FONT SIZE=\"-1\">リロード：手動</FONT>\n";}
	print "</BODY></HTML>\n";
	exit(0);
}

#部屋属性取得
sub roomset {
	&ReadHeader ($roomno);
	($bhf_roomname,$bhf_intime,$bhf_outtime,$bhf_memcnt,$bhf_page,$bhf_ccolor,$bhf_roomenv,$bhf_roompass,$bhf_bkurl,$bhf_yobi1,$bhf_yobi2,$bhf_yobi3) = split(/｜|\n/,$hf_list);
	$bhf_page =~ s/body/BODY/gi;
	@page_set = split(/,/,$bhf_page);
	if ($bhf_page =~ /.+BODY.+BODY.+/) {
		if ($bgmode eq '1') {
			$bhf_pgbody  = $page_set[0];
			$bhf_pgbody2 = $page_set[1];
		} else {
			$bhf_pgbody  = $page_set[1];
			$bhf_pgbody2 = $page_set[0];
		}
		$bhf_line = $page_set[2];
	} else {
		$bhf_pgbody  = $page_set[0];
		$bhf_pgbody2 = $page_set[0];
		$bhf_line    = $page_set[1];
	}
	($bhf_roomenvi1,$bhf_roomenvi2,$bhf_roomenvo,$bhf_roomenvd,$bhf_imaxcnt) = split(/,/,$bhf_roomenv);
}
#参加者登録、参加者・ＲＯＭ精査
sub rom_proc {
	$memcnt = 0;
	$actmem = 0;
	&LockReadMember($roomno);
	foreach (@mf_list) {
		($tmf_roomno,$tmf_roomname,$tmf_chatname,$tmf_inenv,$tmf_inproc,$tmf_yobi) = split(/｜|\n/);
		($tmf_ipaddr,$tmf_intime,$tmf_latime,$tmf_agent,$tmf_profno,$tmf_yobi21) = split(/,/,$tmf_inproc);
		if ($tmf_ipaddr eq 'ROM') {
			$timewk = time - $tmf_intime;
			if    ($timewk > $rom_time)        {$_ = '';}
			elsif ($tmf_chatname eq $rom_name) {$_ = '';}
			else {push (@rom_list,$tmf_chatname);}
		} else {
			$timewk = time - $tmf_latime;
			if ($timewk > $aout_time)          {$_ = '';}
#			elsif ($tmf_ipaddr eq $ipaddr)     {$_ = '';}
			elsif ($tmf_chatname eq $chatname) {
				$bmf_latime = $tmf_latime;
				($bmf_ccolor,$bmf_seq,$bmf_java,$bmf_end,$bmf_yobi12) = split(/,/,$tmf_inenv);
				if ($in{'ccolor'}) {		#発言色変更チェック
					$bmf_ccolor = $in{'color'};
					if ($in{'profno'}) {$tmf_profno = $in{'profno'};}
				}
				$_ = "$tmf_roomno｜$tmf_roomname｜$tmf_chatname｜$bmf_ccolor,$bmf_seq,$bmf_java,$bmf_end,$bmf_yobi12｜$ipaddr,$tmf_intime,$times,$tmf_agent,$tmf_profno,｜$tmf_yobi｜\n";
				$bmf_profno = $tmf_profno;
				$memcnt++;
				$actmem = 1;
				if ($tmf_profno) {push(@memb_list,"<A HREF=\"${sbase}zchat_profref.cgi?regno=$tmf_profno\"><FONT COLOR=\"$bmf_ccolor\">$tmf_chatname</FONT></A>");}
				else             {push(@memb_list,"<FONT COLOR=\"$bmf_ccolor\">$tmf_chatname</FONT>");}
			}
			else {
				($tmf_ccolor,$tmf_seq,$tmf_java,$tmf_end,$bmf_yobi12) = split(/,/,$tmf_inenv);
				if ($tmf_profno) {push(@memb_list,"<A HREF=\"${sbase}zchat_profref.cgi?regno=$tmf_profno\"><FONT COLOR=\"$tmf_ccolor\">$tmf_chatname</FONT></A>");}
				else             {push(@memb_list,"<FONT COLOR=\"$tmf_ccolor\">$tmf_chatname</FONT>");}
				$memcnt++;
			}
		}
	}
	&UnlockWriteMember($roomno);
	if ($actmem eq 0) {&error("一定時間（<FONT SIZE=+1>$aout_time</FONT>秒）のアクセスが無く自動退室された可能\性があります、<BR>会話を継続する場合は再度入室して下さい。");}
}

#ささやき受けメンバー表示
sub seqmember {
	print "<BR><STRONG>ささやき！→</STRONG><SELECT NAME=\"seqmem\">\n";
	print "<OPTION VALUE=\"noneseq\" selected>未設定\n";
	foreach (@mf_list) {
		next if (!($_));
		($tmf_roomno,$tmf_roomname,$tmf_chatname,$tmf_inenv,$tmf_inproc,$tmf_yobi) = split(/｜|\n/);
		($tmf_ccolor,$tmf_seq,$tmf_java,$tmf_end,$tmf_yobi12) = split(/,/,$tmf_inenv);
		if ($tmf_seq eq "yes") {print "<OPTION>$tmf_chatname\n";}
	}
	print "</SELECT>\n";
}

#ささやき受けメンバー検索
sub seqmems {
	local($cn,$ip) = ("相手無し","000000000000");
	foreach (@mf_list) {
		next if (!($_));
		($tmf_roomno,$tmf_roomname,$tmf_chatname,$tmf_inenv,$tmf_inproc,$tmf_yobi) = split(/｜|\n/);
		($tmf_ccolor,$tmf_seq,$tmf_java,$tmf_end,$tmf_yobi12) = split(/,/,$tmf_inenv);
		($tmf_ipaddr,$tmf_intime,$tmf_latime,$tmf_agent,$tmf_profno,$tmf_yobi21) = split(/,/,$tmf_inproc);
		if ($tmf_chatname eq $seqmem) {
			($cn,$ip) = ($tmf_chatname,$tmf_ipaddr);
			last;
		}
	}
	$seq_chatname = $cn;
	$seqmsg= "<!---【$cn：$ip】【$chatname：$ipaddr】--->";
}

#発言メッセージ書き込み
sub commsg {
	$comment = $in{'comment'};
	$comment =~ s/</&lt;/g;
	$comment =~ s/>/&gt;/g;
	$comment =~ s/\r//g;
	$comment =~ s/\n//g;
	if ($dic_usefnc) {
		if ($dic_usefnc eq '1') {$dicnum = '9999';}
		else                    {$dicnum = $roomno;}
		if (-e "${dic_base}zchat$dicnum.dic") {
			&jcode'convert(*comment, 'euc');
			$comment = &dic_conv($dicnum,$comment);
		}
	}
	&jcode'convert(*comment, 'sjis');
	$comment =~ s/([^=\"]|^)(http:\/\/[\w\-\?\#\+\.\/~:]{9,})/$1<A HREF=\"$2\" TARGET=\"_blank\">$2<\/A>/ig;
	if ($tag_usefnc) {$comment = &tag_use($comment);}
	if ($ic_chat) {$comment =~ s/\[(\w{3,8})\]/<IMG SRC="$icbase$1.gif">/g;}
	if ($seq_chatname) { $seqdst = "→$seq_chatname"; }
	else { $seqdst = ""; }
	&WriteComment ($roomno, "$font_s<FONT COLOR=\"$color\"><STRONG>$chatname_disp$cend1$seqdst&gt;</STRONG>$comment$face$cend2<FONT SIZE=\"-1\" COLOR=\"$tcolor\">\[$date$rhost\]</FONT>$seqmsg$font_e<!---T$times---><!---A$ipaddr---><BR>\n");
	if ($ranking && !$seqreq eq '1') {&ranking();}
}

#復帰メッセージ表示
sub retmsg {
	&WriteComment ($roomno, "<FONT COLOR=\"$color\"><STRONG>「$chatname_disp」</STRONG></FONT>は待機から<FONT COLOR=\"#00AA00\">復帰！</FONT><FONT SIZE=\"-1\" COLOR=\"$tcolor\">\[$date$rhost\]</FONT><!---T$times---><BR>\n");
}


#投稿内容の表示
sub prcom2 {
	print "<FONT SIZE=-1>在室者：\n";
	foreach (@memb_list) {print "$_ \n";}
	print "</FONT><BR><BR>\n";
	if ($rom_disp) {&rom_disp();}
	if (($in{'start'} || $in{'fstart'}) && $profno && -e "${dfbase}dmsg$profno.txt") {&dmsg_disp();}
	$lcnt = 0;
	$bell = '';
	&ReadComment ($roomno);
	$myid = "$chatname：$ipaddr";
	foreach (@cf_list) {
		next if (!($_));
		if (s/<!---【(.+：\d+)】【(.+：\d+)】--->//g) {
			next if ($1 ne $myid && $2 ne $myid);
			$_ = "<U><I>$_</I></U>";
		}
		if ($in{'bell'} && s/<!---T(\d+)--->//g) {
			if ($1 > $bmf_latime) { $bell = 1; }
		}
		s/<!---A\d+--->//g;
		print $bhf_line, $_;
		last if (++$lcnt > $dmax);
	}
	if ($bell) { print "<EMBED SRC=\"${abase}ring.au\" WIDTH=2 HEIGHT=2 AUTOSTART=TRUE REPEAT=TRUE>\n"; }
}
#ＲＯＭ表示
sub rom_disp {
	$rom_dsw = '0';
	$rom_count = @rom_list;
	if ($rom_count eq 0) {return;}
	if ($rom_nmmd eq '1') {
		print "<B>ご案内</B>&gt;ＲＯＭ中！さんが$rom_count人、いらっしゃいます〜。<BR>\n";
	} else {
		foreach (@rom_list) {
			if ($rom_dsw eq '0') {
				print "<B>ご案内</B>&gt;現在のＲＯＭさんは『$_』";
				$rom_dsw = '1';
			} else {print "『$_』";}
		}
		print "です。<BR>\n";
	}
}
#伝言表示
sub dmsg_disp {
	&ReadDenMessage ($profno);
	$denmsg_cnt = @dmf_list;
	print "<FONT SIZE=+1><B>ご案内</B></FONT>&gt;伝言を<FONT SIZE=+1>$denmsg_cnt</FONT>件預かっていました。<BR>\n";
	print @dmf_list;
	print "<HR NOSHADE>\n";
}
#発言記録削除
sub msg_del {
	&LockReadComment ($roomno);
	foreach (@cf_list) {
		if ((/.*<FONT COLOR="\S+">(\S+)<\/FONT>\S*→\S*&gt;<\/STRONG>.*<!---A(\d{4,12})--->.*/)
		||  (/.*<FONT COLOR="\S+"><STRONG>(\S+)→\S*&gt;<\/STRONG>.*<!---A(\d{4,12})--->.*/)
		||  (/.*<FONT COLOR="\S+">(\S+)<\/FONT>\S*&gt;<\/STRONG>.*<!---A(\d{4,12})--->.*/)
		||  (/.*<FONT COLOR="\S+"><STRONG>(\S+)&gt;<\/STRONG>.*<!---A(\d{4,12})--->.*/)
			) {
			$tmp_chatname = $1;
			$tmp_ipaddr   = $2;
			if (($chatname eq $tmp_chatname) && ($tmp_ipaddr eq $ipaddr)) {
				$_ = '';
				last;
			}
		}
	}
	&UnlockWriteComment ($roomno);
}

#発言ランキング累計
sub ranking {
##################################################Option:003 by Add Start
#	if ($memcnt eq 1) {return;}
##################################################Option:003 by Add End
	if ($chatname =~ /＠/) {@rk_chatname = split(/＠/,$chatname);}
	else                  {push (@rk_chatname,$chatname);}
	&LockReadRanking;
	$mod = '0';
	foreach (@rf_list) {
		($rf_chatname,$rf_ltime,$rf_mon,$rf_cnt1,$rf_cnt2,$rf_cnt3,$rf_lhost,$rf_profno) = split(/｜|\n/);
		if ($rf_chatname eq $rk_chatname[0]) {
			if ($rf_mon eq $mon) {
				$mrf_cnt = $rf_cnt1 + 1;
			}
			else {
				$rf_mon = $mon;
				$rf_cnt3 = $rf_cnt2;
				$rf_cnt2 = $rf_cnt1;
				$mrf_cnt = 1;
			}
			$rkf_item = "$rf_chatname｜$date_now｜$rf_mon｜$mrf_cnt｜$rf_cnt2｜$rf_cnt3｜$rf_lhost｜$profno\n";
			$_ = '';
			$mod = '1';
			last;
		}
	}
	if ($mod eq '0') {unshift(@rf_list,"$rk_chatname[0]｜$date_now｜$mon｜1｜0｜0｜｜\n");}
	else             {unshift(@rf_list,$rkf_item);}
	&UnlockWriteRanking;
}
#タグ利用処理
sub tag_use {
	local($_) = $_[0];
##################################################Option:005 by Add Start
#	1 while s/(.*)(&lt;(img([!-:A-~\s\=]+))&gt;)/$1<IMG$4>/i;
##################################################Option:005 by Add End
	1 while s/(.*)(&lt;(font[\s\w\=\#\"\'\+]+)\&gt;(.*)\&lt;\/font\&gt;)/$1<$3>$4<\/FONT>/i;
	1 while s/(.*)(&lt;(b)&gt;(.*)&lt;\/b&gt;)/$1<B>$4<\/B>/i;
	1 while s/(.*)(&lt;(i)&gt;(.*)&lt;\/i&gt;)/$1<I>$4<\/I>/i;
	$_;
}

#エンコード処理
sub encode {
$_[0] =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge;
$_[0] =~ s/\s/+/g;
$_[0];
} 
#アクセス制限処理
sub ng_check {
$a_ng = '0';
foreach(@ng_ipa){if($ENV{'REMOTE_ADDR'} =~ /^$_/){$a_ng = '1';}}
foreach(@ng_rmh){if($ENV{'REMOTE_HOST'} =~ /$_$/){$a_ng = '1';}}
if($a_ng eq '1'){
	print "Content-type: text/html\n";
	print "Status: 404\n\n";
	exit(0);}
}

#エラー表示
sub error {
	print "<HTML><HEAD><TITLE>$title2</TITLE></HEAD>\n";
	print<<"__EOF__";
$hp_bcolor
<HR NOSHADE>
$_[0]<BR>
<B><A HREF="${sbase}chat_top.cgi" TARGET="_parent">$title - Ｃｈａｔ室（部屋選択）へ戻る。</A></B><BR>
<HR NOSHADE></BODY></HTML>
__EOF__
	exit(0);
}