March 2, 2009

Zimbra Mailbox Size

Here’s a simple script that will provide a report on mailbox size for every mailbox on a Zimbra server. The report is sorted by box size in descending order:

#!/usr/bin/perl

my $all_accounts=`zmprov gaa`;
my @accounts = split(/\n/,$all_accounts);

my @sizes;
foreach $account (@accounts) {
    my $mb_size=`zmmailbox -z -m $account gms`;
    chomp($mb_size);
    my $size;
    if ($mb_size =~ /(.+)\ GB/) {
        $size = $1 * 1024 * 1024;
    } elsif ($mb_size =~ /(.+)\ MB/) {
        $size = $1 * 1024;

    } elsif ($mb_size =~ /(.+)\ KB/) {

        $size = $1;
    } elsif ($mb_size =~ /(.+)\ B/) {
        $nsize = $1;
        if ($nsize eq 0) {
                $size = 0;
        } else {
                $size = abs(1024/$1);
        };
    };
    $next = scalar(@sizes);
    $sizes[$next][0] = $account;
    $sizes[$next][1] = $size;
};

@sizes = sort { $a->[1] <=> $b->[1] } @sizes;

my $D=`date +'%m/%d/%y %H:%M'`; chomp($D);

print "==========================================================\n";
print " Zimbra Mailbox Report\n";
print " \n";
print " All sizes in KB.";
print " Generated on: $D\n";
print "==========================================================\n";

for (my $i = $#sizes-1; $i >= 0; $i--) {
    printf ("%15.2f %s\n",$sizes[$i][1], $sizes[$i][0]);

};

#!/usr/bin/perl

my $all_accounts=`zmprov gaa`;

my @accounts = split(/\n/,$all_accounts);

my @sizes;

foreach $account (@accounts) {

my $mb_size=`zmmailbox -z -m $account gms`;

chomp($mb_size);

my $size;

if ($mb_size =~ /(.+)\ GB/) {

$size = $1 * 1024 * 1024;

} elsif ($mb_size =~ /(.+)\ MB/) {

$size = $1 * 1024;

} elsif ($mb_size =~ /(.+)\ KB/) {

$size = $1;

} elsif ($mb_size =~ /(.+)\ B/) {

$nsize = $1;

if ($nsize eq 0) {

$size = 0;

} else {

$size = abs(1024/$1);

};

$next = scalar(@sizes);

$sizes[$next][0] = $account;

$sizes[$next][1] = $size;

};

@sizes = sort { $a->[1] <=> $b->[1] } @sizes;

my $D=`date +'%m/%d/%y %H:%M'`; chomp($D);

print "==========================================================\n";

print " Zimbra Mailbox Report\n";

print " \n";

print " All sizes in KB.";

print " Generated on: $D\n";

print "==========================================================\n";

for (my $i = $#sizes-1; $i >= 0; $i--) {

printf ("%15.2f %s\n",$sizes[$i][1], $sizes[$i][0]);

};

Have a project or a problem?

Talk with a senior engineer for practical recommendations—no obligation.

One Comment

One Response

Martin says:

October 31, 2012 at 3:12 pm

This script works pretty well. However, I think there’s a typo in the first line. I believe it needs to say:

my $all_accounts=zmprov -l gaa;

Also, for some reason, which I haven’t figured out yet, some accounts don’t seem to get reported on. I have one very large account, which should be at the very top of the output, but it doesn’t show up. Any ideas why?

Reply