Courier::Filter::Overview: Architectural and administrative overview of courier::filter

DESCRIPTION

Courier::Filter is a purely Perl-based mail filter framework for the Courier \s-1MTA\s0.

The Courier \s-1MTA\s0's \fBcourierfilter\fP interface

Courier offers an interface for daemon-style processes to act as mail filters, called courierfilters. For every incoming mail message, right after the \s-1DATA\s0 command in the \s-1SMTP\s0 transaction phase has completed, Courier calls every registered mail filter through a \s-1UNIX\s0 domain socket the filter is listening on, and feeds it the file names of the incoming message and one or more control files. The mail filter processes the message and its control file(s), and returns an SMTP-style status response. If the status response is a positive (\*(L"2xx\*(R") one, Courier accepts the message. Otherwise, Courier rejects the message using the returned response code and text. For details about the courierfilter interface, see courierfilter.

About \fBCourier::Filter\fP

Courier::Filter implements the courierfilter interface as a framework for mail filter modules that frees modules from the duties of creating and handling the \s-1UNIX\s0 domain sockets, waiting for connections from Courier, and reading and parsing message and control files. Thus, authors of filter modules can concentrate on writing the actual filter logic without having to care about things that can easily be abstracted and can be performed by the framework.

Courier::Filter allows multiple filter modules to be installed, and filter modules can be stacked and grouped hierarchically, and even a module's polarity can be reversed, so some modules can be used for explicitly accepting messages while others are used in the traditional way for rejecting messages.

Courier::Filter compared to other courierfilter implementations

There are some alternative implementations of the courierfilter interface:

Writing your own standalone courierfilter: If you need an ultra-high performance mail filter, writing a standalone courierfilter in C/\*(C+ is a good choice. You will have maximum freedom for optimizing your filter for performance and resource consumption. But regardless of which language you use, you will have to implement all the \s-1UNIX\s0 domain socket and connection handling and message and control file processing yourself. And you don't get the modularity and module grouping capabilities for free either.
courierperlfilter: Courier brings a sample Perl-based courierfilter called courierperlfilter. It is a C executable that employs Perl embedding (see perlembed) to execute a Perl script for every incoming message, which is about as performant as the purely Perl-based Courier::Filter. But for every Perl-based courierfilter you want to run, you have to use a separate instance of courierperlfilter, or implement your own modularity and module grouping. Also, the included template Perl script is not very modular in itself, and Courier::Filter's message and control file parsing features are missing.
pythonfilter: pythonfilter by Gordon Messmer is a purely Python-based, modular, threaded courierfilter framework, similar to Courier::Filter. If you primarily speak Python, this is clearly your choice. pythonfilter also provides infrastructure to filter modules for modifying messages, even with versions of Courier prior to 0.57.1, which did not directly allow global mail filters to modify messages. As of version 1.1, pythonfilter supports only a linear topology in the configuration of its filter modules.

Using Courier::Filter

First, Courier::Filter (of course) and the filter modules that you plan to use for filtering your incoming mail need to be installed somewhere in your Perl include path (see the last lines of `perl -V`). You may also need to adjust the Courier::Config class (in \*(C`Courier/Config.pm\*(C') to reflect your system's paths. As for the filter modules, you can either use prepared ones (see \*(L"Bundled Courier::Filter modules\*(R" for a list of modules that come with Courier::Filter), or you can write your own (see \*(L"How filter modules work\*(R").

Second, you need to create a configuration file for Courier::Filter. Courier::Filter usually seeks for it at \*(C`/etc/courier/filters/courier-filter-perl.conf\*(C' (see Courier::Config on how to configure that). This file is a Perl snippet that must \*(C`use\*(C' the filter modules you want to use, and then fill in the $options global variable with the desired configuration options, instantiating filter modules and loggers as required.

If you plan to use non-ASCII string literals in your configuration file, it should be encoded in \s-1UTF-8\s0 (which is the native internal character encoding of Perl 5.8+ and Courier::Filter), and if it is, it must do \*(C`use utf8\*(C'. (It is possible for the configuration file to be encoded differently, but you still must explicitly specify the used encoding, see encoding for how to do that.)

For example, this is how a simple configuration file could look like:

    use utf8;

    use Courier::Filter::Logger::File;
    use Courier::Filter::Module::Header;

    $options = {
        logger      => Courier::Filter::Logger::File->new(
            file_name   => '/var/log/courier-filter-perl.log',
            timestamp   => 1
        },

        modules     => [
            Courier::Filter::Module::Header->new(
                fields      => {
                    subject     => qr/fuzzybuzzy/
                },
                response    => 'No fuzzybuzzy, please!'
            )
        ]
    };

These options will be used when creating the \*(C`Courier::Filter\*(C' object. For a detailed explanation of supported configuration options and how filter modules can be grouped, even hierarchically, see \*(L"new()\*(R" in Courier::Filter.

Third, you need to make Courier aware of Courier::Filter by installing a symlink in \*(C`/etc/courier/filters/active/\*(C' pointing to the \*(C`courier-filter-perl\*(C' executable (which is used for bootstrapping Courier::Filter):

$ ln -s $PATH_TO/courier-filter-perl /etc/courier/filters/active/

Finally, you may start (or restart) Courier::Filter (including any other installed courierfilters; Courier must of course already be running):

$ sudo courierfilter restart

In syslog, you should see the following message and no further error messages:

Jan 24 01:42:15 yourhost courierfilter: Starting courier-filter-perl

Any errors occurring while Courier::Filter is running will appear in syslog as well. A broken filter module will not crash Courier::Filter, but will record any Perl error messages in syslog, and reject incoming mail messages with a temporary status code, so as not to enable attackers to circumvent the configured Courier::Filter mail filtering.

How filter modules work

Filter modules are Perl classes that are derived from the class Courier::Filter::Module. See perlobj for an explanation of Perl's object orientation features.

Filter modules are to be instantiated in the \*(C`courier-filter-perl.conf\*(C' configuration file, with either normal polarity (the default) or inverse polarity. Then, for every incoming mail message, Courier::Filter asks each configured filter module in turn for consideration of the message's acceptability.

Every module tries to match its filter criteria against the current message, yielding a so-called match result, which can be either an explicit match, an implicit mismatch, or an explicit mismatch. (Filter modules usually never return an explicit mismatch, but only an implicit one; see \*(L"Writing filter modules\*(R" if you want to know why.)

According to the filter module's polarity, the match result is then translated into a so-called acceptability result, which can be either an explicit reject, an implicit accept, or an explicit accept.

This is how match results are translated into acceptability results under normal and inverse polarity:

Generally, Courier::Filter interprets the acceptability result as follows:

If a module states an explicit reject for the current message, Courier::Filter aborts the consideration process and rejects the message.
If a module states an implicit accept, Courier::Filter continues the consideration process with the next module in turn.
If a module states an explicit accept, Courier::Filter skips the rest of the group of modules and assumes the whole group to be an implicit accept.

If no explicit reject has occured when Courier::Filter finishes asking all filter modules, the message is accepted.

(For details on how to use advanced filter module grouping, see the description of the \*(C`modules\*(C' option in \*(L"new()\*(R" in Courier::Filter.)

Abstracting the concept of a \*(L"match\*(R" from the concept of \*(L"acceptance\*(R" makes it possible to use filter modules with normal polarity for \*(L"black-listing\*(R" certain message characteristics, and filter modules with inverse polarity for \*(L"white-listing\*(R", while still allowing all modules to be written in a uniform sense of logic. That is, there are no dedicated \*(L"accepting\*(R" and \*(L"rejecting\*(R" modules, but only \*(L"matching\*(R" modules. (E.g. there are no \*(L"HeaderAccept\*(R" and \*(L"HeaderReject\*(R" modules, but only a \*(L"Header\*(R" module.)

Writing filter modules

The main objective of Courier::Filter is to make it very easy to write new filter modules, so while the previous section described how filter modules work in general, we will now look at the details of writing your own filter modules. From here on you really should know what you are doing, so if you are not familiar with Perl's object orientation features, now is the time to read perlobj plus any documents referenced from there.

As already mentioned, filter modules are Perl classes derived from the class Courier::Filter::Module, which is an abstract base class and thus cannot be instantiated itself.

To ask a filter module for consideration of the message, Courier::Filter calls \*(C`$module->consider()\*(C', passing a Courier::Message object. \*(C`$module->consider()\*(C' (if not overrided from Courier::Filter::Module) then calls \*(C`$module->match()\*(C', passing through the message object.

The \*(C`match()\*(C' method really is where a filter module decides whether a message matches the filter criteria, and this is usually the only method of Courier::Filter::Module that needs to be overrided. That method may use any configuration information from the filter module object (see Courier::Filter::Module, and of course your own class), and any information from the message object (see Courier::Message).

If a filter module wants to call external commands using \*(C`system()\*(C', or functions from Perl modules that directly operate on files, it can efficiently bypass the message and control files processing features of Courier::Message by using the message object's \*(C`control_file_names\*(C' and \*(C`file_name\*(C' properties only.

Finally, after the message has been examined, \*(C`match()\*(C' must return a match result of...

true: if the module wants to state an explicit match (the first return value being the \s-1SMTP\s0 status response text, an optional second one being the \s-1SMTP\s0 status response code),
undef: if the module wants to state an implicit mismatch, that is, indifference of whether the message should be accepted or rejected,
false: if the module wants to state an explicit mismatch.

\*(C`consider()\*(C' then translates the match result into a acceptability result as described in \*(L"How filter modules work\*(R".

\*(C`match()\*(C' should usually never return an explicit mismatch (false), but an implicit one (undef) instead for the message to pass this filter module, while still allowing any further modules to explicitly reject (under normal polarity) or accept (under inverse polarity) the message. See the description of the \*(C`modules\*(C' option in \*(L"new()\*(R" in Courier::Filter for specifics on how Courier::Filter uses acceptability results.

A sample HeaderSimple filter module

Now let's see in practice how to write a simple filter module. For instance, we will create a simple variant of the \*(C`Header\*(C' module that matches a specified message header field against a specified string. Let's call it \*(C`HeaderSimple\*(C'.

First, we create a Perl module for the class Courier::Filter::Module::HeaderSimple, with the file name \*(C`Courier/Filter/Module/HeaderSimple.pm\*(C'. (That is, you need to install the file \*(C`HeaderSimple.pm\*(C' in the proper place in your Perl include path.)

Second, in that Perl module, we state the package/class name, and the name of the base class, which is usually Courier::Filter::Module:

package Courier::Filter::Module::HeaderSimple; use base qw(Courier::Filter::Module);

Third, we override the \*(C`match()\*(C' method by defining a rudimentary \*(C`match\*(C' sub:

sub match { my ($self, $message) = @_;

# ... }

The first argument of the \*(C`match()\*(C' method is (as usual in Perl's object orientation model) the module object itself, which provides access to its configuration options. The second argument is the message object that is to be examined. The ellipsis (\*(L"...\*(R") is where we will place our own filter logic.

Now, we expect our module to be instantiated like this:

Courier::Filter::Module::HeaderSimple->new( field => 'subject', value => 'viagra', response => 'Go away, spammer!' )

which makes the configuration options available from the hash keys \*(C`$self->{field}\*(C', \*(C`$self->{value}\*(C', and \*(C`$self->{response}\*(C'.

We want to test whether the configured header field of the message matches the configured value, and if so, return the configured response, so we write:

return $self->{response} if $message->header($self->{field}) =~ m/\Q$self->{value}\E/; return undef; # otherwise.

That's it. This is how the complete filter module looks like:

package Courier::Filter::Module::HeaderSimple; use base qw(Courier::Filter::Module);

sub match { my ($self, $message) = @_;

return $self->{response} if $message->header($self->{field}) =~ m/\Q$self->{value}\E/; return undef; # otherwise. }

Testing Courier::Filter modules

You may dry-test filter modules using the \*(C`test-filter-module\*(C' utility. See its manpage for details.

You may also switch any or all installed filter modules into \*(L"testing\*(R" mode so you can test them without risking messages being actually rejected. See \*(L"new()\*(R" in Courier::Filter and \*(L"new()\*(R" in Courier::Filter::Module.

Bundled Courier::Filter modules

The following prepared filter modules are included with this version of Courier::Filter:

BlankBody: Detection of messages with blank bodies (symptom of stupid spammers)
\s-1DNSBL\s0: Checking of the calling \s-1MTA\s0's \s-1IP\s0 address against one or more \s-1DNS\s0 black-lists
\s-1SPF\s0: \s-1SPF\s0 (Sender Policy Framework) authorization checking of the calling \s-1MTA\s0's \s-1IP\s0 address against the envelope sender domain (classic inbound \s-1SPF\s0 checking)
SPFout: \s-1SPF\s0 authorization checking of the local system's \s-1IP\s0 address against the envelope sender domain (so-called outbound \s-1SPF\s0 checking)
Envelope: Literal and reg-exp matching of one or more \s-1RFC\s0 2821 message envelope fields
Header: Literal and reg-exp matching of one or more \s-1RFC\s0 2822 message header fields
FakeDate: Detection of implausible and malformed \*(L"Date\*(R" and \*(L"Resent-Date\*(R" header fields
ClamAVd: Malware detection using the ClamAV anti-virus scanner
SpamAssassin: Spam detection using SpamAssassin
Parts
MIMEParts (\s-1DEPRECATED\s0): Size and \s-1MD5\s0 sum matching of message (\s-1MIME\s0 multipart and \s-1ZIP\s0 archive) parts
SendCopy: Pseudo-filter for sending message copies to additional recipients

Bundled Courier::Filter loggers

The following prepared loggers are included with this version of Courier::Filter:

IOHandle: Logging to I/O handles
Syslog: Logging to syslog (based on the IOHandle logger)
File: Logging to files (based on the IOHandle logger)

Courier::Filter::Overview (3pm)