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"}) {