chat-showmsg.pl

java开发的聊天室

sub message_show {
$chkname1=$chkusername;
#$chkusername= "<a href=\"javascript:parent.choosename('$chkusername')\;\" target=type>$chkusername</a>";
#$chktowho="<a href=\"javascript:parent.choosename('$chktowho')\;\" target=type>$chktowho</a>";
local($chkusersex1)     ="<font size=-1>$chkusersex</font>" if (($allow_sex2==1) || (($allow_sex2==2) && (($mark eq "login") || ($mark eq "logout"))));
local($chkusername1)    =$chkusername;
local($chkusername1)    ="<b><u>$chkusername</u></b>" if ($chkname1 eq $username);
if ($usersexcolor{$chkusersex})
{
	$chkusername1="<font color=$usersexcolor{$chkusersex}>$chkusername1$chkusersex1</font>";	
}
else
{
	$chkusername1="$chkusername1$chkusersex1";
}

local($chktowho1)       =$chktowho;
local($chktowho1)       ="<b><u>$chktowho</u></b>" if ($chktowho eq $username); 
local($chktimen1)       ="<font size=-3>($chktimen)</font>" if ($allow_time==1);
local($chkuserip1)      ="<font size=-3>[$chkuserip]</font>" if ($userlevel>=$level_seeip);
local($chkaddsign1)     ="<font face=wingdings size=$addsign_size>$chkaddsign</font>" if ($chkaddsign ne "");
local($chkaddwordcolor1)="<font color=$chkaddwordcolor>" if ($chkaddwordcolor ne "");
local($chkaddwordcolor2)="</font>" if ($chkaddwordcolor ne "");
if ($miandarao eq 1)
{if ($mark eq "says") {
	if (($chkname1 eq $username) || ($chktowho eq $username))
	{
   		if ($chktowho eq "") {
      		print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays：$chksays$chkaddsign1$chkaddwordcolor2<br>\n"; $messageshow++;
   		}
   		elsif (($chktowho ne "") && ($chktowhoway ne "private")) {
      		$chkaddsays =~s/说//g;
      		print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays对$chktowho1说：$chksays$chkaddsign1$chkaddwordcolor2<br>\n"; $messageshow++;
   		}
   		elsif (($chktowho ne "") && ($chktowhoway eq "private") && (("$userip↑$username↑$userlevel" eq "$chkuserip↑$chkusername↑$chkuserlevel") || ($username eq $chktowho))) {
      		$chkaddsays =~s/说//g;
			print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays只对$chktowho1说：$chksays$chkaddsign1$chkaddwordcolor2<br>\n";
	  		$messageshow++;
   		}
   		elsif (($chktowho ne "") && ($chktowhoway eq "private") && (($userlevel>$chkuserlevel) && ($userlevel>=$level_seeprivate))&&(&check_private eq 1)) {
      		$chkaddsays =~s/说//g;
      		print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays只对$chktowho1说：$chksays$chkaddsign1$chkaddwordcolor2<br>\n"; $messageshow++;
   		}
	}
}
elsif ((($mark eq "mysays")||($mark eq "mysays1")||($mark eq "mysays2")||($mark eq "mysays3"))&&($username eq $chktowho)) {
	print "<p><font color=red>$chktimen1系统密告[$chktowho]：$chksays</font><br>\n"; $messageshow++;
}  

elsif ($mark eq "login") {
	print "<p><font size=-1 color=$loginword>$chktimen1$roomtitle公告：$chkusername1$chkuserip1高高兴兴地进入聊天室。</font><br>\n"; $messageshow++;
} 
elsif ($mark eq "logout") {
   print "<p><font size=-1 color=$logoutword>$chktimen1$roomtitle公告：$chkusername1$chkuserip1依依不舍地离开了聊天室。</font><br>\n"; $messageshow++;
}
elsif ($mark eq "out") {
   print "<p><font size=-1 color=$logoutword>$chktimen1$roomtitle公告：$chkusername1$chkuserip1被逼无奈很不情愿地离开了聊天室。</font><br>\n"; $messageshow++;
}
elsif ($mark eq "system") {
   print "<p><font size=-1 color=red face='黑体'>$chktimen1$roomtitle公告：$chksays</font><br>\n"; $messageshow++;
}
}


elsif ($miandarao eq 2)
{if ($mark eq "says") {
	if (($chkname1 eq $username) || ($chktowho eq $username))
	{
   		if ($chktowho eq "") {
      		print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays：$chksays$chkaddsign1$chkaddwordcolor2<br>\n"; $messageshow++;
   		}
   		elsif (($chktowho ne "") && ($chktowhoway ne "private")) {
      		$chkaddsays =~s/说//g;
      		print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays对$chktowho1说：$chksays$chkaddsign1$chkaddwordcolor2<br>\n"; $messageshow++;
   		}
   		elsif (($chktowho ne "") && ($chktowhoway eq "private") && (("$userip↑$username↑$userlevel" eq "$chkuserip↑$chkusername↑$chkuserlevel") || ($username eq $chktowho))) {
      		$chkaddsays =~s/说//g;
			print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays只对$chktowho1说：$chksays$chkaddsign1$chkaddwordcolor2<br>\n";
			  $messageshow++;
   		}
   		elsif (($chktowho ne "") && ($chktowhoway eq "private") && (($userlevel>$chkuserlevel) && ($userlevel>=$level_seeprivate))&&(&check_private eq 1)) {
      	$chkaddsays =~s/说//g;
      	print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays只对$chktowho1说：$chksays$chkaddsign1$chkaddwordcolor2<br>\n"; $messageshow++;
   		}
	}
}

elsif ($mark eq "system") {
   print "<p><font size=-1 color=red face='黑体'>$chktimen1$roomtitle公告：$chksays</font><br>\n"; $messageshow++;
}
}

else
{if ($mark eq "says") {
   if ($chktowho eq "") {
      print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays：$chksays$chkaddsign1$chkaddwordcolor2<br>\n"; $messageshow++;
   }
   elsif (($chktowho ne "") && ($chktowhoway ne "private")) {
 		$chkaddsays =~s/说//g;
      print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays对$chktowho1说：$chksays$chkaddsign1$chkaddwordcolor2<br>\n"; $messageshow++;
   }
   elsif (($chktowho ne "") && ($chktowhoway eq "private") && (("$userip↑$username↑$userlevel" eq "$chkuserip↑$chkusername↑$chkuserlevel") || ($username eq $chktowho))) {
      $chkaddsays =~s/说//g;
print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays只对$chktowho1说：$chksays$chkaddsign1$chkaddwordcolor2<br>\n";
	  $messageshow++;
   }
   elsif (($chktowho ne "") && ($chktowhoway eq "private") && (($userlevel>$chkuserlevel) && ($userlevel>=$level_seeprivate))&&(&check_private eq 1)) {
      $chkaddsays =~s/说//g;
      print "<p>$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays只对$chktowho1说：$chksays$chkaddsign1$chkaddwordcolor2<br>\n"; $messageshow++;
   }
#看到别人私聊
   elsif (($chktowho ne "") && ($chktowhoway eq "private") && (("$userip↑$username↑$userlevel" ne "$chkuserip↑$chkusername↑$chkuserlevel") || ($username ne $chktowho))) {
      	$chkaddsays =~s/说//g;
		print "<p>$chktimen1$chkusername1<font color=1C67B3>私聊中!</font><BR>\n";
	  	$messageshow++;
   }
}
elsif ((($mark eq "mysays")||($mark eq "mysays1")||($mark eq "mysays2")||($mark eq "mysays3"))&&($username eq $chktowho)) {
	print "<p><font color=red>$chktimen1系统密告[$chktowho]：$chksays</font><br>\n"; $messageshow++;
}  

elsif ($mark eq "login") {
	print "<p><font size=-1 color=$loginword>$chktimen1$roomtitle公告：$chkusername1$chkuserip1高高兴兴地进入聊天室。</font><br>\n"; $messageshow++;
} 
elsif ($mark eq "logout") {
   print "<p><font size=-1 color=$logoutword>$chktimen1$roomtitle公告：$chkusername1$chkuserip1依依不舍地离开了聊天室。</font><br>\n"; $messageshow++;
}
elsif ($mark eq "out") {
   print "<p><font size=-1 color=$logoutword>$chktimen1$roomtitle公告：$chkusername1$chkuserip1被逼无奈很不情愿地离开了聊天室。</font><br>\n"; $messageshow++;
}
elsif ($mark eq "system") {
   print "<p><font size=-1 color=red face='黑体'>$chktimen1$roomtitle公告：$chksays</font><br>\n"; $messageshow++;
}
elsif ($mark eq "leave") {
   print "<p><font size=-1>$chktimen1$roomtitle公告：$chkusername1$chksays</font><br>\n"; $messageshow++;
}
elsif ($mark eq "enter") {
   print "<p><font size=-1>$chktimen1$roomtitle公告：$chkusername1$chksays</font><br>\n"; $messageshow++;
}
}
#print "<p><br>";
}

#查该高级用户是否有看私聊的权利
sub check_private
{
	$userno=0;
	for ($userno=0;$userno<=$#privateuser;$userno++)
	{
		return(1) if ($username eq $privateuser[$userno]);
	}
}
1;