Subversion Repositories sysadmin_scripts

#! /usr/bin/perl -w

my $TESTING=1;
# if set to empty sting, will use script directory/../data
my $CONTROL_FOLDER = '';
my $CLEANUP_FILE = 'mail_cleanup.list';
my $CONFIG_FILE_NAME = 'mailmanage.cfg';
my $TEMP_CLEANUP_TIME = 7;

sub getScriptLocation {
   use strict;
   use File::Spec::Functions qw(rel2abs);
   use File::Basename;
   return dirname(rel2abs($0));
}

sub readConfig {
   my $scriptLocation = &getScriptLocation();
   my $return = '';
   if ( -e "$scriptLocation/$CONFIG_FILE_NAME" ) {
      open CFG,"<$scriptLocation/$CONFIG_FILE_NAME" or die "Could not read $scriptLocation/$CONFIG_FILE_NAME: $!\n";
      $return = join ( '', <CFG> );
      close CFG;
   }
   return $return;
}


sub getFoldersToProcess {
   my $folderListFile = shift;
   my @folders = ();
   open DATA, "<$folderListFile" or die "Could not read $folderListFile: $!\n";
   @folders = grep { ! /^#/ } <DATA>;
   close DATA;
   chomp @folders;
   return @folders;
}

sub cleanFolder {
   my $folderToProcess = shift;
   my @list;
   if ( $TESTING ) {
      @list = `find $folderToProcess -type f -mtime +$TEMP_CLEANUP_TIME -print`;
   } else {
      @list = `find $folderToProcess -type f -mtime +$TEMP_CLEANUP_TIME -print -exec rm \\{\\} \\;`;
   }
   return scalar( @list );
}


$config = &readConfig();
eval( $config );
$CONTROL_FOLDER = &getScriptLocation() . '../data' unless $CONTROL_FOLDER;
$CLEANUP_FILE = "$CONTROL_FOLDER/$CLEANUP_FILE";

my @foldersToProcess = &getFoldersToProcess( $CLEANUP_FILE );

my $totalDeleted = 0;

print "TEST MODE; no files deleted\n" if $TESTING;
print "Cleaning files older than $TEMP_CLEANUP_TIME Days\n";
foreach my $folder ( @foldersToProcess ) {
   my $deleted = &cleanFolder( $folder );
   print "$folder\t$deleted\n";
   $totalDeleted += $deleted;
 }

print "Deleted $totalDeleted files\n";
1;