|
Lines 1-5
Link Here
|
| 1 |
--- policyd-weight.orig 2015-09-27 11:41:56 UTC |
1 |
--- policyd-weight.orig 2015-12-11 21:05:56.398519000 +0100 |
| 2 |
+++ policyd-weight |
2 |
+++ policyd-weight 2015-12-11 21:12:51.190810000 +0100 |
| 3 |
@@ -320,7 +320,7 @@ $SIG{__DIE__} = sub { |
3 |
@@ -320,7 +320,7 @@ $SIG{__DIE__} = sub { |
| 4 |
|
4 |
|
| 5 |
my $DEBUG = 0; # 1 or 0 - don't comment |
5 |
my $DEBUG = 0; # 1 or 0 - don't comment |
|
Lines 134-149
Link Here
|
| 134 |
{ |
134 |
{ |
| 135 |
mylog(warning=>"cache: couldn't change GID to user $GROUP: $!"); |
135 |
mylog(warning=>"cache: couldn't change GID to user $GROUP: $!"); |
| 136 |
} |
136 |
} |
| 137 |
@@ -3588,7 +3586,7 @@ sub rbl_lookup |
137 |
@@ -3588,7 +3586,8 @@ sub rbl_lookup |
| 138 |
my ($id, $bf, $qc, $anc, $nsc, $arc, $qb) = |
138 |
my ($id, $bf, $qc, $anc, $nsc, $arc, $qb) = |
| 139 |
unpack('n n n n n n a*', $buf); |
139 |
unpack('n n n n n n a*', $buf); |
| 140 |
|
140 |
|
| 141 |
- my ($dn, $offset) = dn_expand(\$qb, 0); |
141 |
- my ($dn, $offset) = dn_expand(\$qb, 0); |
| 142 |
+ my ($dn, $offset) = decode Net::DNS::DomainName(\$qb, 0); |
142 |
+ my ($decoded, $offset) = decode Net::DNS::DomainName(\$qb); |
|
|
143 |
+ my $dn = $decoded->name; |
| 143 |
|
144 |
|
| 144 |
if(($id && $anc) && ($id == $oid) && ($query eq $dn)) |
145 |
if(($id && $anc) && ($id == $oid) && ($query eq $dn)) |
| 145 |
{ |
146 |
{ |
| 146 |
@@ -3842,7 +3840,7 @@ sub squared_helo |
147 |
@@ -3842,7 +3841,7 @@ sub squared_helo |
| 147 |
my $helo = shift; |
148 |
my $helo = shift; |
| 148 |
my $ip = shift; |
149 |
my $ip = shift; |
| 149 |
|
150 |
|