chat-showmsg1.pl

java开发的聊天室

sub message_show {
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)    ="<u>$chkusername</u>" if ($chkusername eq $username);
if ($usersexcolor{$chkusersex})
{
	$chkusername1="<font color=$usersexcolor{$chkusersex}>$chkusername1$chkusersex1</font>";	
}
else
{
	$chkusername1="$chkusername1$chkusersex1";
}
#print $chkusername1;

local($chktowho1)       =$chktowho;
local($chktowho1)       ="<u>$chktowho</u>" 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 ($mark eq "says") {
   if ($chktowho eq "") {
      print "$chktimen1$chkaddwordcolor1$chkusername1$chkuserip1$chkaddsays：$chksays$chkaddsign1$chkaddwordcolor2<br>\n"; $messageshow++;
   }
   elsif (($chktowho ne "") && ($chktowhoway ne "private")) {
      print "$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 "$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 "$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 "$chktimen1$chkusername1<font color=1C67B3 size=-1>私聊中......</font><BR>\n";
	  $messageshow++;
   }
}
elsif ($mark eq "login") {
	print "<font size=-1 color=$loginword>$chktimen1$roomtitle公告：$chkusername1$chkuserip1高高兴兴地进入聊天室。</font><br>\n"; $messageshow++;
} 
elsif ($mark eq "logout") {
   print "<font size=-1 color=$logoutword>$chktimen1$roomtitle公告：$chkusername1$chkuserip1依依不舍地离开了聊天室。</font><br>\n"; $messageshow++;
}
elsif ($mark eq "out") {
   print "<font size=-1 color=$logoutword>$chktimen1$roomtitle公告：$chkusername1$chkuserip1被逼无奈很不情愿地离开了聊天室。</font><br>\n"; $messageshow++;
}
elsif ($mark eq "system") {
   print "<font size=-1 color=red face='黑体'>$chktimen1$roomtitle公告：$chksays</font><br>\n"; $messageshow++;
}
}

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