chat-usercount.pl

java开发的聊天室

sub usercount
{
	$name=$_[0];
	$tempcount=0;
	open (CHECKPROFILE, "$memberspath/$name$extcount");
	@profile = <CHECKPROFILE>;
	close (CHECKPROFILE);
	@profilestats = split (/｜/, $profile[0]);

	if ($profilestats[10]<$level_high)
	{$tempcount=int($profilestats[4]*$logincishu/100+$profilestats[5]*$shijianfu/100+$profilestats[6]*$saycishu/100)-$profilestats[7]*$kickfu-$profilestats[8]*$privatefu;}
	else
	{$tempcount=int($profilestats[4]*$logincishu/100+$profilestats[5]*$shijianfu/100+$profilestats[6]*$saycishu/100);}

	if ($tempcount<0)
	{return(0);}
	else {return($tempcount);}
}
sub userstatus
{
	$name=$_[0];
	$tempcount=0;
	open (CHECKPROFILE, "$memberspath/$name.txt");
	@profile = <CHECKPROFILE>;
	close (CHECKPROFILE);
	@profilestats = split (/｜/, $profile[0]);
	$tempcount=$profilestats[3];
	return($tempcount);
}
1;