Changeset 920 for branches/secondaryzones/DNSDB.pm

Timestamp:

08/14/25 13:35:51 (15 hours ago)

Author:

Kris Deugau

Message:

/branches/secondaryzones

Complete secondary zone update section

File:

• branches/secondaryzones/DNSDB.pm (modified) (1 diff)

branches/secondaryzones/DNSDB.pm

@@ -4613 +4613 @@
 
 
+## DNSDB::updateSecondaryDetails()
+# Update primary server and/or location/view of a secondary zone
+# Takes a hash with the zone ID, primary server string, and location
+# Returns a two-element list with a result code and message
+sub updateSecondaryDetails {
+  $errstr = '';
+  my $self = shift;
+  my $dbh = $self->{dbh};
+
+  my %secondary = @_;
+
+  my $oldsecondary = $self->getSecondaryDetails($secondary{id});
+
+  my $msg;
+  my %logdata;
+  $logdata{secondary_id} = $secondary{id};
+  $logdata{group_id} = $self->parentID(id => $secondary{id}, type => 'secondaryzone');
+  my $zone = $self->secondaryName($secondary{id});
+
+  # Allow transactions, and raise an exception on errors so we can catch it later.
+  # Use local to make sure these get "reset" properly on exiting this block
+  local $dbh->{AutoCommit} = 0;
+  local $dbh->{RaiseError} = 1;
+
+  eval {
+    my $sql = "UPDATE secondaryzones SET primaryserver=?, default_location=? WHERE secondary_id=?";
+    $dbh->do($sql, undef, ($secondary{primary}, $secondary{location}, $secondary{id}));
+    $msg = "Updated secondary zone $zone from (primary $oldsecondary->{primaryserver}, location ".
+        $self->getLoc($oldsecondary->{default_location})->{description}.") to (primary $secondary{primary}, ".
+        "location ".$self->getLoc($secondary{location})->{description}.")";
+    $logdata{entry} = $msg;
+    $self->_log(%logdata);
+    $dbh->commit;
+  };
+  if ($@) {
+    $msg = $@;
+    eval { $dbh->rollback; };
+    $logdata{entry} = "Error updating secondary zone settings: $msg";
+    if ($self->{log_failures}) {
+      $self->_log(%logdata);
+      $dbh->commit;
+    }
+    return ('FAIL', $msg);
+  } else {
+    return ('OK', $msg);
+  }
+
+} # end updateSecondaryDetails
+
+
 ## DNSDB::getRecLine()
 # Return all data fields for a zone record in separate elements of a hash