chat-chkdnduser.pl

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

sub chkdnduser
{

&lockfile("$filehead$dndfile");
open(DNDFILE,"$filehead$dndfile");
@lines = <DNDFILE>;  
close(DNDFILE);  
&unlockfile("$filehead$dndfile");

#请勿打扰文件格式
#主用户↑user1;user2;user3;
$towho=&get_var("towho");
$userid=$username;
foreach $line(@lines) {  
      ($usrid,$dnduser) = split(/↑/,$line);  
	  chop($dnduser);
	  if ($usrid eq $towho)
	{
		@duser=split(/”/,$dnduser);
		$duser=@duser;
		
	}
}
$tempj=0;
$tempjflg=0;
for ($tempj=0;$tempj<$duser;$tempj++)
{
if ($duser[$tempj] eq $userid) {$tempjflg=1;last;}
}
if ($tempjflg eq 1){
require "$chathead/chat-error.pl";
&error("dnderror");
}

}
1;