Changeset 524

Timestamp:

06/12/13 17:48:53 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Add force_refresh option in configuration to allow forcing the
cached zone data to be refreshed on every export.

File:

• trunk/DNSDB.pm (modified) (5 diffs)

trunk/DNSDB.pm

@@ -208 +208 @@
                 perpage         => 15,
                 max_fcgi_requests => 100,       # reasonable default?
+                force_refresh   => 1,
         );
 
@@ -235 +236 @@
         };
   bless $self, $class;
+
+  # Several settings are booleans.  Handle multiple possible ways of setting them.
+  for my $boolopt ('log_failures', 'force_refresh') {
+    if ($self->{$boolopt} ne '1' && $self->{$boolopt} ne '0') {
+      # true/false, on/off, yes/no all valid.
+      if ($self->{$boolopt} =~ /^(?:true|false|t|f|on|off|yes|no)$/) {
+        if ($self->{$boolopt} =~ /(?:true|t|on|yes)/) {
+         $self->{$boolopt} = 1;
+        } else {
+         $self->{$boolopt} = 0;
+        }
+      } else {
+        warn "Bad $boolopt setting $self->{$boolopt}\n";
+        $self->{$boolopt} = 1;
+      }
+    }
+  }
 
   # Try to connect to the DB, and initialize a number of handy globals.
@@ -1289 +1307 @@
       $cfg->{rpcmode}           = $1 if /^rpc_mode\s*=\s*(socket|HTTP|XMLRPC)\s*$/i;
       $cfg->{maxfcgi}           = $1 if /^max_fcgi_requests\s*=\s*(\d+)\s*$/i;
+      $cfg->{force_refresh}     = $1 if /^force_refresh\s*=\s*([a-z01]+)/i;
       if (my ($tmp) = /^rpc_iplist\s*=\s*(.+)/i) {
         my @ips = split /[,\s]+/, $tmp;
@@ -4920 +4939 @@
 
       # only update the cache file if the zone has changed, or if the cache file has nothing in it.
-      if ($changed || !-e $cachefile || -z $cachefile) {
+      if ($self->{force_refresh} || $changed || !-e $cachefile || -z $cachefile) {
         open ZONECACHE, ">$tmpcache" or die "Error creating temporary file $tmpcache: $!\n";
 
@@ -5001 +5020 @@
 
       # only update the cache file if the zone has changed, or if the cache file has nothing in it.
-      if ($changed || !-e $cachefile || -z $cachefile) {
+      if ($self->{force_refresh} || $changed || !-e $cachefile || -z $cachefile) {
         open ZONECACHE, ">$tmpcache" or die "Error creating temporary file $tmpcache: $!\n";