diff options
Diffstat (limited to 'rt/lib/RT/Shredder/GroupMember.pm')
-rw-r--r-- | rt/lib/RT/Shredder/GroupMember.pm | 183 |
1 files changed, 183 insertions, 0 deletions
diff --git a/rt/lib/RT/Shredder/GroupMember.pm b/rt/lib/RT/Shredder/GroupMember.pm new file mode 100644 index 0000000..d8b002e --- /dev/null +++ b/rt/lib/RT/Shredder/GroupMember.pm @@ -0,0 +1,183 @@ +# BEGIN BPS TAGGED BLOCK {{{ +# +# COPYRIGHT: +# +# This software is Copyright (c) 1996-2009 Best Practical Solutions, LLC +# <jesse@bestpractical.com> +# +# (Except where explicitly superseded by other copyright notices) +# +# +# LICENSE: +# +# This work is made available to you under the terms of Version 2 of +# the GNU General Public License. A copy of that license should have +# been provided with this software, but in any event can be snarfed +# from www.gnu.org. +# +# This work is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +# 02110-1301 or visit their web page on the internet at +# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. +# +# +# CONTRIBUTION SUBMISSION POLICY: +# +# (The following paragraph is not intended to limit the rights granted +# to you to modify and distribute this software under the terms of +# the GNU General Public License and is only of importance to you if +# you choose to contribute your changes and enhancements to the +# community by submitting them to Best Practical Solutions, LLC.) +# +# By intentionally submitting any modifications, corrections or +# derivatives to this work, or any other work intended for use with +# Request Tracker, to Best Practical Solutions, LLC, you confirm that +# you are the copyright holder for those contributions and you grant +# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, +# royalty-free, perpetual, license to use, copy, create derivative +# works based on those contributions, and sublicense and distribute +# those contributions and any derivatives thereof. +# +# END BPS TAGGED BLOCK }}} + +use RT::GroupMember (); +package RT::GroupMember; + +use strict; +use warnings; +use warnings FATAL => 'redefine'; + +use RT::Shredder::Constants; +use RT::Shredder::Exceptions; +use RT::Shredder::Dependencies; + +# No dependencies that should be deleted with record + +sub __DependsOn +{ + my $self = shift; + my %args = ( + Shredder => undef, + Dependencies => undef, + @_, + ); + my $deps = $args{'Dependencies'}; + my $list = []; + + my $objs = RT::CachedGroupMembers->new( $self->CurrentUser ); + $objs->Limit( FIELD => 'MemberId', VALUE => $self->MemberId ); + $objs->Limit( FIELD => 'ImmediateParentId', VALUE => $self->GroupId ); + push( @$list, $objs ); + + # XXX: right delegations should be cleaned here + + $deps->_PushDependencies( + BaseObject => $self, + Flags => DEPENDS_ON, + TargetObjects => $list, + Shredder => $args{'Shredder'} + ); + + my $group = $self->GroupObj->Object; + # XXX: If we delete member of the ticket owner role group then we should also + # fix ticket object, but only if we don't plan to delete group itself! + unless( ($group->Type || '') eq 'Owner' && + ($group->Domain || '') eq 'RT::Ticket-Role' ) { + return $self->SUPER::__DependsOn( %args ); + } + + # we don't delete group, so we have to fix Ticket and Group + $deps->_PushDependencies( + BaseObject => $self, + Flags => DEPENDS_ON | VARIABLE, + TargetObjects => $group, + Shredder => $args{'Shredder'} + ); + $args{'Shredder'}->PutResolver( + BaseClass => ref $self, + TargetClass => ref $group, + Code => sub { + my %args = (@_); + my $group = $args{'TargetObject'}; + return if $args{'Shredder'}->GetState( Object => $group ) & (WIPED|IN_WIPING); + return unless ($group->Type || '') eq 'Owner'; + return unless ($group->Domain || '') eq 'RT::Ticket-Role'; + + return if $group->MembersObj->Count > 1; + + my $group_member = $args{'BaseObject'}; + + if( $group_member->MemberObj->id == $RT::Nobody->id ) { + RT::Shredder::Exception->throw( "Couldn't delete Nobody from owners role group" ); + } + + my( $status, $msg ) = $group->AddMember( $RT::Nobody->id ); + RT::Shredder::Exception->throw( $msg ) unless $status; + + my $ticket = RT::Ticket->new( $group->CurrentUser ); + $ticket->Load( $group->Instance ); + RT::Shredder::Exception->throw( "Couldn't load ticket" ) unless $ticket->id; + + ( $status, $msg ) = $ticket->_Set( Field => 'Owner', + Value => $RT::Nobody->id, + ); + RT::Shredder::Exception->throw( $msg ) unless $status; + + return; + }, + ); + + return $self->SUPER::__DependsOn( %args ); +} + + +#TODO: If we plan write export tool we also should fetch parent groups +# now we only wipeout things. + +sub __Relates +{ + my $self = shift; + my %args = ( + Shredder => undef, + Dependencies => undef, + @_, + ); + my $deps = $args{'Dependencies'}; + my $list = []; + + my $obj = $self->MemberObj; + if( $obj && $obj->id ) { + push( @$list, $obj ); + } else { + my $rec = $args{'Shredder'}->GetRecord( Object => $self ); + $self = $rec->{'Object'}; + $rec->{'State'} |= INVALID; + $rec->{'Description'} = "Have no related Principal #". $self->MemberId ." object."; + } + + $obj = $self->GroupObj; + if( $obj && $obj->id ) { + push( @$list, $obj ); + } else { + my $rec = $args{'Shredder'}->GetRecord( Object => $self ); + $self = $rec->{'Object'}; + $rec->{'State'} |= INVALID; + $rec->{'Description'} = "Have no related Principal #". $self->GroupId ." object."; + } + + $deps->_PushDependencies( + BaseObject => $self, + Flags => RELATES, + TargetObjects => $list, + Shredder => $args{'Shredder'} + ); + return $self->SUPER::__Relates( %args ); +} + +1; |