⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 return_mess.pl

📁 这个社区是虚拟社区使用的程序
💻 PL
字号:
🔍 
#########################################
sub return_mess {
#unless(-e "$homedir/temp/$info.txt"){
#   open(DATA,">$homedir/temp/$info.txt") || &error("无法打开文件$info.txt");
#   print DATA $now_sec."=".$room."\n";
#   close(DATA);
#   chmod 0666,"$homedir/temp/$info.txt";
#}
my $ifh = new FileHandle("$homedir/temp/$info.txt") || die "无法打开文件\"temp/$info.txt\"";
my @dt = <$ifh>;
my($date,$openroom,$last)= split(/=/, @dt[0]);
$userinfo ="&username=$username&usersex=$usersex&userpassword=$userpassword&userlevel=$userlevel&room=$openroom";
$userinfo ="$userinfo&id=$id" if (($id) && ($id ne "" ));
$userinfo=~s/\n//g;	
my $ifh = new FileHandle("$homedir/check_time.txt") || die "无法打开文件\"check_time.txt\"";
my @pass = <$ifh>;

chomp(@pass); 

my $ofh = new FileHandle(">$homedir/check_time.txt") || die "无法打开文件\"check_time.txt\"";
	foreach (@pass) {
	my ($chkinfo,$chknow_sec) = split(/=/, $_);
		if ($chkinfo eq $info){ 
		$room=$chkroom;
		print $ofh $chkinfo."=".$now_sec."\n";
		} else {
		print $ofh $chkinfo."=".$chknow_sec."\n";
		}
	}
my $ifh = new FileHandle("$homedir/createroom.txt") || die "无法打开文件\"createroom.txt\"";
my @pass = <$ifh>;
chomp(@pass); 
my $ofh = new FileHandle(">$homedir/createroom.txt") || die "无法打开文件\"createroom.txt\"";
	foreach (@pass) {
	my ($chkroom,$chkusername,$chknow_sec,$chkclose) = split(/=/, $_);
		if ($chkroom eq $room){ 
		print $ofh $chkroom."=".$chkusername."=".$now_sec."=".$chkclose."\n";
		} else {
		print $ofh $chkroom."=".$chkusername."=".$chknow_sec."=".$chkclose."\n";
		}
	}
my $ifh = new FileHandle("$homedir/temp/rooms/$openroom") || die "无法打开文件\"rooms/$openroom\"";
@messlist = <$ifh>;

if($rev eq "0"){@messlist=reverse(@messlist);}
if ($#messlist>$allow_mess*2) {
    do "$home_dir/resetmess.pl";
    &resetmess("$openroom");
}

if (($kicked==1) && ($kickoutway eq "跳离视窗")) {
   print "<html><head><META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html; charset=gb2312\">\n";
   print "<title>$title</title>\n";
   print "<META HTTP-EQUIV=REFRESH CONTENT=\"$reload;URL=$fullurl?id=$id\"></head>\n";
print <<EOF;
<script language="javascript">
if (window.top.location.href!=window.location.href)
 window.top.location.href=window.location.href;
</script>
EOF
   print "<body bgcolor=$back text=$word  link=$link_color alink=$alink_color vlink=$vlink_color >\n";
   print "<center><h2>你被踢了!如果你是无辜的请<a href=\"mailto:$adminemail\" title=\"联系管理员!\">通知管理员</a>,如果....</h2></center>\n";
   print "</body></html>\n";
}
else {
print qq~<html><head>
  <META HTTP-EQUIV=REFRESH CONTENT=\"$reload;URL=$fullurl?job=look&lastno=$newlastno$userinfo\">
  <link href="/vrcdata/VRChatData/chat.css" rel="STYLESHEET" type="text/css">
  <body bgcolor=$saysback text=$saysword  link=$link_color alink=$alink_color vlink=$vlink_color>
~;
  foreach $mess_line (@messlist) {
($chkmessno,$mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktowhoway,$chktowhoname,$chkwordcolor,$chkaddsays,$chksays,$chkaddimage,$chkadddone,$chktime,$chkroom,$markend,$last) = split(/‖/, $mess_line);
 
 if ($chkusersex eq "♂") { $chkusersex = "潇洒帅哥" ;$sexcolor="$boycolor";}
  elsif($chkusersex eq "♀") {$chkusersex = "温柔靓妹" ;$sexcolor="$girlcolor";}
  elsif($chkusersex eq "⊙") {$chkusersex = "寂寞游侠" ;$sexcolor="$nosexcolor";}
  if ($allow_sex1==0) {$chkusersex="";}
  elsif ($allow_sex1==1) {$chkusersex="$chkusersex";}
  elsif (($allow_sex1==2) && (($mark eq "login") ||($mark eq "change") || ($mark eq "create") || ($mark eq "logout"))) {$chkusersex="$chkusersex";}
  else {$chkusersex="";}

#  $chktime="<font color=#A0A0A0 size=-3>[$chktime]</font>";
  
  if ($userlevel>=$level_seeip) {$showip="[$chkuserip]";}
  else {$showip="";}
 if ($chkaddimage ne "") {$chkaddimage="<font face=wingdings size=$image_size color=#FF8080>$chkaddimage</font>";}
if ($userlevel>=$level_filter) {
#$chkusername1    = "<a href=javascript:parent.type.filt(\\'$chkusername\\'); target=\'type\'><ACRONYM TITLE=\\'按此立即过滤 $chkusername 的谈话，请小心使用\\'><font color=$sexcolor>$chkusername</font></ACRONYM></a>" if ($namefilter);
$chkusername1    = "<a href=javascript:parent.type.what(\'$chkusername\'); target=\'type\'><ACRONYM TITLE=\'选取 $chkusername 为谈话对象\'><font color=$sexcolor>$chkusername</font></ACRONYM></a>" unless ($namefilter);
}else{
$chkusername1    = "<font color=$sexcolor>$chkusername</font>";
}
 if (($userip eq $chkuserip) && ($username eq $chkusername) && ($userlevel eq $chkuserlevel)) {
$chkusername1    = "<font color=#FF0000>你</font>";
}
if ($username eq $chktowhoname) {
$chktowhoname1   = "<font color=#FF0000>你</font>";	
} else {
$chktowhoname1   = $chktowhoname;	
}
if ($mark eq "says") {
  $comments = "$chksays";
  $sym = index($comments,'/');
  ($s_command,$s_betalkman)=split(/ /,$comments);
  if (0 == $sym)  {# 如果有找到 / 符号,且在第一个字符位置
if ($chkuserlevel < $level_spccmd) {
print "<span class=t>$chkusername1羞红了脸说: 哇...原来我没有使用对话指令的权利..</span><br>\n";
} else {
open (CMDFILE,"$homedir/command.dat") || &error("无法打开文件$homedir/command.dat");
@lines=<CMDFILE>;
close(CMDFILE);
foreach $line (@lines) {
$line =~ s/\n//g;
$line =~ s/\r//g;
($cmd1,$msg1,$msg2)=split(/__/,$line);
if (lc($cmd1) eq lc($s_command)) {
  if ($s_betalkman eq "") {
$message = "<font color=#804000>".$msg1."</font>";
$message =~ s/var_talk//g;
 } else {
$message = "<font color=#804000>".$msg2."</font>";
$message =~ s/var_talk//g;
if ($username eq $s_betalkman) {
$s_betalkman   = "<font color=#FF0000>你</font>";
} else {
$s_betalkman ="<font color=#FF8080>".$s_betalkman."</font>";
}
$message =~ s/var_betalk/$s_betalkman/g;
        }
print "$chkusersex$chkusername1$message<br>\n";
           }
       }
  }
}else{

if ($chkadddone eq "myself") {
print "$chkusername1$chksays。<br>\n";
 }else { 
   if ($chktowhoname eq "") {
print "$chkusersex$chkusername1 $chkaddsays说：<font color=$chkwordcolor>$chksays</font>$chkaddimage<br>\n";
  }elsif (($chktowhoname ne "")  && ($chkadddone eq "private") && ((($username eq $chktowhoname) || (($username eq $chkusername) && ($userlevel eq $chkuserlevel)) || (($userlevel>$chkuserlevel)  && ($userlevel>=$level_seeprivate))))) {
print "</font><b>$chkusersex$chkusername1 $chkaddsays悄悄的对 $chktowhoname1 说：</b><font  color=$chkwordcolor>$chksays</font>$chkaddimage<br>\n";
  }  else  {
if ($chkusername eq "$chktowhoname")  {
print "</font>$chkusersex$chkusername1 $chkaddsays自言自语道：<font color=$chkwordcolor>$chksays</font>$chkaddimage<br>\n";
 } else {
if ($username eq $chktowhoname) {
print "</font>$chkusersex$chkusername1 $chkaddsays对 $chktowhoname1 说：<font color=$chkwordcolor>$chksays</font>$chkaddimage<br>\n";
}elsif ($chkadddone ne "private")  {
print "</font>$chkusersex$chkusername1 $chkaddsays对 $chktowhoname 说：<font color=$chkwordcolor>$chksays</font>$chkaddimage<br>\n";
 }
   }
 }
}
  }
 } elsif ($mark eq "login") {
  print "<span class=t>$chkusername1$showip进入$title 是位$chkusersex</span><br>\n";
 }elsif ($mark eq "change") {
if ($chkroom eq $room) { 
  print "<span class=t>$chkusername1$chksays$chkadddone</span><br>\n";
   }elsif ($chkroom ne $room) {
  print "<span class=t>$chkusername1$chksays$chkadddone</span><br>\n";
 }
 }elsif ($mark eq "create") {
  print "<span class=t>$chkusername1开了个包厢叫:$chkroom,大家刷新一下就能看到了!</span><br>\n";
 } elsif ($mark eq "logout") {
  print "<span class=t>$chkusersex$chkusername1$showip离开了$title</span><br>\n";
 } elsif ($mark eq "kick") {
   print "<span class=t><b>$chkusername1</b>$showip将来自$chktowhoway的$chktowhoname$chkaddsays.他的级别是$chkwordcolor级,..</span><br>\n";
   }   
}
  if($rev eq "1"){
     print "<script language=\"javascript\"> top.one.scroll(0,5600);</script>\n";
  }
   print "</body></html>\n";
   }
}

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -