Commit 6e712f38 authored by Robert Ricci's avatar Robert Ricci
Browse files

Added some additional cleanup. Now deletes archived logfiles (which may show

up if you leave the machine running overnight), truncates other logfiles,
cleans out /tmp, cleans up /var/run/*.pid, and removes root's csh history.
parent 49c9f2d2
#!/usr/bin/perl -wT
#!/usr/bin/perl -w
use English;
require 'ctime.pl';
......@@ -10,6 +10,9 @@ my $SUPCHECKOUT = "/etc/testbed/sup/sup/FBSD40-STD/checkouts";
my $DUMPDATES = "/etc/dumpdates";
my @DBFILES = ("/var/db/testbed.deltas", "/var/db/testbed.tarfiles");
my $FSTAB = "/etc/fstab";
my $LOGDIR = "/var/log";
my $RUNDIR = "/var/run";
my $HISTORY = "/root/.history";
#
# Load the testbed library.
......@@ -75,3 +78,34 @@ while (<TAB>) {
close(DMP);
close(TAB);
print "Cleaning logfiles ...\n";
opendir(LOG,$LOGDIR) or
die("Could not open directory $LOGDIR: $!");
while ($dirent = readdir(LOG)) {
my $file = $LOGDIR . "/" . $dirent;
if (-f $file) {
if (($file =~ /\.\d$/) || ($file =~ /\.\d\.gz$/)) {
# Remove archived logfiles
unlink($file) or
die("Could not unlink $file: $!");
} elsif (-s $file) {
# Truncate other logfiles - many do not get re-created
truncate($file,0) or
die("Could not truncate $file: $!");
}
}
}
closedir(LOG);
print "Removing root's history ...\n";
if (-f $HISTORY) {
unlink($HISTORY) or
die("Could not unlink $HISTORY: $!");
}
print "Cleaing .pid files ...\n";
system("rm -rf $RUNDIR/*.pid");
print "Cleaing out /tmp ...\n";
system("rm -rf /tmp/* /tmp/.??*");
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment