diff options
Diffstat (limited to 'rt/lib/RT/Shredder/Group.pm')
-rw-r--r-- | rt/lib/RT/Shredder/Group.pm | 185 |
1 files changed, 185 insertions, 0 deletions
diff --git a/rt/lib/RT/Shredder/Group.pm b/rt/lib/RT/Shredder/Group.pm new file mode 100644 index 0000000..867fe02 --- /dev/null +++ b/rt/lib/RT/Shredder/Group.pm @@ -0,0 +1,185 @@ +# 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::Group (); +package RT::Group; + +use strict; +use warnings; +use warnings FATAL => 'redefine'; + +use RT::Shredder::Constants; +use RT::Shredder::Exceptions; +use RT::Shredder::Dependencies; + + +sub __DependsOn +{ + my $self = shift; + my %args = ( + Shredder => undef, + Dependencies => undef, + @_, + ); + my $deps = $args{'Dependencies'}; + my $list = []; + +# User is inconsistent without own Equivalence group + if( $self->Domain eq 'ACLEquivalence' ) { + # delete user entry after ACL equiv group + # in other case we will get deep recursion + my $objs = RT::User->new($self->CurrentUser); + $objs->Load( $self->Instance ); + $deps->_PushDependency( + BaseObject => $self, + Flags => DEPENDS_ON | WIPE_AFTER, + TargetObject => $objs, + Shredder => $args{'Shredder'} + ); + } + +# Principal + $deps->_PushDependency( + BaseObject => $self, + Flags => DEPENDS_ON | WIPE_AFTER, + TargetObject => $self->PrincipalObj, + Shredder => $args{'Shredder'} + ); + +# Group members records + my $objs = RT::GroupMembers->new( $self->CurrentUser ); + $objs->LimitToMembersOfGroup( $self->PrincipalId ); + push( @$list, $objs ); + +# Group member records group belongs to + $objs = RT::GroupMembers->new( $self->CurrentUser ); + $objs->Limit( + VALUE => $self->PrincipalId, + FIELD => 'MemberId', + ENTRYAGGREGATOR => 'OR', + QUOTEVALUE => 0 + ); + push( @$list, $objs ); + +# Cached group members records + push( @$list, $self->DeepMembersObj ); + +# Cached group member records group belongs to + $objs = RT::GroupMembers->new( $self->CurrentUser ); + $objs->Limit( + VALUE => $self->PrincipalId, + FIELD => 'MemberId', + ENTRYAGGREGATOR => 'OR', + QUOTEVALUE => 0 + ); + push( @$list, $objs ); + + $deps->_PushDependencies( + BaseObject => $self, + Flags => DEPENDS_ON, + TargetObjects => $list, + Shredder => $args{'Shredder'} + ); + return $self->SUPER::__DependsOn( %args ); +} + +sub __Relates +{ + my $self = shift; + my %args = ( + Shredder => undef, + Dependencies => undef, + @_, + ); + my $deps = $args{'Dependencies'}; + my $list = []; + +# Equivalence group id inconsistent without User + if( $self->Domain eq 'ACLEquivalence' ) { + my $obj = RT::User->new($self->CurrentUser); + $obj->Load( $self->Instance ); + if( $obj->id ) { + push( @$list, $obj ); + } else { + my $rec = $args{'Shredder'}->GetRecord( Object => $self ); + $self = $rec->{'Object'}; + $rec->{'State'} |= INVALID; + $rec->{'Description'} = "ACLEguvivalence group have no related User #". $self->Instance ." object."; + } + } + +# Principal + my $obj = $self->PrincipalObj; + 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->id ." object."; + } + + $deps->_PushDependencies( + BaseObject => $self, + Flags => RELATES, + TargetObjects => $list, + Shredder => $args{'Shredder'} + ); + return $self->SUPER::__Relates( %args ); +} + +sub BeforeWipeout +{ + my $self = shift; + if( $self->Domain eq 'SystemInternal' ) { + RT::Shredder::Exception::Info->throw('SystemObject'); + } + return $self->SUPER::BeforeWipeout( @_ ); +} + +1; |