write_message.cgi

这个是分屏聊天室源码。需要分屏的聊天室请参考

####################
#将用户的信息写入信息文件
sub write_message {
&getsysnum;
$messno = $lastno + 1;
if ($_[0] eq "says") {
   $mymess = "$messno‖$timen‖says‖$userip‖$username‖$userlevel‖$usersex‖$towhoway‖$towho‖$addwordcolor‖$addsays‖$addsign‖$says‖end‖\n"; 
}
elsif ($_[0] eq "login") {
   $mymess = "$messno‖$timen‖login‖$userip‖$username‖$userlevel‖$usersex‖‖‖‖‖$chkstat‖$tem_userin‖end‖\n";
}
elsif ($_[0] eq "logout") {
   $mymess = "$messno‖$timen‖logout‖$userip‖$username‖$userlevel‖$usersex‖‖‖‖‖‖$tem_userout‖end‖\n"; 
}
elsif ($_[0] eq "kickout") {
    ($chkuserip,$chkusername,$chkuserlevel,$chkusersex)=split(/‖/,$kickuser);
   $mymess = "$messno‖$timen‖kickout‖$chkuserip‖$chkusername‖$chkuserlevel‖$chkusersex‖‖$username‖‖‖‖‖end‖"; 
}
elsif ($_[0] eq "genius") { $mymess = "$messno‖$timen‖says‖$userip‖$towho‖$userlevel‖$usersex‖$towhoway‖$username‖$addwordcolor‖$addsays‖$addsign‖$says‖end‖";  }
elsif ($_[0] eq "act")	  { $mymess = "$messno‖$timen‖act‖$userip‖$username‖$userlevel‖$usersex‖$towhoway‖$towho‖$addwordcolor‖$addsays‖$addsign‖$says‖end‖\n"; }
elsif ($_[0] eq "line")	  { $mymess = "$messno‖$timen‖line‖$chkuserip‖$chkusername‖$chkuserlevel‖$chkusersex‖‖‖‖‖‖‖end‖\n"; }
$mymess =~ s/\'/\"/g;
&lockfile($messagefile);
open(MESSAGE,">>$filehead$messagefile") || die $!;
flock(MESSAGE,2) if ($unixsys == 1);
print MESSAGE "$mymess\n";  
flock(MESSAGE,8) if ($unixsys == 1);
close(MESSAGE);
&unlockfile($messagefile);
&putsysnum();
}