findBadOwners.pl

findBadOwners.pl

  #!/usr/bin/perl

my $user;
for $user (`ls /var/cpanel/users/`) {
        chomp($user);

        my @userinfo = getpwnam($user);
        my $homedir = $userinfo[7];
        my $uid = $userinfo[2];

        my $result = `find $homedir ! -uid $uid ! -uid 99 ! -uid 65535 ! -uid 0 -exec ls -l {} \\\;`;

        if ($result) {
                open ($fh, ">/root/corruption/$user.txt");
                print $fh $result;
                close ($fh);
        }
}