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;