view release on metacpan or  search on metacpan

lib/App/Validation/Automation/Purging.pm  view on Meta::CPAN

36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
     $log_ret_period);
$log_dir        = shift || $self->config->{'COMMON.LOG_DIR'};
$log_extn       = shift || $self->config->{'COMMON.LOG_EXTN'};
$log_ret_period = shift || $self->config->{'COMMON.RET_PERIOD'};
 
chdir $log_dir
    || confess "Couldn't Change to $log_dir to remove old logs : $OS_ERROR";
@log_files = <*.$log_extn>;
@log_files_purge
  = grep {
      (time - (stat($_))[9])/(24 * 3600) > $log_ret_period
} @log_files;
 
if ( @log_files_purge ) {
    $msg  = "Log files in $log_dir older than $log_ret_period days:\n";
    $msg .= join "\n", @log_files_purge;
    
    $count = unlink @log_files_purge
                 || confess "Couldn't delete Log Files : $OS_ERROR";
    $self->purge_msg( $msg ) if($count);
    return 1;