$YaBBChatplver = '1.9beta for YaBB Gold SP1';

sub chatadmin {
	&is_admin;
	$yytitle = "$chadmtxt{'6'}";

require "$vardir/chatlevel.dat";
$yymain .=qq~
    <form action="$cgi&action=updatechat" method="POST">
<table border=0 width="80%" cellspacing=1 cellpadding=1 bgcolor="$color{'bordercolor'}" class="bordercolor" align=center>
<tr>
<td class="titlebg" bgcolor="$color{'titlebg'}" colspan="6"
height=22><b><font size=2 class="text1"
color="$color{'titletext'}">&nbsp;$chadmtxt{'6'}</font></b><br>
<font size=1 color="#000000">$chadmtxt{'25'}</td> </TR>
<TR>
	<td class="catbg" bgcolor="$color{'catbg'}" width="24%" height=22><b><font size=2>$chadmtxt{'1'}</font></b></td>
	<td class="catbg" bgcolor="$color{'catbg'}" width="24%"><b><font size=2>$chadmtxt{'2'}</font></b></td>
	<td class="catbg" bgcolor="$color{'catbg'}" width="52%" colspan=3><b><font size=2>$chadmtxt{'3'}</font></b></td>
</TR>

<tr><td class='windowbg' bgcolor=$color{'windowbg'}
width='24%'><font size=2><b>$chadmleveltxt{'1'}</b></TD><td
class='windowbg'
bgcolor=$color{'windowbg'}
width='24%' align=center><input type=text name=level1
value=$level1></TD><td
class='windowbg'
bgcolor=$color{'windowbg'} width='52%' colspan=3><font
size=1>$chadmdestxt{'1'}</font></TD>
</tr>
<tr><td class='windowbg' bgcolor=$color{'windowbg'} width='24%'><font
size=2><b>$chadmleveltxt{'2'}</b></font></TD><td
class='windowbg'
bgcolor=$color{'windowbg'}
width='24%' align=center><input type=text name=level2
value=$level2></TD><td
class='windowbg'
bgcolor=$color{'windowbg'} width='52%' colspan=3><font size=1>$chadmdestxt{'2'}</font></TD>
</tr>
<tr><td class='windowbg' bgcolor=$color{'windowbg'}
width='24%'><font size=2><b>$chadmleveltxt{'3'}</b></font></TD><td
class='windowbg'
bgcolor=$color{'windowbg'}
width='24%' align=center><input type=text name=level3
value=$level3></TD><td
class='windowbg'
bgcolor=$color{'windowbg'} width='52%' colspan=3><font size=1>$chadmdestxt{'3'}</font></TD>
</tr>
<tr><td class='windowbg' bgcolor=$color{'windowbg'}
width='24%'><font size=2><b>$chadmleveltxt{'4'}</font></b></TD><td
class='windowbg'
bgcolor=$color{'windowbg'}
width='24%' align=center><input type=text name=level4
value=$level4></TD><td
class='windowbg'
bgcolor=$color{'windowbg'} width='52%' colspan=3><font size=1>$chadmdestxt{'4'}</font></TD>
</tr>
<tr><td class='windowbg' bgcolor=$color{'windowbg'}
width='24%'><font size=2><b>$chadmleveltxt{'5'}</b></font></TD><td
class='windowbg'
bgcolor=$color{'windowbg'}
width='24%' align=center><input type=text name=level5
value=$level5></TD><td
class='windowbg'
bgcolor=$color{'windowbg'} width='52%' colspan=3><font size=1>$chadmdestxt{'5'}</font></TD>
</tr>
<tr><td class='windowbg' bgcolor=$color{'windowbg'}
width='24%'><font size=2><b>$chadmleveltxt{'6'}</b></font></TD><td
class='windowbg'
bgcolor=$color{'windowbg'}
width='24%' align=center><input type=text name=level6
value=$level6></TD><td
class='windowbg'
bgcolor=$color{'windowbg'} width='52%' colspan=3><font size=1>$chadmdestxt{'6'}</font></TD>
</tr>
<tr><td class="catbg" bgcolor="$color{'catbg'}" align="center"
colspan="6"><input type=submit value="$chadmtxt{'4'}"><input type=reset
value="$chadmtxt{'5'}"></td></tr> </TABLE>
</form>
~;
&template;
exit;

	}



sub updatechat {
	&is_admin;


$l1 = $FORM{'level1'};
$l2 = $FORM{'level2'};
$l3 = $FORM{'level3'};
$l4 = $FORM{'level4'};
$l5 = $FORM{'level5'};
$l6 = $FORM{'level6'};

	fopen(FILE, ">$vardir/chatlevel.dat");
	print FILE "\$level1 = \"$l1\"\;\n";
        print FILE "\$level2 = \"$l2\"\;\n";
        print FILE "\$level3 = \"$l3\"\;\n";
        print FILE "\$level4 = \"$l4\"\;\n";
        print FILE "\$level5 = \"$l5\"\;\n";
        print FILE "\$level6 = \"$l6\"\;\n";
	fclose(FILE);
	&chatadmin;
}
1;

sub mainscript {

require "$vardir/chatlevel.dat";

########### load cookie ###################
        foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
                $_ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
                ($cookie,$value) = split(/=/);
                $yyCookies{$cookie} = $value;
        }
        if( $yyCookies{$cookiepassword} ) {
                $password = $yyCookies{$cookiepassword};
                $username = $yyCookies{$cookieusername} || 'Guest';
        } else {
                $passwordcook = '';
                $username = 'Guest';
        } 
##################max edit#####################

        fopen(FILE, "$memberdir/$username.dat");
        @settings = <FILE>;
        fclose(FILE);
	$position = $settings[7];
	$position =~ s/\n//g;
	if ($username ne 'Guest'){
		$userdisplayname = $settings[1];
		$userdisplayname =~ s/\n//g;
		$username =~ s/\n//g;
	} else {
		$userdisplayname = 'Guest';
	}
	$spassword = $settings[0];
	$spassword =~ s/\n//g;
 if ($enable_guestposting == 1){	
}	
else {
	if ($password eq "") {
#        print "Guests not allowed in chat! <br>";
#        print "Please register for an account!";
	exit;
	}
}
$userlevel =1;

        if ($level1 eq $position) {
		$userlevel = 1;
}
	if ($level2 eq $position) {
		$userlevel = 2;
}
       if ($level3 eq $position) {
                $userlevel = 3; 
}
        if ($level4 eq $position) {
                $userlevel = 4; 
}
        if ($level5 eq $position) {
                $userlevel = 5; 
}
        if ($level6 eq $position) {
                $userlevel = 6; 
	}

##############################


$cgiurl     = "$boardurl/YaBB.$yyext?board=&action=chatnow";
$logouturl  = "$imagesdir/close.htm";          
$kickouturl = "$imagesdir/close.htm";
$onlinefile    = "$vardir/online.txt"; 
$messfile      = "$vardir/says.txt";
$wordcolorfile = "$vardir/ecolor.txt";
$addsaysfile   = "$vardir/eaddsays.txt";
$imagefile     = "$vardir/eimage.txt";
$txt{'img1'} = "</center><font size=1><img src=\"$imagesdir/refresh2.jpg\" width=\"15\" height=\"15\" border =\"0\">&nbsp;$chadmtxt{'60'}";
$txt{'img2'} = "<img src=\"$imagesdir/buddy.gif\" width=\"16\" height=\"16\" border =\"0\">&nbsp;$chadmtxt{'31'}";
$txt{'img3'} = "<img src=\"$imagesdir/info.gif\" width=\"16\" height=\"16\" border =\"0\">&nbsp;$chadmtxt{'55'}";
$txt{'img4'} = "<img src=\"$imagesdir/pencil.jpg\" width=\"16\" height=\"16\" border =\"0\">&nbsp;$chadmtxt{'56'}";
$txt{'img5'} = "<img src=\"$imagesdir/kick.gif\" width=\"16\" height=\"16\" border =\"0\">&nbsp;$chadmtxt{'57'}";
$txt{'img6'} = "<br><img src=\"$imagesdir/logout2.gif\" width=\"16\" height=\"16\" border =\"0\">&nbsp;$chadmtxt{'58'}";
$img1 = "$imagesdir/chatreload.gif";
$img2 = "$imagesdir/chatonlinelist.gif";
$img3 = "$imagesdir/chathelp.gif";
$img4 = "$imagesdir/chatclearscreen.gif";
$img5 = "$imagesdir/chatkick.gif";
$img6 = "$imagesdir/chatquit.gif";
$saysback   = $color{'chatsaysback'}; 
$saysword   = $color{'chatsaysword'}; 
$loginword  = $color{'chatloginword'}; 
$logoutword = $color{'chatlogoutword'}; 
$onlineback = $color{'chatonlineback'}; 
$onlineword = $color{'chatonlineword'}; 
$typeback   = $color{'chattypeback'}; 
$typeword   = $color{'chattypeword'};
$funcback   = $color{'chatfuncback'}; 
$funcword   = $color{'chatfuncword'}; 
$fastback   = $color{'chatfastback'};
$sysmess    = $color{'chatsysmess'};
$reload       = 14;   
$kicktime     = 300; 
$image_size   = 3;   
$allow_mess   = 30;  
$time_miss    = +0;  
$super_proxy	 = 0;
$level_towho     = 1;
$level_cls	 = 4;
$level_html      = 3;
$level_kick      = 5;
$level_seelevel  = 3;
$level_seeprivate= 6;
$super[0] = "hornet6∥password∥6"; 
$super[1] = "hornet5∥password∥5";
$super[2] = "hornet4∥password∥4";
$super[3] = "hornet3∥password∥3";
$super[4] = "hornet2∥password∥2";
$super[5] = "hornet1∥password∥1";


#####################################################

$title = "$mbname $chadmtxt{'59'}  $infos[7]"; 
print "Content-type: text/html;CHARSET=win\n";
print "Pragma:no-cache\n\n";
$kicked     = 0;
$kickoutway ="level1";
$exist="no";
$|=1; 
&get_data;
&set_var;
# &proxy if ($super_proxy eq 1);

#if ($ENV{'HTTP_REFERER'} ne
#"$boardurl/YaBB.$yyext") {

#	print "Content-type:text/html\n\n";
#	print "<h1>You need to access chatroom only from board link</h1>";
#	print "$ENV{'HTTP_REFERER'}";
#	print "$ENV{'REMOTE_ADDR'}";
#	exit;
#}

if ($job eq "login") {
   &write_online(online);
   &write_mess(login) if ($exist eq "no");
   &return_whole;
}
elsif ($job eq "logout") {
   &write_online(outline);
   &write_mess(logout) if ($exist ne "no");
   &return_logout;
}
elsif ($job eq "setfunc") {
   &return_func;
}
elsif ($job eq "settype") {
   &write_online(online);
   &return_type;
}
elsif ($job eq "look") {
   &write_online(online);
   &return_mess;
}
elsif ($job eq "setup") {
   &return_up;
}
elsif ($job eq "tell") {
   &return_tell;
}
elsif ($job eq "says") {
   &write_online(online);
   if ($kicked!=1) {
       &write_mess(says);
   }
   &return_mess;
}
elsif ($job eq "online") {
   &write_online(online);
   &return_online(online);
}
elsif ($job eq "setkick") {
   if ($userlevel>=$level_kick) {
      &write_online(online);
      &return_online(kickout);
   }
   else {&error("No User Right");}
}
elsif ($job eq "kickout") {
   if ($userlevel>=$level_kick) {
      if ($kickoutuser) {
         &write_online(kickout);
      }  
      &return_mess;     
   }
   else {&error("No User Right");}
}
elsif ($job eq "typecls") {
   &return_cls;
   &write_mess(setcls);
   &return_mess;
}
###########
sub write_mess {
$write_mess_subject=$_[0];
fopen(MESS,"$messfile") || die $!;
@mess = <MESS>;
fclose(MESS);
fopen(MESS,">$messfile") || die $!;
$total_mess1=0;
$total_mess2=0;
if ($write_mess_subject eq "says") {
   print MESS "says∥$userip∥$userdisplayname∥$userlevel∥$usersex∥$towhoway∥$towho∥$wordcolor∥$addsays∥$says∥$addimage∥$normal_time∥end∥\n"; 
   if (($towhoway eq "private") && ($towho ne "toall∥toall∥toall")) {$total_mess2++;}
   else {$total_mess1++;}
}
elsif ($write_mess_subject eq "login") {
   print MESS "login∥$userip∥$userdisplayname∥$userlevel∥$usersex∥∥∥∥∥∥∥∥∥$normal_time∥end∥\n"; 
   $total_mess1++;}
elsif ($write_mess_subject eq "logout") {
   print MESS "logout∥$userip∥$userdisplayname∥$userlevel∥$usersex∥∥∥∥∥∥∥∥∥$normal_time∥end∥\n"; 
   $total_mess1++;}
elsif ($write_mess_subject eq "setcls") {
   print MESS "setcls∥$userip∥$userdisplayname∥$userlevel∥$usersex∥∥∥∥∥∥∥∥∥$normal_time∥end∥\n"; 
   $total_mess1++;}
foreach $message (@mess) {   
   ($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktowhoway,$chktowhoip,$chktowhoname,$chktowholevel,$chkwordcolor,$chkaddsays,$chksays,$chkaddimage,$chktime,$markend,$last) = split(/∥/, $message);
   if ((($mark eq "says") || ($mark eq "login") || ($mark eq "setcls") || ($mark eq "logout")) && ($markend eq "end")) {
      if ($mark eq "says") {
         if (($chktowhoway eq "private") && (($chktowhoip ne "toall") || ($chktowhoname ne "toall") || ($chktowholevel ne "toall"))) {
            if (($total_mess2<$allow_mess) && ($total_mess1<$allow_mess)) {print MESS "$message";}
            $total_mess2++;}
         else {
            if ($total_mess1<$allow_mess) {print MESS "$message";}
            $total_mess1++;}
      } 
      elsif (($mark eq "login") || ($mark eq "logout") || ($mark eq "setcls")) {
         if ($total_mess1<$allow_mess) {print MESS "$message";}
         $total_mess1++;}
   }
}
fclose(MESS);
}
###########
sub write_online {
$write_online_subject = $_[0];
fopen(ONLINE,"$onlinefile") || die $!;
@online = <ONLINE>;fclose(ONLINE);
@online    = sort @online;
$lastcheck = "";
$done      = 0;
fopen(ONLINE,">$onlinefile") || die $!;
foreach $online_line (@online) {   
  ($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktime,$chksec,$chkkickout,$chkkickoutway,$markend,$last)=split(/∥/,$online_line);
  if (($mark eq "online") && ($markend eq "end")) {
     if ($lastcheck ne "$chkuserip∥$chkusername∥$chkuserlevel") {
        if (($write_online_subject eq "online") && ($chkuserip eq $userip) && ($chkusername eq $username) && ($chkuserlevel eq $userlevel)) {
           print ONLINE "online∥$userip∥$username∥$userlevel∥$usersex∥$normal_time∥$now_sec∥$chkkickout∥$chkkickoutway∥end∥\n"; 
           if ($chkkickout eq "kickouted") {
              $kicked    =1;
              $kickoutway=$chkkickoutway; 
           }
           $done=1;   
        }  
        elsif (($write_online_subject eq "outline") && ($chkuserip eq $userip) && ($chkusername eq $username) && ($chkuserlevel eq $userlevel) && ($chkkickout ne "kickouted")) {
           print ONLINE "";
           $exist="yes";
        }
        elsif (($write_online_subject eq "kickout") && ($kickoutuser eq "$chkuserip∥$chkusername∥$chkuserlevel")) {
           print ONLINE "online∥$kickoutuser∥$chkusersex∥$normal_time∥$now_sec∥kickouted∥$kickoutway∥end∥\n"; 
           $done=1;
        }
        else { 
           if ((($chksec<$cut1_sec) || ($chksec>$cut2_sec)) && ($chkkickout ne "kickouted")) {
              print ONLINE ""; 
           } 
           elsif ((($chksec<$cut3_sec) || ($chksec>$cut4_sec)) && ($chkkickout eq "kickouted")) {
              print ONLINE ""; 
           } 
           else {
              print ONLINE "$online_line";
           }
        } 
     }
     $lastcheck = "$chkuserip∥$chkusername∥$chkuserlevel";  
  }
}
if (($write_online_subject eq "online") && ($done==0)) {
   print ONLINE "online∥$userip∥$username∥$userlevel∥$usersex∥$normal_time∥$now_sec∥∥∥end∥\n"; 
}
elsif (($write_online_subject eq "kickout") && ($done==0)) {
   print ONLINE "online∥$kickoutuser∥∥$normal_time∥$now_sec∥kickouted∥$kickoutway∥end∥\n"; 
}
fclose(ONLINE);
}
###########
sub return_mess {
require "$sourcedir/YaBBC.pl"; 
fopen(MESS,"$messfile") || die $!;
@mess = <MESS>;fclose(MESS);
if (($kicked==1) && ($kickoutway eq "level1")) {
   print "<html><head><title>$title</title>\n";
   print "<META HTTP-EQUIV=REFRESH CONTENT=\"0;URL=$kickouturl\"></head>\n";
   print "<body bgcolor=#ffffff>\n";
   print "</body></html>\n"; 
}
elsif (($kicked==1) && ($kickoutway eq "level2")) {
   print "<html><head><title>$title</title>\n";
   print "<META HTTP-EQUIV=REFRESH CONTENT=\"0;URL=$kickdown2\"></head>\n";
   print "<body bgcolor=$color{'windowbg2'}>\n";
   print "</body></html>\n"; 
}
elsif (($kicked==1) && ($kickoutway eq "level4")) {
   print "<html><head><title>$title</title>\n";
   print "<META HTTP-EQUIV=REFRESH CONTENT=\"0;URL=$kickdown1\"></head>\n";
   print "<body bgcolor=#ffffff>\n";
   print "</body></html>\n"; 
}
else {
  print "<html><head><title>Chatting Screen</title>\n";
  print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;CHARSET=win\">\n";
  print "<META HTTP-EQUIV=REFRESH CONTENT=\"$reload;URL=$cgiurl&job=look$userinfo\">\n";
  if ($want eq "yes") {
  print "<STYLE TYPE=\"text/css\">\n";
  print "<!--\n";
  print "body	{font-size: 2pt;}\n";
  print "body	{font face=Arial, Helvetica, sans-serif;}\n";
  print "td	{font-size: 2pt;}\n";
  print "-->\n";
  print "</STYLE>\n";
  }
  print "</head>\n";
  print "<body bgcolor=$color{'chat_bgcolor'} text=$saysword>\n";
  print "<font face=Arial, Helvetica, sans-serif>\n";
  print "<font size=2>\n";
  foreach $message (@mess) {
  	$message =~ s~\[([^\]]{0,30})\n([^\]]{0,30})\]~\[$1$2\]~g;
	$message =~ s~\[/([^\]]{0,30})\n([^\]]{0,30})\]~\[/$1$2\]~g;
	$message =~ s~(\w+://[^<>\s\n\"\]\[]+)\n([^<>\s\n\"\]\[]+)~$1$2~g;
	$message =~ s/\&/\&amp;/g;
	$message =~ s/"/\&quot;/g;
	$message =~ s/  / \&nbsp;/g;
	$message =~ s/</[/g;
	$message =~ s/>/]/g;
	&DoUBBC;
	&LoadCensorList;
	foreach (@censored) {
				($tmpa,$tmpb) = @{$_};
				$message =~ s~\Q$tmpa\E~$tmpb~gi;
			}
     ($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktowhoway,$chktowhoip,$chktowhoname,$chktowholevel,$chkwordcolor,$chkaddsays,$chksays,$chkaddimage,$chktime,$markend,$last) = split(/∥/, $message);
     if ((($mark eq "says") || ($mark eq "login") || ($mark eq "setcls") || ($mark eq "logout")) && ($markend eq "end")) {
	 if ($chkusersex eq "boy")
	 {
	   $colorsex="4080ff";
	   $chkusersex="<font color=$colorsex>";
	   $whosex="<font color=magenta>";
	   $sexy="<font color=4080ff>Boy</font>";
	 }
	 else
	 {
	   $colorsex="$color{'chatncolor'}";
	   $chkusersex="<font color=$colorsex>";
	   $whosex="<font color=4080ff>";
	   $sexy="<font color=FFFFFF>Girl</font>";
	 }
        if ($want eq "yes") {
        $chktime="【<font color=#ffffff>$chktime</font>】";$showip="【$chkuserip】";}
	else {$chktime="";}
	if ($want2 eq "yes") {$start="<hr size=-1>";}
	else {$start="<br>";}

        if ($chkaddimage ne "") {$chkaddimage="<font face=wingdings size=$image_size>$chkaddimage</font>";}
        if ($mark eq "says") {
           if (($chktowhoip eq "toall") && ($chktowhoname eq "toall") && ($chktowholevel eq "toall")) {
              print "$chktime$chkusersex$chkusername</font> <font color=$chkwordcolor>$chkaddsays: $chksays$chkaddimage</font>$start\n";}
           elsif ((($chktowhoip ne "toall") || ($chktowhoname ne "toall") || ($chktowholevel ne "toall")) && ($chktowhoway eq "public")) {
              print "$chktime$chkusersex$chkusername</font> <font color=$chkwordcolor>$chkaddsays to $whosex$chktowhoname</font>: $chksays$chkaddimage</font>$start\n";}
           elsif ((($chktowhoip ne "toall") || ($chktowhoname ne "toall") || ($chktowholevel ne "toall")) && ($chktowhoway eq "private") && ((($userip eq $chkuserip) && ($username eq $chkusername) && ($userlevel eq $chkuserlevel)) || (($userip eq $chktowhoip) && ($username eq $chktowhoname) && ($userlevel eq $chktowholevel)) || (($userlevel>$chkuserlevel) && ($userlevel>$chktowholevel) && ($userlevel>=$level_seeprivate)))) {
              $chkaddsays =~ s/says//g;
              print "$chktime$chkusersex$chkusername</font> <font color=$chkwordcolor>$chkaddsays $chadmtxt{'49'} <u>$whosex$chktowhoname</font></u>: $chksays$chkaddimage</font>$start\n";}
        }
        elsif ($mark eq "login") {
	if ($chkuserlevel eq $level_kick) {
	   print "$chktime<font color=$sysmess>[$chadmtxt{'48'}: $chadmtxt{'53'} $chkusername $chadmtxt{'50'}]</font>$start\n";}
	elsif ($chkuserlevel eq $level_cls) {
	   print "$chktime<font color=$sysmess>[$chadmtxt{'48'}: 「$chkusersex$chkusername $chadmtxt{'50'}]</font>$start\n";}
	elsif ($chkuserlevel eq $level_html) {
	   print "$chktime<font color=$sysmess>[$chadmtxt{'48'}: $chadmtxt{'54'} $chkusersex$chkusername $chadmtxt{'50'}]</font>$start\n";}
     	else {
	   print "$chktime<font color=$sysmess>$chadmtxt{'48'}: $chkusername $chadmtxt{'50'}</font>$start\n";}
	}
        elsif ($mark eq "logout") {
	   print "$chktime<font color=$sysmess>$chadmtxt{'48'}: $chkusersex$chkusername $chadmtxt{'51'}</font>$start\n";}
        elsif ($mark eq "setcls") {
           print "<font color=$sysmess>$chadmtxt{'48'}: $chktime$chkusersex$chkusername $chadmtxt{'52'}</font>\n";}
     }
  }
  print "</font></body></html>\n";
}
}
###########
sub return_type {
fopen(ONLINE,"$onlinefile") || die $!;
@online = <ONLINE>;
fclose(ONLINE);
@online = sort @online;
fopen(WORDCOLOR,"$wordcolorfile") || die $!;
@wordcolor = <WORDCOLOR>;
fclose(WORDCOLOR);
fopen(ADDSAYS,"$addsaysfile") || die $!;
@addsays = <ADDSAYS>;
fclose(ADDSAYS);
fopen(IMAGE,"$imagefile") || die $!;
@image = <IMAGE>;
fclose(IMAGE);
print "<html><head><SCRIPT LANGUAGE=\"JavaScript\">\n"; 
print "var exit=true;\n";
print "function leave() {\n"; 
print "if (exit)\n"; 
print "window.open('$cgiurl&job=logout$userinfo&logouturl=$logouturl','','toolbar=no,menubar=no,scrollbars=yes,resizable=yes,location=no,height=400,width=400');\n"; 
print "}\n"; 
print "</script>\n";
print "<title>Typing Area</title>\n";
print "<script Language=\"JavaScript\">\n";
print "<!-- \n";
print "function chksays() {\n";
print "   var tt=chkempty(document\.forms[0]\.says\.value);\n";
print "   if (tt==false) {\n";
print "      alert(\"Please Input\");\n";
print "      return tt;\n";
print "   }\n";
print "   self.status=\"Data Sent\";\n";
print "   return true;\n";
print "}\n\n";
print "function chkempty(txtval){\n";
print "  if (txtval\.length==0)\n"; 
print "     return false;\n";
print "  var i=0;\n";
print "  while (i<txtval\.length) {\n";    
print "     if (txtval\.substring(i,i+1) !=\" \")\n"; 
print "        return true;\n";
print "     i=i+1;\n";
print "   }\n";
print "  return false;\n";
print "}\n";
print "//-->\n";
print "</script>\n";
print "<STYLE TYPE=\"text/css\"><!--\n";
print "body	 {font-size: 9pt;}\n";
print "td	 {font-size: 9pt;}\n";
print "input     {font-size: 9pt;}\n";
print "select    {font-size: 9pt;}\n";
print "button    {font-size: 9pt;}\n";
print "a:visited {text-decoration: none;}\n";
print "--></STYLE>\n";
print "</head>\n";
print "<body bgcolor=$typeback text=$typeword onUnload='leave()'>\n";
print "<font face=Arial, Helvetica, sans-serif>\n";
print "<font size=1>\n";
print "<center>\n";
print "<form method=POST action=\"$cgiurl&job=says$userinfo\" target=\"one\" onsubmit=\"this.says.focus();this.says.select();return(chksays())\">\n";

   srand;
   $ram=int(rand($#wordcolor+1));
   $temp=0;
   print "$chadmtxt{'47'}<select name=\"wordcolor\" style=\"background-color:#EFF8FF;\">\n";
   foreach $wordcolor_line (@wordcolor) {
     if (($wordcolor_line =~ /"$wordcolor"/) || ((!($wordcolor)) && ($temp eq $ram))) {
        $wordcolor_line =~ s/>/ selected>/g; 
     }
     print "$wordcolor_line";
     $temp=$temp+1;
   }
   print "</select>\n";
   print "<input type=text name=\"says\" size=\"40\" MAXLENGTH=100><br>\n";
   print "$chadmtxt{'44'}:<select name=\"towhoway\" style=\"background-color:#EFF8FF;\">\n";
   print "<option value=\"public\" ";
   if ($towhoway eq "public") {print "selected";}
   print "style=\"color:#FF3333;\">$chadmtxt{'45'}\n";
   if ($userlevel>=$level_towho) {
   print "<option value=\"private\" ";
   if ($towhoway eq "private") {print "selected";}
   print "style=\"color:#AA3333;\">$chadmtxt{'46'}\n";
   }
   print "</select>\n"; 
   print "$chadmtxt{'42'}:<select name=\"towho\" style=\"color:#000000;background-color:#EFF8FF;\">\n";
   print "<option value=\"toall∥toall∥toall\">$chadmtxt{'43'}\n";
   $lastcheck="";
   foreach $online_line (@online) {
      ($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktime,$chksec,$chkkickout,$chkkickoutway,$markend,$last) = split(/∥/, $online_line);
      if (($mark eq "online") && ($markend eq "end")) { 
         if (!(($chkuserip eq $userip) && ($chkusername eq $username) && ($chkuserlevel eq $userlevel))) {
            if ($lastcheck ne "$chkuserip∥$chkusername∥$chkuserlevel") {
               if (!(($chkkickout eq "kickouted") && ($userlevel<$level_kick))) {   
                  print "<option value=\"$chkuserip∥$chkusername∥$chkuserlevel\" ";
                  if ($towho eq "$chkuserip∥$chkusername∥$chkuserlevel") {print "selected";} 
                  print ">$chkusername\n";
               } 
            }
            $lastcheck = "$chkuserip∥$chkusername∥$chkuserlevel";
         }
      } 
   }
   print "</select>\n";
   print "$chadmtxt{'38'}:<select name=\"addsays\" style=\"color:#000000;background-color:#EFF8FF;\">\n";
   print "<option value=\"\">$chadmtxt{'39'}\n";
   foreach $addsays_line (@addsays) {
     if ($addsays_line =~ /"$addsays"/) {
        $addsays_line =~ s/>/ selected>/g; 
     }
     print "$addsays_line";
   } 
   print "</select>\n";
   print "$chadmtxt{'40'}:<select name=\"addimage\" style=\"color:#000000;background-color:#EFF8FF;\">\n";
   print "<option value=\"\">$chadmtxt{'41'}\n";
   foreach $image_line (@image) {
     if ($image_line =~ /"$addimage"/) {
        $image_line =~ s/>/ selected>/g; 
     }
     print "$image_line";
   } 
   print "</select>\n";
print "</form>\n";
print "</font></body></html>\n";
}
###########
sub return_up {
  $levelname="<font color=#ffffff>Basic</font>";
  if ($userlevel >= $level_towho){$levelname="<font color=#00688B>Register</font>";}
  if ($userlevel >= $level_cls){$levelname="<font color=#00688B>Clear</font>";}
  if ($userlevel >= $level_html){$levelname="<font color=#00CD00>Language</font>";}
  if ($userlevel >= $level_kick){$levelname="<font color=yellow>Kick</font>";}
  if ($userlevel >= $level_seeprivate){$levelname="<font color=red>Admin</font>";}
  print "<html><head><title>Data</title>\n";
  print "<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;CHARSET=win\">\n";
  print "<STYLE TYPE=\"text/css\">\n";
  print "<!--\n";
  print "BODY	{font-size: 9pt;}\n";
  print "td	{font-size: 9pt;}\n";
  print "-->\n";
  print "</STYLE>\n";
  print "</head>\n";
  print "<body bgcolor=$saysback text=$saysword>\n";
  print "<table border=0 align=center width=100%><tr><td bgcolor=$fastback align=center>\n";
  print "<font face=Arial>[ $chadmtxt{'30'} </font><font color=#5CACEE font face=Arial>$nyear</font>, <font face=Arial><font color=#5CACEE>$nmon</font>,  <font face=Arial><font color=#5CACEE>$nday </font>] ";
  print "[ $chadmtxt{'29'} <font color=#000000><font face=Arial>$nhour</font> : <font color=#000000><font face=Arial>$nmin </font><font color=#000000>]</font>\n";
  print "<font color=#000000>[ $chadmtxt{'26'} <font color=#000000><font face=Arial>$userip</font>] [ $chadmtxt{'27'} <font color=#E0FFFF><font face=Arial>$userlevel</font><font color=#000000> ] [ $chadmtxt{'28'} $levelname ]</font></span></table>\n";
  print "</body></html>\n";
}
###########
sub return_online {
$return_online_subject = $_[0];
fopen(ONLINE,"$onlinefile") || die $!;
@online = <ONLINE>;fclose(ONLINE);
@online = sort @online;
if ($return_online_subject eq "online") {
   $temp="online"; 
   print "<html><head><title>Users Online</title>\n";
   print "<STYLE TYPE=\"text/css\">\n";
   print "<!--\n";
   print "body	{font-size: 9pt;}\n";
   print "td	{font-size: 9pt;}\n";
   print "-->\n";
   print "</STYLE>\n";
   print "<META HTTP-EQUIV=REFRESH CONTENT=\"$reload_double;URL=$cgiurl&job=$temp$userinfo\"></head>\n"; 
   print "<body bgcolor=$onlineback text=$onlineword>\n";
   print "<font face=Arial, Helvetica, sans-serif>\n";
   print "<font size=1>\n";
   print "<center><table border=0 width=100%><tr><td bgcolor=#DEE7EF  align=center>$chadmtxt{'31'}</table>\n";
   print "<table border=0>\n";
}
elsif ($return_online_subject eq "kickout") {
   print "<html><head><title>Kick Program</title>\n";
   print "<STYLE TYPE=\"text/css\">\n";
   print "<!--\n";
   print "body	 {font-size: 9pt;}\n";
   print "td	 {font-size: 9pt;}\n";
   print "select {font-size: 9pt;}\n";
   print "input	 {font-size: 9pt;}\n";
   print "button {font-size: 9pt;}\n";
   print "-->\n";
   print "</STYLE>\n";
   print "<META HTTP-EQUIV=REFRESH CONTENT=\"$reload_double;URL=$cgiurl&job=setkick$userinfo\"></head>\n";
   print "<body bgcolor=$saysback text=#ffffff><br><p><center>\n";
   print "<table border=0 width=80%>\n";
   print "<form method=POST action=\"$cgiurl&job=kickout$userinfo\" target=\"one\" onsubmit=\"self.status='Data Sent'; return true;\">\n";
   print "<tr bgcolor=#6B6B6B><td align=center><font color=0>Choose</font></td><td align=center><font color=0>Name</font></td><td align=center><font color=0>Location</font><td align=center><font color=0>Level</font></td><td align=center><font color=0>Last login</font></td><td align=center><font color=0>Control Status</font></td></tr>\n"; 
}

$lastcheck = "";
foreach $online_line (@online) {
   ($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktime,$chksec,$chkkickout,$chkkickoutway,$markend,$last)=split(/∥/,$online_line);
   if ($chkusersex eq "boy"){
   $colorsex="4080ff";
   if ($chkuserlevel eq $level_html){$colorsex="green";}
   if ($chkuserlevel eq $level_towho){$colorsex="red";}
   if ($chkuserlevel eq $level_cls){$colorsex="#90EE90";}
   if ($chkuserlevel eq $level_kick){$colorsex="yellow";}
   if ($chkuserlevel eq $level_seeprivate){$colorsex="ffffff";}
   $chkusersex="<font color=$colorsex>";
   }
   else {
   $colorsex="magenta";
   if ($chkuserlevel eq $level_html){$colorsex="green";}
   if ($chkuserlevel eq $level_towho){$colorsex="red";}
   if ($chkuserlevel eq $level_cls){$colorsex="#90EE90";}
   if ($chkuserlevel eq $level_seeprivate){$colorsex="ffffff";}
   $chkusersex="<font color=$colorsex>";
   }
   if (($mark eq "online") && ($markend eq "end")) {
      if (($lastcheck ne "$chkuserip∥$chkusername∥$chkuserlevel") && (!(($return_online_subject eq "online") && ($userlevel<$level_seelevel) && ($chkkickout eq "kickouted")))) {
         if (($return_online_subject eq "kickout") && ($userlevel>=$level_kick)) {
            print "<tr bgcolor=#2b2b2b><td align=center>";
            if ($chkuserlevel<$userlevel) {
               print "<input type=radio name=\"kickoutuser\" value=\"$chkuserip∥$chkusername∥$chkuserlevel\">";
            }
            else {
               print "Non";
            }
            print "</td>"; 
            print "<td align=center>$chkusersex$chkusername</font></td><td align=center>$chkuserip</td>";
            if ($chkuserlevel<$userlevel) {print "<td align=center>Level $chkuserlevel</td>";}
            elsif ($chkuserlevel>=$userlevel) {print "<td align=center>$userlevel</td>";}
            print "<td align=center>$chktime</td>";
            if ($chkkickout eq "kickouted") {
	    if ($chkkickoutway eq "level1"){$chkkickoutway="Kick Out";}
	    if ($chkkickoutway eq "level3"){$chkkickoutway="Ban saying";}
               print "<td align=center>$chkkickoutway</td>";
            }
            else {
               print "<td align=center>Non</td>";
            }  
            print "</tr>\n";
          }
          else {
	    if ($chkkickoutway ne "kickouted"){
            print "<tr><td>";
	    $user++;
#HEREHERE
       fopen(FILE, "$memberdir/$chkusername.dat");
        @settings = <FILE>;
        fclose(FILE);
	if ($chkusername ne 'Guest'){
		$chkuserdisplayname = $settings[1];
		$chkuserdisplayname =~ s/\n//g;
	} else {
		$chkuserdisplayname = 'Guest';
	}
#HEREHERE			
            print "$chkusersex$chkuserdisplayname</font>"; 
            if ($userlevel>=$level_seelevel) { 
               if ($chkuserlevel<$userlevel) {print "&nbsp;($chkuserlevel)";}
               if ($chkuserlevel>=$userlevel) {print "&nbsp;($chkuserlevel)";}
               if ($chkkickout eq "kickouted") {print "<font color=red>*</font>";}
	      }		
            }
            print "</td></tr>";
         }
      }
      $lastcheck = "$chkuserip∥$chkusername∥$chkuserlevel";
   }
}
print "</table>\n";
if ($job eq "online"){
print "<table border=0 width=100%><tr><td bgcolor=#DEE7EF align=center>$chadmtxt{'62'} <font color=$sysmess>$user </font> $chadmtxt{'63'}</table>\n";}
if (($return_online_subject eq "kickout") && ($userlevel>=$level_kick)) {
   print "<hr size=-1 width=80%>\n";
   if ($userlevel>=$level_allipkick) {
      print "<select name=\"allip\" style=\"FONT-SIZE: 9pt;\">\n"; 
      print "<option value=\"no\">Don't Do This\n";
      print "<option value=\"yes\">Kick the same IP\n";
      print "</select>\n";
   }
   print "<select name=\"kickoutway\" style=\"FONT-SIZE: 9pt;\">\n";
   print "<option value=\"level3\" selected>Prohibit chat\n";
   print "<option value=\"level1\">Kick out\n";
   print "</select>\n";
   print "<br><hr size=-1 width=40%><input type=submit value=\"Kick\" style=\"FONT-SIZE: 9pt;\"><input type=reset value=\"Reset\" style=\"FONT-SIZE: 9pt;\">\n";
   print "</form>\n";
}
print "</font></center></body></html>\n";
}

###########
sub return_func {
print "<html><head><title>func</title></head>\n";
print <<"ccs";
<style type="text/css">
<!--
A:link        {text-decoration: none; color: #FF0000;}
A:visited     {text-decoration: none; color: #FF0000;}
A:hover       {text-decoration: none; color: #FF5555; font-style: normal;
text-decoration: underline overline}}
BODY          {scrollbar-face-color: #272A2F; scrollbar-shadow-color:
#1B1E25; scrollbar-highlight-color: #cccccc;
     	       scrollbar-3dlight-color: #272A2F;
scrollbar-darkshadow-color: #1B1E25; scrollbar-track-color: #444444;
     	       scrollbar-arrow-color: #ffb903; font-family: Verdana}
.nav          {text-decoration: none; color: #FFFFFF;}
.nav:link     {text-decoration: none; color: #FFFFFF;}
.nav:visited  {text-decoration: none; color: #FFFFFF;}
.nav:hover    {text-decoration: none; color: #FFB903; font-style: normal;
text-decoration: underline}
.windowbg     {background-color: #272A2F;}
.windowbg2    {background-color: #444444;}
.windowbg3    {background-color: #FFB903;}
.titlebg      {background-color: #FFB903;}
.text1        {font-style: normal; font-weight: bold; font-size: 13px;
color: #000000;}
.catbg        {background-color: #40454C; color: #EEEEEE; font-weight:
bold; font-size: 13px;}
.bordercolor  {background-color: #000000;}
.quote        {font-size: 10px; font-family: Arial; color: #FFFFFF;
background-color: dimgray;}
.code         {font-size: 10px; font-family: Courier New; color: #000000;
background-color: #FFB920;}
TD            {font-family: Verdana; color: #FFFFFF}
input         {background-color: #333333; font-family: Verdana; font-size:
10pt; color: #FFFFFF;}
textarea      {background-color: #333333; font-family: Verdana; font-size:
10pt; color: #FFFFFF;}
select        {background-color: #333333; font-family: Verdana; font-size:
7pt; color: #FFFFFF;}
a:link {text-decoration:none}

div.tvbitems a:hover {color:#ff0000 ; text-decoration:none}

div.tvbitems a:visited {text-decoration:none}

div.tvbitems a:link {font-family:新細明體 ; text-decoration:none ; 
color:#0000ff}

h5 { font-family: "新細明體", "細明體"; font-style: normal; font-size:

9pt; font-weight: lighter; text-decoration:none}
.poll        {font-size: 10px; font-family: Arial; background-color:
dimgray; color: red;}
-->
</style>
ccs
print "<body bgcolor=$funcback text=$funcword><center>\n";
print "<a href=\"$cgiurl&job=look$userinfo\" target=\"one\">$txt{'img1'}</a><br>\n";
print "<a href=\"$cgiurl&job=settype$userinfo\" target=\"two\">$txt{'img2'}</a><br>\n";
print "<a href=\"$cgiurl&job=tell$userinfo\" target=\"one\">$txt{'img3'}</a><br>\n";
if ($userlevel>=$level_cls){
print "<a href=\"$cgiurl&job=typecls$userinfo\" target=\"one\">$txt{'img4'}</a><br>\n";
}
if ($userlevel>=$level_kick){
print "<a href=\"$cgiurl&job=setkick$userinfo\" target=\"one\">$txt{'img5'}</a><br>\n";
}
print "<a href=\"$cgiurl&job=logout$userinfo&logouturl=$logouturl\" target=\"_top\">$txt{'img6'}</a><br>\n";
print "</center></body></html>\n";
}
###########
sub return_whole {
print "<html><head><title>$title</title>\n";
print "<frameset cols=\"*,100\" border=0  frameborder=0 framespacing=0>\n";
print "<frameset rows=\"20,*,50\" border=0 frameborder=0 framespacing=0>\n";
print "<frame src=\"$cgiurl&job=setup$userinfo\" name=\"up\" noresize marginwidth=0>\n";
print "<frame src=\"$cgiurl&job=tell$userinfo\" name=\"one\" noresize marginwidth=0>\n";
print "<frame src=\"$cgiurl&job=settype$userinfo\" name=\"two\" noresize marginwidth=0 scrolling=\"no\">\n";
print "</frameset>\n";
print "<frameset rows=\"*,140\" border=0 frameborder=0 framespacing=0>\n";
print "<frame src=\"$cgiurl&job=online$userinfo\" name=\"three\" noresize marginwidth=0>\n";
print "<frame src=\"$cgiurl&job=setfunc$userinfo\" name=\"five\" marginwidth=0>\n";
print "</frameset>\n";
print "</frameset>\n";
print "</head></html>\n";  
}
###########
sub return_tell {
print "<html><head><title>$title</title>\n";
print "<STYLE TYPE=\"text/css\">\n";
print "<!--\n";
print "	body	{font-size: 9pt;}\n";
print "	td	{font-size: 9pt;}\n";
print "-->\n";
print "</STYLE>\n";
print "</head>\n";
print "<body bgcolor=$saysback text=$saysword><br><p>\n";
print "<table border=0 width=84% align=center><tr><td>\n";
print "<center>IE-4.0 $chadmtxt{'33'}<br><p>\n";
print "<font face=Arial font size=2>$mbname $chadmtxt{'32'}\n";
print "<hr size=-1></center><ol><li>\n";
print "<font face=Arial font size=2>$chadmtxt{'34'}</font>\n";
print "<li><font face=Arial font size=2>$chadmtxt{'35'}</font>\n";
print "<li><font face=Arial font size=2>$chadmtxt{'36'}</font>\n";
print "<li><font face=Arial font size=2>$chadmtxt{'37'}</font>\n";
print "</ol>\n";
print "</table></body></html>\n";
}
###########
sub return_logout {
print "<html><head><title>$title</title>\n";
print "<META HTTP-EQUIV=REFRESH CONTENT=\"0;URL=$logouturl\"></head>\n";
print "<body bgcolor=#FFFFFF>\n";
print "</body></html>\n";  
}
###########
sub get_data {
@querys = split(/&/, $ENV{'QUERY_STRING'});
foreach $query (@querys) {
   ($name, $value) = split(/=/, $query);
   $FORM{$name} = $value;    
   if ($name eq "userpassword") {
      $userid       = "$FORM{'userid'}";
      $userpassword = "$FORM{'userpassword'}";
      foreach $super_line (@super) {               
         ($chkuserid,$chkuserpassword,$chkuserlevel, $last) = split(/∥/, $super_line);
         if (($userid eq $chkuserid) && ($userpassword eq $chkuserpassword)) {
            #$userlevel = $chkuserlevel;
            if ($userlevel>=$level_html) {  
               $allow_html = 1;
            }
         }
      }
   }
}

#        fopen(FILE, "$memberdir/$username.dat");
#        @settings = <FILE>;
#	fclose(FILE);
        if ("Administrator" eq $settings[7]) {
                $userlevel = 6;
        }


read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@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;
   $value =~ s/<!--(.|\n)*-->//g;
   if (($allow_html != 1) && ($name ne "cmd")) {
      	$message =~ s/\&/\&amp;/g;
	$message =~ s/"/\&quot;/g;
	$message =~ s/  / \&nbsp;/g;
	$message =~ s/</&lt;/g;
	$message =~ s/>/&gt;/g;
	$message =~ s/\t/ \&nbsp; \&nbsp; \&nbsp;/g;
	$message =~ s/\n/<br>/g;
	$message =~ s/\|/\&#124;/g;
   }
   else {
      
   }
   $FORM{$name} = $value;
   if ($name eq "userpassword") {
      $userid       = "$FORM{'userid'}";
      $userpassword = "$FORM{'userpassword'}";
      foreach $super_line (@super) {               
         ($chkuserid,$chkuserpassword,$chkuserlevel,$last) = split(/∥/, $super_line);
         if (($userid eq $chkuserid) && ($userpassword eq $chkuserpassword)) {
            #$userlevel = $chkuserlevel;  
            if ($userlevel>=$level_html) {
               $allow_html = 1;
            }
         }
      } 
   }
}
}
##########
sub set_var {
if ($FORM{'job'}) {
   $job = "$FORM{'job'}";
   &chkempty($job,"No data found");
}
else {
   &error("No data found $yyCookies{$cookieusername}"); 
}

if ($username) {
#   $username = "$FORM{'username'}";
   $username =~ s/\n//g;
   $username =~ s/"//g;
   $username =~ s/<//g;
   $username =~ s/>//g;
   $username =~ s/\&//g;
   $username =~ s/∥//g;
   $username =~ s/;//g;
   $username =~ s/ //g;
   $username =~ s/\?//g;
   &chkempty($username,"No nick");
}
else {
   &error("No nick");
}

#if ($FORM{'usersex'}) {
#   $usersex = "$FORM{'usersex'}";
#   $usersex =~ s/\n//g;
#   &chkempty($usersex,"No sex");
#}
#else {
#   &error("No sex");
#}

if ($FORM{'towhoway'}) {
   $towhoway = "$FORM{'towhoway'}";
   $towhoway =~ s/\n//g;
}

if ($FORM{'towho'}) {
   $towho = "$FORM{'towho'}";
   $towho =~ s/\n//g;
}

if ($FORM{'wordcolor'}) {
   $wordcolor = "$FORM{'wordcolor'}";
   $wordcolor =~ s/\n//g;
}
if ($FORM{'says'}) {
   $says = "$FORM{'says'}";
   $says =~ s/\n//g;
   $says =~ s/∥//g;
   &chkempty($says,"No Chat"); 
}
else {
   if ($job eq "says") {
      &error("No Chat");
   }
}

if ($FORM{'addsays'}) {
   $addsays = "$FORM{'addsays'}";
   $addsays =~ s/\n//g;
   $addsays =~ s/∥//g;
}

if ($FORM{'addimage'}) {
   $addimage = "$FORM{'addimage'}";
   $addimage =~ s/\n//g;
   $addimage =~ s/∥//g;
}
if ($FORM{'kickoutuser'}) {
   $kickoutuser = "$FORM{'kickoutuser'}";
   $kickoutuser =~ s/\n//g;
}
if ($FORM{'kickoutway'}) {
   $kickoutway = "$FORM{'kickoutway'}";
   $kickoutway =~ s/\n//g;
}
if ($FORM{'logouturl'}) {
   $logouturl = "$FORM{'logouturl'}";
   $logouturl =~ s/\n//g;
}
if ($FORM{'foururl'}) {
   $foururl = "$FORM{'foururl'}";
   $foururl =~ s/\n//g;
}

if ($FORM{'fourscrolling'}) {
   $fourscrolling = "$FORM{'fourscrolling'}";
   $fourscrolling =~ s/\n//g;
}

$want   = $FORM{'class'};
$want2   = $FORM{'class2'};
$userip  = $ENV{'REMOTE_ADDR'};
($nsec,$nmin,$nhour,$nday,$nmon,$nyear,$wday,$yday,$isdst) = localtime(time+(3600*$time_miss));
$nyear = $nyear - 100 + 2000;
if ($nsec<10) {$nsec="0$nsec";}
if ($nmin<10) {$nmin="0$nmin";}
if ($nhour>12) {$nhour-=12;}
if ($nhour<10) {$nhour="0$nhour";}
$nmon=$nmon+1; 
if ($nmon<10) {$nmon="0$nmon";}
if ($nday<10) {$nday="0$nday";}
$normal_time  ="$nhour\:$nmin\:$nsec";
$now_sec      =$nsec + ($nmin*60) + ($nhour*60*60) + ($nday*24*60*60);
$cut1_sec     =$now_sec-($reload*4.2);
$cut2_sec     =$now_sec+($reload*4.2);
$cut3_sec     =$now_sec-($kicktime);
$cut4_sec     =$now_sec+($kicktime);
$reload_double=$reload*3;
$userinfo     ="&username=$username&usersex=$usersex&userid=$userid&userpassword=$userpassword&class=$want&class2=$want2";
}
sub chkempty {
$chkval = $_[0];
$chkerr = $_[1];
$chkval =~ s/ //g;
$chkval =~ s/<br>//g;
$chkval =~ s/\n//g;
if ($chkval eq "") { 
   &error($chkerr);
}
}
##############
sub return_cls {
fopen(MAIN,">$messfile");
print MAIN "";
fclose(MAIN);
}
##############
# sub proxy {
# $userproxy=$ENV{'HTTP_X_FORWARDED_FOR'};
# $userproxy="" if ($userproxy eq $userip);
# &error("You must close your Proxy server setting to get in") if ($userproxy ne "");
# }
#############
sub error {
$error_subject = $_[0];
print "<html><head><title>ERROR</title>\n";
print "</head>\n";
print "<body bgcolor=$saysback text=#ffffff>\n";
print "<center><h1>\n";
print "ERROR $error_subject\n";
print "</h1></center></body></html>\n";
}
exit;
	}