[rt-users] Scrip compile issue

[Michael Coakley]

Kenn,

Basically I have scanners that email scanned applications to the RT system. If the reply goes back to the scanner email address it gets dumped. So I need the reply to go back to the group that scanned the application. That is why I built the replacement routine.

It works fine at the command line, excluding the RT parts for testing. But when I save it in the RT web ui I get the error below. 

Thanks,

Mike

Sent from my iPhone

On Jul 5, 2012, at 4:21 PM, Kenneth Crocker <kenn.crocker at gmail.com> wrote:

> Mike,
> 
> Replaces the Requestor? How? In what manner? If you just want the Requestor to have a different title or name then use the language translator. There is an array in it that lets you replace certain items when they are displayed.
> 
> Kenn
> 
> On Tue, Jul 3, 2012 at 8:02 PM, Michael Coakley <mike.coakley at gmail.com> wrote:
> I'm trying to write a Scrip that replaces the Requestor. When I try to save this Scrip I get a compilation error.
> 
> Here is my Scrip:
> 
> my %addressSubstitutions = (
>                 "ex1\@example\.com" => "ex1location\@example\.com",
>                 "ex2\@example\.com" => "ex2location\@example\.com"
>                 );
> 
> my $newRequestorAddr = "";
> 
> my $requestorAddr = $self->TicketObj->RequestorAddresses;
> $RT::Logger->debug("All Queues: Requestor Email Address = $requestorAddr");
> 
> foreach $testAddress (keys(%addressSubstitutions)) {
>                 if ($requestorAddr =~ /$testAddress/i) {
>                                 $newRequestorAddr = $addressSubstitutions{$testAddress};
>                                 break;
>                 }
> }
> 
> my ($status, $msg) = $self->TicketObj->DeleteWatcher(Type => 'Requestor', Email => $requestorAddr);
> unless ($status) {
>                 $RT::Logger->error("All Queues : Unable to Remove the requestor $requestorAddr : $msg");
>                 return undef;
> }
> 
> my ($status, $msg) = $self->TicketObj->AddWatcher(Type => 'Requestor', Email => $newRequestorAddr);
> unless ($status) {
>                 $RT::Logger->error("All Queues : Unable to Add the requestor $newRequestorAddr : $msg");
>                 return undef;
> }
> 
> return 1;
> 
> Here is the error:
> 
> Couldn't compile CustomCommitCode codeblock ‘{Scrip}': Compilation error at /usr/lib/perl5/site_perl/5.14.2/Log/Dispatch/Output.pm line 39. Stack: [/usr/lib/perl5/site_perl/5.14.2/Log/Dispatch/Output.pm:39] [/usr/lib/perl5/site_perl/5.14.2/Log/Dispatch.pm:192] [/usr/lib/perl5/site_perl/5.14.2/Log/Dispatch.pm:145] [/usr/lib/perl5/site_perl/5.14.2/Log/Dispatch.pm:123] [(eval 1261):44] [/opt/rt4/share/html/Admin/Elements/EditScrip:155] [/opt/rt4/share/html/Admin/Global/Scrip.html:51] [/opt/rt4/share/html/Admin/autohandler:49] [/opt/rt4/sbin/../lib/RT/Interface/Web.pm:548] [/opt/rt4/sbin/../lib/RT/Interface/Web.pm:295] [/opt/rt4/share/html/autohandler:53]
> 
> Thanks,
> 
> Mike
> 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.bestpractical.com/pipermail/rt-users/attachments/20120705/c0180c5e/attachment.htm>