Re: [Sysadmins] imap mailbox size

Fri, 02 Dec 2011 05:56:11 -0800 

типа такого скрипта

#!/usr/bin/perl

use Mail::IMAPClient;

my $imap = Mail::IMAPClient->new(
        Server   => 'mail.mxes.net',
        User     => '**********',
        Password => '**********',
        Ssl      => 0,
        Uid      => 1,
);

my $folders = $imap->folders or die "Failed to get folders\n";
my $sizes = {};

foreach my $folder (@{$folders}){
        $imap->examine($folder) or next;

        $sizes->{$folder} = 0;

        my $hash = $imap->fetch_hash("RFC822.SIZE");
        foreach my $msg (keys %{$hash}){
                $sizes->{$folder} += $hash->{$msg}->{'RFC822.SIZE'};
        }
}

my @keys = sort { $sizes->{$b} <=> $sizes->{$a} } @{$folders};

print "Only showing folders over 1MB:\n";

for my $folder (@keys){

        my $size = $sizes->{$folder};
        if ($sizes->{$folder} > 1024){ $size = int($sizes->{$folder} /
        1024) . "KB"; } if ($sizes->{$folder} > 1024 * 1024){
                $size = int($sizes->{$folder} / (1024 * 1024)) . "MB";
        }

        next unless $size =~ /MB/;

        print "$size\t$folder\n";
}


On Fri, 2 Dec 2011 15:57:25 +0400
Yuriy VHe3anH0 Skv <[email protected]> wrote:

> Подскажите, плз, как проще мониторить размер почтовых ящиков имап.
> Инетересует доступность и объем почты.
> Zabbix, conky, скрипт написать?
> 
_______________________________________________
Sysadmins mailing list
[email protected]
https://lists.altlinux.org/mailman/listinfo/sysadmins

Ответить