#!/usr/bin/perl
#発射＆リロード
# 99/1/31 update(v4.5)  by 普通
#====================================================================
#ご協力を頂いた方
#oidon<E-MAIL:oidon@iod.co.jp
#====================================================================
#【？】# 既にあればそこまでのパスを指定します。
require './jcode.pl';
require './chat_env.cgi';
require './chat_lib.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 == 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;
}
#===============================================================
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 {
	$profno = $in{'profno'};
#java script利用可否
	$java = $in{'java'};
#Frame利用可否
	$frame = $in{'frame'};
#Cookies利用可否
	$cook = $in{'cook'};
#ささやき受付可否
	$seq = $in{'seq'};
#Ｃｈａｔ室Ｎｏ
	$roomno = $in{'roomno'};
#部屋属性取得
	&roomset();
#Ｃｈａｔ室表示
################オリジナルスクリプト###################
#	if ($icon eq 'y') {
#		$roomdisp  = "<IMG SRC=\"${gbase}animal$roomno.gif\">";
#		$roomdisp2 = "<IMG SRC=\"${gbase}animal$roomno.gif\" HEIGHT=16 WIDTH=16 BORDER=0>";

##################フラッシュバージョン##################
	if ($ficon eq 'y') {
		$roomdisp  = "<EMBED SRC=\"${flbase}animal$roomno.swf\" swLiveConnect=FALSE WIDTH=16 HEIGHT=16 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  = $roomname;
		$roomdisp2 = $roomname;
	}
	if ($ic_chat) {
		if ($ic_chat eq '1') {$ic_disp = "<LI><A HREF=\"${sbase}chat_icon.cgi\" TARGET=\"top\">あいこん一覧</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";}
	}

#発言文字カラー
	$color = $in{'color'};
#ささやき相手殿
	$seqmem     = $in{'seqmem'};
	&jcode'convert(*seqmem,'sjis');
#ささやき要求
	if ($in{'seqmem'} eq 'noneseq') {;}
	else {$seqreq = '1';}

#ハンドル名
	$chatname     = $in{'chatname'};
#発言色変更チェック
	if ($in{'ccolor'}) {&ccolor();}

	if ($profno) {
		$chatname_disp = "<A HREF=\"${sbase}zchat_profref.cgi?regno=$profno\">$chatname</A>";}
	else {$chatname_disp = $chatname;}

#入室チェック
	if ($in{'start'}) {
		$chatname =~ s/\r//g;
		$chatname =~ s/\n//g;
		$chatname =~ s/ //g;
		$chatname =~ s/\(/（/g;
		$chatname =~ s/\)/）/g;
		$chatname =~ s/｜/\|/g;
		$chatname =~ s/　//g;
		if (!$chatname) {&error();}
		$pfreg = 'ng';
#プロフィールチェック
		if ($func_prof) {
			&prof_check();
			if ($prof_reg eq 'ok') {
				$chatname_disp = "<A HREF=\"${sbase}zchat_profref.cgi?regno=$profno\">$chatname</A>";
			} else {$chatname_disp = $chatname;}
		} else     {$chatname_disp = $chatname;}
#入室パスワードチェック
		&room_pass();
#入室時の参加メンバー登録
		&memberin();
#入室広報
		if ($guid_msg eq '1') {&an_inmsg();}
	}
}
sub main {
	&actmemcheck();
	print<<"__EOF__";
<HTML><HEAD><TITLE>$title2</TITLE></HEAD>
<BODY BGCOLOR="$mf_bgcolor" TEXT="$mf_txcolor">
<TABLE><TR>
<TD VALIGN=bottom><FORM METHOD="POST" ACTION="${sbase}chat_start.cgi">
<INPUT TYPE=hidden NAME="color" VALUE="$color">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="profno" VALUE="$profno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="seq" VALUE="$seq">
<INPUT TYPE=hidden NAME="java" VALUE="$java">
<FONT COLOR="$color">発言</FONT>：<INPUT TYPE=text NAME="comment" SIZE="60" VALUE="">
__EOF__
#ささやき相手メンバー表示
	&seqmember ();
	print "<INPUT TYPE=submit VALUE=\"発言／リロード\"></FORM>\n";

	if ($in{'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="profno" VALUE="$profno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="color" VALUE="$color">
<INPUT TYPE=submit VALUE="退室する"></FORM>
</TR></TABLE><P>
__EOF__

#ささやき要求時でのメンバー検索
	if ($seqreq eq '1')    {&seqmems ();}
#入室メッセージ表示
	if ($in{'start'})      {&roominmsg ();}
#発言内容の書き込み
	elsif ($in{'comment'}) {&commsg ();}
#待機からの復帰の書き込み
	elsif ($in{'wait'})    {&retmsg ();}

#発言内容の表示
	&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="color" VALUE="$color">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="profno" VALUE="$profno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="seq" VALUE="$seq">
<INPUT TYPE=hidden NAME="java" VALUE="$java">
<INPUT TYPE=submit VALUE="諸手続"></FORM>
<TD><FORM METHOD="POST" ACTION="${sbase}chat_wait.cgi">
<INPUT TYPE=hidden NAME="color" VALUE="$color">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="profno" VALUE="$profno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="seq" VALUE="$seq">
<INPUT TYPE=hidden NAME="java" VALUE="$java">
<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
<LI><A HREF="zoohelp.html" TARGET=_blank>HELP</A><BR>
$ic_disp
</UL></FONT><HR NOSHADE></BODY></HTML>
__EOF__
	exit(0);
}

#フレームモード表示判定
sub main2 {
	&actmemcheck();
	if ($in{'wind'} eq 'f')    {&main2_f();}
	elsif ($in{'wind'} eq 't') {&main2_t();}
	else                       {&main2_1st();}
}
#フレーム初期表示（フレーム対応）
sub main2_1st {
#入室メッセージ表示
	if ($in{'start'}) {&roominmsg ();}

	$w_color    = $color;
	$w_chatname = $chatname;
	$e_color    = &encode($w_color);
	$e_chatname = &encode($w_chatname);
	print<<"__EOF__";
<HTML><HEAD><TITLE>$title2</TITLE></HEAD>
<FRAMESET ROWS="15%,85%">
<FRAME SRC="${sbase}chat_start.cgi?wind=f&roomno=$roomno&profno=$profno&chatname=$e_chatname&color=$e_color&frame=yes&java=$java&seq=$seq&rlt=40" NAME="form" TARGET="_self">
<FRAME SRC="${sbase}chat_start.cgi?wind=t&roomno=$roomno&profno=$profno&chatname=$e_chatname&color=$e_color&frame=yes&java=$java&seq=$seq&rlt=40" NAME="text">
</FRAMESET><NOFRAMES>
<BODY BGCOLOR="$mf_bgcolor" TEXT="$mf_txcolor">
<TABLE><TR>
<TD VALIGN=bottom><FORM METHOD="POST" ACTION="${sbase}chat_end.cgi">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="profno" VALUE="$profno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="color" VALUE="$color">
<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 ($in{'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.comment.value = "";
self.document.send.comment.focus();
}
}
}
// -->
</Script>
__EOF__
		$jsubmit = "onSubmit=\"setTimeout(&quot;autoclear()&quot;,10)\"";
	}
	print<<"__EOF__";
</HEAD><BODY BGCOLOR=\"$mf_bgcolor\" TEXT=\"$mf_txcolor\"><TABLE><TR><TD NOWRAP>
<FORM NAME=send METHOD="POST" ACTION="${sbase}chat_start.cgi" TARGET="text" $jsubmit>
<INPUT TYPE=hidden NAME="color" VALUE="$color">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="profno" VALUE="$profno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="seq" VALUE="$seq">
<INPUT TYPE=hidden NAME="java" VALUE="$java">
<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__";
<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=reset VALUE="消去"></FORM>
<TD><FORM METHOD="POST" ACTION="${sbase}chat_end.cgi" TARGET="_parent">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="profno" VALUE="$profno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="color" VALUE="$color">
<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="color" VALUE="$color">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="profno" VALUE="$profno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="seq" VALUE="$seq">
<INPUT TYPE=hidden NAME="java" VALUE="$java">
<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="color" VALUE="$color">
<INPUT TYPE=hidden NAME="roomno" VALUE="$roomno">
<INPUT TYPE=hidden NAME="profno" VALUE="$profno">
<INPUT TYPE=hidden NAME="chatname" VALUE="$chatname">
<INPUT TYPE=hidden NAME="seq" VALUE="$seq">
<INPUT TYPE=hidden NAME="java" VALUE="$java">
<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
<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_color    = $color;
	$w_color    = $color;
	$w_chatname = $chatname;
	$e_color    = &encode($w_color);
	$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' || $in{'entime'}) {
				print "<META HTTP-EQUIV=REFRESH CONTENT=\"$in{'rlt'};URL=$rurl1?roomno=$roomno&profno=$profno&chatname=$e_chatname&color=$e_color&seq=$seq&java=$java&frame=yes&wind=t&rlt=$rlt&entime=$times\">\n";
			}
			else {
				print "<META HTTP-EQUIV=REFRESH CONTENT=\"$in{'rlt'};URL=$rurl1?roomno=$roomno&profno=$profno&chatname=$e_chatname&color=$e_color&seq=$seq&java=$java&frame=yes&wind=t&rlt=$rlt\">\n";
			}
		}
	}
	print "<BODY BGCOLOR=\"$mf_bgcolor\" TEXT=\"$mf_txcolor\">\n";
#ささやき要求時でのメンバー検索
	if ($seqreq eq '1') {&seqmems ();}
#発言内容の書き込み
	if ($in{'comment'}) {&commsg();}

#発言内容の表示
	if ($in{'bell'} eq '1' || $in{'entime'}) {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);
	($roomname,$f_intime,$f_outtime,$f_memcnt,$hf_bgcolor,$hf_txcolor,$hf_line,$hf_roomenv,$hf_roompass,$hf_ccolor,$dmy) = split(/｜|\n/,$hf_list);
}

#入室パスワードチェック
sub room_pass {
	if ($hf_roompass) {
		if ($in{'rpass'}) {
			if ($hf_roompass =~ /^\$1\$/) { $crptkey = 3; } # FreeBSDサーバ対応
			else { $crptkey = 0; }
			$wk_pass = $hf_roompass;
			$roompass = crypt($in{'rpass'}, substr($wk_pass, $crptkey, 2));
			if ($hf_roompass eq $roompass) {;}
			else {&perror2();}
		}
		else {&perror();}
	}
}

#プロフィールチェック
sub prof_check {
	if ($chatname =~ /＠/) {@pmf_chatname = split(/＠/,$chatname);}
	else                   {push (@pmf_chatname,$chatname);}
	&ReadProfile();
	$prof_reg = 'ng';
	foreach (@pmf_list) {
		($pf_regno,$pf_udate,$pf_chatname,$pf_mail,$pf_url,$pf_turl,$pf_msg1,$pf_msg2,$pf_pass,$pf_yobi) = split("｜|\n");
		if ($pf_chatname eq $pmf_chatname[0]) {
			if ($in{'ppass'} && $pf_pass) {
				if ($pf_pass =~ /^\$1\$/) { $crptkey = 3; } # FreeBSDサーバ対応
				else { $crptkey = 0; }
				$pwk_pass = $pf_pass;
				$profpass = crypt($in{'ppass'}, substr($pwk_pass, $crptkey, 2));
				if ($pf_pass eq $profpass) {
					$profno = $pf_regno;
					$prof_reg = 'ok';
					return;
				} else {
					if ($prof_env eq '1') {&pmerror();}
					else                  {return;}
				}
			} else {
				if ($prof_env eq '1') {&pmerror();}
				else                  {return;}
			}
		}
	}
}

#アクティブメンバーチェック
sub actmemcheck {
	&ReadMember ($roomno);
	foreach (@mf_list) {
		($mf_roomno,$mf_roomname,$mf_chatname,$mf_intime,$mf_seq,$mf_ipaddr,$mf_bgcolor,$mf_txcolor,$mf_line,$mf_ccolor) = split(/｜|\n/);
		if ($chatname eq $mf_chatname) {return;}
	}
	&actmemerr();
}

#ささやき受けメンバー表示
sub seqmember {
	print "<BR><STRONG>ささやき！→</STRONG><SELECT NAME=\"seqmem\">\n";
	print "<OPTION VALUE=\"noneseq\" selected>未設定\n";
	&ReadMember ($roomno);
	foreach (@mf_list) {
		($mf_roomno,$mf_roomname,$mf_chatname,$mf_intime,$mf_seq,$mf_ipaddr,$mf_bgcolor,$mf_txcolor,$mf_line,$mf_ccolor) = split(/｜|\n/);
		if ($mf_seq eq "yes") {print "<OPTION>$mf_chatname\n";}
	}
	print "</SELECT>\n";
}

#ささやき受けメンバー検索
sub seqmems {
	local($cn,$ip) = ("相手無し","000000000000");
	foreach (@mf_list) {
		($mf_roomno,$mf_roomname,$mf_chatname,$mf_intime,$mf_seq,$mf_ipaddr,$mf_bgcolor,$mf_txcolor,$mf_line,$mf_ccolor) = split(/｜|\n/);
		if ($mf_chatname eq $seqmem) {
			($cn,$ip) = ($mf_chatname,$mf_ipaddr);
			last;
		}
	}
	$seq_chatname = $cn;
	$seqmsg= "<!---【$cn：$ip】【$chatname：$ipaddr】--->";
}

#発言メッセージ書き込み
sub commsg {
	$comment = $in{'comment'};
	&jcode'convert(*comment, 'sjis');
	$comment =~ s/</&lt;/g;
	$comment =~ s/>/&gt;/g;
	$comment =~ s/\r//g;
	$comment =~ s/\n//g;
	$comment =~ s/(http:\/\/[\w\-\?\#\+\.\/~:]{9,})/<A HREF=\"$1\" TARGET=\"top\">$1<\/A>/ig;
	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 COLOR=\"$color\"><STRONG>$chatname_disp$cend1$seqdst&gt;</STRONG>$comment$cend2<FONT SIZE=\"-1\" COLOR=\"$tcolor\">\[$date$rhost\]</FONT>$seqmsg<!---T$times---><BR>\n");
	if ($ranking && !$seqreq eq '1') {&ranking();}
}

#入室メッセージ表示
sub roominmsg {
	&WriteComment ($roomno, "<FONT COLOR=\"$color\"><STRONG>「$chatname_disp」</STRONG></FONT>さんが<FONT COLOR=\"#FF0000\">入室！</FONT><FONT SIZE=\"-1\" COLOR=\"$tcolor\">\[$date$rhost\]</FONT><!---T$times---><BR>\n");
	if ($log) {
		$logfile ="$logdir$logbase$year$mon$mday.csv";
		open (logf,">>$logfile");
		flock(logf,2) if $FLK;
		print logf "$year/$mon/$mday,$hour:$mon,$roomname,$chatname,$ENV{'REMOTE_HOST'},$ENV{'REMOTE_ADDR'},$ENV{'HTTP_USER_AGENT'}\n";
		close (logf);
		flock (logf,8) if $FLK;
	}
}

#復帰メッセージ表示
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 memberin {
	&LockReadMember($roomno);
	$memcnt = @mf_list + 1; #追加を前提に行数を算出
	foreach (@mf_list) {
		($mf_roomno,$mf_roomname,$mf_chatname,$mf_intime,$mf_seq,$mf_ipaddr,$mf_bgcolor,$mf_txcolor,$mf_line,$mf_ccolor) = split(/｜|\n/);
		if ($chatname eq $mf_chatname) {
			$_ = '';   #既登録済みの場合、古いエントリを削除
			$memcnt--; #追加でなかった時行数を調整
		}
	}
	unshift(@mf_list,"$roomno｜$roomname｜$chatname｜$time｜$seq｜$ipaddr｜$hf_bgcolor｜$hf_txcolor｜$hf_line｜$color\n"); #改めて登録
	$mf_bgcolor = $hf_bgcolor;
	$mf_txcolor = $hf_txcolor;
	&UnlockWriteMember($roomno);
#Ｃｈａｔ室表紙情報更新
	&LockReadHeader ($roomno);
	($f_rname,$f_intime,$f_outtime,$f_memcnt,$hf_bgcolor,$hf_txcolor,$hf_line,$hf_roomenv,$hf_roompass,$hf_ccolor,$dmy) = split(/｜|\n/,$hf_list);
	$hf_list = "$f_rname｜$date｜$f_outtime｜$memcnt｜$hf_bgcolor｜$hf_txcolor｜$hf_line｜$hf_roomenv｜$hf_roompass｜$hf_ccolor｜\n";
	&UnlockWriteHeader ($roomno);

#参加履歴登録
	$logtext = "<LI><A HREF=\"${sbase}chat_in.cgi?roomno=$roomno\">$roomdisp2</A>へ<FONT COLOR=\"$color\"><STRONG>「$chatname_disp」</STRONG></FONT>さんが<FONT COLOR=\"#FF0000\">入室！</FONT><FONT SIZE=\"-1\" COLOR=\"$tcolor\">\[$date\]</FONT><BR>\n";
	&WriteLog ($logtext);
}

#発言色変更登録
sub ccolor {
	&LockReadMember ($roomno);
	foreach (@mf_list) {
		($mf_roomno,$mf_roomname,$mf_chatname,$mf_intime,$mf_seq,$mf_ipaddr,$mf_bgcolor,$mf_txcolor,$mf_line,$mf_ccolor) = split(/｜|\n/);
		if ($chatname eq $mf_chatname) {
			$_ = "$mf_roomno｜$mf_roomname｜$mf_chatname｜$mf_intime｜$mf_seq｜$mf_ipaddr｜$mf_bgcolor｜$mf_txcolor｜$mf_line｜$color\n";
			last;
		}
	}
	&UnlockWriteMember ($roomno);
}

#投稿内容の表示
sub prcom2 {
	$lcnt = 0;
	$bell = '';
	&ReadComment ($roomno);
	$myid = "$chatname：$ipaddr";
	foreach (@cf_list) {
		if (s/<!---【(.+：\d+)】【(.+：\d+)】--->//g) {
			next if ($1 ne $myid && $2 ne $myid);
			$_ = "<U><I>$_</I></U>";
		}
		if ($in{'entime'} && s/<!---T(\d+)--->//g) {
			if ($1 > $in{'entime'}) { $bell = 1; }
		}
		print $mf_line, $_;
		last if (++$lcnt > $dmax);
	}
	if ($bell) { print "<EMBED SRC=\"${abase}ring.au\" WIDTH=2 HEIGHT=2 AUTOSTART=TRUE REPEAT=TRUE>\n"; }
}

#他部屋への入室メッセージ投稿
sub an_inmsg {
	foreach $froomno (@room_list) {
		next if ($froomno eq $roomno || -z "${fbase}roommember$froomno.txt");
		$ta_com = "ご案内&gt;<FONT COLOR=\"$color\"><STRONG>「$chatname_disp」</STRONG></FONT>さんが$roomdisp2に<FONT COLOR=\"#0099FF\">入室</FONT>！<FONT SIZE=\"-1\" COLOR=\"$tcolor\">\[$date$rhost\]</FONT><!---T$times---><BR>\n";
		&WriteComment ($froomno,$ta_com);
	}
}
#発言ランキング累計
sub ranking {
	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;
			}
			$_ = "$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");}
	&UnlockWriteRanking;
}

#エンコード処理
sub encode {
$_[0] =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge;
$_[0] =~ s/\s/+/g;
$_[0];
} 

sub set_cookie { # クッキーの発行
	$ENV{'TZ'} = "GMT"; # 国際標準時を取得
	($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg)=localtime(time+30*24*60*60);
		if ($yearg < 10)  { $yearg = "0$yearg"; }
		if ($secg < 10)   { $secg  = "0$secg";  }
		if ($ming < 10)   { $ming  = "0$ming";  }
		if ($hourg < 10)  { $hourg = "0$hourg"; }
		if ($mdayg < 10)  { $mdayg = "0$mdayg"; }
	$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong];
	$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg];
	$ENV{'TZ'} = "Japan";
	$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";
#	$cook="name\:$name\,email\:$email";
	$cook="name\:$in{'chatname'}\,email\:";
	print "Set-Cookie: Zoo_Chat=$cook; expires=$date_gmt\n";
	}

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: 401\n\n";
	exit(0);}
}

#エラー表示
sub error {
	print<<"__EOF__";
<HTML><HEAD>
<TITLE>$title2</TITLE></HEAD>
$hp_bcolor
<HR NOSHADE>
ここに入る為の情報に誤りがあります。
<HR NOSHADE></BODY></HTML>
__EOF__
	exit(0);
}
#エラー表示
sub pmerror {
	print<<"__EOF__";
<HTML><HEAD>
<TITLE>$title2</TITLE></HEAD>
$hp_bcolor
<HR NOSHADE>
お名前「$chatname」での入室は個人キーを正しく入力してください。
<HR NOSHADE></BODY></HTML>
__EOF__
	exit(0);
}
#エラー表示
sub perror {
	print<<"__EOF__";
<HTML><HEAD>
<TITLE>$title2</TITLE></HEAD>
$hp_bcolor
<HR NOSHADE>
入室パスワードは省略できません。
<HR NOSHADE></BODY></HTML>
__EOF__
	exit(0);
}
#エラー表示
sub perror2 {
	print<<"__EOF__";
<HTML><HEAD>
<TITLE>$title2</TITLE></HEAD>
$hp_bcolor
<HR NOSHADE>
入室パスワードが違います、確認してください。<BR>
パスワード：$in{'rpass'}
<HR NOSHADE></BODY></HTML>
__EOF__
	exit(0);
}
#エラー表示
sub actmemerr {
	print<<"__EOF__";
<HTML><HEAD>
<TITLE>$title2</TITLE></HEAD>
$hp_bcolor
<HR NOSHADE>
ここに発言する為の情報が不足しています。
<HR NOSHADE></BODY></HTML>
__EOF__
	exit(0);
}