Scrip send email on create - SOLVED

The solution provided by Jeremy Burke was effective for RT 3.4.5.
Thanks Jeremy!

dan

Jeremy Burke wrote:

Version: 3.8.4
OS: Fedora release 11
Perl: Perl v5.10.0 under linux
Fcntl: Fcntl v1.06;

This demo.pl program generates errors when “use Fcntl;” is included and
otherwise works as expected.

a. Can someone replicate this error?
b. Any ideas about a solution?

Thanks,

dano

debug.pl

#!/usr/bin/perl
use lib qw(/mp3/tools/rt/lib);
use lib qw(/mp3/tools/rt/local/lib);

Request Tracker API

use RT;
use RT::Interface::CLI qw(CleanEnv GetCurrentUser GetMessageContent loc);

use Fcntl; # uncommented -> errors, commented -> no errors

CleanEnv();
RT::LoadConfig();
RT::Init();

print “1. hello world\n”;

my $CurrentUser = GetCurrentUser();

print “2. hello world\n”;

Here is a partial error text:

Use of uninitialized value $name in concatenation (.) or string at
/mp3/tools/rt/lib/RT/Config.pm line 666.
Use of uninitialized value $name in hash element at
/mp3/tools/rt/lib/RT/Config.pm line 668.
Couldn’t load RT config file RT_SiteConfig.pm:

Not a SCALAR reference at /mp3/tools/rt/lib/RT/Config.pm line 709.
Compilation failed in require at /mp3/tools/rt/lib/RT/Config.pm line 516.

Dan O’Neill wrote:

Version: 3.8.4
OS: Fedora release 11
Perl: Perl v5.10.0 under linux
Fcntl: Fcntl v1.06;

This demo.pl program generates errors when “use Fcntl;” is included and
otherwise works as expected.

a. Can someone replicate this error?
b. Any ideas about a solution?

A workaround is to use the Perl module LockFile::Simple instead of the
flock() methodology.

Still, there’s something odd going on, but I have a solution. RT
maintainers may want to research this further.

dan

Dan O’Neill wrote:

Version: 3.8.4
OS: Fedora release 11
Perl: Perl v5.10.0 under linux
Fcntl: Fcntl v1.06;

This demo.pl program generates errors when “use Fcntl;” is included and
otherwise works as expected.

a. Can someone replicate this error?
b. Any ideas about a solution?

A workaround is to use the Perl module LockFile::Simple instead of the
flock() methodology.

Still, there’s something odd going on, but I have a solution. RT
maintainers may want to research this further.

I do not have 5.10.0 handy, but 5.8.9 on 3.8.4 doesn’t show that
error.

The error looks like you’re calling Set() somehwere without passing it
args.

It may be a perl version issue, but without building 5.10.0 I can’t
tell.

-kevin