Perl warning message after 'amportal restart' (calleridname.agi)

rybshik · #1 (**permalink**) November 22nd, 2006, 12:59 AM

I am running Trixbox 1.2.3 and FreePBX2.1.3 on my CentOS linux box.

I installed a perl-based calleridname.agi for caller name lookup. It works perfectly after reboot. After I issue command ‘amportal restart’, the script still works, but gives the following warning message:

Code:

Use of uninitialized value in string eq at /var/lib/asterisk/agi-bin/calleridname.agi line 30, <STDIN> line 19.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/site_perl/5.8.5/Asterisk/AGI.pm line 1036, <STDIN> line 19.
calleridname.agi: CALLERID IS: 15191234567
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/site_perl/5.8.5/Asterisk/AGI.pm line 1036, <STDIN> line 20.
calleridname.agi: Checking 519 1234567...
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/site_perl/5.8.5/Asterisk/AGI.pm line 1036, <STDIN> line 21.
calleridname.agi: Asteridex lookup disabled.
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/site_perl/5.8.5/Asterisk/AGI.pm line 1036, <STDIN> line 22.
calleridname.agi: Ready for Whitepages lookup...
Use of uninitialized value in concatenation (.) or string at /usr/lib/perl5/site_perl/5.8.5/Asterisk/AGI.pm line 1036, <STDIN> line 24.
calleridname.agi: Whitepages match. New CallerIDName = Doe, J

This warning message continues showing up every time the script runs until I reboot my box.

chandave · #2 (**permalink**) November 24th, 2006, 04:44 AM

I've see this problem posted somewhere else as well.

I don't have a copy of Trixbox. Please post a copy of "/usr/lib/perl5/site_perl/5.8.5/Asterisk/AGI.pm" from your Trixbox to this forum.

I'm sure we can do a quick hack (just set the variable being complained about to the empty string before it's being concatenated) to alleviate the warning messages.

See ya...

d.c.

rybshik · #3 (**permalink**) November 24th, 2006, 07:13 AM

Please see attachment

chandave · #4 (**permalink**) November 25th, 2006, 08:41 AM

Quote:

Originally Posted by rybshik

Please see attachment

OK. Found the problem.

More recent versions of Perl appear to be more strict about using uninitialized variables.

In calleridname.agi, the function $AGI->verbose() is used. But, all instances omit the verbose logging level parameter required by the function. Previous versions of Perl appear to overlook the fact that the parameter was not passed to the function. More recent versions of Perl warn about the using an uninitialized variable (in this case the undefined $level parameter).

The easiest fix would be to edit /var/lib/asterisk/agi-bin/calleridname.agi and change all instances of:

$AGI->verbose("some message")

to

$AGI->verbose("some message",1)

That will alleviate the constant warning messages generated when $AGI-verbose() is used in calleridname.agi.

See ya...

d.c.

rybshik · #5 (**permalink**) November 25th, 2006, 07:25 PM

chandave, thanks a lot.

As you advised, I have changed all the instances of $AGI->verbose("some message") to $AGI->verbose("some message",1). Now disappeared all the warnings except for the very first one:
Use of uninitialized value in string eq at /var/lib/asterisk/agi-bin/calleridname.agi line 34,

AlexanderBell · #6 (**permalink**) November 25th, 2006, 08:23 PM

Fixed on Nerd Vittles as well. Thanks, Davy!