view release on metacpan or  search on metacpan

lib/Courier/Filter/Module/SPFout.pm  view on Meta::CPAN

package Courier::Filter::Module::SPFout;

use warnings;
use strict;

use base 'Courier::Filter::Module';

use Error ':try';

use Mail::SPF;
use Mail::SPF::MacroString;
use Mail::SPF::Util;
use Net::Address::IP::Local;

use Courier::Filter::Util qw(
    ipv4_address_pattern
    ipv6_address_pattern
    loopback_address_pattern
);

use Courier::Error;

lib/Courier/Filter/Module/SPFout.pm  view on Meta::CPAN

           $class->warn("Ignoring unsupported \"$spf_option\" SPF option. Perhaps newer Mail::SPF required?");
        }
    }
    
    my $spf_server = Mail::SPF::Server->new(
        default_authority_explanation => $options{default_response},
        %$spf_options
    );
    
    if (defined($options{force_response})) {
        $options{force_response} = Mail::SPF::MacroString->new(
            text            => $options{force_response},
            is_explanation  => TRUE
        );
    }
    
    if (not defined($options{outbound_ip_addresses})) {
        # Attempt auto-discovery of public IP addresses:
        $options{outbound_ip_addresses} = \my @outbound_ip_addresses;
        try { push(@outbound_ip_addresses, Net::Address::IP::Local->public_ipv4) };
        try { push(@outbound_ip_addresses, Net::Address::IP::Local->public_ipv6) };