Courier::Filter::Util (3pm)

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

    $message->remote_host =~ / ^ (?: ::ffff: )? $(\ipv4_address_pattern} $ /x;
    $message->remote_host =~ / ^ $(\ipv6_address_pattern} $ /x;
    $message->remote_host =~ / ^ ${\loopback_address_pattern} $ /x;

Courier::Filter::Util is Courier::Filter's utility class.

Constants

The following constants are provided:

ipv4_address_pattern

A regular expression matching an IPv4 address in \*(L"dotted decimal\*(R" notation.

ipv6_address_pattern

A regular expression matching an IPv6 address in full \s-1RFC\s0 4291 syntax.

loopback_address_pattern

A regular expression matching an IPv4 or IPv6 loopback address (\*(C`127.n.n.n\*(C', \*(C`::ffff:127.n.n.n.n\*(C', \*(C`::1\*(C').

Courier::Filter.

For \s-1AVAILABILITY\s0, \s-1SUPPORT\s0, and \s-1LICENSE\s0 information, see Courier::Filter::Overview.

Julian Mehnle <[email protected]>