chat-userinfo.pl

来自「java开发的聊天室」· PL 代码 · 共 55 行

sub adduserinfo
{
	$tempinfo=$_[0];
	@allday=(31,28,31,30,31,30,31,31,30,31,30,31);
	$name=$username;

	open (CHECKPROFILE, "$memberspath/$name$extcount");
flock(CHECKPROFILE,2);
	@profile = <CHECKPROFILE>;
flock(CHECKPROFILE,8);
	close (CHECKPROFILE);
	@profilestats = split (/｜/, $profile[0]);

$profilestats[5]=1000 if(($profilestats[5] eq "")||($profilestats[5]>100000));
$profilestats[11]=$daten1 if($profilestats[11] eq "");	
$profilestats[12]=$daten1 if($profilestats[12] eq "");	
$profilestats[0]=$daten1 if($profilestats[0] eq "");	
$profilestats[1]=$username if($profilestats[1] eq "");	
$profilestats[2]=$userpassword if($profilestats[2] eq "");	
$profilestats[8]=0 if($profilestats[8] eq "");	
$profilestats[7]=0 if($profilestats[7] eq "");	
$profilestats[6]=0 if($profilestats[6] eq "");	
$profilestats[4]=1 if($profilestats[4] eq "");	


	if ($tempinfo eq "says") {
	$profilestats[6]=$profilestats[6]+1;
	#计算时间
	}
	elsif ($tempinfo eq "private") {$profilestats[8]=$profilestats[8]+1;}
	elsif ($tempinfo eq "kick") {$profilestats[7]=$profilestats[7]+1;}
	elsif ($tempinfo eq "look") {
	#计算时间
		($a1,$b1,$c1,$d1,$e1)=split('/',$profilestats[11]);
		$a2=$yearn;
		$b2=$monn;
		$c2=$dayn;
		$d2=$hourn;
		$e2=$minn;
		$chazhi2=(($a2-$a1)*365+($b2-$b1)*$allday[$b1-1]+($c2-$c1))*24*60+($d2-$d1)*60+($e2-$e1);
		$chazhi2=0 if ($chatzhi2<0);
		$profilestats[5]=0 if($profilestats[5]<0);
		$profilestats[5]=$profilestats[5]+$chazhi2;
		$profilestats[11]=$daten1;
		$profilestats[12]=$daten1;
	
	}
	$tempstring=join('｜',@profilestats);
	open (CHECKPROFILE, ">$memberspath/$name$extcount");
flock(CHECKPROFILE,2);
	print CHECKPROFILE "$tempstring";
flock(CHECKPROFILE,8);
	close (CHECKPROFILE);
}
1;