First change dir to where the backups are (to be added to both scripts)
chdir ('/home/backups/vital');
To list today's backup (local time)
$now = time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now);
$ymd = sprintf("%4d%02d%02d", $year+1900, $mon+1, $mday);
@backup = glob("*.CATN0000.$ymd*");
if ($#backup >= 0) {
print("Backup at $ymd: @backup\n");
}
else {
print("No backup at $ymd\n");
}
Then to find and remove a file of n days ago (if several files match, only the first one in the list is removed)
$daysago = 3; # 3 days ago
$now = time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now - $daysago*3600*24);
$old = sprintf("%4d%02d%02d", $year+1900, $mon+1, $mday);
@oldbackup = glob("*.CATN0000.$old*");
if ($#oldbackup >= 0) {
print("Old Backup at $old: @oldbackup - removing (first one)\n");
unlink( $oldbackup[0] );
}
else {
print("No old backup at $old\n");
}