resetmess.pl

来自「这个社区是虚拟社区使用的程序」· PL 代码 · 共 19 行

###########
sub resetmess {
   if($rev eq "0"){@messlist=reverse(@messlist);}
if ($allow_messagebackup==1) {   
   open(MESSAGEBACKUP,">>$homedir/temp/backup/$nyear-$nmon-$nday") || &error("无法打开文件$nyear-$nmon-$nday");  
   }
   open(MESSAGE,">$homedir/temp/rooms/$_[0]") || &error("无法打开文件rooms/$_[0]");
 for($i=0;$i<=$#messlist;$i++) {
if ($i<$#messlist-$allow_mess) { 
   if ($allow_messagebackup==1) {  print MESSAGEBACKUP "$messlist[$i]";     }      
 }else{
   print MESSAGE "$messlist[$i]";
      	}
 }
   close(MESSAGE);
   chmod 0666,"$homedir/temp/rooms/$_[0]";
if ($allow_messagebackup==1) {    close(MESSAGEBACKUP); chmod 0666,"$homedir/temp/backup/$nyear-$nmon-$nday";  }
 if($rev eq "0"){@messlist=reverse(@messlist);}
}