Commit 2bb6a567 authored by Mike Hibler's avatar Mike Hibler
Browse files

Clear out /var/tmp.

I cannot believe we didn't do this earlier..
parent 007801ab
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# EMULAB-COPYRIGHT # EMULAB-COPYRIGHT
# Copyright (c) 2000-2007 University of Utah and the Flux Group. # Copyright (c) 2000-2010 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
use English; use English;
...@@ -235,6 +235,15 @@ if (-f $SFSHOSTKEY) { ...@@ -235,6 +235,15 @@ if (-f $SFSHOSTKEY) {
} }
system("rm -f /var/sfs/sockets/*.sock"); system("rm -f /var/sfs/sockets/*.sock");
# Clean out /var/tmp
print "Cleaning up /var/tmp ....\n";
system("rm -rf /var/tmp/*");
if (! -d "/var/tmp/vi.recover") {
print "Recreating /var/tmp/vi.recover ...\n";
system("mkdir /var/tmp/vi.recover");
system("chown root:wheel /var/tmp/vi.recover");
system("chmod 1777 /var/tmp/vi.recover");
}
print "Clearing out directories in $VARDIR ...\n"; print "Clearing out directories in $VARDIR ...\n";
foreach my $dir (@VARDIRS) { foreach my $dir (@VARDIRS) {
......
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# EMULAB-COPYRIGHT # EMULAB-COPYRIGHT
# Copyright (c) 2000-2007, 2009 University of Utah and the Flux Group. # Copyright (c) 2000-2010 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
use English; use English;
...@@ -278,6 +278,10 @@ foreach my $dir (@SYSVARDIRS) { ...@@ -278,6 +278,10 @@ foreach my $dir (@SYSVARDIRS) {
} }
} }
# and clean out /var/tmp...hope there isn't anything we should be leaving!
print "Cleaning up /var/tmp ....\n";
system("rm -rf /var/tmp/*");
# take these out since they are large and RHL regens them anyway # take these out since they are large and RHL regens them anyway
system("rm -f /var/lib/rpm/__db*"); system("rm -f /var/lib/rpm/__db*");
......
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