SYNOPSIS
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;
DESCRIPTION
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 ``dotted decimal'' notation.
- ipv6_address_pattern
- A regular expression matching an IPv6 address in full RFC 4291 syntax.
- loopback_address_pattern
- A regular expression matching an IPv4 or IPv6 loopback address ("127.n.n.n", "::ffff:127.n.n.n.n", "::1").