happyDomain/postfix-policyd-spf-perl
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Start 2.010

Browse source 
* Fixed incorrect use of != instead of ne for string comparison
This commit is contained in:
Scott Kitterman 2012-06-17 22:26:46 -04:00
commit 2aa104973f
3 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
CHANGES
View file

@ -4,6 +4,10 @@
# ! = Changed something significant, or removed a feature
# * = Fixed a bug, or made a minor improvement
--- 2.010 2012-06-17
* Fixed incorrect use of != instead of ne for string comparison
(LP: #1014243)
--- 2.009 2012-02-03
* Chomp erroneus NULLs off the end of local and authority explanations to
work around a Mail::SPF bug (in Mail::SPF versions prior to 2.008)

2
README
View file

@ -1,4 +1,4 @@
postfix-policyd-spf-perl 2.009
postfix-policyd-spf-perl 2.010
A Postfix SMTPd policy server for SPF checking
(C) 2007-2008,2012 Scott Kitterman <scott@kitterman.com>
(C) 2012 Allison Randal <allison@perl.org>

8
postfix-policyd-spf-perl
View file

@ -2,7 +2,7 @@
# postfix-policyd-spf-perl
# http://www.openspf.org/Software
# version 2.009
# version 2.010
#
# (C) 2007-2008,2012 Scott Kitterman <scott@kitterman.com>
# (C) 2012 Allison Randal <allison@perl.org>
@ -23,7 +23,7 @@
# with this program; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use version; our $VERSION = qv('2.009');
use version; our $VERSION = qv('2.010');
use strict;
@ -185,7 +185,7 @@ while (<STDIN>) {
sub exempt_localhost {
my %options = @_;
my $attr = $options{attr};
if ($attr->{client_address} != '') {
if ($attr->{client_address} ne '') {
my $client_address = NetAddr::IP->new($attr->{client_address});
return 'PREPEND X-Comment: SPF not applicable to localhost connection - skipped check'
if grep($_->contains($client_address), localhost_addresses);
@ -200,7 +200,7 @@ sub exempt_localhost {
sub exempt_relay {
my %options = @_;
my $attr = $options{attr};
if ($attr->{client_address} != '') {
if ($attr->{client_address} ne '') {
my $client_address = NetAddr::IP->new($attr->{client_address});
return 'PREPEND X-Comment: SPF skipped for whitelisted relay'
if grep($_->contains($client_address), relay_addresses);