Changeset 110

Timestamp:

08/01/11 00:47:09 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Add "Bulk domain operations" area - move-to-group, activate/deactivate, delete

Location:

trunk

Files:

• dns.cgi (modified) (1 diff)
• templates/bulkdomain.tmpl (added)
• templates/menu.tmpl (modified) (1 diff)

trunk/dns.cgi

@@ -612 +612 @@
   getPermissions($dbh, 'group', $webvar{gid}, \%grpperms);
   fill_permissions($page, \%grpperms);
+
+} elsif ($webvar{page} eq 'bulkdomain') {
+  # Bulk operations on domains.  Note all but group move are available on the domain list.
+
+  changepage(page => "domlist", errmsg => "You are not permitted to make bulk domain changes")
+        unless ($permissions{admin} || ($permissions{domain_edit} && $permissions{domain_create} && $permissions{domain_delete}));
+
+##fixme
+##fixme  push the SQL and direct database fiddling off into a sub in DNSDB.pm
+##fixme
+
+##fixme: un-hardcode the limit?
+  $perpage = 50;
+
+  my $sth = $dbh->prepare("SELECT count(*) FROM domains WHERE group_id=?");
+  $sth->execute($curgroup);
+  my ($count) = ($sth->fetchrow_array);
+
+  $page->param(curpage => $webvar{page});
+  fill_pgcount($count,'domains',groupName($dbh,$curgroup));
+  fill_fpnla($count);
+
+  my @domlist;
+  my $sql = "SELECT domain_id,domain FROM domains".
+        " WHERE group_id=?".
+        " ORDER BY domain".
+        ($offset eq 'all' ? '' : " LIMIT $perpage OFFSET ".$offset*$perpage);
+  $sth = $dbh->prepare($sql);
+  $sth->execute($curgroup);
+  my $rownum = 0;
+  while (my @data = $sth->fetchrow_array) {
+    my %row;
+    $row{domid} = $data[0];
+    $row{domain} = $data[1];
+    $rownum++;  # putting this in the expression below causes failures.  *eyeroll*
+    $row{newrow} = $rownum % 5 == 0;
+    push @domlist, \%row;
+  }
+  $page->param(domtable => \@domlist);
+# ACLs
+  $page->param(maymove => ($permissions{admin} || ($permissions{domain_edit} && $permissions{domain_create} && $permissions{domain_delete})));
+  $page->param(maystatus => $permissions{admin} || $permissions{domain_edit});
+  $page->param(maydelete => $permissions{admin} || $permissions{domain_delete});
+
+##fixme:  need to clean up status indicator/usage/inversion
 
 } elsif ($webvar{page} eq 'useradmin') {

trunk/templates/menu.tmpl

@@ -8 +8 @@
 <a href="dns.cgi?sid=<TMPL_VAR NAME=sid>&amp;page=reclist&amp;id=<TMPL_VAR NAME=group>&amp;defrec=y">Default Records</a><br />
 <a href="dns.cgi?sid=<TMPL_VAR NAME=sid>&amp;page=axfr">AXFR Import</a><br />
+<a href="dns.cgi?sid=<TMPL_VAR NAME=sid>&amp;page=bulkdomain">Bulk Domain Operations</a><br />
 <hr />
 Current group: