$YaBBChatplver = '1.94-win32 for YaBB Gold SP1';
#########################################
# Main script for Chatroom
sub mainscript {
	require "$vardir/ChatSettings.txt";
# 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';
	} 
#############
	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 "") {
			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'} = "<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	= $chatreload;
	$kicktime     = 300; 
	$image_size   = 3;
	$allow_mess   = $chat_allow_mess;
	$time_miss    = +0;  
	$level_towho     = 1;
	$level_cls	 = 4;
	$level_html      = 3;
	$level_kick      = 5;
	$level_seelevel  = 3;
	$level_seeprivate= 6;
###############
	$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;
	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 {
			&chaterror("No User Right");
		}
	}
	elsif ($job eq "kickout") {
		if ($userlevel>=$level_kick) {
			if ($kickoutuser) {
 				&write_online(kickout);
			}  
			&return_mess;     
		}
		else {
			&chaterror("No User Right");
		}
	}
	elsif ($job eq "typecls") {
		&return_cls;
		&write_mess(setcls);
		&return_mess;
	}
	exit;
}
# end of main script ####################
#########################################
# Writes new chat messages to says.txt file
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;
	$sizeofmessarray = @mess;
	if (($write_mess_subject eq "says") && ($sizeofmessarray >= $allow_mess)) {
		$deadzone = shift @mess;
	}
	foreach $message (@mess) {   
		($mark,$chkuserip,$chkusername,$chkuserlevel,$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++;}
		}
	}
	if ($write_mess_subject eq "login") {
		print MESS "login∥$userip∥$userdisplayname∥$userlevel∥∥∥∥∥∥∥∥∥$normal_time∥end∥\n"; 
		$total_mess1++;}
	elsif ($write_mess_subject eq "logout") {
		print MESS "logout∥$userip∥$userdisplayname∥$userlevel∥∥∥∥∥∥∥∥∥$normal_time∥end∥\n"; 
		$total_mess1++;}
	elsif ($write_mess_subject eq "setcls") {
		print MESS "setcls∥$userip∥$userdisplayname∥$userlevel∥∥∥∥∥∥∥∥∥$normal_time∥end∥\n"; 
		$total_mess1++;}
	if ($write_mess_subject eq "says") {
		print MESS "says∥$userip∥$userdisplayname∥$userlevel∥$towhoway∥$towho∥$wordcolor∥$addsays∥$says∥$addimage∥$normal_time∥end∥\n"; 
		if (($towhoway eq "private") && ($towho ne "toall∥toall∥toall")) {$total_mess2++;}
		else {$total_mess1++;}
	}
	fclose(MESS);
}
#########################################
# Writes who is chatting to online.txt file
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,$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∥$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∥$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∥$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);
}
#########################################
# Reads says.txt and displays chat messages in main frame of Chatroom window
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 qq~
				<SCRIPT LANGUAGE="JavaScript">
				<!--
				function ChatScroll() {
					window.scrollTo(0,10000);
					setTimeout('ChatScroll()',500); // scrolls every 500 miliseconds
				}
				setTimeout('ChatScroll()',100);
				//-->
				</SCRIPT>
			~;
		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,$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 ($want eq "yes") {
					$chktime="【<font face=Arial, Helvetica, sans-serif color=#ffffff>$chktime</font>】";$showip="【$chkuserip】";}
				else {$chktime="<font face=Arial, Helvetica, sans-serif>";}
				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$chkusername</font> <font face=Arial, Helvetica, sans-serif color=$chkwordcolor>$chkaddsays: $chksays$chkaddimage</font>$start\n";}
					elsif ((($chktowhoip ne "toall") || ($chktowhoname ne "toall") || ($chktowholevel ne "toall")) && ($chktowhoway eq "public")) {
						print "$chktime$chkusername</font> <font face=Arial, Helvetica, sans-serif color=$chkwordcolor>$chkaddsays to $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$chkusername</font> <font face=Arial, Helvetica, sans-serif color=$chkwordcolor>$chkaddsays $chadmtxt{'49'} <u>$chktowhoname</font></u>: $chksays$chkaddimage</font>$start\n";}
					}
				elsif ($mark eq "login") {
					if ($chkuserlevel eq $level_kick) {
						print "$chktime<font face=Arial, Helvetica, sans-serif color=$sysmess>[$chadmtxt{'48'}: $chadmtxt{'53'} $chkusername $chadmtxt{'50'}]</font>$start\n";}
				elsif ($chkuserlevel eq $level_cls) {
					print "$chktime<font face=Arial, Helvetica, sans-serif color=$sysmess>[$chadmtxt{'48'}: $chkusername $chadmtxt{'50'}]</font>$start\n";}
				elsif ($chkuserlevel eq $level_html) {
					print "$chktime<font face=Arial, Helvetica, sans-serif color=$sysmess>[$chadmtxt{'48'}: $chadmtxt{'54'} $chkusername $chadmtxt{'50'}]</font>$start\n";}
				else {
					print "$chktime<font face=Arial, Helvetica, sans-serif color=$sysmess>$chadmtxt{'48'}: $chkusername $chadmtxt{'50'}</font>$start\n";}
				}
				elsif ($mark eq "logout") {
					print "$chktime<font face=Arial, Helvetica, sans-serif color=$sysmess>$chadmtxt{'48'}: $chkusername $chadmtxt{'51'}</font>$start\n";}
				elsif ($mark eq "setcls") {
					print "<font face=Arial, Helvetica, sans-serif color=$sysmess>$chadmtxt{'48'}: $chktime$chkusername $chadmtxt{'52'}<br></font>\n";}
			}
		}
		print "</font></body></html>\n";
	}
}
#########################################
# Display form across bottom of Chatroom window (text box, colors, emotions, picts, public/private)
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,$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";
}
#########################################
# Display info at top of Chatroom window
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";
}
#########################################
# Reads online.txt file and displays who is currently chatting
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,$chktime,$chksec,$chkkickout,$chkkickoutway,$markend,$last)=split(/∥/,$online_line);
		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>$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++;
						fopen(FILE, "$memberdir/$chkusername.dat");
						@settings = <FILE>;
						fclose(FILE);
						if ($chkusername ne 'Guest'){
							$chkuserdisplayname = $settings[1];
							$chkuserdisplayname =~ s/\n//g;
						} else {
							$chkuserdisplayname = 'Guest';
						}			
						print "$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";
}

#########################################
# Display menu in lower righthand corner of Chatroom
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>\n";
	print "<font size=1><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 "</font></center></body></html>\n";
}
#########################################
# Setup various frames within Chatroom window
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";  
}
#########################################
# Display info screen at startup and if "info" clicked
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><font face=Arial, Helvetica, sans-serif>$chadmtxt{'33'}</font><br><p>\n";
	print "<font face=Arial, Helvetica, sans-serif font size=2>$mbname $chadmtxt{'32'}\n";
	print "<hr size=-1></center><ol><li>\n";
	print "<font face=Arial, Helvetica, sans-serif font size=2>$chadmtxt{'34'}</font>\n";
	print "<li><font face=Arial, Helvetica, sans-serif font size=2>$chadmtxt{'35'}</font>\n";
	print "<li><font face=Arial, Helvetica, sans-serif font size=2>$chadmtxt{'36'}</font>\n";
	print "<li><font face=Arial, Helvetica, sans-serif font size=2>$chadmtxt{'37'}</font>\n";
	print "</ol>\n";
	print "</table></body></html>\n";
}
#########################################
# Call close.htm to close out chatroom windows
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";  
}
#########################################
# Get returned data from Chatroom forms
sub get_data {
	@querys = split(/&/, $ENV{'QUERY_STRING'});
	foreach $query (@querys) {
		($name, $value) = split(/=/, $query);
		$FORM{$name} = $value;    
	}
	if ("Administrator" eq $settings[7]) {
		$userlevel = 6;
		$allow_html = 1;
	}
}
#########################################
# Assign returned data to proper variables, check for errors
sub set_var {
	if ($FORM{'job'}) {
		$job = "$FORM{'job'}";
		&chkempty($job,"No data found");
	}
	else {
		&chaterror("No data found $yyCookies{$cookieusername}"); 
	}

	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") {
			&chaterror("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&userid=$userid&userpassword=$userpassword&class=$want&class2=$want2";
}
#########################################
# Check to see if chatroom text box was empty when <enter> pressed
sub chkempty {
	$chkval = $_[0];
	$chkerr = $_[1];
	$chkval =~ s/ //g;
	$chkval =~ s/<br>//g;
	$chkval =~ s/\n//g;
	if ($chkval eq "") { 
		&chaterror($chkerr);
	}
}
#########################################
# Wipe Chat
sub return_cls {
	fopen(MAIN,">$messfile");
	print MAIN "";
	fclose(MAIN);
}
#########################################
# Error handling
sub chaterror {
	$chaterror_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 $chaterror_subject\n";
	print "</h1></center></body></html>\n";
}
1;