use strict;
    use warnings;

sub file_handler {
  my ($abs_filename) = @_;


	if ((($current_mth == 1) && ($last_day_current_mth == 31))
		
		threeYrExpiration($abs_filename);
						
} # End of sub file_handler



sub threeYrExpiration ($) {
  my $abs_filename = $_[0];  
  
	my $unlinkStatus = unlink("$abs_filename");
	if ($unlinkStatus == 1) {
		$unlinkCountTotal++;        
		$abs_filename =~ s#.*WORKAREA\/[^\/]*##;  
		push (@deleted_files, $abs_filename);                   
		$task->AddFile("$abs_filename", "Deleted by content expiration report"); 
		$logger->info("File to be deleted added to job: $abs_filename"); 
	} else {
		$logger->info("File to be deleted \"$abs_filename\" failed. Received $unlinkStatus instead of 1.");
		$task->CallBack(1, "Error Deleting expired file");
	}
}




##</code><code>##

Mon Nov 29 10:21:34 2010 : INFO : expiration_report.ipl : *******************************************************************************
Mon Nov 29 10:21:34 2010 : INFO : expiration_report.ipl : File to be deleted added to job: /committees/comm_wkgrps/inactive/cold_snap_tf/europepass.pdf
Mon Nov 29 10:21:34 2010 : INFO : expiration_report.ipl : File to be deleted "/iwmnt/default/main/internet/WORKAREA/home/committees/comm_wkgrps/inactive/cold_snap_tf/europepass.pdf" failed. Received 0 instead of 1.