Changeset 773 for trunk

Timestamp:

07/30/19 16:53:04 (5 years ago)

Author:

Kris Deugau

Message:

/trunk

Start creating SOA serial numbers instead of letting tinydns manage them,
1 of mumble. See #24, sort of.

Tweak the serial on record changes:

• updateSOA()
• addRec()
• updateRec()
• downconvert()
• delRec()

File:

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

trunk/DNSDB.pm

@@ -4240 +4240 @@
         " retry $soa{retry}, expire $soa{expire}, minTTL $soa{minttl}, TTL $soa{ttl})";
     }
+    if ($revrec eq 'y') {
+      $dbh->do("UPDATE revzones SET changed = 'y',zserial = ? WHERE rdns_id = ?", undef, (scalar(time), $soa{id}) );
+    } else {
+      $dbh->do("UPDATE domains SET changed = 'y',zserial = ? WHERE domain_id = ?", undef, (scalar(time), $soa{id}) );
+    }
     $logdata{entry} = $msg;
     $self->_log(%logdata);
@@ -4588 +4593 @@
     $dbh->do("INSERT INTO "._rectable($defrec, $revrec)." ($fields) VALUES ($vallen)",
         undef, @vallist);
+    if ($revrec eq 'y') {
+      $dbh->do("UPDATE revzones SET changed = 'y',zserial = ? WHERE rdns_id = ?", undef, (scalar(time), $domid) );
+    } else {
+      $dbh->do("UPDATE domains SET changed = 'y',zserial = ? WHERE domain_id = ?", undef, (scalar(time), $domid) );
+    }
     $self->_log(%logdata);
     $dbh->commit;
@@ -4788 +4798 @@
   eval {
     $dbh->do("UPDATE "._rectable($defrec,$revrec)." SET $fields WHERE record_id=?", undef, (@vallist, $id) );
+    if ($revrec eq 'y') {
+      $dbh->do("UPDATE revzones SET changed = 'y',zserial = ? WHERE rdns_id = ?", undef, (scalar(time), $domid) );
+    } else {
+      $dbh->do("UPDATE domains SET changed = 'y',zserial = ? WHERE domain_id = ?", undef, (scalar(time), $domid) );
+    }
     $self->_log(%logdata);
     $dbh->commit;
@@ -4853 +4868 @@
   eval {
     $dbh->do("UPDATE records SET $delpar = ?, type = ? WHERE record_id = ?", undef, @sqlargs);
+    # both forward and reverse zones affected, more or less by definition
+    $dbh->do("UPDATE revzones SET changed = 'y',zserial = ? WHERE rdns_id = ?", undef, (scalar(time), $rec->{rdns_id}) );
+    $dbh->do("UPDATE domains SET changed = 'y',zserial = ? WHERE domain_id = ?", undef, (scalar(time), $rec->{domain_id}) );
     $self->_log(domain_id => $rec->{domain_id}, rdns_id => $rec->{rdns_id},
         group_id => $self->parentID(id => $rec->{rdns_id}, type => 'revzone', revrec => 'y'),
@@ -4903 +4921 @@
 
   eval {
-    my $sth = $dbh->do("DELETE FROM "._rectable($defrec,$revrec)." WHERE record_id=?", undef, ($id));
+    $dbh->do("DELETE FROM "._rectable($defrec,$revrec)." WHERE record_id=?", undef, ($id));
+    if ($revrec eq 'y') {
+      $dbh->do("UPDATE revzones SET changed = 'y',zserial = ? WHERE rdns_id = ?", undef, (scalar(time), $oldrec->{domain_id}) );
+    } else {
+      $dbh->do("UPDATE domains SET changed = 'y',zserial = ? WHERE domain_id = ?", undef, (scalar(time), $oldrec->{rdns_id}) );
+    }
     $self->_log(%logdata);
     $dbh->commit;