write_mess.pl

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

########################################
sub write_mess {
$write_mess_subject=$_[0];
$rm=$_[1];
open(MESS,">>$homedir/temp/rooms/$_[2]") || &error("无法打开文件rooms/$_[2]");
if (($write_mess_subject eq "says")  &&  ($says ne "")) {
   print MESS "$messno‖says‖$userip‖$username‖$userlevel‖$usersex‖$towhoway‖$towho‖$wordcolor‖$addsays‖$says‖$addimage‖$adddone‖$normal_time‖‖end‖\n"; 
}elsif ($write_mess_subject eq "login") {
   print MESS "$messno‖login‖$userip‖$username‖$userlevel‖$usersex‖‖‖‖‖‖‖‖$normal_time‖‖end‖\n"; 
}elsif ($write_mess_subject eq "kick") {
   print MESS "$messno‖kick‖$userip‖$username‖$userlevel‖$usersex‖$kickoutuser‖$kickoutway‖‖‖‖$normal_time‖‖end‖\n"; 
}elsif ($write_mess_subject eq "change") {
   print MESS "$messno‖change‖$userip‖$username‖$userlevel‖$usersex‖‖‖‖‖‖$_[3]‖$_[4]‖$normal_time‖$rm‖end‖\n"; 
}elsif ($write_mess_subject eq "create") {
   print MESS "$messno‖create‖$userip‖$username‖$userlevel‖$usersex‖‖‖‖‖‖‖‖$normal_time‖$rm‖end‖\n"; 
}elsif ($write_mess_subject eq "logout") {
   print MESS "$messno‖logout‖$userip‖$username‖$userlevel‖$usersex‖‖‖‖‖‖‖‖$normal_time‖‖end‖\n"; 
      }
close(MESS);
}