Greatquux at 19:42, 27 July 2023

2023-07-27T19:42:34Z

← Older revision		Revision as of 15:42, 27 July 2023
Line 60:		Line 60:

	Worked as is - great recipe. Thanks for sharing.		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!

Tharn at 23:15, 13 August 2016

2016-08-13T23:15:21Z

← Older revision		Revision as of 19:15, 13 August 2016
Line 12:		Line 12:
	* Custom action preparation code:		* Custom action preparation code:

	<~~nowiki~~>$RT::Logger->debug("On Create Add Group CCs: entering custom action prep");		<pre>
			$RT::Logger->debug("On Create Add Group CCs: entering custom action prep");
	my $ticket = $self->TicketObj;		my $ticket = $self->TicketObj;
	my $transaction = $self->TransactionObj;		my $transaction = $self->TransactionObj;
Line 50:		Line 51:


	</~~nowiki~~>		</pre>

	* Custom action cleanup code: (blank)		* Custom action cleanup code: (blank)

Admin: 2 revisions imported

2016-04-06T20:15:48Z

2 revisions imported

New page

= 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:

<nowiki>$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;

</nowiki>

* 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.

OnCreateAddGroupCc - Revision history

Greatquux at 19:42, 27 July 2023

Tharn at 23:15, 13 August 2016

Admin: 2 revisions imported