#!/usr/bin/perl


if (-e "/etc/security/msec") {
	print "Setting up Mandrake's msec to allow exim to run as mailnull..";
	open(MSECLOCAL,"/etc/security/msec/perm.local");
	while(<MSECLOCAL>) {
		if (/exim/) { $hasexim = 1; }
		last;
	}
	close(MSECLOCAL);
	if (!$hasexim) {
		open(MSECLOCAL,">>/etc/security/msec/perm.local");
		print MSECLOCAL "/var/spool/exim/         current                current\n";
		print MSECLOCAL "/var/log/exim_*          current                640\n";
		close(MSECLOCAL);
	}
	print "Done\n";
}