📄 return_online.pl

📁 这个社区是虚拟社区使用的程序
💻 PL
字号:
##########################
sub return_online {

$return_online_subject = $_[0];
open(ONLINE,"$homedir/online.txt") || &error("无法打开文件$homedir/online.txt");
@online = <ONLINE>;
close(ONLINE);
if ($return_online_subject eq "online") {
   print "<html><head><title>online</title>\n";
   print "<LINK REL=stylesheet HREF=\"$homeurl/styles.css\" TYPE=\"text/css\">\n";
   print "</head><body bgcolor=$back text=$word  link=$link_color alink=$alink_color vlink=$vlink_color>\n";
   print "<center>人员资料<hr></center>\n";
   print "<table border=0>\n";
} elsif ($return_online_subject eq "kickout") {
   print "<html><head><title>在线人员列表</title>\n";
   print "<LINK REL=stylesheet HREF=\"$homeurl/styles.css\" TYPE=\"text/css\">\n";
   print "<META HTTP-EQUIV=REFRESH CONTENT=\"$reload;URL=$fullurl?job=setkick$userinfo\"></head>\n";
   print "<body >\n";
   print "<center><span class=head1>以下是在线人员列表<br>\n";
   print "<table WIDTH=\"100%\" >\n";
   print "<form method=POST action=\"$fullurl?job=kickout$userinfo\" target=\"one\" onsubmit=\"self.status='资料已送出'; return true;\">\n";
   print "<tr ><td>选取</td><td>人员资料</td><td>等级</td><td>最後出现时间</td><td>目前状态</td></tr>\n";
}
$lastcheck = "";
foreach $online_line (@online) {
  ($mark,$chkuserip,$chkusername,$chkuserlevel,$chkusersex,$chktime,$chksec,$chkkickout,$chkkickoutway,$markend,$last)=split(/‖/,$online_line);
   if (($mark eq "online") && ($markend eq "end")) {
if (($lastcheck ne "$chkuserip‖$chkusername‖$chkuserlevel") && (!(($return_online_subject eq "online") && ($userlevel<$level_seelevel) && ($chkkickout eq "kickouted")))) {
   if (($return_online_subject eq "kickout") && ($userlevel>=$level_kick)) {
print "<tr ><td>";
if ($chkuserlevel<$userlevel) {
   print "<input type=radio name=\"kickoutuser\" value=\"$chkuserip‖$chkusername‖$chkuserlevel\">";
}
else {
   print "---";
}
print "</td>";
print "<td>$chkusersex$chkusername\[$chkuserip\]</td>";

if ($chkuserlevel<$userlevel) {print "<td>$chkuserlevel级</td>";}
elsif ($chkuserlevel>=$userlevel) {print "<td>$userlevel级</td>";}
print "<td>$chktime</td>";
if ($chkkickout eq "kickouted") {
   print "<td>被$chkkickoutway</td>";
}
else {
   print "<td>.</td>";
}
print "</tr>\n";
}
else {
print "<tr><td>\n";
print "姓名:&nbsp;$chkusername<br>";
	print "性别:&nbsp;$chkusersex<br>";
if ($userlevel>=$level_seelevel) {
   if ($chkuserlevel<=$userlevel) {print "级别:&nbsp;$chkuserlevel<br>";}
   if ($chkuserlevel>$userlevel) {print "级别:&nbsp;******<br>";}
   if ($chkkickout eq "kickouted") {print "状态:&nbsp;被$chkkickoutway<br>";}
   if ($level_seeip<$userlevel) {print "&nbsp;IP:&nbsp;$chkuserip<br>";}
print "最后发言:$chktime<br>";
}
print "<hr></td></tr>";
   }
}
$lastcheck = "$chkuserip‖$chkusername‖$chkuserlevel";
   }
}
print "</table>\n";
if (($return_online_subject eq "kickout") && ($userlevel>=$level_kick)) {
  if ($userlevel>=$level_allipkick) {
   print "<input type=checkbox name=\"allip\" value=\"yes\">所有相同IP都踢出\n";
   } 
   print "<select name=\"kickoutway\">\n";
   print "<option value=\"跳离视窗\" selected>跳离视窗\n";
   print "<option value=\"禁止发言\">禁止发言\n";
   print "</select>\n";
   print "<input type=submit value=\"执行\" ><input type=reset value=\"清除\">\n";
   print "</form>\n";
}
print "</center></body></html>\n";
}
⌨️ 快捷键说明

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