On Tue, 29 Jan 2019 00:07:49 +0100 (CET) "Carlos E. R." <robin.listas@telefonica.net> 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@iinet.net.au>,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@roadrunner.suse>,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@opensuse.org To contact the owner, e-mail: opensuse-support+owner@opensuse.org