#! /usr/local/bin/perl
#
#	ゆいちゃっとPro 1.0
#
#
#out.cgiは、退室時のメッセージを特定の人だけ変更します。
#enter.cgiの退室ボタンのFORMを変更します。
#<FORM METHOD="$method" ACTION="chat.cgi" TARGET="_top">
#$hidden
#<INPUT TYPE=hidden NAME="chat" VALUE="退室">
#を、
#<FORM METHOD="$method" ACTION="out.cgi" TARGET="_top">
#$hidden
#<INPUT TYPE=hidden NAME="chat" VALUE="退室">
#に書き換えます。
require './jcodeLE.pl';
require './pref.cgi';
$| = 1;

&init;
&decode;   &jikan;
&readlog;
$brauza = $ENV{'HTTP_USER_AGENT'};
$brauza =~s/<//g;
##########退室メッセージを変更する。
$value = "<FONT COLOR=\"blue\"><B>管理人</B></FONT> &gt; <B><FONT COLOR=\"$color\" SIZE=+2>$name</FONT><FONT COLOR=\"red\">さん、またきておくれやすぅ。</FONT></B><FONT COLOR=\"#888888\" SIZE=-1>($date $host)</FONT><HR>\n";

if($name eq 'ゆい'){
$value = "<FONT COLOR=\"blue\"><B>管理人</B></FONT> &gt; <FONT COLOR=\"#888888\" SIZE=-1>ゆいさんが消えました....($date $host)</FONT><HR>\n";
}

if($name eq 'みゆ'){
$value = "<FONT COLOR=\"blue\"><B>管理人</B></FONT> &gt; <B><FONT COLOR=\"$color\" SIZE=+2>$name</FONT><FONT COLOR=\"red\">さん、またきてくださいね。</FONT></B><FONT COLOR=\"#888888\" SIZE=-1>($date $host)</FONT><HR>\n";
}
#########
&writelog;
print "Location: $endpage\n\n";
&ended;   exit;
__END__