[Sysadmins] imap mailbox size

[Sysadmins] imap mailbox size

[Yuriy VHe3anH0 Skv]

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

-- 
- What god or goddess do you believe in?
- Randomius Factoria . . .
- Me too . . .

Re: [Sysadmins] imap mailbox size

[Илья Меньших]

02.12.2011 15:57, Yuriy VHe3anH0 Skv пишет:
> Подскажите, плз, как проще мониторить размер почтовых ящиков имап.
> Инетересует доступность и объем почты.
> Zabbix, conky, скрипт написать?
>
так, например:
# crontab -l
11 4 * * *     cd /home/vmail/{домен} ; du --max-depth=1 | sort -rn | 
head -n 101

Re: [Sysadmins] imap mailbox size

[Yuriy VHe3anH0 Skv]

Забыл сказать:
Есть доступ только по имап к этому серверу.
(список логин-пароль пользователей)

> > Подскажите, плз, как проще мониторить размер почтовых ящиков имап.
> > Инетересует доступность и объем почты.
> > Zabbix, conky, скрипт написать?
> >
> так, например:
> # crontab -l
> 11 4 * * *     cd /home/vmail/{домен} ; du --max-depth=1 | sort -rn | 
> head -n 101

-- 
- What god or goddess do you believe in?
- Randomius Factoria . . .
- Me too . . .

Re: [Sysadmins] imap mailbox size

[Michael Shigorin]

On Fri, Dec 02, 2011 at 03:57:25PM +0400, Yuriy VHe3anH0 Skv wrote:
> Подскажите, плз, как проще мониторить размер почтовых ящиков имап.
> Инетересует доступность и объем почты.

monit?

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

Re: [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, скрипт написать?
>