RT
From The scripts.mit.edu Wiki
Here are our RT scrips and templates. Some coding techniques were inspired by Jon Reed <jdreed> in ticket help.mit.edu #426130 and Reid Barton <rwbarton> from http://numenor.mit.edu/~rwbarton/rt/.
Status change Zephyr
Condition:
On status change
Template:
{$Transaction->CreatorObj->Name} changed status from OLDSTATUS to {$Ticket->Status eq "deleted" ? "BALEETED!!" : $Ticket->Status}
Preparation code:
my $oldStatus = $self->TicketObj->Status; return 1;
Cleanup code:
my $id = $self->TicketObj->id; my $name = $self->TicketObj->Subject; my $msg = $self->TemplateObj->_ParseContent(Argument=>$self->Argument, TicketObj=>$self->TicketObj, TransactionObj=>$self->TransactionObj); $msg ~= s/OLDSTATUS/$oldStatus/; system('/usr/athena/bin/zwrite', '-d', '-c', 'scripts', '-i', $id, '-s', $name, '-m', $oldStatus); return 1;