git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@358
c11ca15a-4712-0410-83d8-
924469b57eb5
- system("/bin/mv '$param{'logfile'}' '$file{log}'");
+ CORE::system("/bin/mv '$param{'logfile'}' '$file{log}'");
&compress($file{log});
&openLog();
&status("cycling log file.");
&compress($file{log});
&openLog();
&status("cycling log file.");
- &DEBUG("$delete nuh{} items deleted; now have ".
+ &status("leakC: $delete nuh{} items deleted; now have ".
scalar(keys %nuh) ) if ($delete);
}
scalar(keys %nuh) ) if ($delete);
}
}
&status("SHM: nuking shmid $shmid");
}
&status("SHM: nuking shmid $shmid");
- system("/usr/bin/ipcrm shm $shmid >/dev/null");
+ CORE::system("/usr/bin/ipcrm shm $shmid >/dev/null");
}
# debian check.
opendir(DEBIAN, "$bot_base_dir/debian");
foreach ( grep /gz$/, readdir(DEBIAN) ) {
}
# debian check.
opendir(DEBIAN, "$bot_base_dir/debian");
foreach ( grep /gz$/, readdir(DEBIAN) ) {
- my $exit = system("gzip -t $bot_base_dir/debian/$_");
+ my $exit = CORE::system("gzip -t $bot_base_dir/debian/$_");
next unless ($exit);
&status("debian: unlinking file => $_");
next unless ($exit);
&status("debian: unlinking file => $_");
### TODO: do internal copying.
&status("Backup: $f to $f~");
### TODO: do internal copying.
&status("Backup: $f to $f~");
- system("/bin/cp $f $f~");
+ CORE::system("/bin/cp $f $f~");
}
### check modules if they've been modified. might be evil.
}
### check modules if they've been modified. might be evil.