#!/usr/bin/perl

require "/scripts/safetybits.pl";

my $mailgid = (getgrnam("mail"))[2];

opendir(CPU,"/var/cpanel/users");
@USERS=readdir(CPU);
closedir(CPU);
foreach $file (@USERS) {
	next if (!getpwnam($file));
	@UNFO = getpwnam($file);
	$homedir = $UNFO[7];
	if ($homedir ne "") {
		if (-d "$homedir/mail") {
			safe_chmod(0770,"$file","${homedir}/mail");
			safe_chmod(0660,"$file","${homedir}/mail/inbox");
		}
	}
	if (-f "/var/cpanel/users/$file") {
		open(F,"/var/cpanel/users/$file");
			while(<F>) { 
				if (/^DNS=(\S+)/) { $dns = $1;  }
			}
		close(F);
		if ($dns ne "") {
			print "Fixing $dns....\n";
			open(VA,">>/etc/valiases/$dns");
			close(VA);			
			open(VF,">>/etc/vfilters/$dns");
			close(VF);
			chown $UNFO[2],$mailgid, "/etc/valiases/$dns";
			chown $UNFO[2],$mailgid, "/etc/vfilters/$dns";
			chmod 0644, "/etc/valiases/$dns";
			chmod 0644, "/etc/vfilters/$dns";
			$dns = '';
		}
	}
}