Ok moving on
So the "Custom action preparation code" is working
I added this to the "Custom action cleanup code:"
use strict;
use warnings;
#### Start Area for Request Tracker ############
my $storenumber = "4223";
my $wonumber = "C2239243";
$RT::Logger->debug("Clean up Found Work Order: $wonumber Store:
$storenumber\n");
return 1;
and all I get in the log is
[Fri Aug 9 18:13:49 2013] [debug]: Found match for Walgreens, C2239243, 4233
((eval 1635):8) (From the "Custom action preparation code")
[Fri Aug 9 18:13:49 2013] [debug]: Skipping Scrip #15 because it didn't
Prepare (/usr/lib/perl5/vendor_perl/5.16.2/RT/Scrips.pm:237)
Where is the message from the "Custom action cleanup code:"?
Thanks
Bryon Baker
Network Operations Manager
Copesan - Specialists in Pest Solutions
800-267-3726 • 262-783-6261 ext. 2296
[email protected]
www.copesan.com
"Servicing North America with Local Care"
-----Original Message-----
From: [email protected]
[mailto:[email protected]] On Behalf Of Nathan Cutler
Sent: Friday, August 09, 2013 11:59 AM
To: [email protected]
Subject: Re: [rt-users] Searching for a string
Hi Bryon:
Perl regexes can be a bit tricky.
> Here is the codes being used.
>
> my $t_subject = $self->TransactionObj->ContentObj->Content ; my $match
> = "Building: Walgreen Drug Store";
Here I would be to use \s+ after the colon, since there might be multiple
spaces or even a tab in the email. Unless you're sure it will always be just a
single space.
> if ( $t_subject !~ /$match/i) {
This says "if $t_subject does NOT match". Don't you want the opposite?
I'd suggest you try changing the !~ operator (does NOT match) in this line to
=~ (matches).
> $RT::Logger->debug("Found Match\n");
> return 0;
> }
> else {
> $RT::Logger->debug("No Match Found Match string: $match content:
> $t_subject\n");
> return 1;
> }
Another thing to try is the "s" modifier, which explicitly tells Perl to treat
the entire email as a single line. But in my test it works fine without.
Hope this helps.
Nathan
