sub threeYrExpiration($) { my $abs_filename = $_[0]; $logger->debug("abs_filename: $abs_filename"); # delete expired file my $unlinkStatus = unlink("$abs_filename"); $logger->debug("unlinkStatus: $unlinkStatus"); if ($unlinkStatus == 1) { $unlinkCountTotal++; $abs_filename =~ s#.*WORKAREA\/[^\/]*##; push (@deleted_files, $abs_filename); $task->AddFile("$abs_filename", "Deleted by content expiration report"); $logger->debug("File to be deleted added to job: $abs_filename"); #deleted files updateCriterionReports($criteria[1],$abs_filename,$meta_exp_date); $logger->debug("unlinkStatus: $unlinkStatus"); } else { $logger->debug("unlinkStatus: $unlinkStatus"); # shows error description, reason for failure $logger->warn("Failed to delete '$abs_filename': <$!>"); # $logger->debug("File to be deleted \"$abs_filename\" failed. Received $unlinkStatus instead of 1."); $task->CallBack(1, "Error Deleting expired file"); exit(1); } }