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.croc...@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.coak...@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
>
