[Sysadmins] imap mailbox size

[Yuriy VHe3anH0 Skv]

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

#!/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 <skvlnx на gmail.com> wrote:

> Подскажите, плз, как проще мониторить размер почтовых ящиков имап.
> Инетересует доступность и объем почты.
> Zabbix, conky, скрипт написать?
>