[Greylist-users] perl script issues

[Xtian]

I just sent this to Mr. Harris, but probably this mailing list is the
best place to ask questions. So here it is again:

The relaydelay.pl script has problems on my system. The following is the
output from the script when an incoming message arrives:

whipit:/usr/local/sbin [1009]# /usr/local/sbin/relaydelay.pl
/etc/mail/relaydelay.conf
Loading Config File: /etc/mail/relaydelay.conf
Using connection 'local:/var/run/relaydelay.sock' for filter relaydelay
Attempting to unlink local UNIX socket '/var/run/relaydelay.sock' ...
successful.
DBI Connecting to DBI:mysql:database=relaydelay:host=localhost:port=3306
Starting Sendmail::Milter 0.18 engine.

=== 2004-01-18 15:21:38 ===
Stored Sender:
<sentto-11188282-1909-1074439653-mhaller=devo.com at returns.groups.yahoo.com>
Passed Recipient: <mhaller at devo.com>
relaydelay: *WARN* Use of uninitialized value in pattern match (m//) at
/usr/local/sbin/relaydelay.pl line 589.
relaydelay: *WARN* Use of uninitialized value in concatenation (.) or
string at /usr/local/sbin/relaydelay.pl line 607.
  Relay:  - If_Addr: 213.160.80.24
relaydelay: *WARN* Use of uninitialized value in concatenation (.) or
string at /usr/local/sbin/relaydelay.pl line 608.
relaydelay: *WARN* Use of uninitialized value in concatenation (.) or
string at /usr/local/sbin/relaydelay.pl line 608.
relaydelay: *WARN* Use of uninitialized value in concatenation (.) or
string at /usr/local/sbin/relaydelay.pl line 608.
relaydelay: *WARN* Use of uninitialized value in concatenation (.) or
string at /usr/local/sbin/relaydelay.pl line 608.
  RelayIP:  - RelayName:  - RelayIdent:  - PossiblyForged:
  From:
sentto-11188282-1909-1074439653-mhaller=devo.com at returns.groups.yahoo.com
- To: mhaller
relaydelay: *WARN* Use of uninitialized value in concatenation (.) or
string at /usr/local/sbin/relaydelay.pl line 610.
  InMailer: esmtp - OutMailer: local - QueueID:
relaydelay: *WARN* Use of uninitialized value in string eq at
/usr/local/sbin/relaydelay.pl line 625.
relaydelay: *WARN* Use of uninitialized value in substitution (s///) at
/usr/local/sbin/relaydelay.pl line 653.
relaydelay: *WARN* Use of uninitialized value in substitution (s///) at
/usr/local/sbin/relaydelay.pl line 653.
relaydelay: *WARN* Use of uninitialized value in substitution (s///) at
/usr/local/sbin/relaydelay.pl line 653.
relaydelay: *WARN* Use of uninitialized value in substitution (s///) at
/usr/local/sbin/relaydelay.pl line 653.
relaydelay: *WARN* Use of uninitialized value in substitution (s///) at
/usr/local/sbin/relaydelay.pl line 745.
  New mail row successfully inserted.  Issuing a tempfail.  rowid: 11
  IN ABORT CALLBACK - PrivData:
0<sentto-11188282-1909-1074439653-mhaller=devo.com at returns.groups.yahoo.com>
Closing DB connection.
relaydelay: *DIE* /usr/local/sbin/relaydelay.pl: accept: No child
processes
Closing DB connection.


The salient features of my system:

Debian Testing with:
libsendmail-pmilter-perl 0.4.0-1
libdbd-mysql-perl        2.9003-1
mysql-server             4.0.16-2
libmilter-dev            8.12.11.Beta0-1
sendmail                 8.12.11.Beta0-1
perl                     5.8.2-2 (with config_args='-Dusethreads ...')


Any ideas whats wrong on my end?

Thanks,

-Christian