Current File : //usr/local/scripts/stats.pl

#!/usr/local/cpanel/3rdparty/bin/perl

$hostname = `hostname --fqdn`;
chomp($hostname);

$mailacct = `for i in \$(awk '{print \$2}' /etc/trueuserdomains); do uapi --user=\$i Email list_pops 2> /dev/null | egrep \"\\s+email:\" | grep \"\\@\" | grep -v uapi; done | wc -l`;
chomp($mailacct);

$accounts = `cat /etc/trueuserdomains|wc -l`;
chomp $accounts;

print "$hostname^$mailacct^$accounts\n";