From 8eb2d6ffa3b01ff437f1726fb17b0a326ede653d Mon Sep 17 00:00:00 2001 From: "cyeh%bluemartini.com" <> Date: Sat, 24 Jun 2000 01:03:46 +0000 Subject: checkin to fix Bug 25010 "Need a way to edit the list of available groups". Patches and work contributed by dave@intrec.com (Dave Miller). Some cleanup work needs to be done with regards to permissions and bit-twiddling see other bugs that are dependent on 25010 for details. --- editgroups.cgi | 157 ++++++++++++++++++++++++++++++++++++++++++++++++--------- 1 file changed, 134 insertions(+), 23 deletions(-) (limited to 'editgroups.cgi') diff --git a/editgroups.cgi b/editgroups.cgi index 1f329d8ac..4d1b74bd7 100755 --- a/editgroups.cgi +++ b/editgroups.cgi @@ -279,12 +279,12 @@ if ($action eq 'new') { # First the next available bit my $bit = ""; foreach (@bitvals) { - if ($bit == "") { + if ($bit eq "") { SendSQL("SELECT bit FROM groups WHERE bit=" . SqlQuote($_)); if (!FetchOneColumn()) { $bit = $_; } } } - if ($bit == "") { + if ($bit eq "") { ShowError("Sorry, you already have the maximum number of groups " . "defined.

You must delete a group first before you " . "can add any more."); @@ -349,11 +349,57 @@ if ($action eq 'del') { print "\n"; print "\n"; - print "

Confirmation

\n"; - print "

Do you really want to delete this group?

\n"; - print "

\n"; - print "\n"; + my $cantdelete = 0; + SendSQL("SELECT login_name FROM profiles WHERE " . + "(groupset & $bit) OR (blessgroupset & $bit)"); + if (!FetchOneColumn()) {} else { + $cantdelete = 1; + print " +One or more users belong to this group. You cannot delete this group while +there are users in it.
+Show me which users. - Remove all users from +this group for me

+"; + } + SendSQL("SELECT bug_id FROM bugs WHERE (groupset & $bit)"); + if (MoreSQLData()) { + $cantdelete = 1; + my $buglist = "0"; + while (MoreSQLData()) { + my ($bug) = FetchSQLData(); + $buglist .= "," . $bug; + } + print " +One or more bug reports are visible only to this group. +You cannot delete this group while any bugs are using it.
+Show me which bugs. - +Remove all bugs from this group +restriction for me
+NOTE: It's quite possible to make confidential bugs public by checking +this box. It is strongly suggested that you review the bugs in this +group before checking the box.

+"; + } + SendSQL("SELECT product FROM products WHERE product=" . SqlQuote($name)); + if (MoreSQLData()) { + $cantdelete = 1; + print " +This group is tied to the $name product. +You cannot delete this group while it is tied to a product.
+Delete this group anyway, and make the +$name product publicly visible.
+"; + } + + print "

Confirmation

\n"; + print "

Do you really want to delete this group?\n"; + if ($cantdelete) { + print "
You must check all of the above boxes or correct the " . + "indicated problems first before you can proceed."; + } + print "

\n"; print "\n"; print "\n"; print "

"; @@ -367,23 +413,88 @@ if ($action eq 'del') { # if ($action eq 'delete') { - PutHeader("Deleting user"); - ShowError("This function has not been implemented yet! (Sorry)
" . - "Try again later"); - - print " -Deleting a group is not as easy as it sounds:

-

    -
  1. All users have to be checked to ensure anyone who is a member of this group is first removed from membership. -
  2. All bugs have to be checked to ensure no bugs are set to use this group. -
-If the above is not done, conflicts may occur if a new group is created that uses a bit number that has already been used in the past.

-Deleting a group will be implemented very shortly, stay tuned! -I just figured most people would be more interested in adding and editing -groups for the time being, so I would get that done first, so I could get this out here for people to use. :)

-Watch Bug 25010 on Mozilla's bugzilla for details. -

-"; + PutHeader("Deleting group"); + my $bit = trim($::FORM{group} || ''); + unless ($bit) { + ShowError("No group specified.
" . + "Click the Back button and try again."); + PutFooter(); + exit; + } + SendSQL("SELECT name " . + "FROM groups " . + "WHERE bit = " . SqlQuote($bit)); + my ($name) = FetchSQLData(); + + my $cantdelete = 0; + my $opblessgroupset = '9223372036854775807'; # This is all 64 bits. + + SendSQL("SELECT userid FROM profiles " . + "WHERE (groupset & $opblessgroupset)=$opblessgroupset"); + my @opusers = (); + while (MoreSQLData()) { + my ($userid) = FetchSQLData(); + push @opusers, $userid; # cache a list of the users with admin powers + } + SendSQL("SELECT login_name FROM profiles WHERE " . + "(groupset & $bit)=$bit OR (blessgroupset & $bit)=$bit"); + if (FetchOneColumn()) { + if (!defined $::FORM{'removeusers'}) { + $cantdelete = 1; + } + } + SendSQL("SELECT bug_id FROM bugs WHERE (groupset & $bit)=$bit"); + if (FetchOneColumn()) { + if (!defined $::FORM{'removebugs'}) { + $cantdelete = 1; + } + } + SendSQL("SELECT product FROM products WHERE product=" . SqlQuote($name)); + if (FetchOneColumn()) { + if (!defined $::FORM{'unbind'}) { + $cantdelete = 1; + } + } + + if ($cantdelete == 1) { + ShowError("This group cannot be deleted because there are child " . + "records in the database which refer to it. All child records " . + "must be removed or altered to remove the reference to this " . + "group before the group can be deleted."); + print "" . + "View the list of which records are affected
"; + PutTrailer("Back to group list"); + exit; + } + + SendSQL("SELECT login_name,groupset,blessgroupset FROM profiles WHERE " . + "(groupset & $bit) OR (blessgroupset & $bit)"); + if (FetchOneColumn()) { + SendSQL("UPDATE profiles SET groupset=(groupset-$bit) " . + "WHERE (groupset & $bit)"); + print "All users have been removed from group $bit.
"; + SendSQL("UPDATE profiles SET blessgroupset=(blessgroupset-$bit) " . + "WHERE (blessgroupset & $bit)"); + print "All users with authority to add users to group $bit have " . + "had that authority removed.
"; + } + SendSQL("SELECT bug_id FROM bugs WHERE (groupset & $bit)"); + if (FetchOneColumn()) { + SendSQL("UPDATE bugs SET groupset=(groupset-$bit) " . + "WHERE (groupset & $bit)"); + print "All bugs have had group bit $bit cleared. Any of these " . + "bugs that were not also in another group are now " . + "publicly visible.
"; + } + SendSQL("DELETE FROM groups WHERE bit=$bit"); + print "Group $bit has been deleted.
"; + + foreach my $userid (@opusers) { + SendSQL("UPDATE profiles SET groupset=$opblessgroupset " . + "WHERE userid=$userid"); + print "Group bits restored for " . DBID_to_name($userid) . + " (maintainer)
\n"; + } PutTrailer("Back to group list"); exit; -- cgit v1.2.3-24-g4f1b