Changeset 275 for trunk/dns.cgi

Timestamp:

03/15/12 15:34:38 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Convert domStatus() and caller to zoneStatus() for reverse DNS
Add status change to revzones page handling
See #26

File:

• trunk/dns.cgi (modified) (6 diffs)

trunk/dns.cgi

@@ -315 +315 @@
 # hmm.  seeing problems in some possibly-not-so-corner cases.
 # this currently only handles "domain on", "domain off"
-  if (defined($webvar{domstatus})) {
+  if (defined($webvar{zonestatus})) {
     # security check - does the user have permission to access this entity?
     my $flag = 0;
@@ -322 +322 @@
     }
     if ($flag && ($permissions{admin} || $permissions{domain_edit})) {
-      my $stat = domStatus($dbh,$webvar{id},$webvar{domstatus});
+      my $stat = zoneStatus($dbh,$webvar{id},'n',$webvar{zonestatus});
 ##fixme  switch to more consise "Enabled <domain"/"Disabled <domain>" as with users?
       logaction($webvar{id}, $session->param("username"),
@@ -332 +332 @@
       $page->param(errmsg => "You are not permitted to view or change the requested domain");
     }
-    $uri_self =~ s/\&amp;domstatus=[^&]*//g;    # clean up URL for stuffing into templates
+    $uri_self =~ s/\&amp;zonestatus=[^&]*//g;   # clean up URL for stuffing into templates
   }
 
@@ -434 +434 @@
 
   $webvar{revrec} = 'y';
+
+  if (defined($webvar{zonestatus})) {
+    # security check - does the user have permission to access this entity?
+    my $flag = 0;
+    foreach (@viewablegroups) {
+      $flag = 1 if isParent($dbh, $_, 'group', $webvar{id}, 'revzone');
+    }
+    if ($flag && ($permissions{admin} || $permissions{domain_edit})) {
+      my $stat = zoneStatus($dbh,$webvar{id},'y',$webvar{zonestatus});
+##fixme  switch to more consise "Enabled <domain"/"Disabled <domain>" as with users?
+      logaction($webvar{id}, $session->param("username"),
+        parentID($dbh, (id => $webvar{id}, type => 'revzone', revrec => $webvar{revrec})),
+        "Changed ".revName($dbh, $webvar{id})." state to ".($stat ? 'active' : 'inactive'));
+      $page->param(resultmsg => "Changed ".revName($dbh, $webvar{id})." state to ".
+        ($stat ? 'active' : 'inactive'));
+    } else {
+      $page->param(errmsg => "You are not permitted to view or change the requested reverse zone");
+    }
+    $uri_self =~ s/\&amp;zonestatus=[^&]*//g;   # clean up URL for stuffing into templates
+  }
 
   if ($session->param('resultmsg')) {
@@ -1222 +1242 @@
       $row{domain} = domainName($dbh,$webvar{$_});
 ##fixme:  error handling on status change
-      my $stat = domStatus($dbh,$webvar{$_},($webvar{bulkaction} eq 'activate' ? 'domon' : 'domoff'));
+      my $stat = zoneStatus($dbh,$webvar{$_},($webvar{bulkaction} eq 'activate' ? 'domon' : 'domoff'));
       logaction($webvar{$_}, $session->param("username"),
         parentID($dbh, (id => $webvar{$_}, type => 'domain', revrec => $webvar{revrec})),
@@ -1637 +1657 @@
       my %row;
       my ($code,$msg) = importAXFR($dbh, $webvar{ifrom}, $domain, $webvar{group},
-        $webvar{domstatus}, $webvar{rwsoa}, $webvar{rwns});
+        $webvar{zonestatus}, $webvar{rwsoa}, $webvar{rwns});
       $row{domok} = $msg if $code eq 'OK';
       if ($code eq 'WARN') {