1 # include at the beginning

     2 

     3  perl_startup = do '…/check-message-conformance.pm'

     4 

     5 # ----

     6 

     7 # scan mime

     8  acl_smtp_mime = acl_check_mime

     9 

    10 # scan data

    11  acl_smtp_data = acl_check_mime

    12 

    13 # -----

    14 

    15 acl_check_mime:

    16 

    17   accept condition = $acl_m_sig_found

    18 

    19   warn

    20     condition  = $mime_is_coverletter

    21     !condition = $mime_is_rfc822

    22     decode = default

    23     set acl_m_sig_found = ${perl{check_sig}{$mime_decoded_filename}}

    24 

    25   accept

    26 

    27 

    28 acl_check_data:

    29 

    30   warn 

    31     !condition = $acl_m_sig_found

    32     set acl_m_sig_found = \

    33         ${perl{check_sig}\

    34               {$spool_directory/scan/$message_exim_id/$message_exim_id.eml}}

    35 

    36   require 

    37     message = no signature/disclaimer found

    38     condition = $acl_m_sig_found

    39 

    40 

    41     …