#! /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;
##########退室メッセージをランダムにする。
srand;
@ans=<DATA>;
$value=$ans[rand($#ans+1)];
$value =~s/_NAME/$name/;$value =~s/_BRAUZA/$brauza/;
$value =~s/_DATE/$date/;$value =~s/_HOST/$host/;
$value =~s/_HISTRY/$histry/;$value =~s/_COLOR/$color/;
#########
&writelog;
print "Location: $endpage\n\n";
&ended;   exit;
__END__
<FONT COLOR="#0000ff"><B>管理人</B></FONT> &gt; <B><FONT COLOR="_COLOR" SIZE=+2>_NAME</FONT></B><FONT COLOR="red"><B>さん、またきてねぇ。</B> _BRAUZA</FONT><FONT COLOR="#888888" SIZE=-1>(_DATE _HOST)_HISTRY</FONT><HR>
<FONT COLOR="#0000ff"><B>管理人</B></FONT> &gt; <FONT COLOR="red"><B>あら、<FONT COLOR="_COLOR" SIZE=+2>_NAME</FONT>さん、おかえりですか...。</B> _BRAUZA</FONT><FONT COLOR="#888888" SIZE=-1>(_DATE _HOST)_HISTRY</FONT><HR>
<FONT COLOR="#0000ff"><B>管理人</B></FONT> &gt; <B><FONT COLOR="_COLOR" SIZE=+2>_NAME</FONT></B><FONT COLOR="red"><B>さんがそそくさと帰りました。</B> _BRAUZA</FONT><FONT COLOR="#888888" SIZE=-1>(_DATE _HOST)_HISTRY</FONT><HR>
<FONT COLOR="_COLOR" SIZE=1>_NAMEさんが逃げた...。 _BRAUZA</FONT><FONT COLOR="#888888" SIZE=-1>(_DATE _HOST)_HISTRY</FONT><HR>
<FONT COLOR="_COLOR" SIZE=2>_NAMEさんが帰ったみたい....。</FONT><HR>