#!/usr/bin/perl

opendir(VMAIL,"/etc/vmail");
while(my $file = readdir(VMAIL)) {
	next if ($file =~ /^\./);
	unlink("/etc/vmail/${file}");
}
closedir(VMAIL);
my $mtime = (time() + 10);
my $atime = $mtime;
utime($atime,$mtime,'/etc/passwd');
exec '/scripts/updateuserdomains';