timeouts / dns-errors /

[Thomas Sprinzing]

Hello Lars, Hello List,

i installed from FreeBSD-10.2 ports;

PORTNAME= policyd-weight
PORTVERSION= 0.1.15.2
PORTREVISION= 5


here are the results of diff:

 > diff policyd-weight-usrlclbin policyd-weight-devel > diffout

1c1
< #!/usr/local/bin/perl
---
 > #!/usr/bin/env perl
323c323
< my $REJECTMSG	 = "550 Mail appeared to be SPAM or forged. Ask your 
Mail/DNS-Administrator to correct HELO and DNS MX settings or to get 
removed from DNSBLs";
---
 > my $REJECTMSG    = "550 Mail appeared to be SPAM or forged. Ask your 
Mail/DNS-Administrator to correct HELO and DNS MX settings or to get 
removed from DNSBLs";
376a377
 >     'dnsbl.njabl.org',        4.25,       -1.5,        'BL_NJABL',
377a379
 >     #'rbl.ipv6-world.net',     4.25,          0,        'IPv6_RBL' 
#don't use, kept for testing failures!
392c394,398
<     'multi.surbl.org',             4,        0,        'SURBL'
---
 >     'multi.surbl.org',             4,        0,        'SURBL',
 >     'rhsbl.ahbl.org',              4,        0,        'AHBL',
 >     'dsn.rfc-ignorant.org',        3.5,      0,        'DSN_RFCI',
 >     'postmaster.rfc-ignorant.org', 0.1,      0,        'PM_RFCI',
 >     'abuse.rfc-ignorant.org',      0.1,      0,        'ABUSE_RFCI'
401c407
< my $LOCKPATH          = '/var/run/policyd-weight/';    # must be a 
directory (add
---
 > my $LOCKPATH          = '/tmp/.policyd-weight/';    # must be a 
directory (add
423c429
< my $CACHEREJECTMSG  = $REJECTMSG . " [cached]";
---
 > my $CACHEREJECTMSG  = '550 temporarily blocked because of previous 
errors';
579c585
< if(not defined $conf)
---
 > if(!($conf))
602c608
< if(defined $conf)
---
 > if($conf ne "")
649,654c655,656
<     if (defined $conf_str) {
<        $conf_str =~ s/\#.*?(\n)/$1/gs;
<        $conf_str =~ s/\n+/\n/g;
<     }
<     else { $conf_str = "" }
<
---
 >     $conf_str =~ s/\#.*?(\n)/$1/gs;
 >     $conf_str =~ s/\n+/\n/g;
674c676
<     print "debug: issuing group: ".getgrgid($()."\n";
---
 >     print "debug: issuing group: ".getpwuid($()."\n";
894c896
< if(Net::DNS->version() >= 0.50 && Net::DNS->version() <= 0.53)
---
 > if(Net::DNS->version() >= 0.50)
899c901
< if(Net::DNS->version() < 0.50)
---
 > else
2283c2285
<     my $glob_numeric_score = 0;
---
 >     my $glob_numeric_score;
2845c2847
<     $! = undef;
---
 >     $! = '';
2973c2975
<     if(!( $( = getgrnam($GROUP) ))
---
 >     if(!( $( = getpwnam($USER) ))
3589c3591
<             my ($dn, $offset) = decode Net::DNS::DomainName(\$qb, 0);
---
 >             my ($dn, $offset) = dn_expand(\$qb, 0);
3843c3845
<     if($$helo !~ /^\[(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\]$/ ) { 
return 0 }
---
 >     if($$helo !~ /^\[(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\]$/ ) { 
return }