Changeset 779 for trunk

Timestamp:

08/09/19 17:16:45 (5 years ago)

Author:

Kris Deugau

Message:

/trunk

Retrieve and return the SOA serial in getSOA()

Also added a utility sub to pick the appropriate zone table based on the
default/revrec flags

File:

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

trunk/DNSDB.pm

@@ -293 +293 @@
 ## utility functions
 ##
+
+## DNSDB::_zonetable()
+# Takes default+rdns flags, returns appropriate zone table name
+sub _zonetable {
+  my $def = shift;
+  my $rev = shift;
+
+  return 'domains' if $rev ne 'y';
+  return 'revzones';
+} # end _zonetable()
 
 ## DNSDB::_rectable()
@@ -4182 +4192 @@
   ($ret->{refresh},$ret->{retry},$ret->{expire},$ret->{minttl}) = split /:/, $ret->{val};
   delete $ret->{val};
+
+  my ($ser) = $dbh->selectrow_array("SELECT zserial FROM "._zonetable($def,$rev).
+        " WHERE "._recparent($def,$rev)." = ?", undef, $id);
+  $ret->{serial} = $ser;
 
   return $ret;