Changeset 112 for trunk/DNSDB.pm

Timestamp:

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

Author:

Kris Deugau

Message:

/trunk

Mostly complete functionality of bulk group move

File:

• trunk/DNSDB.pm (modified) (3 diffs)

trunk/DNSDB.pm

@@ -27 +27 @@
         &initGlobals
         &initPermissions &getPermissions &changePermissions &comparePermissions
+        &changeGroup
         &connectDB &finish
         &addDomain &delDomain &domainName &domainID
@@ -43 +44 @@
                 &initGlobals
                 &initPermissions &getPermissions &changePermissions &comparePermissions
+                &changeGroup
                 &connectDB &finish
                 &addDomain &delDomain &domainName &domainID
@@ -348 +350 @@
   return $retval;
 } # end comparePermissions()
+
+
+## DNSDB::changeGroup()
+# Change group ID of an entity
+# Takes a database handle, entity type, entity ID, and new group ID
+sub changeGroup {
+  my $dbh = shift;
+  my $type = shift;
+  my $id = shift;
+  my $newgrp = shift;
+
+##fixme:  fail on not enough args
+  #return ('FAIL', "Missing 
+
+  if ($type eq 'domain') {
+    $dbh->do("UPDATE domains SET group_id=? WHERE domain_id=?", undef, ($newgrp, $id))
+        or return ('FAIL','Group change failed: '.$dbh->errstr);
+  } elsif ($type eq 'user') {
+    $dbh->do("UPDATE users SET group_id=? WHERE user_id=?", undef, ($newgrp, $id))
+        or return ('FAIL','Group change failed: '.$dbh->errstr);
+  } elsif ($type eq 'group') {
+    $dbh->do("UPDATE groups SET parent_group_id=? WHERE group_id=?", undef, ($newgrp, $id))
+        or return ('FAIL','Group change failed: '.$dbh->errstr);
+  }
+  return ('OK','OK');
+} # end changeGroup()