Changeset 114

Timestamp:

08/12/11 17:37:01 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Complete core functionality for bulk domain operations. May
still need some UI polish.

Location:

trunk

Files:

• COPYING (added)
• Makefile (added)
• dns.cgi (modified) (1 diff)

trunk/dns.cgi

@@ -683 +683 @@
     changepage(page => "domlist", errmsg => "You are not permitted to bulk-move domains")
         unless ($permissions{admin} || ($permissions{domain_edit} && $permissions{domain_create} && $permissions{domain_delete}));
-$page->param(action => $webvar{action});
-my $tmpstr = 'tmpstr: ';
-my @bulkresults;
-# nngh.  due to alpha-sorting on the previous page, we can't use domid-numeric
-# order here, and since we don't have the domain names until we go around this
-# loop, we can't alpha-sort them here.  :(
-foreach (keys %webvar) {
-  my %row;
-  next unless $_ =~ /^dom_\d+$/;
-  $row{domain} = domainName($dbh,$webvar{$_});
-  my ($code, $msg) = changeGroup($dbh, 'domain', $webvar{$_}, $webvar{destgroup});
-  $row{domok} = ($code eq 'OK');
-  $row{domerr} = $msg;
-  push @bulkresults, \%row;
-}
-$page->param(bulkresults => \@bulkresults);
-
-  } elsif ($webvar{action} eq 'deactivate') {
-    changepage(page => "domlist", errmsg => "You are not permitted to bulk-deactivate domains")
+    my $newgname = groupName($dbh,$webvar{destgroup});
+    $page->param(action => "Move to group $newgname");
+    my @bulkresults;
+    # nngh.  due to alpha-sorting on the previous page, we can't use domid-numeric
+    # order here, and since we don't have the domain names until we go around this
+    # loop, we can't alpha-sort them here.  :(
+    foreach (keys %webvar) {
+      my %row;
+      next unless $_ =~ /^dom_\d+$/;
+      $row{domain} = domainName($dbh,$webvar{$_});
+      my ($code, $msg) = changeGroup($dbh, 'domain', $webvar{$_}, $webvar{destgroup});
+      if ($code eq 'OK') {
+        logaction($webvar{$_}, $session->param("username"), parentID($webvar{$_}, 'dom', 'group'),
+                "Moved domain ".domainName($dbh, $webvar{$_})." to group $newgname");
+        $row{domok} = ($code eq 'OK');
+      } else {
+        logaction($webvar{$_}, $session->param("username"), parentID($webvar{$_}, 'dom', 'group'),
+                "Failure moving domain ".domainName($dbh, $webvar{$_})." to group $newgname: $msg");
+      }
+      $row{domerr} = $msg;
+      push @bulkresults, \%row;
+    }
+    $page->param(bulkresults => \@bulkresults);
+
+  } elsif ($webvar{action} eq 'deactivate' || $webvar{action} eq 'activate') {
+    changepage(page => "domlist", errmsg => "You are not permitted to bulk-$webvar{action} domains")
         unless ($permissions{admin} || $permissions{domain_edit});
-  } elsif ($webvar{action} eq 'activate') {
-    changepage(page => "domlist", errmsg => "You are not permitted to bulk-activate domains")
-        unless ($permissions{admin} || $permissions{domain_edit});
+    $page->param(action => "$webvar{action} domains");
+    my @bulkresults;
+    foreach (keys %webvar) {
+      my %row;
+      next unless $_ =~ /^dom_\d+$/;
+      $row{domain} = domainName($dbh,$webvar{$_});
+##fixme:  error handling on status change
+      my $stat = domStatus($dbh,$webvar{$_},($webvar{action} eq 'activate' ? 'domon' : 'domoff'));
+      logaction($webvar{$_}, $session->param("username"), parentID($webvar{$_}, 'dom', 'group'),
+                "Changed domain ".domainName($dbh, $webvar{$_})." state to ".($stat ? 'active' : 'inactive'));
+      $row{domok} = 1;
+#      $row{domok} = ($code eq 'OK');
+#      $row{domerr} = $msg;
+      push @bulkresults, \%row;
+    }
+    $page->param(bulkresults => \@bulkresults);
+
   } elsif ($webvar{action} eq 'delete') {
     changepage(page => "domlist", errmsg => "You are not permitted to bulk-delete domains")
         unless ($permissions{admin} || $permissions{domain_delete});
-  }
+    $page->param(action => "$webvar{action} domains");
+    my @bulkresults;
+    foreach (keys %webvar) {
+      my %row;
+      next unless $_ =~ /^dom_\d+$/;
+      $row{domain} = domainName($dbh,$webvar{$_});
+      my $pargroup = parentID($webvar{$_}, 'dom', 'group');
+      my $dom = domainName($dbh, $webvar{$_});
+      my ($code, $msg) = delDomain($dbh, $webvar{$_});
+      if ($code eq 'OK') {
+        logaction($webvar{$_}, $session->param("username"), $pargroup, "Deleted domain $dom");
+        $row{domok} = ($code eq 'OK');
+      } else {
+        logaction($webvar{$_}, $session->param("username"), $pargroup, "Failure deleting domain $dom: $msg");
+      }
+      $row{domerr} = $msg;
+      push @bulkresults, \%row;
+    }
+    $page->param(bulkresults => \@bulkresults);
+
+  } # move/(de)activate/delete if()
+
   # not going to handle the unknown $webvar{action} else;  it should not be possible in normal
   # operations, and anyone who meddles with the URL gets what they deserve.