Changeset 285 for trunk/dns.cgi

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/dns.cgi (modified) (2 diffs)

trunk/dns.cgi

@@ -415 +415 @@
   } elsif ($webvar{del} eq 'ok') {
     my $pargroup = parentID($dbh, (id => $webvar{id}, type => 'domain', revrec => $webvar{revrec}));
-    my $dom = domainName($dbh, $webvar{id});
     my ($code,$msg) = delZone($dbh, $webvar{id}, $webvar{revrec});
     if ($code eq 'OK') {
-      logaction($webvar{id}, $session->param("username"), $pargroup, "Deleted domain $dom");
-      changepage(page => "domlist", resultmsg => "Deleted domain $dom");
+      changepage(page => "domlist", resultmsg => $msg);
     } else {
-      logaction($webvar{id}, $session->param("username"), $pargroup, "Failed to delete domain $dom ($msg)")
-        if $config{log_failures};
-      changepage(page => "domlist", errmsg => "Error deleting domain $dom: $msg");
+      changepage(page => "domlist", errmsg => $msg);
     }
 
@@ -528 +524 @@
     my ($code,$msg) = delZone($dbh, $webvar{id}, 'y');
     if ($code eq 'OK') {
-##fixme: logaction needs to take "domid OR revid" and some way to know which it is
-      logaction($webvar{id}, $session->param("username"), $pargroup, "Deleted reverse zone $zone");
-      changepage(page => "revzones", resultmsg => "Deleted reverse zone $zone");
+      changepage(page => "revzones", resultmsg => $msg);
     } else {
-      logaction($webvar{id}, $session->param("username"), $pargroup, "Failed to delete domain $zone ($msg)")
-        if $config{log_failures};
-#push @debugbits, "got back $code, $msg\n";
-      changepage(page => "revzones", errmsg => "Error deleting reverse zone $zone: $msg");
+      changepage(page => "revzones", errmsg => $msg);
     }