[rt-users] Scrip compile issue

[Kenneth Crocker]

Mike,

If you can define that user, why not modify the email address to show the
group address you want it to go to. That way the "Reply to Requestor" will
work the way you want and you won't need the code?

Kenn

On Thu, Jul 5, 2012 at 1:29 PM, Michael Coakley <mike.coakley at gmail.com>wrote:

> 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/bf468317/attachment.htm>