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;