diff options
Diffstat (limited to 'rt/lib/RT/Condition')
-rw-r--r-- | rt/lib/RT/Condition/AnyTransaction.pm | 51 | ||||
-rw-r--r-- | rt/lib/RT/Condition/BeforeDue.pm | 64 | ||||
-rwxr-xr-x | rt/lib/RT/Condition/Generic.pm | 211 | ||||
-rw-r--r-- | rt/lib/RT/Condition/Overdue.pm | 68 | ||||
-rw-r--r-- | rt/lib/RT/Condition/OwnerChange.pm | 102 | ||||
-rw-r--r-- | rt/lib/RT/Condition/PriorityExceeds.pm | 57 | ||||
-rw-r--r-- | rt/lib/RT/Condition/QueueChange.pm | 57 | ||||
-rw-r--r-- | rt/lib/RT/Condition/StatusChange.pm | 59 | ||||
-rw-r--r-- | rt/lib/RT/Condition/UserDefined.pm | 57 |
9 files changed, 0 insertions, 726 deletions
diff --git a/rt/lib/RT/Condition/AnyTransaction.pm b/rt/lib/RT/Condition/AnyTransaction.pm deleted file mode 100644 index 4519fcf5a..000000000 --- a/rt/lib/RT/Condition/AnyTransaction.pm +++ /dev/null @@ -1,51 +0,0 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# 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. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK - - -package RT::Condition::AnyTransaction; -require RT::Condition::Generic; - -use strict; -use vars qw/@ISA/; -@ISA = qw(RT::Condition::Generic); - - -=head2 IsApplicable - -This happens on every transaction. it's always applicable - -=cut - -sub IsApplicable { - my $self = shift; - return(1); -} - -eval "require RT::Condition::AnyTransaction_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/AnyTransaction_Vendor.pm}); -eval "require RT::Condition::AnyTransaction_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/AnyTransaction_Local.pm}); - -1; - diff --git a/rt/lib/RT/Condition/BeforeDue.pm b/rt/lib/RT/Condition/BeforeDue.pm deleted file mode 100644 index 7911fd80a..000000000 --- a/rt/lib/RT/Condition/BeforeDue.pm +++ /dev/null @@ -1,64 +0,0 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# 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. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK -package RT::Condition::BeforeDue; -require RT::Condition::Generic; - -use RT::Date; - -use strict; -use vars qw/@ISA/; -@ISA = qw(RT::Condition::Generic); - - -sub IsApplicable { - my $self = shift; - - # Parse date string. Format is "1d2h3m4s" for 1 day and 2 hours - # and 3 minutes and 4 seconds. - my %e; - foreach (qw(d h m s)) { - my @vals = $self->Argument =~ m/(\d+)$_/; - $e{$_} = pop @vals || 0; - } - my $elapse = $e{'d'} * 24*60*60 + $e{'h'} * 60*60 + $e{'m'} * 60 + $e{'s'}; - - my $cur = new RT::Date( $RT::SystemUser ); - $cur->SetToNow(); - my $due = $self->TicketObj->DueObj; - return (undef) if $due->Unix <= 0; - - my $diff = $due->Diff($cur); - if ( $diff >= 0 and $diff <= $elapse ) { - return(1); - } else { - return(undef); - } -} - -eval "require RT::Condition::BeforeDue_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/BeforeDue_Vendor.pm}); -eval "require RT::Condition::BeforeDue_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/BeforeDue_Local.pm}); - -1; diff --git a/rt/lib/RT/Condition/Generic.pm b/rt/lib/RT/Condition/Generic.pm deleted file mode 100755 index bd269315e..000000000 --- a/rt/lib/RT/Condition/Generic.pm +++ /dev/null @@ -1,211 +0,0 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# 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. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK -=head1 NAME - - RT::Condition::Generic - ; - -=head1 SYNOPSIS - - use RT::Condition::Generic; - my $foo = new RT::Condition::IsApplicable( - TransactionObj => $tr, - TicketObj => $ti, - ScripObj => $scr, - Argument => $arg, - Type => $type); - - if ($foo->IsApplicable) { - # do something - } - - -=head1 DESCRIPTION - - -=head1 METHODS - - -=begin testing - -ok (require RT::Condition::Generic); - -=end testing - - -=cut - -package RT::Condition::Generic; - -use RT::Base; -use strict; -use vars qw/@ISA/; -@ISA = qw(RT::Base); - -# {{{ sub new -sub new { - my $proto = shift; - my $class = ref($proto) || $proto; - my $self = {}; - bless ($self, $class); - $self->_Init(@_); - return $self; -} -# }}} - -# {{{ sub _Init -sub _Init { - my $self = shift; - my %args = ( TransactionObj => undef, - TicketObj => undef, - ScripObj => undef, - TemplateObj => undef, - Argument => undef, - ApplicableTransTypes => undef, - @_ ); - - $self->{'Argument'} = $args{'Argument'}; - $self->{'ScripObj'} = $args{'ScripObj'}; - $self->{'TicketObj'} = $args{'TicketObj'}; - $self->{'TransactionObj'} = $args{'TransactionObj'}; - $self->{'ApplicableTransTypes'} = $args{'ApplicableTransTypes'}; -} -# }}} - -# Access Scripwide data - -# {{{ sub Argument - -=head2 Argument - -Return the optional argument associated with this ScripCondition - -=cut - -sub Argument { - my $self = shift; - return($self->{'Argument'}); -} -# }}} - -# {{{ sub TicketObj - -=head2 TicketObj - -Return the ticket object we're talking about - -=cut - -sub TicketObj { - my $self = shift; - return($self->{'TicketObj'}); -} -# }}} - -# {{{ sub ScripObj - -=head2 ScripObj - -Return the Scrip object we're talking about - -=cut - -sub ScripObj { - my $self = shift; - return($self->{'ScripObj'}); -} -# }}} -# {{{ sub TransactionObj - -=head2 TransactionObj - -Return the transaction object we're talking about - -=cut - -sub TransactionObj { - my $self = shift; - return($self->{'TransactionObj'}); -} -# }}} - -# {{{ sub Type - -=head2 Type - - - -=cut - -sub ApplicableTransTypes { - my $self = shift; - return($self->{'ApplicableTransTypes'}); -} -# }}} - - -# Scrip methods - - -#What does this type of Action does - -# {{{ sub Describe -sub Describe { - my $self = shift; - return ($self->loc("No description for [_1]", ref $self)); -} -# }}} - - -#Parse the templates, get things ready to go. - -#If this rule applies to this transaction, return true. - -# {{{ sub IsApplicable -sub IsApplicable { - my $self = shift; - return(undef); -} -# }}} - -# {{{ sub DESTROY -sub DESTROY { - my $self = shift; - - # We need to clean up all the references that might maybe get - # oddly circular - $self->{'TemplateObj'} =undef - $self->{'TicketObj'} = undef; - $self->{'TransactionObj'} = undef; - $self->{'ScripObj'} = undef; - -} - -# }}} - -eval "require RT::Condition::Generic_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/Generic_Vendor.pm}); -eval "require RT::Condition::Generic_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/Generic_Local.pm}); - -1; diff --git a/rt/lib/RT/Condition/Overdue.pm b/rt/lib/RT/Condition/Overdue.pm deleted file mode 100644 index 3a4efe77f..000000000 --- a/rt/lib/RT/Condition/Overdue.pm +++ /dev/null @@ -1,68 +0,0 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# 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. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK - - - -=head1 NAME - -RT::Condition::Overdue - -=head1 DESCRIPTION - -Returns true if the ticket we're operating on is overdue - -=cut - -package RT::Condition::Overdue; -require RT::Condition::Generic; - -use strict; -use vars qw/@ISA/; -@ISA = qw(RT::Condition::Generic); - - -=head2 IsApplicable - -If the due date is before "now" return true - -=cut - -sub IsApplicable { - my $self = shift; - if ($self->TicketObj->DueObj->Unix > 0 and - $self->TicketObj->DueObj->Unix < time()) { - return(1); - } - else { - return(undef); - } -} - -eval "require RT::Condition::Overdue_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/Overdue_Vendor.pm}); -eval "require RT::Condition::Overdue_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/Overdue_Local.pm}); - -1; - diff --git a/rt/lib/RT/Condition/OwnerChange.pm b/rt/lib/RT/Condition/OwnerChange.pm deleted file mode 100644 index e17f589e4..000000000 --- a/rt/lib/RT/Condition/OwnerChange.pm +++ /dev/null @@ -1,102 +0,0 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# 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. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK - - - -package RT::Condition::OwnerChange; -require RT::Condition::Generic; - -use strict; -use vars qw/@ISA/; -@ISA = qw(RT::Condition::Generic); - - -=head2 IsApplicable - -If we're changing the owner return true, otherwise return false - -=begin testing - -my $q = RT::Queue->new($RT::SystemUser); -$q->Create(Name =>'ownerChangeTest'); - -ok($q->Id, "Created a scriptest queue"); - -my $s1 = RT::Scrip->new($RT::SystemUser); -my ($val, $msg) =$s1->Create( Queue => $q->Id, - ScripAction => 'User Defined', - ScripCondition => 'On Owner Change', - CustomIsApplicableCode => '', - CustomPrepareCode => 'return 1', - CustomCommitCode => ' - $RT::Logger->crit("Before, prio is ".$self->TicketObj->Priority); - $self->TicketObj->SetPriority($self->TicketObj->Priority+1); - $RT::Logger->crit("After, prio is ".$self->TicketObj->Priority); - return(1); - ', - Template => 'Blank' - ); -ok($val,$msg); - -my $ticket = RT::Ticket->new($RT::SystemUser); -my ($tv,$ttv,$tm) = $ticket->Create(Queue => $q->Id, - Subject => "hair on fire", - InitialPriority => '20' - ); -ok($tv, $tm); -ok($ticket->SetOwner('root')); -is ($ticket->Priority , '21', "Ticket priority is set right"); -ok($ticket->Steal); -is ($ticket->Priority , '22', "Ticket priority is set right"); -ok($ticket->Untake); -is ($ticket->Priority , '23', "Ticket priority is set right"); -ok($ticket->Take); -is ($ticket->Priority , '24', "Ticket priority is set right"); - - - - - -=end testing - - -=cut - -sub IsApplicable { - my $self = shift; - if ($self->TransactionObj->Field eq 'Owner') { - return(1); - } - else { - return(undef); - } -} - -eval "require RT::Condition::OwnerChange_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/OwnerChange_Vendor.pm}); -eval "require RT::Condition::OwnerChange_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/OwnerChange_Local.pm}); - -1; - diff --git a/rt/lib/RT/Condition/PriorityExceeds.pm b/rt/lib/RT/Condition/PriorityExceeds.pm deleted file mode 100644 index 7737ca5a9..000000000 --- a/rt/lib/RT/Condition/PriorityExceeds.pm +++ /dev/null @@ -1,57 +0,0 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# 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. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK - - - -package RT::Condition::PriorityExceeds; -require RT::Condition::Generic; - -use strict; -use vars qw/@ISA/; -@ISA = qw(RT::Condition::Generic); - - -=head2 IsApplicable - -If the priority exceeds the argument value - -=cut - -sub IsApplicable { - my $self = shift; - if ($self->TicketObj->Priority > $self->Argument) { - return(1); - } - else { - return(undef); - } -} - -eval "require RT::Condition::PriorityExceeds_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/PriorityExceeds_Vendor.pm}); -eval "require RT::Condition::PriorityExceeds_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/PriorityExceeds_Local.pm}); - -1; - diff --git a/rt/lib/RT/Condition/QueueChange.pm b/rt/lib/RT/Condition/QueueChange.pm deleted file mode 100644 index f3e646a00..000000000 --- a/rt/lib/RT/Condition/QueueChange.pm +++ /dev/null @@ -1,57 +0,0 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# 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. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK - - - -package RT::Condition::QueueChange; -require RT::Condition::Generic; - -use strict; -use vars qw/@ISA/; -@ISA = qw(RT::Condition::Generic); - - -=head2 IsApplicable - -If the queue has changed. - -=cut - -sub IsApplicable { - my $self = shift; - if ($self->TransactionObj->Field eq 'Queue') { - return(1); - } - else { - return(undef); - } -} - -eval "require RT::Condition::QueueChange_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/QueueChange_Vendor.pm}); -eval "require RT::Condition::QueueChange_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/QueueChange_Local.pm}); - -1; - diff --git a/rt/lib/RT/Condition/StatusChange.pm b/rt/lib/RT/Condition/StatusChange.pm deleted file mode 100644 index 8afabcda0..000000000 --- a/rt/lib/RT/Condition/StatusChange.pm +++ /dev/null @@ -1,59 +0,0 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# 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. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK - - - -package RT::Condition::StatusChange; -require RT::Condition::Generic; - -use strict; -use vars qw/@ISA/; -@ISA = qw(RT::Condition::Generic); - - -=head2 IsApplicable - -If the argument passed in is equivalent to the new value of -the Status Obj - -=cut - -sub IsApplicable { - my $self = shift; - if (($self->TransactionObj->Field eq 'Status') and - ($self->Argument eq $self->TransactionObj->NewValue())) { - return(1); - } - else { - return(undef); - } -} - -eval "require RT::Condition::StatusChange_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/StatusChange_Vendor.pm}); -eval "require RT::Condition::StatusChange_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/StatusChange_Local.pm}); - -1; - diff --git a/rt/lib/RT/Condition/UserDefined.pm b/rt/lib/RT/Condition/UserDefined.pm deleted file mode 100644 index eb829f0d1..000000000 --- a/rt/lib/RT/Condition/UserDefined.pm +++ /dev/null @@ -1,57 +0,0 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# 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. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK - - -package RT::Condition::UserDefined; - -use RT::Condition::Generic; - -use strict; -use vars qw/@ISA/; -@ISA = qw(RT::Condition::Generic); - - -=head2 IsApplicable - -This happens on every transaction. it's always applicable - -=cut - -sub IsApplicable { - my $self = shift; - my $retval = eval $self->ScripObj->CustomIsApplicableCode; - if ($@) { - $RT::Logger->error("Scrip ".$self->ScripObj->Id. " IsApplicable failed: ".$@); - return (undef); - } - return ($retval); -} - -eval "require RT::Condition::UserDefined_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/UserDefined_Vendor.pm}); -eval "require RT::Condition::UserDefined_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Condition/UserDefined_Local.pm}); - -1; - |