4 'Going to update empty Queue Lifecycle column to "default"');
6 my $queues = RT::Queues->new( RT->SystemUser );
17 ENTRYAGGREGATOR => 'OR',
23 ENTRYAGGREGATOR => 'OR',
26 while ( my $q = $queues->Next ) {
27 $q->SetLifecycle('default');
32 my $groups = RT::Groups->new(RT->SystemUser);
33 $groups->Limit( FIELD => 'Domain',
37 $groups->LimitToDeleted;
38 while ( my $group = $groups->Next ) {
39 my $members = $group->MembersObj();
40 while ( my $member = $members->Next ) {
41 my ( $ok, $msg ) = $group->DeleteMember( $member->MemberId );
43 $RT::Logger->warn( "Unable to remove group member "
48 $group->PrincipalObj->Delete;
49 $group->RT::Record::Delete();