list_users.pl

list_users.pl

#!/usr/bin/perl
use File::stat;
use Time::localtime;

for my $user (`ls /var/cpanel/users`) {
        chomp $user;
        if (-f "/var/cpanel/suspended/$user") {
                $suspended = "yes";
                chomp($reason = `cat /var/cpanel/suspended/$user`);
                $date = ctime(stat("/var/cpanel/suspended/$user")->mtime);
        } else {
                $suspended = "no";
                $reason = "";
                $date = "";
        }

        chomp($owner = `grep ^$user: /etc/trueuserowners | cut -d":" -f2 | sed -e 's/ //g'`);
        chomp($domain = `grep $user\$ /etc/trueuserdomains | cut -d":" -f1`);

    if (-f "/home/$user/.contactemail") {
        chomp($contact = `cat /home/$user/.contactemail`);
    } else {
        $contact = "";
    }

        print "$user ## $suspended ## $date ## $reason ## $owner ## $domain ## $contact\n";
}