Check for queue name on all DependedOnBy Tickets

RT Users
1

Hi There,

I have a script to check if a ticket has DependedOnBy tickets, and if it has, I want to get the queue name for that ticket and check if it’s a specific queue name. I’ve created the script below, but it’s not working properly and I don’t know what I’m doing wrong. It stops after the first loop, and only check the queue for the current ticket

PS: If I use the same script to check for a parent ticket (MemberOf), it’s working fine. If I create a child ticket from a parent ticket. But If I create a DependsOn ticket, it will not work anymore.

e.g my $DependedOnBy = $ticket->MemberOf;

my $txn = $self->TransactionObj;
my $type = $txn->Type;

return 0 unless $type eq "Status";

$RT::Logger -> info("SCRIP #77 CHECk IF DependedOnBy Q IS Q_Name");

my $ticket = $self->TicketObj;
my $DependedOnBy = $ticket-> DependedOnBy;

return 0 unless $DependedOnBy;

while( my $dependedOnBy = $DependedOnBy->Next )
{   

    my $dependedOnByQueueName = $dependedOnBy->TargetObj->QueueObj->Name;

    $RT::Logger -> info("SCRIPT #77 CHECK FOR DependedOnBy -- ${dependedOnByQueueName}");

    if($dependedOnByQueueName eq "Q_Name") {
        $RT::Logger->info("SCRIP #77 - QUEUE IS ${dependedOnByQueueName}");
        return 1;
    }

    $RT::Logger -> info("SCRIP #77 - There is no DependedOnBy ticket in Q Q_Name");

}

$RT::Logger -> info("END OF SCRIP #77 CHECk IF DependedOnBy Q IS Q_Name");
return 0;

UPDATE - SOLUTION:

Change the TargetObj my $dependedOnByQueueName = $dependedOnBy->TargetObj->QueueObj->Name;. with BaseObj my $dependedOnByQueueName = $dependedOnBy->BaseObj->QueueObj->Name;

2

Does it find a queue name matching Q_Name on the first loop and then stop?

3

No it doesn’t find that matching Q_Name ( thats the issue ) . It find the Q_Name for the “child ticket” and stops after that.

A concrete exemple:

I have the “parent ticket” that is on queue “A” and a “child” ticket that is on queue “B” . The scrip on fist iterations, check for queue name “B” and then it stops and exit the while loop

4

If :

my $dependedOnByQueueName = $dependedOnBy->TargetObj->QueueObj->Name;

returns “Q_Name” the scrip will bail. Which it sounds like “It find the Q_Name for the “child ticket” and stops after that.” thats what is happening right?

5

Yeah, that’s what is happening

6

Yeah, that’s what is happening

And then the scrip runs? It sounds like the scrip is doing what you’d expect no?

7

What I need is to get to this part of the script. To find The Q_Name for the “parent” ticket, not the “child” ticket, but right now, my script only checks for the Q_Name of the “child” ticket.

8

If you’re looking to check the DependsOn ticket then you can just check the $self->TicketObj right

9

In other words, I need a method that will return all the DependsOn tickets for one ticket. And after that, I want to check if one of that DependOn ticket, is from a specific queue

10

I could be confused but:

my $ticket = $self->TicketObj;
my $DependedOnBy = $ticket-> DependedOnBy;

Here you get all the tickets that depend on the ticket that is kicking off the scrip.

while( my $dependedOnBy = $DependedOnBy->Next )

Then you loop over those tickets, but here you check the target of the link:

my $dependedOnByQueueName = $dependedOnBy->TargetObj->QueueObj->Name;

Which I assume would be your original $self->TicketObj you started with. I think what you want is this:

my $dependedOnByQueueName = $dependedOnBy->BaseObj->QueueObj->Name;

But I could be confused about Target vs Base, best to just add a ton of debug and see what ticket you’re actually getting the queue name from

11

The solution was the BaseObj :sunglasses:

I’ve changed the TargetObj with BaseObj and the loop checks for the right Q name

Thanks for the help

1 Like