AutoChangeQueue: Difference between revisions

From Request Tracker Wiki
Jump to navigation Jump to search
m (2 revisions imported)
 
No edit summary
 
(2 intermediate revisions by the same user not shown)
Line 9: Line 9:
  Custom action preparation code: return 1;
  Custom action preparation code: return 1;
  Custom action cleanup code:
  Custom action cleanup code:
  my $group = 'admin';
 
  my $newqueue = 'admin';
<syntaxhighlight lang="perl" line="1" >
   
 
  # si pas dans une action Take alors on sort
my $group = 'admin';
  return 1
my $newqueue = 'admin';
    unless $self-&gt;TransactionObj-&gt;Type eq 'Take';
 
  # si pas dans une action Take alors on sort
  my $PrincipalObj = RT::Principal-&gt;new( $self-&gt;TransactionObj-&gt;CreatorObj );
return 1
  $PrincipalObj-&gt;Load( $self-&gt;TransactionObj-&gt;CreatorObj-&gt;Id );
unless $self->TransactionObj->Type eq 'Take';
 
  my $groupobj = RT::Group-&gt;new($self-&gt;TransactionObj-&gt;CreatorObj );
my $PrincipalObj = RT::Principal->new( $self->TransactionObj->CreatorObj );
  $groupobj-&gt;LoadUserDefinedGroup($group);
$PrincipalObj->Load( $self->TransactionObj->CreatorObj->Id );
  my $HasMember = $groupobj-&gt;HasMemberRecursively( $PrincipalObj );
 
  if ($HasMember) {
my $groupobj = RT::Group->new($self->TransactionObj->CreatorObj );
      $RT::Logger-&gt;info("Ticket took by an admin : new ticket in admin queue");
$groupobj->LoadUserDefinedGroup($group);
      my ($status, $msg) = $self-&gt;TicketObj-&gt;SetQueue($newqueue);
my $HasMember = $groupobj->HasMemberRecursively( $PrincipalObj );
      unless ($status) {
if ($HasMember) {
          $RT::Logger-&gt;warning("unable to set new queue");
  $RT::Logger->info("Ticket took by an admin : new ticket in admin queue");
          return undef;
  my ($status, $msg) = $self->TicketObj->SetQueue($newqueue);
      }
  unless ($status) {
      $RT::Logger->warning("unable to set new queue");
      return undef;
   }
   }
}
  return 1;
 
return 1;
 
</syntaxhighlight>
 
  Template: Global template: Blank
  Template: Global template: Blank

Latest revision as of 07:20, 1 August 2016

Overview

I've got two queues and two groups, one for admin and one for production. If an admin group member takes a ticket in the production queue, I want the ticket to go automatically into the admin queue. Just create this scrip in the production queue:

Description: AutoChangeQueue
Condition: On Owner Change
Custom condition:
Action: User Defined
Custom action preparation code: return 1;
Custom action cleanup code:
my $group = 'admin';
my $newqueue = 'admin';

 # si pas dans une action Take alors on sort
return 1
 unless $self->TransactionObj->Type eq 'Take';

my $PrincipalObj = RT::Principal->new( $self->TransactionObj->CreatorObj );
$PrincipalObj->Load( $self->TransactionObj->CreatorObj->Id );

my $groupobj = RT::Group->new($self->TransactionObj->CreatorObj );
$groupobj->LoadUserDefinedGroup($group);
my $HasMember = $groupobj->HasMemberRecursively( $PrincipalObj );
if ($HasMember) {
  $RT::Logger->info("Ticket took by an admin : new ticket in admin queue");
   my ($status, $msg) = $self->TicketObj->SetQueue($newqueue);
   unless ($status) {
      $RT::Logger->warning("unable to set new queue");
      return undef;
   }
}

return 1;
Template: Global template: Blank