####
#### Check for expired backups
####

print $backup_daily_subdir."\n";
die unless chdir "$backup_daily_subdir";
die unless opendir DIR, ".";
foreach $file (grep {-f && (31 < -M)} readdir DIR) {
        unlink $file;
}
closedir DIR;

print $backup_weekly_subdir."\n";
die unless chdir "$backup_weekly_subdir";
die unless opendir DR, ".";
foreach $files (grep {-f && (365 < -M)} readdir DR) {
        unlink $files;
}
closedir DR;