#!/usr/bin/perl
# cpanel4 - scripts        Copyright(c) 1997-2002 cPanel, Inc..
#                                 All rights Reserved.
# copyright@cpanel.net      http://cpanel.net
# This code is subject to the cpanel license. Unauthorized copying is prohibited
require '/scripts/safetybits.pl';

open(LD,">>/etc/localdomains");
chomp($hs = `/bin/hostname`);
print LD "$hs\n";
close(LD);

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,$UNFO[2],"$homedir/mail");
			safe_chmod(0660,$UNFO[2],"$homedir/mail/inbox");
		}
	}
	if (-f "/var/cpanel/users/$file") {
		if ($UNFO[2] eq "" || $UNFO[3] eq "") { next; }
		if (-d "$homedir/mail") {
			if (! -l "$homedir/mail") {
				killfile("$homedir/mail/.${file}");
				killfile("$homedir/mail/.${file}.cache");
				killfile("$homedir/mail/.${file}.db");
				killfile("$homedir/mail/.${file}.old");
				killfile("$homedir/mail/.${file}-INBOX");
				killfile("$homedir/mail/.${file}-INBOX.cache");
				killfile("$homedir/mail/.${file}-INBOX.db");
				killfile("$homedir/mail/.${file}-INBOX.old");
				opendir(MAIL,"$homedir/mail");
				@MAILDIRS=readdir(MAIL);
				closedir(MAIL);
				@MAILDIRS=grep(!/^\./,@MAILDIRS);
				foreach my $maildir (@MAILDIRS) {
					if (-d "$homedir/mail/$maildir") {
						killfile("$homedir/mail/${maildir}/.${maildir}");
						killfile("$homedir/mail/${maildir}/.${maildir}.cache");
						killfile("$homedir/mail/${maildir}/.${maildir}.db");
						killfile("$homedir/mail/${maildir}/.${maildir}.old");

					}
				}
			}
		}
	}
}

sub killfile {
	my ($file) = @_;
	if (-f $file) { 
		print "Unlinking $file\n";
		unlink($file);
	}
}