#!/usr/bin/perl
# Mailbox Size Listing Script, version 1.0
# Copyright 2002, Joshua Cantara
# This program is licensed under the GPL.
use CLI;
use CGI;
print "Content-Type: text/html\n\n";
##########################################################
# Change the variables below to your settings #
##########################################################
my $domain = 'yourdomain.com';
my $cgserver = '127.0.0.1';
my $login = 'postmaster@yourdomain.com';
my $password = 'postmasterpassword';
# Change this variable to whatever size, in megs, you
# consider too large for an account.
my $toobig = '10';
##########################################################
# You should not have to change anything below this point#
##########################################################
my $username;
my $storage = 0;
my $total = 0;
my $bigtotal = 0;
my $totalstorage = 0;
my $accountdata;
my $realname;
my $cli = new CGP::CLI
( {
PeerAddr => $cgserver,
PeerPort => 106,
login => $login,
password => $password
} )
|| die "Cannot login to CGPro";
print qq|
Mailbox Storage Sizes
Mailbox storage utilization for $domain
|;
my $accounts = $cli->ListAccounts($domain) || die $cli->getErrMessage;
foreach $username (sort keys %$accounts)
{
$storage = 0;
unless ($storage = $cli->GetAccountInfo("$username\@$domain",'StorageUsed'))
{
$storage = "0";
}
$accountdata = $cli->GetAccount("$username\@$domain");
$realname = @$accountdata{'RealName'};
$storage = sprintf("%.2f",($storage/1048576));
if ($storage > $toobig)
{
print qq|$realname ($username\@$domain) has $storage M in his/her account.
|;
$bigtotal++;
}
else {
print qq|$realname ($username\@$domain) has $storage M in his/her account.
|;
}
$total++;
$totalstorage = $totalstorage + $storage;
}
print qq|
Total mailboxes: $total - Total large mailboxes: $bigtotal
Total storage used by all accounts in $domain: $totalstorage M
|;
$cli->Logout;
exit;