[Greylist-users] error messages from relaydelay.pl

[Deke Clinger]

Greetings,

I've got relaydelay running after making some small changes (see previous post
'network-enabled milter') and I'm seeing some error messages while running
with $verbose and -w. These might be harmless but I thought I'd ask and see if
anyone else has seen anything similiar. Since I've made changes to my
relaydelay.pl line numbers may vary slightly.

When relaydelay starts I get:

     "my" variable $privdata masks earlier declaration in same scope at
     ./relaydelay.pl line 786.
     "my" variable $privdata masks earlier declaration in same scope at
     ./relaydelay.pl line 800.

This looks like just a typo: taking off the 'my' on those lines doesn't impact
functionality.

While relaydelay is running, I see:

Use of uninitialized value in string ne at ./relaydelay.pl line 528.
Use of uninitialized value in numeric gt (>) at ./relaydelay.pl line 564.
Use of uninitialized value in numeric gt (>) at ./relaydelay.pl line 606.
Use of uninitialized value in numeric gt (>) at ./relaydelay.pl line 654.
Use of uninitialized value in numeric gt (>) at ./relaydelay.pl line 679.


for each new row inserted into the database.

Line 528 is:

    if ($authen ne "")

Looks like perl tries to operate on 'ne' if $authen isn't defined.  Changing
this to something like:

	 if ($authen)

gets rid of the error and (I think) does the same thing.

The other four lines all compare the $rowid variable to something and appear
in the envrcpt_callback subroutine. Looks like maybe these aren't getting set
every time.

-Deke