#!/usr/bin/perl

while(@PW = getpwent()) {
	next if (! -e "/var/cpanel/users/$PW[0]");

	if (-e "$PW[7]/public_html") {
		open(FIND,"-|") || exec 'find',"$PW[7]/public_html","!","-uid","$PW[2]","-or","!","-gid","$PW[3]";
		while(<FIND>) {
			my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
                      $atime,$mtime,$ctime,$blksize,$blocks)
                          = stat($_);
			if ($uid != 99) {
				print;
			}
		}
		close(FIND);
	}
}