OnCreateAddGroupCc

2023-07-27T19:42:34Z

Greatquux:

= On Create Add Group Cc =

I needed to add several [[CCs]] at an OEM partner whenever someone from the partner opened a ticket. It would be problematic if I skipped the entire group because one of them was already a CC or requestor, so I reworked the [[OnCreateSetDeptHeadCc]] scrip to eliminate the bug mentioned therein. The solution was to refactor so that the main loop iterates through the members of the group to add, and adds them if they are not already [[CCs]] or Requestors -- instead of iterating through the CC and Requestor lists to see if any of the principals are members of the group to add.

* <nowiki>Description: ''01 On Create Add Group </nowiki>[[CCs]]<nowiki>'' </nowiki>
* <nowiki>Condition: ''On Create'' </nowiki>
* <nowiki>Action: ''User Defined'' </nowiki>
* <nowiki>Template: ''Global template: Blank'' </nowiki>
* <nowiki>Stage: ''</nowiki>[[TransactionCreate]]<nowiki>'' </nowiki>

* Custom condition: (blank)
* Custom action preparation code:

<pre>
$RT::Logger->debug("On Create Add Group CCs: entering custom action prep");
my $ticket = $self->TicketObj;
my $transaction = $self->TransactionObj;
my $derivedGroupName = 'partner-OEM-CClist';

# match any ticket created with a Requestor list that includes @*oem.com addresses
my $OEMregex = '(?i).*@oem.com[,$]|.*@[\w\-]\.oem.com[,$]';
if ($ticket->RequestorAddresses =~ m/$OEMregex/) {
$RT::Logger->debug("On Create Add Group CC: matched an OEM address in Requestor list");
} else {
$RT::Logger->debug("On Create Add Group CC: no match: '" . $ticket->RequestorAddresses . "'");
return undef;
}

# instantiate a group object
my $addGroupObj = RT::Group->new($RT::SystemUser);
$addGroupObj->LoadUserDefinedGroup($derivedGroupName);
return undef unless $addGroupObj;
my $addGroupMembersObj = $addGroupObj->UserMembersObj;

my $userObj;
# walk through members of group to add; if a given member is not already on the ticket, add to the CC list
while ($userObj = $addGroupMembersObj->Next) {
if (($ticket->IsRequestor($userObj->PrincipalId)) or ($ticket->IsCc($userObj->PrincipalId))) {
$RT::Logger->debug("On Create Add Group CC: '" . $userObj->Name . "' is already a ticket watcher; not adding Cc on ticket \#" . $ticket->id );
} else {
$RT::Logger->debug("On Create Add Group CC: Adding '" . $userObj->Name ."' to ticket \#" .$ticket->id);
my ($success, $msg)= $ticket->AddWatcher(
Type => "Cc",
PrincipalId => $userObj->PrincipalId);
if (! $success) {
$RT::Logger->info("On Create Add Group CC: couldn't add '" . $userObj->Name . "' to " . $ticket->id . "': got '" . $msg ."'");
}
}
}
return 1;

</pre>

* Custom action cleanup code: (blank)

Ole Craig Fri Sep 14 17:19:00 MDT 2007

= RT 3.8.6 =

Worked as is - great recipe. Thanks for sharing.

= RT 5.0.4 =
For some reason, surely related to regex black magic, I had to modify the regex to remove the [,$] and then it worked great:
<pre>
my $OEMregex = '(?i).*@the-domain.com|.*@[\w\-]\.the-domain.com';
</pre>
Thanks!

Request Tracker Wiki - User contributions [en]

OnCreateAddGroupCc