Changeset 112 for trunk/dns.cgi

Timestamp:

08/02/11 18:54:07 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Mostly complete functionality of bulk group move

File:

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

trunk/dns.cgi

@@ -37 +37 @@
 
 my @debugbits;  # temp, to be spit out near the end of processing
-my $debugenv = 0;
+my $debugenv = 1;
 
 # Let's do these templates right...
@@ -108 +108 @@
 my $sortorder = "ASC";
 
-my ($dbh,$msg) = connectDB("dnsdb","dnsdb","secret","newdbhost");
+#my ($dbh,$msg) = connectDB("dnsdb","dnsdb","secret","newdbhost");
+# dbname, user, pass, host (optional)
+my ($dbh,$msg) = connectDB("dnsdb", "dnsdb", "secret", "dnsdbhost");
 #my $dbh = DBI->connect("DBI:mysql:database=vegadns","vegadns","secret",
 #       { AutoCommit => 0 }) or die $DBI::errstr;
@@ -587 +589 @@
     if ($code ne 'OK') {
 # need to find failure mode
+      logaction(0, $session->param("username"), $webvar{curgroup}, "Failure deleting group $deleteme: $msg");
       changepage(page => "grpman", del_failed => 1, errmsg => $msg);
-##fixme: log
     } else {
 ##fixme: need to clean up log when deleting a major container
@@ -642 +644 @@
 
 ##fixme: un-hardcode the limit?
-  $perpage = 50;
+#  $perpage = 50;
 
   my $sth = $dbh->prepare("SELECT count(*) FROM domains WHERE group_id=?");
@@ -651 +653 @@
   fill_pgcount($count,'domains',groupName($dbh,$curgroup));
   fill_fpnla($count);
+  $page->param(offset => $offset);      # since apparently this isn't set explicitly elsewhere.  Who knew?
+  $page->param(perpage => $perpage);
 
   my @domlist;
@@ -669 +673 @@
   }
   $page->param(domtable => \@domlist);
-# ACLs
+  # 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 'bulkchange') {
+
+  if ($webvar{action} eq 'move') {
+    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")
+        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});
+  } elsif ($webvar{action} eq 'delete') {
+    changepage(page => "domlist", errmsg => "You are not permitted to bulk-delete domains")
+        unless ($permissions{admin} || $permissions{domain_delete});
+  }
+  # 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.
 
 } elsif ($webvar{page} eq 'useradmin') {