📄 chat-dnd.pl
字号:
sub donotdisturb
{
open(DNDFILE,"$filehead$dndfile");
@lines = <DNDFILE>;
close(DNDFILE);
#请勿打扰文件格式
#主用户↑user1;user2;user3;
$userid=$username;
foreach $line(@lines) {
($usrid,$dnduser) = split(/↑/,$line);
chop($dnduser);
if ($usrid eq $userid)
{
@duser=split(/”/,$dnduser);
$duser=@duser;
}
}
#显示对象
@online =&readtxtfile($onlinefile,2);
@online =sort @online;
local($temp1)="";
print "<html><head><title>设置$userid的请勿打扰名单</title>\n";
print "</head><body bgcolor=$typeback text=$typeword>\n";
print "<center>设置$userid的“请勿打扰”名单<hr size=1>";
print <<HTML;
如果您不想和某人说话或不想看某人的发言，
<br>请将该人选中，然后执行请勿打扰就可以了。
<font color="Red"><br>记住：该名单只作用于本次聊天过程。
<br>如果离开时不点“离开聊天”，将延续到下次聊天。</font>
<hr size=1>
HTML
print "<form method=post action=$cgiurl?job=actdnd$userinfo>\n";
foreach (@online) {
($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktimen,$chksecn,$markend,$last)=split(/↑/,$_);
if (($mark eq "online") && ($markend eq "end")) {
if ("$chkuserip↑$chkusername↑$chkuserlevel" ne $temp1) {
$tempi=0;
$tempiflg=0;
for ($tempi=0;$tempi<$duser;$tempi++)
{
if ($chkusername eq $duser[$tempi]) {$tempiflg=1;}
}
if ($tempiflg eq 1)
{
print "<input type=checkbox name=dnduser value='$chkusername' checked>$chkusername" if($chkusername ne $userid);
}
else
{
print "<input type=checkbox name=dnduser value='$chkusername'>$chkusername" if($chkusername ne $userid);
}
}
$temp1="$chkuserip↑$chkusername↑$chkuserlevel";
}
}
print "<hr size=1><input type=submit value=执行请勿打扰></form>\n";
print "</center></body></html>";
}
1;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -