4 $RT::Logger->debug('Removing all delegated rights');
6 my $acl = RT::ACL->new(RT->SystemUser);
7 $acl->Limit( CLAUSE => 'search',
8 FIELD => 'DelegatedBy',
12 $acl->Limit( CLAUSE => 'search',
13 FIELD => 'DelegatedFrom',
16 ENTRYAGGREGATOR => 'OR',
19 while ( my $ace = $acl->Next ) {
20 my ( $ok, $msg ) = $ace->Delete();
24 "Unable to delete ACE " . $ace->id . ": " . $msg );
28 my $groups = RT::Groups->new(RT->SystemUser);
29 $groups->Limit( FIELD => 'Domain',
33 while ( my $group = $groups->Next ) {
34 my $members = $group->MembersObj();
35 while ( my $member = $members->Next ) {
36 my ( $ok, $msg ) = $group->DeleteMember( $member->MemberId );
38 $RT::Logger->warn( "Unable to remove group member "
43 $group->PrincipalObj->Delete;
44 $group->RT::Record::Delete();