Changeset 285 for trunk/DNSDB.pm

Timestamp:

03/22/12 17:23:00 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Move action logging for zone delete (deldom/delrevzone) into delZone()
See #35

File:

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

trunk/DNSDB.pm

@@ -1352 +1352 @@
   local $dbh->{RaiseError} = 1;
 
+  my $msg = '';
   my $failmsg = '';
+  my $zone = ($revrec eq 'n' ? domainName($dbh, $zoneid) : revName($dbh, $zoneid));
+
+  # Set this up here since we may use if if $config{log_failures} is enabled
+  my %loghash;
+  $loghash{domain_id} = $zoneid if $revrec eq 'n';
+  $loghash{rdns_id} = $zoneid if $revrec eq 'y';
+  $loghash{group_id} = parentID($dbh,
+        (id => $zoneid, type => ($revrec eq 'n' ? 'domain' : 'revzone'), revrec => $revrec) );
 
   # Wrap all the SQL in a transaction
@@ -1383 +1392 @@
     }
 
+    $msg = "Deleted ".($revrec eq 'n' ? 'domain' : 'reverse zone')." $zone";
+    $loghash{entry} = $msg;
+    _log($dbh, %loghash);
+
     # once we get here, we should have suceeded.
     $dbh->commit;
@@ -1388 +1401 @@
 
   if ($@) {
-    my $msg = $@;
+    $msg = $@;
     eval { $dbh->rollback; };
-    return ('FAIL',"$failmsg: $msg");
+    $loghash{entry} = "Delete $zone: $failmsg: $msg";
+    _log($dbh, %loghash) if $config{log_failures};
+    $dbh->commit;       # since we enabled transactions earlier
+    return ('FAIL',"Delete $zone: $failmsg: $msg");
   } else {
-    return ('OK','OK');
+    return ('OK',$msg);
   }