1 package Exim::Plugin::CheckDisclaimer;

     2 

     3 # For detailed information see the end of this

     4 # file.

     5 # Source: https://ssl.schlittermann.de/hg/exim-check-message-conformance

     6 # (c) 2015 Heiko Schlittermann

     7 

     8 use Fcntl qw/:seek/;

     9 use base 'Exporter';

    10 our @EXPORT  = qw(check_disclaimer);

    11 our $Verbose = 0;

    12 my $pattern;

    13 

    14 # Lets search for the disclaimer.

    15 # Usage: ${perl{check_disclaimer}{<disclaimer>}}

    16 #        ${perl{check_disclaimer}{<disclaimer>}{<file>}}

    17 #

    18 # The content of the <disclaimer> file is used as a regexp to be found

    19 # near the end of the <file>. If <file> is not specified, we use the

    20 # default file location:

    21 # $spool_directory/scan/$message_exim_id/$message_exim_id.eml

    22 

    23 sub check_disclaimer {

    24     my $pattern_file = shift;

    25     my $file = shift // Exim::expand_string(

    26         '$spool_directory/scan/$message_exim_id/$message_exim_id.eml');

    27 

    28     if (not defined $pattern) {

    29         open(my $fh, $pattern_file) or die "Can't open $pattern_file: $!\n";

    30         $_ = join '', <$fh>;

    31         $pattern = qr/$_/;

    32     }

    33 

    34     open(my $fh, $file) or die "Can't open $file: $!\n";

    35     seek($fh, -1024, SEEK_END)

    36       or die "Can't seek to -1024: $!\n"

    37       if -s $fh > 1024;

    38 

    39     $_ = join '', <$fh>;

    40 

    41     if (/$pattern/) {

    42         warn __PACKAGE__

    43           . ": signature pattern from $pattern_file matched in $file\n"

    44           if $Verbose;

    45         return 1;

    46     }

    47 

    48     warn __PACKAGE__

    49       . ": signature pattern from $pattern_file NOT matched in $file\n"

    50       if $Verbose;

    51     return 0;

    52 }

    53 

    54 1;

    55 

    56 __END__

    57 

    58 =head1 NAME

    59 

    60  check_disclaimer - check for an disclaimer pattern

    61 

    62 =head1 SYNOPSIS

    63 

    64  use Exim::Plugin::CheckDisclaimer;

    65  ${perl{check_disclaimer}{/etc/exim4/disclaimer}}

    66  ${perl{check_disclaimer}{/etc/exim4/disclaimer}{$mime_decoded_filename}

    67 

    68 =head1 DESCRIPTION

    69 

    70 This Plugin checks for the existence of a Message Disclaimer

    71 To use it, add the following line to your Exim configuration:

    72 

    73     perl_startup = 

    74         use lib '/etc/exim4'; \

    75         use Exim::Plugin::CheckDisclaimer; \

    76         $Exim::Plugin::CheckDisclaimer::Verbose = 1

    77 

    78 The disclaimer may be part of the MIME coverletter or 

    79 at the end of the old school message body.

    80 

    81 Now you get a callable `check_disclaimer()` function.

    82 Your MIME ACL needs about the following code:

    83 

    84     acl_check_mime:

    85 

    86       accept condition = $acl_m_sig_found

    87 

    88       warn

    89         condition           = $mime_is_coverletter

    90         !condition          = $mime_is_rfc822

    91         decode              = default

    92         set acl_m_sig_found = ${perl{check_disclaimer}{/etc/exim4/disclaimer}{$mime_decoded_filename}}

    93 

    94     accept

    95 

    96 

    97     acl_check_data:

    98 

    99       warn 

   100         !condition          = $acl_m_sig_found

   101         # temporary workaround to get the mail spooled to the .eml file

   102         # this is NOT necessary if some malware or spam acl condition

   103         # was processed already

   104         regex               = ^

   105         set acl_m_sig_found = \

   106                 ${perl{check_disclaimer}{/etc/exim4/disclaimer}}

   107 

   108       deny !condition = $acl_m_sig_found

   109             message   = no signature/disclaimer found

   110 =cut

   111 

   112 // vim:sts=2 sw=2 aw ai et