Mailinglist Archive: opensuse-support (220 mails)

< Previous Next >
Re: [opensuse-support] Perl problem in SpamAssassin, uninitialized value.
On Tue, 29 Jan 2019 00:07:49 +0100 (CET)
"Carlos E. R." <robin.listas@xxxxxxxxxxxxxx> wrote:

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1



Hi,

I get tons of these in the log, and the "uninitialized" ones go also
to the warning log.

<2.6> 2019-01-28 23:40:31 Telcontar spamd 16758 - - spamd:
connection from localhost [127.0.0.1]:35696 to port 783, fd 6 <2.6>
2019-01-28 23:40:31 Telcontar spamd 16758 - - spamd: setuid to cer
succeeded <2.6> 2019-01-28 23:40:31 Telcontar spamd 16758 - - spamd:
processing message <26edd7a4-9c65-0a7d-2d7d-289...> for cer:1000
<2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use of
uninitialized value $4 in concatenation (.) or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use
of uninitialized value $3 in concatenation (.) or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use
of uninitialized value $2 in concatenation (.) or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - dns:
new_dns_packet (domain=...(.zen.spamhaus.org. type=A class=IN)
failed: a domain name contains a null label <2.4> 2019-01-28 23:40:32
Telcontar spamd 16758 - - Use of uninitialized value $4 in
concatenation (.) or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use
of uninitialized value $3 in concatenation (.) or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use
of uninitialized value $2 in concatenation (.) or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044. <2.6> 2019-01-28 23:40:33 Telcontar spamd 16758 - -
spamd: clean message (-2.5/5.0) for cer:1000 in 1.4 seconds, 11344
bytes. <2.6> 2019-01-28 23:40:33 Telcontar spamd 16758 - - spamd:
result: . -2 -
BAYES_00,HEADER_FROM_DIFFERENT_DOMAINS,MAILING_LIST_MULTI,RCVD_IN_DNSWL_MED,RDNS_NONE
scantime=1.4,size=11344,user=cer,uid=1000,required_score=5.0,rhost=localhost,raddr=127.0.0.1,rport=35696,mid=<26edd7a4-9c65-0a7d-2d7d-289f2049cdff@xxxxxxxxxxxx>,bayes=0.000069,autolearn=disabled
<2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - prefork: child
states: BI <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd:
handled cleanup of child pid [16758] due to SIGCHLD: exit 0 <2.6>
2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd: server
successfully spawned child process, pid 16792 <2.6> 2019-01-28
23:40:33 Telcontar spamd 3930 - - prefork: child states: II <2.6>
2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd: handled cleanup
of child pid [16758] due to SIGCHLD: exit 0 <2.6> 2019-01-28 23:40:33
Telcontar spamd 3930 - - spamd: server successfully spawned child
process, pid 16792 <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 -
- prefork: child states: II <2.6> 2019-01-28 23:40:34 Telcontar
spamd 16774 - - spamd: connection from localhost [127.0.0.1]:35702
to port 783, fd 6 <2.6> 2019-01-28 23:40:34 Telcontar spamd 16774 -
- spamd: setuid to cer succeeded <2.6> 2019-01-28 23:40:34 Telcontar
spamd 16774 - - spamd: processing message <5387304.rUZBsZdq...> for
cer:1000 <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - Use of
uninitialized value $4 in concatenation (.) or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar
spamd 16774 - - Use of uninitialized value $3 in concatenation (.)
or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar
spamd 16774 - - Use of uninitialized value $2 in concatenation (.)
or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar
spamd 16774 - - dns: new_dns_packet (domain=...(.zen.spamhaus.org.
type=A class=IN) failed: a domain name contains a null label <2.4>
2019-01-28 23:40:34 Telcontar spamd 16774 - - Use of uninitialized
value $4 in concatenation (.) or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar
spamd 16774 - - Use of uninitialized value $3 in concatenation (.)
or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar
spamd 16774 - - Use of uninitialized value $2 in concatenation (.)
or string
at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm
line 1044, <GEN6687> line 265. <2.6> 2019-01-28 23:40:35 Telcontar
spamd 16774 - - spamd: clean message (-2.5/5.0) for cer:1000 in 1.4
seconds, 11408 bytes. <2.6> 2019-01-28 23:40:35 Telcontar spamd 16774
- - spamd: result: . -2 -
BAYES_00,HEADER_FROM_DIFFERENT_DOMAINS,MAILING_LIST_MULTI,MIME_QP_LONG_LINE,RCVD_IN_DNSWL_MED,RDNS_NONE
scantime=1.4,size=11408,user=cer,uid=1000,required_score=5.0,rhost=localhost,raddr=127.0.0.1,rport=35702,mid=<5387304.rUZBsZdqEj@xxxxxxxxxxxxxxx>,bayes=0.002213,autolearn=disabled
<2.6> 2019-01-28 23:40:35 Telcontar spamd 3930 - - prefork: child
states: BI <2.6> 2019-01-28 23:40:35 Telcontar spamd 3930 - - spamd:
handled cleanup of child pid [16774] due to SIGCHLD: exit 0


It refers to this code:

sub lookup_dnsbl_for_ip {
my ($self, $pms, $obj, $ip) = @_;

local($1,$2,$3,$4);
$ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $revip = "$4.$3.$2.$1"; <============

my $conf = $pms->{conf};
my $tflags = $conf->{tflags};
my $cfns = $pms->{uridnsbl_active_rules_nsrevipbl};
my $cfa = $pms->{uridnsbl_active_rules_arevipbl};
foreach my $rulename (keys %$cfa, keys %$cfns) {
my $rulecf = $conf->{uridnsbls}->{$rulename};

# ips_only/domains_only lookups should not act on this kind of BL
next if defined $tflags->{$rulename} &&
$tflags->{$rulename} =~ /\b(?:ips_only|domains_only)\b/;

$self->lookup_single_dnsbl($pms, $obj, $rulename,
$revip, $rulecf->{zone},
$rulecf->{type}); }
}

And your question/point is?

Hint: what is the value of $ip?
Extra hint: try adding:
warn "ip='$ip'\n" unless defined $1;

--
To unsubscribe, e-mail: opensuse-support+unsubscribe@xxxxxxxxxxxx
To contact the owner, e-mail: opensuse-support+owner@xxxxxxxxxxxx

< Previous Next >
References