From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <skvlnx@gmail.com>
X-Spam-Checker-Version: SpamAssassin 3.2.5 (2008-06-10) on sa.int.altlinux.org
X-Spam-Level: 
X-Spam-Status: No, score=-3.6 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_LOW,
	SPF_PASS autolearn=ham version=3.2.5
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma;
	h=date:from:to:subject:message-id:in-reply-to:references:x-mailer
	:mime-version:content-type:content-transfer-encoding;
	bh=ru2Zc/YX0iqzGYJyqwKvBdESlZoR4oZHTVuLQq08Gug=;
	b=jSKN9zQ5cr1ygxNPtRo5GYvSJPxaq/wcQalk/eU7F18GURtZN+bDqMhEeiwn6Gf5Ep
	VhAjqQWIUcVdU2hHxHfk2hSF1cneprw3olQtUL+RE3O4ldOpNxwlhKPRVVwKlQ6/XnHd
	ilQ+pHi3B4rOVeCPxC+DqJ4Vj15ntOShA6JAQ=
Date: Fri, 2 Dec 2011 17:55:51 +0400
From: Yuriy VHe3anH0 Skv <skvlnx@gmail.com>
To: sysadmins@lists.altlinux.org
Message-ID: <20111202175551.71dbefca@skvity.raxxla.net.raxxla.net>
In-Reply-To: <20111202155725.6b96d513@skvity.raxxla.net.raxxla.net>
References: <20111202155725.6b96d513@skvity.raxxla.net.raxxla.net>
X-Mailer: Claws Mail 3.7.10 (GTK+ 2.24.7; x86_64-suse-linux-gnu)
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable
Subject: Re: [Sysadmins] imap mailbox size
X-BeenThere: sysadmins@lists.altlinux.org
X-Mailman-Version: 2.1.12
Precedence: list
Reply-To: ALT Linux sysadmins' discussion <sysadmins@lists.altlinux.org>
List-Id: ALT Linux sysadmins' discussion <sysadmins.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/options/sysadmins>,
	<mailto:sysadmins-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/sysadmins>
List-Post: <mailto:sysadmins@lists.altlinux.org>
List-Help: <mailto:sysadmins-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/sysadmins>,
	<mailto:sysadmins-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Fri, 02 Dec 2011 13:56:04 -0000
Archived-At: <http://lore.altlinux.org/sysadmins/20111202175551.71dbefca@skvity.raxxla.net.raxxla.net/>
List-Archive: <http://lore.altlinux.org/sysadmins/>

=D1=82=D0=B8=D0=BF=D0=B0 =D1=82=D0=B0=D0=BA=D0=BE=D0=B3=D0=BE =D1=81=D0=BA=
=D1=80=D0=B8=D0=BF=D1=82=D0=B0

#!/usr/bin/perl

use Mail::IMAPClient;

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

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

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

	$sizes->{$folder} =3D 0;

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

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

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

for my $folder (@keys){

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

	next unless $size =3D~ /MB/;

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


On Fri, 2 Dec 2011 15:57:25 +0400
Yuriy VHe3anH0 Skv <skvlnx@gmail.com> wrote:

> =D0=9F=D0=BE=D0=B4=D1=81=D0=BA=D0=B0=D0=B6=D0=B8=D1=82=D0=B5, =D0=BF=D0=
=BB=D0=B7, =D0=BA=D0=B0=D0=BA =D0=BF=D1=80=D0=BE=D1=89=D0=B5 =D0=BC=D0=BE=
=D0=BD=D0=B8=D1=82=D0=BE=D1=80=D0=B8=D1=82=D1=8C =D1=80=D0=B0=D0=B7=D0=BC=
=D0=B5=D1=80 =D0=BF=D0=BE=D1=87=D1=82=D0=BE=D0=B2=D1=8B=D1=85 =D1=8F=D1=89=
=D0=B8=D0=BA=D0=BE=D0=B2 =D0=B8=D0=BC=D0=B0=D0=BF.
> =D0=98=D0=BD=D0=B5=D1=82=D0=B5=D1=80=D0=B5=D1=81=D1=83=D0=B5=D1=82 =D0=B4=
=D0=BE=D1=81=D1=82=D1=83=D0=BF=D0=BD=D0=BE=D1=81=D1=82=D1=8C =D0=B8 =D0=BE=
=D0=B1=D1=8A=D0=B5=D0=BC =D0=BF=D0=BE=D1=87=D1=82=D1=8B.
> Zabbix, conky, =D1=81=D0=BA=D1=80=D0=B8=D0=BF=D1=82 =D0=BD=D0=B0=D0=BF=D0=
=B8=D1=81=D0=B0=D1=82=D1=8C?
>=20