Changeset 246

Timestamp:

02/27/12 18:04:23 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Move SOA update SQL into DNSDB.pm while we update it for
handling reverse zones. See #26.

File:

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

trunk/DNSDB.pm

@@ -1801 +1801 @@
   my $sth = $dbh->prepare($sql);
   $sth->execute($id);
+##fixme:  stick a flag somewhere if the record doesn't exist.  by the API, this is an impossible case, but...
 
   my ($recid,$host,$val,$ttl) = $sth->fetchrow_array() or return;
@@ -1818 +1819 @@
   return %ret;
 } # end getSOA()
+
+
+## DNSDB::updateSOA()
+# Update the specified SOA record
+# Takes a database handle, default/live flag, forward/reverse flag, and SOA data hash
+sub updateSOA {
+  my $dbh = shift;
+  my $defrec = shift;
+  my $reverc = shift;
+
+  my %soa = @_;
+
+##fixme: data validation: make sure {recid} is really the SOA for {parent}
+  my $sql = "UPDATE "_rectable($defrec, $revrec)." SET host=?, val=?, ttl=? WHERE record_id=? AND type=6";
+  $sth = $dbh->prepare($sql);
+  $sth->execute("$soa{contact}:$soa{prins}", "$soa{refresh}:$soa{retry}:$soa{expire}:$soa{minttl}",
+        $soa{ttl}, $soa{recid});
+
+} # end updateSOA()