view release on metacpan or  search on metacpan

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

         $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;