📄 chat-returnmsg.pl
字号:
#【】
sub return_message {
open(DNDFILE,"$filehead$dndfile");
@lines = <DNDFILE>;
close(DNDFILE);
#请勿打扰文件格式
#主用户↑user1;user2;user3;
$userid=$username;
foreach $line(@lines) {
($usrid,$dnduser) = split(/↑/,$line);
if ($usrid eq $userid)
{
@duser=split(/”/,$dnduser);
$duser=@duser;
}
}
@message=&readtxtfile($messagefile,2);
@message=sort @message;
if ($#message>$allow_message*10) {
open(MESSAGE,">$filehead$messagefile") || die $!;
#flock(MESSAGE,2);
for($i=0;$i<=$#message;$i++) {
if ($i<$#message-$allow_message*2) {if ($allow_messagerecord==1) {print MESSAGERECORD "$message[$i]";}}
else {print MESSAGE "$message[$i]";}
}
# flock(MESSAGE,8);
close(MESSAGE);
}
$messagerecordnumber=$#message;
splice(@message,0,$#message+1-$allow_message*2);
print "<html><head><title>Message</title>\n";
print "<META HTTP-EQUIV=REFRESH CONTENT='$reloadx;URL=$cgiurl?job=look$userinfo'>\n";
#########################################################
#修改各单间的背景颜色
$messageback="#FFB5FF" if($roomtitle=~ /爱情/i);
$messageback="#FBFCE0" if($roomtitle=~ /东西南北/i);
#########################################################
print "<BASEFONT FACE=\"Arial\">";
print "</head><body bgcolor=$messageback text=$messageword topmargin=0 leftmargin=0>\n";
#print "<font color=blue>【$roomtitle通告】".&mota."</font><BR>\n";
$messageshow=0;
for($i=$#message;($i>=0) && ($messageshow<=$allow_message);$i--) {
($chkdaten,$chktimen,$mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktowhoway,$chktowho,$chkaddwordcolor,$chkaddsays,$chkaddsign,$chksays,$markend,$last)=split(/↑/,$message[$i]);
if ($markend eq "end")
{
$tempi=0;
$tempiflg=0;
for ($tempi=0;$tempi<$duser;$tempi++)
{
if ($chkusername eq $duser[$tempi]) {$tempiflg=1;last;}
}
#如果该发言人不在我的请勿打扰名单中就显示该人的发言
if ($tempiflg eq 0)
{
require "$chathead/chat-showmsg.pl";
&message_show;
}
}
}
print "</body></html>\n";
}
sub mota
{
@mota=&readtxtfile($motafile);
srand($$^time);
$ram=int(rand($#mota+1)*100000);
$ram=$ram-$#mota if($ram>$#mota);
return($mota[$ram]);
}
1;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -