Add warn<time>.<process>.html to remove list
git-svn-id: svn://10.0.0.236/trunk@76782 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
parent
6fe04f8f41
commit
e34280fad8
@ -33,10 +33,11 @@ $expire_time = $now - 7 * 24 * 60 * 60;
|
||||
|
||||
chdir $tinderboxdir or die "Couldn't chdir to $tinderboxdir";
|
||||
|
||||
# Remove files older than 7 days
|
||||
#
|
||||
sub files_to_remove {
|
||||
unlink if /(?:\.gz|\.brief\.html|tbx.[0-9]+)$/ and int(-M $_) > 7;
|
||||
# Remove files older than 7 days
|
||||
unlink if /^\d+\.\d+\.gz$|^tbx.[0-9]+$|^warn\d.*\.html$/ and int(-M $_) > 7;
|
||||
# Remove files older than 1 day
|
||||
unlink if /^\d+\.\d+\.brief\.html$/ and int(-M $_) > 1;
|
||||
}
|
||||
&find(\&files_to_remove, $tinderboxdir);
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user