File Coverage

blib/lib/Postfix/Mailq.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	10	12	83.3
condition	2	5	40.0
subroutine	3	3	100.0
pod	1	1	100.0
total	39	45	86.6

# ABSTRACT: a fast and reliable mailq-like utility for postfix

package Postfix::Mailq;

use strict;
use warnings;

sub DEFAULT_SPOOL_DIR () { '/var/spool/postfix' }


sub get_fast_count {
    my ($opt) = @_;

    $opt ||= {};

    my $get_hold = $opt->{get_hold} ? 1 : 0;
    my $spool_dir = defined $opt->{spool_dir} && $opt->{spool_dir} ne ''
        ? $opt->{spool_dir}
        : DEFAULT_SPOOL_DIR;

    my %count = (
        total    => 0,
        active   => 0,
        incoming => 0,
        deferred => 0,
    );

    my @dirs = ('active', 'incoming', map { "deferred/$_" } 0..9, 'A'..'F');
    push @dirs, 'hold' if $get_hold;

    for my $dir (@dirs) {

        opendir(my $dh, "$spool_dir/$dir") || next;

        my $n = 0;
        while (my $item = readdir($dh)) {
            ++$n unless $item =~ m{^\.};
        }

        $count{total} += $n;

        if ($dir =~ m{^deferred}) {
            $count{deferred} += $n;
        } else {
            $count{$dir} += $n;
        }

    }

    return \%count;
}


1;


__END__