#!/usr/bin/perl -w

#
# Print a Queue Summary (Amount of messages per domain in queue).
#

use strict;

my $postqueue = "/usr/sbin/postqueue";

my %count = ();

open(QUE, "$postqueue -p |") or die $!;
while(<QUE>) {
   chomp;
   if ( $_ =~ /^\s+.*\@(.*)/ ) {
         $count{$1}++;
   }
}

print"\nTOTAL\tTO\n";
print"-----   ----------------------------------------------------------------\n";
foreach my $key (reverse sort { $count{$a} <=> $count{$b}} keys %count) {
        print"$count{$key}\t$key\n";
}