./MailFilter/LogMailIn.pm


package MailFilter::LogMailIn;

# log incoming emails for graphdefang
#
# based on:
# $Id: suggested-minimum-filter-for-windows-clients,v 1.81 2004/10/26 18:34:33 dfs Exp $

use strict;
use warnings;
use Mimedefang qw(message_rejected :logging);

sub filter_end ($) {
    my($entity) = @_;

    # Do not log if rejected
    return if message_rejected();

    md_graphdefang_log('mail_in');
}

# DO NOT delete the next line, or Perl will complain.
1;