📄 chat-returnonline.pl

📁 java开发的聊天室
💻 PL
字号:
sub return_online {
$usersum=0;
$temp="online";
print "<html><head>";
print "<BASEFONT FACE=\"Arial\">";
print "<title>在线名单</title>\n";
print "<META HTTP-EQUIV=REFRESH CONTENT='60;URL=$cgiurl?job=$temp$userinfo'>\n";
print "<LINK REL=stylesheet HREF='$cssurl' TYPE='text/css'>";
print "</head>\n";
print "<body bgcolor=$onlineback text=$onlineword link=white vlink=yellow>\n";
print "<div id=\"Rollover\">";
print "<a href=$cgiurl?job=$temp$userinfo><center>更新在线名单</a>\n";

@addroom     =&readtxtfile($addroomfile);
   foreach (@addroom) {
   ($temp1,$roomname,$temp2)=split(/"/,$_);
	&isonline($roomname);
   } 
print "<br><font size=\"-1\"><a href=\"javascript:parent.choosename('')\;\" target=type><span class=\"Item\">所有</span></a></font>\n";
print "($usersum人)</center>\n";
require "$chathead/chat-usercount.pl";
@addroom     =&readtxtfile($addroomfile);
   foreach (@addroom) {
   ($temp1,$roomname,$temp2)=split(/"/,$_);
	&thisonline($roomname);
   } 
print "</div>";
print <<html;
<script language="javascript">
function rollon() {
  if (window.event.srcElement.className == "Item") {
     window.event.srcElement.className = "Highlight";
  }
}
function rolloff() {
  if (window.event.srcElement.className == "Highlight") {
     window.event.srcElement.className = "Item";
  }
}
ie4 = ((navigator.appName == "Microsoft Internet Explorer") && (parseInt(navigator.appVersion) >= 4 ))
if (ie4)
{
Rollover.onmouseover = rollon;
Rollover.onmouseout = rolloff;
}
</script>
html
print "</body></html>\n";
}

sub thisonline {
   $onlinefile = $_[0];  
@online=&readtxtfile($onlinefile,2);
@online=sort @online;
print "<font color=red><center>--$onlinefile--</center></font>\n";
$temp="";  
foreach (@online) {
   ($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktimen,$chksecn,$markend,$last)=split(/↑/,$_);
   if (($mark eq "online") && ($markend eq "end")) {
      if ($temp ne "$chkusername↑$chkuserlevel") {
		if (!(($chksecn<$secn-$reloadxxx) || ($chksecn>$secn+$reloadxxx))) 	  {
         if ($allow_sex1==1) {
            print "<font color=$usersexcolor{$chkusersex}>" if ($usersexcolor{$chkusersex});
            print "男" if (($chkusersex eq 'boy')||($chkusersex eq '先生'));
            print "女" if (($chkusersex eq 'girl')||(($chkusersex eq '小姐')));
            print "</font>" if ($usersexcolor{$chkusersex});  
         }
#         print "$chkusername";
         print "[$chkuserlevel]" if ($userlevel>=$level_seelevel); 
         print "<a href=\"javascript:parent.choosename('$chkusername')\;\" target=type><span class=\"Item\">$chkusername</span></a>";

if (($chkusername eq $username)||($username eq $zhanzhang))
#if ($username eq $zhanzhang)
{		 print "(";
		print &usercount($chkusername);
		 print ")\n";
}
		print "<BR>";
	    $usersum++;
      }
	  }
      $temp="$chkusername↑$chkuserlevel";  	  
   }
}
}

sub isonline {
   $onlinefile = $_[0];  
@online=&readtxtfile($onlinefile,2);
@online=sort @online;
$temp="";  
foreach (@online) {
	($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktimen,$chksecn,$markend,$last)=split(/↑/,$_);
	if (($mark eq "online") && ($markend eq "end")) 
	{
      		if ($temp ne "$chkusername↑$chkuserlevel") 
		{
			if (!(($chksecn<$secn-$reloadxxx) || ($chksecn>$secn+$reloadxxx))) 	  {$usersum++;}
      		}
	}
      	$temp="$chkusername↑$chkuserlevel";  	  
   }
}


sub return_thisonline {
@online=&readtxtfile($onlinefile,2);
@online=sort @online;
$usersum=0;
$boycount=0;
$girlcount=0;
$sexcount=0;
$temp="";
$meok=0;
foreach (@online) {
   ($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktimen,$chksecn,$markend,$last)=split(/↑/,$_);
   if (($mark eq "online") && ($markend eq "end")) {
      if ($temp ne "$chkusername↑$chkuserlevel") {
  		if (!(($chksecn<$secn-$reloadxxx) || ($chksecn>$secn+$reloadxxx))) 	  {
		if ($chkusername eq $username) {$meok=1;}
            $sexcount=$sexcount+1 if ($chkusersex eq 'boy');
            $sexcount=$sexcount-1 if ($chkusersex eq 'girl');
	    $usersum++;
      }
	  }
      $temp="$chkusername↑$chkuserlevel";  	  
   }
}
if (($usersum eq 2)&&($meok eq 0))
{
	&send_html;
	print "<html><body>";
	print "$roomtitle人员已满！";
	print "</body></html>";
	exit;
}
if (($usersum eq 1))
{
#如果有一人，而且这一个人不是我
if ($meok eq 0)
{	$sexcount=$sexcount+1 if ($usersex eq 'boy');
    $sexcount=$sexcount-1 if ($usersex eq 'girl');
	if ($sexcount ne 0)
	{
		&send_html;
		print "<html><body>";
		print "您不能进入$roomtitle，该间只允许不同性别的两位聊友进入！";
		print "</body></html>";
		exit;
	}
}
}
}
1;
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -