Courier::Filter - A purely Perl-based mail filter framework for the Courier MTA

0.16

    use Courier::Filter;
    use Courier::Filter::Logger::Moo;
    use Courier::Filter::Module::Foo;
    use Courier::Filter::Module::Bar;

    my $filter = Courier::Filter->new(
        mandatory   => 1,
        logger      => Courier::Filter::Logger::Moo->new( ... ),
        modules     => [
            Courier::Filter::Module::Foo->new( ... ),
            Courier::Filter::Module::Bar->new( ... )
        ],
        testing     => 0,
        debugging   => 0
    );

    my $exit_code = $filter->run() || 0;

    exit($exit_code);

For an architectural and administrative overview of the Courier::Filter framework, see Courier::Filter::Overview.

The Courier::Filter class is the heart of the Courier::Filter framework. To drive a courierfilter filter process, create a Courier::Filter object, passing the filter modules and loggers you want to use to the constructor, and call the CWrun() method.

Courier::Filter will then take care of creating the courierfilter socket in the right place in a safe manner, listening for connections from Courier, asking filter modules for consideration of messages, notifying Courier of whether messages should be accepted or rejected, logging message rejections, catching and logging errors, and finally removing the socket when being terminated by Courier.

The following constructor is provided:

new(%options): RETURNS Courier::Filter; THROWS Courier::Error, Perl exceptions

Creates a new CWCourier::Filter object. Also creates the courierfilter socket in the right place in a safe manner. %options is a list of key/value pairs representing any of the following options:

name

A scalar containing the name of the filter process. Used to build the socket name. Defaults to the base name of the process (CW$0).

mandatory

A boolean value controlling whether the filter process should act as a mandatory courierfilter. If true, users will not be able to bypass the filter modules in this filter process from their individual localmailfilter filters. Technically, this controls whether the courierfilter socket will be created in the CWallfilters (true) or the CWfilters (false) directory in Courier's run-time state directory (see COURIER_RUNTIME_DIR in Courier::Config). Defaults to true.

logger

A Courier::Filter::Logger object that will be used for logging message rejections and error messages. You may override this for individual filter modules for which you do not want the global logger to be used. If no logger is specified, logging is disabled.

modules

REQUIRED. A so-called filter module group structure. A module group is a reference to an array that may contain filter module objects (i.e. instances of sub-classes of Courier::Filter::Module), as well as other module groups. Thus, a module group is essentially a tree structure with filter modules as its leaves. When considering messages, Courier::Filter walks the tree in a recursive-descent, depth-first order, asking every filter module for consideration of the message's acceptability. For instance, given the following filter module group:

    [$m1, $m2, [$m3, [$m4, $m5]], $m6]

Courier::Filter queries the filter modules in ascending order from 1 to 6. The acceptability result returned by each module determines how Courier::Filter proceeds with considering the current message:

*

If a module states an explicit reject, Courier::Filter aborts the consideration process and rejects the message.

*

If a module states an implicit accept, Courier::Filter just proceeds to the next module in turn.

*

If a module states an explicit accept, Courier::Filter skips the rest of the current module group and proceeds to the next item in the superordinate module group, assuming the whole group to be an implicit accept. For instance, take the nested filter module group from above:

    [$m1, $m2, [$m3, [$m4, $m5]], $m6]
    |          |     '---g3---'|     |
    |          '----group 2----'     |
    '------------group 1-------------'

Let's assume Courier::Filter queries the filter module CW$m3. If CW$m3 states an explicit reject, the consideration process is aborted and the current message is rejected. If CW$m3 states an implicit accept, Courier::Filter proceeds to CW$m4. If CW$m3 states an explicit accept, the rest of group 2 (including all of group 3) is skipped and the acceptability result of group 2 is assumed an implicit accept, so Courier::Filter proceeds to CW$m6. If no explicit reject has occured when Courier::Filter reaches the end of the main module group, or a module in the main group states an explicit accept, the message is accepted. Using nested groups of filter modules with normal or inverse polarity, it should be possible to implement sufficiently complex filtering policies to satisfy very most needs.

trusting

A boolean value controlling whether the whole filter process should not apply any filtering to trusted messages. For details on how the trusted status is determined, see the description of the CWtrusted property in Courier::Message. In most MTA configurations, this option can be used to white-list so-called outbound messages. Defaults to false.

testing

A boolean value controlling whether the whole filter process should run in testing mode. In testing mode, planned message rejections will be logged as usual, but no messages will actually be rejected. Defaults to false. NOTE: You may also enable testing mode on individual filter module objects, see new in Courier::Filter::Module. Enabling testing mode globally is not the same as individually enabling testing mode on all filter modules, though. When global testing mode is enabled, Courier::Filter only ignores the final result, but still follows the rules of the normal consideration process, e.g. aborting as soon as a filter module states an explicit reject, etc. When an individual filter module is in testing mode, its individual result is ignored, and the consideration process is continued with the next filter module. So individually enabling testing mode on all filter modules allows you to thoroughly test the correctness and performance of all installed filter modules, or even to gather stochastically indepent statistics on the hit/miss rates of your filter modules.

debugging

A boolean value controlling whether extra debugging information should be logged by Courier::Filter. Defaults to false. You need to enable debugging mode for filter modules separately.

The following instance methods are provided:

run: THROWS Courier::Error, Perl exceptions

Runs the Courier::Filter. Listens for connections from Courier on the courierfilter socket, asks the configured filter modules for consideration of messages, notifies Courier of whether messages should be accepted or rejected, and logs message rejections. When Courier requests termination of the courierfilter, removes the socket and returns.

name: RETURNS SCALAR

Returns a scalar containing the name of the filter process, as set through the constructor's CWname option.

mandatory: RETURNS boolean

Returns a boolean value indicating whether the filter process is a mandatory courierfilter, as set through the constructor's CWmandatory option.

logger: RETURNS Courier::Filter::Logger

logger($logger): RETURNS Courier::Filter::Logger

If CW$logger is specified, installs a new global logger. Returns the current (new) global logger.

modules: RETURNS ARRAYREF

modules(\@modules): RETURNS ARRAYREF

If CW\@modules is specified, installs a new filter module group structure. Returns the current (new) filter modules group structure.

trusting: RETURNS boolean

Returns a boolean value indicating the trusting mode, as set through the constructor's CWtrusting option.

testing: RETURNS boolean

Returns a boolean value indicating the global testing mode, as set through the constructor's CWtesting option.

debugging: RETURNS boolean

debugging($debugging): RETURNS boolean

If CW$debugging is specified, sets the global debugging mode. Returns a boolean value indicating the current (new) global debugging mode.

pureperlfilter, Courier::Filter::Overview, Courier::Filter::Module, Courier::Filter::Logger

For AVAILABILITY, SUPPORT, and LICENSE information, see Courier::Filter::Overview.

The courierfilter interface

<http://www.courier-mta.org/courierfilter.html>

Julian Mehnle <julian@mehnle.net>