write_online.pl

这个社区是虚拟社区使用的程序

##########
sub write_online {

$write_online_subject = $_[0];
open(ONLINE,"$homedir/online.txt") || &error("无法打开文件$homedir/online.txt");
@online = <ONLINE>;
close(ONLINE);
$lastcheck = "";
$done = 0;
open(ONLINE,">$homedir/online.txt") || &error("无法打开文件$homedir/online.txt");
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") {
  if (($write_online_subject eq "online") && ($chkuserip eq $userip) && ($chkusername eq $username) && ($chkuserlevel eq $userlevel)) {
 print ONLINE "online‖$userip‖$username‖$userlevel‖$usersex‖$normal_time‖$now_sec‖$chkkickout‖$chkkickoutway‖end‖\n"; 
 if ($chkkickout eq "kickouted") {
  $kicked =1;
  $kickoutway=$chkkickoutway; 
 }
 $done=1;   
  }  
  elsif (($write_online_subject eq "outline") && ($chkuserip eq $userip) && ($chkusername eq $username) && ($chkuserlevel eq $userlevel) && ($chkkickout ne "kickouted")) {
 print ONLINE "";
 $exist="yes";
  }
  elsif (($write_online_subject eq "kickout") && ($kickoutuser eq "$chkuserip‖$chkusername‖$chkuserlevel")) {
 print ONLINE "online‖$kickoutuser‖$chkusersex‖$normal_time‖$now_sec‖kickouted‖$kickoutway‖end‖\n"; 
 $done=1;
  }
  else { 
 if ((($chksec<$cut1_sec) || ($chksec>$cut2_sec)) && ($chkkickout ne "kickouted")) {
  print ONLINE ""; 
 } 
 elsif ((($chksec<$cut3_sec) || ($chksec>$cut4_sec)) && ($chkkickout eq "kickouted")) {
  print ONLINE ""; 
 } 
 else {
  print ONLINE "$online_line";
 }
  } 
 }
 $lastcheck = "$chkuserip‖$chkusername‖$chkuserlevel";  
  }
}
if (($write_online_subject eq "online") && ($done==0)) {
   print ONLINE "online‖$userip‖$username‖$userlevel‖$usersex‖$normal_time‖$now_sec‖‖‖end‖\n"; 
}
elsif (($write_online_subject eq "kickout") && ($done==0)) {
   print ONLINE "online‖$kickoutuser‖‖$normal_time‖$now_sec‖kickouted‖$kickoutway‖end‖\n"; 
}
close(ONLINE);
}