6 RT->Logger->debug('Removing all delegated rights');
8 my $acl = RT::ACL->new(RT->SystemUser);
9 $acl->Limit( CLAUSE => 'search',
10 FIELD => 'DelegatedBy',
14 $acl->Limit( CLAUSE => 'search',
15 FIELD => 'DelegatedFrom',
18 ENTRYAGGREGATOR => 'OR',
21 while ( my $ace = $acl->Next ) {
22 my ( $ok, $msg ) = $ace->Delete();
26 "Unable to delete ACE " . $ace->id . ": " . $msg );
30 my $groups = RT::Groups->new(RT->SystemUser);
31 $groups->Limit( FIELD => 'Domain',
36 while ( my $group = $groups->Next ) {
37 my $members = $group->MembersObj();
38 while ( my $member = $members->Next ) {
39 my ( $ok, $msg ) = $group->DeleteMember( $member->MemberId );
41 RT->Logger->warn( "Unable to remove group member "
46 $group->PrincipalObj->Delete;
47 $group->RT::Record::Delete();