📄 chat-actdnd.pl

📁 java开发的聊天室

💻 PL

字号:

sub dodisturb
{
$userid=$username;
$dndusernew=&get_var("dnduser");
print "<html><head><title>设置$userid的请勿打扰名单</title>\n";
print "</head><body bgcolor=$typeback text=$typeword>\n";

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

#写设置的请悟打扰名单
open(DNDFILE,">$filehead$dndfile");
#请勿打扰文件格式
#主用户↑user1;user2;user3;


$dndflag=0;
foreach $line(@lines) {  
      ($usrid,$dnduser) = split(/↑/,$line);  
	  chop($dnduser);
	  if ($usrid eq $userid)
	{
		print DNDFILE "$usrid↑$dndusernew”\n";
		$dndflag=1;	#文件中已有该用户的名单
	}
	else {print DNDFILE "$usrid↑$dnduser\n";}
}
close(DNDFILE);
#如果文件中没有，写入
if ($dndflag ne 1)
{
open(DNDFILE,">>$filehead$dndfile");
print DNDFILE "$userid↑$dndusernew”\n";
close (DNDFILE);
}
require "$chathead/chat-dnd.pl";
&donotdisturb;
print "</body></html>";

}

sub deldnd
{

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

#写设置的请悟打扰名单
open(DNDFILE,">$filehead$dndfile");
#请勿打扰文件格式
#主用户↑user1;user2;user3;
$userid=$username;
foreach $line(@lines) {  
      ($usrid,$dnduser) = split(/↑/,$line);  
	  if ($usrid ne $userid)
	  #如果不是$userid就写入文件，如果是就不写
 	{print DNDFILE "$usrid↑$dnduser";}
}
close(DNDFILE);

}


1;

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -