Changeset 341

Timestamp:

06/08/12 18:14:56 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix logging glitch in record update. Note this was also partially
caused by the empty stubs filled in in r340.

File:

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

trunk/DNSDB.pm

@@ -3266 +3266 @@
     }
   }
-
-  # Fiddle the field list into something suitable for updates
-  $fields =~ s/,/=?,/g;
-  $fields .= "=?";
+  if ($defrec eq 'n') {
+    $domid = $parid if $revrec eq 'n';
+    $revid = $parid if $revrec eq 'y';
+  }
 
   # Put together the success log entry.  Horrible kludge from addRec() copied as-is since
@@ -3275 +3275 @@
   # will be maintained (due to "not-in-zone" validation changes)
   my %logdata;
+  $logdata{domain_id} = $domid;
+  $logdata{rdns_id} = $revid;
   my @ftmp = split /,/, $fields;
   for (my $i=0; $i <= $#vallist; $i++) {
@@ -3307 +3309 @@
   local $dbh->{AutoCommit} = 0;
   local $dbh->{RaiseError} = 1;
+
+  # Fiddle the field list into something suitable for updates
+  $fields =~ s/,/=?,/g;
+  $fields .= "=?";
 
   eval {