sub cleanup {
my ($f_day, $f_month, $f_year) = (0, 0, 0);
if (skip_file($_)) { return; }
# File to be deleted should have a filename that matches the pattern:
# www-<dd>-<mm>-<yyyy>.tar.gz
if ($_ =~ /^(www)-(\d+)-(\d+)-(\d+)(\.tar\.gz)$/) {
# Extract the day, month, and year values from the filename.
($f_day, $f_month, $f_year) = ($2, $3, $4);
# In order to delete a file, it must have been created in the same year and month
# in which this script is executed, and must be older than $days_old from the current
# day.
if ($f_year eq $c_year) {
if ($f_month eq $c_month) {
if ($f_day lt ($c_day - $days_old)) {
# print "Unlinking file: $find_dir\/$_ \n";
# unlink $_ or print "Couldn't delete $_: $!\n";
&unlink_file($_);
}
}
# If the script is run on, say, the first of a month, it will NOT
# delete ANY tarballs created in the previous month. This is
# a workaround to it. If the current date is the third of the
# month or greater, remove all tarballs created last month.
elsif ($f_month lt $c_month) {
if ($c_day => 3) {
# print "Unlinking file: $find_dir\/$_ \n";
# unlink $_ or print "Couldn't delete $_: $!\n";
&unlink_file($_);
}
}
}
}
}