Changeset 29 for trunk/DNSDB.pm

Timestamp:

11/05/09 17:55:34 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

DNSDB::initGlobals

• don't roll over and die if the "systemwide defaults" file is missing

dns.cgi

• allow passwords to be crypt-MD5 hashes as well as plaintext (should we insist?)

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -130 +130 @@
 
 # load system-wide site defaults and things from config file
-  open SYSDEFAULTS, "</etc/dnsdb.conf";
+  if (open SYSDEFAULTS, "</etc/dnsdb.conf") {
 ##fixme - error check!
-  while (<SYSDEFAULTS>) {
-    next if /^\s*#/;
-    $def{contact}       = $1 if /contact ?= ?([a-z0-9_.-]+)/i;
-    $def{prins}         = $1 if /prins ?= ?([a-z0-9_.-]+)/i;
-    $def{soattl}        = $1 if /soattl ?= ?([a-z0-9_.-]+)/i;
-    $def{refresh}       = $1 if /refresh ?= ?([a-z0-9_.-]+)/i;
-    $def{retry}         = $1 if /retry ?= ?([a-z0-9_.-]+)/i;
-    $def{expire}        = $1 if /expire ?= ?([a-z0-9_.-]+)/i;
-    $def{minttl}        = $1 if /minttl ?= ?([a-z0-9_.-]+)/i;
-    $def{ttl}           = $1 if /ttl ?= ?([a-z0-9_.-]+)/i;
+    while (<SYSDEFAULTS>) {
+      next if /^\s*#/;
+      $def{contact}     = $1 if /contact ?= ?([a-z0-9_.-]+)/i;
+      $def{prins}               = $1 if /prins ?= ?([a-z0-9_.-]+)/i;
+      $def{soattl}      = $1 if /soattl ?= ?([a-z0-9_.-]+)/i;
+      $def{refresh}     = $1 if /refresh ?= ?([a-z0-9_.-]+)/i;
+      $def{retry}               = $1 if /retry ?= ?([a-z0-9_.-]+)/i;
+      $def{expire}      = $1 if /expire ?= ?([a-z0-9_.-]+)/i;
+      $def{minttl}      = $1 if /minttl ?= ?([a-z0-9_.-]+)/i;
+      $def{ttl}         = $1 if /ttl ?= ?([a-z0-9_.-]+)/i;
 ##fixme?  load DB user/pass from config file?
+    }
   }
 # load from database