view release on metacpan or  search on metacpan

script/ecs_scan_mail  view on Meta::CPAN

        last NODE if $processing_end_time < time();
    }

    @nodelist = ();
    $nodes = {};
    update_statistics(\@nodelist, $nodes);
}

# ----------------------------------------------------------------------
# Inspect "store" folder and compute message statistics
sub update_statistics
{
    my $nodelist = shift;
    my $nodes = shift;

    # get sorted list of files in directory
    if(not opendir(STORE, $ECS_CFG->ECS_MBX_STORE_DIR))
    {
        log_error("update_statistics(): unable to open \"store\" " .
                       "directory: " . $ECS_CFG->ECS_MBX_STORE_DIR);
        return;