Mercurial > hg > maltfilter
diff maltfilter @ 44:471731c79bb3
Add configuration setting for PASSWD file.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 16 Aug 2009 02:51:28 +0300 |
parents | 24babaa1e331 |
children | d239356229cd |
line wrap: on
line diff
--- a/maltfilter Sun Aug 16 02:45:42 2009 +0300 +++ b/maltfilter Sun Aug 16 02:51:28 2009 +0300 @@ -47,6 +47,8 @@ "SYSACCT_MAX_UID" => 100, "FULL_TIME" => 1, + + "PASSWD" => "/etc/passwd", ); # Default logfiles to monitor (SCANFILES setting of configuration overrides these) @@ -842,7 +844,6 @@ sub malt_configure { # Let user define his/her own logfiles to scan - mlog(0, "(Re)reading configuration files.\n"); @scanfiles_def = (); undef(@scanfiles_def); foreach my $filename (@configfiles) { @@ -852,10 +853,8 @@ mdie("SYSACCT_MIN_UID must be >= 1.\n") unless ($settings{"SYSACCT_MIN_UID"} >= 1); mdie("SYSACCT_MAX_UID must be >= SYSACCT_MIN_UID.\n") unless ($settings{"SYSACCT_MAX_UID"} >= $settings{"SYSACCT_MIN_UID"}); - my $passfile = "/etc/passwd"; - mlog(0, "Reading $passfile for system accounts.\n"); - open(PASSWD, "<", $passfile) or mdie("Could not open '".$passfile."' for reading!\n"); + open(PASSWD, "<", $settings{"PASSWD"}) or mdie("Could not open '".$settings{"PASSWD"}."' for reading!\n"); while (<PASSWD>) { my @fields = split(/\s*:\s*/); if ($fields[2] >= $settings{"SYSACCT_MIN_UID"} && $fields[2] <= $settings{"SYSACCT_MAX_UID"}) {