a short script to clean out old, local, backups

backupCleaner

#!/usr/bin/perl

use strict;
use warnings;

# this script:
#
# cleans out various directories
# one block for each thing to clean out
#
#


# --- vim temp backups

# 4 days of BU's should be enough for 'whoops, shouldn't have deleted'
my $DAYS_OF_VIM_BACKUPS=4;
my $VIM_BU_DIR="/work/BACKUP/vimBackups/";

#	equal to 	-  				greater than $DAYS_OF_VIM_BACKUPS days   rm'd
`find $VIM_BU_DIR -type f -ctime  $DAYS_OF_VIM_BACKUPS  -exec rm {} \\; `;
# 	greater than - greater than greater than $DAYS_OF_VIM_BACKUPS days	 rm'd
`find $VIM_BU_DIR -type f -ctime +$DAYS_OF_VIM_BACKUPS  -exec rm {} \\; `;


# --- remote backup listing files

require("buFunctions.pl");

removeOldBuFiles( );