Commit fe104ec4 authored by Mike Hibler's avatar Mike Hibler

Clean up /var a little better.

Get rid of foo.log-YYYYMMDD files, clean up /var/log/xen, and remove
/var/log/sa/* files.
parent 3bcf330a
...@@ -28,6 +28,7 @@ my $NTPDRIFT2 = "/var/lib/ntp/drift"; ...@@ -28,6 +28,7 @@ my $NTPDRIFT2 = "/var/lib/ntp/drift";
my $SFSUSERS = "/etc/sfs/sfs_users"; my $SFSUSERS = "/etc/sfs/sfs_users";
my $SFSHOSTKEY = "/etc/sfs/sfs_host_key"; my $SFSHOSTKEY = "/etc/sfs/sfs_host_key";
my $VARACCTDIR = "/var/account"; my $VARACCTDIR = "/var/account";
my $VARACCTSDIR = "/var/log/sa";
my $IFTAB = "/etc/iftab"; my $IFTAB = "/etc/iftab";
my $ANACRON = "/usr/sbin/anacron"; my $ANACRON = "/usr/sbin/anacron";
...@@ -189,7 +190,7 @@ opendir(LOG,$LOGDIR) or ...@@ -189,7 +190,7 @@ opendir(LOG,$LOGDIR) or
while ($dirent = readdir(LOG)) { while ($dirent = readdir(LOG)) {
my $file = $LOGDIR . "/" . $dirent; my $file = $LOGDIR . "/" . $dirent;
if (-f $file) { if (-f $file) {
if (($file =~ /\.\d$/) || ($file =~ /\.\d\.gz$/)) { if ($file =~ /\.\d$/ || $file =~ /\.\d\.gz$/ || $file =~ /-\d{8}$/) {
# Remove archived logfiles # Remove archived logfiles
unlink($file) or unlink($file) or
die("Could not unlink $file: $!"); die("Could not unlink $file: $!");
...@@ -202,6 +203,29 @@ while ($dirent = readdir(LOG)) { ...@@ -202,6 +203,29 @@ while ($dirent = readdir(LOG)) {
} }
closedir(LOG); closedir(LOG);
my $XLOGDIR = "$LOGDIR/xen";
if (-d $XLOGDIR) {
print "Cleaning Xen logfiles ...\n";
opendir(LOG,$XLOGDIR) or
die("Could not open directory $XLOGDIR: $!");
while ($dirent = readdir(LOG)) {
my $file = $XLOGDIR . "/" . $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 accounting files ...\n"; print "Removing accounting files ...\n";
if ( -f "$LOGDIR/pacct" ) { if ( -f "$LOGDIR/pacct" ) {
unlink("$LOGDIR/pacct"); unlink("$LOGDIR/pacct");
...@@ -223,6 +247,11 @@ if (-d $VARACCTDIR) { ...@@ -223,6 +247,11 @@ if (-d $VARACCTDIR) {
closedir(VARACCT); closedir(VARACCT);
} }
if (-d $VARACCTSDIR) {
print "Removing accounting summary files ...\n";
system("rm -f $VARACCTSDIR/*");
}
print "Removing root's history ...\n"; print "Removing root's history ...\n";
if (-f "/$HISTORY") { if (-f "/$HISTORY") {
unlink("/$HISTORY") or unlink("/$HISTORY") or
......
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