The goal is to have it such that our hosted mailing lists do not get passed through the spamassassin plugin since the lists are subscription based only. Now, rather inefficiently, I have the code below, but it litterally populates the array @lists with each and every call. Ideally, I would like to put the array and its contents in the global namespace to avoid the generation of the contents of the array (eg: get_lists) each time an email is processed.
Our mailing lists do not change frequently, but new ones do get added and older ones do get removed/archived. So, maintaining the dynamic nature is relatively important. We don't want to restart mimedefang just because a mailing list was added or removed, but we CAN live with the fact that it may take some time for mimedefang to 'learn' about the changes. In other word, I realize that if the array is populated in the global namespace, it is there, unchanged, for the life of the slave, but we can live with that, since slaves come and go, and as new ones come, they will have the new list of lists. :)
-Rich
#*********************************************************************** # %PROCEDURE: get_list # %ARGUMENTS: # None # %RETURNS: # Array of lists on the system # %DESCRIPTION: # This function fills an array with the names of all of the mailing # lists on the system. #*********************************************************************** sub get_lists { open (LISTS, "/var/mailman/bin/list_lists -b|") or die "Could not execute '/var/mailman/bin/list_lists -b'.\n"; @lists = <LISTS>; close(LISTS); return (@lists); }
#***********************************************************************
# %PROCEDURE: is_list
# %ARGUMENTS:
# listname -- the name of the mailing list
# %RETURNS:
# boolean - positive if the recipient matches a list name.
# %DESCRIPTION:
# This function matches the incoming mailing address with a list name.
# We do not scan the contents of mailing lists as spam.
#***********************************************************************
sub is_list
{
my($listname) = shift;
my(@lists) = @_;
##
## The email address, as it comes in, is surrounded by
## brackets. We have to massage it a little in order to do
## proper matching. eg: '<[EMAIL PROTECTED]>' needs to be 'test'.
##
$listname = (split("\@", $listname))[0];
$listname = (split("\<", $listname))[1];
foreach $list (@lists)
{
chop($list);
return 1 if ($list =~ /^$listname/i);
}
return 0;
}sub filter_end ($) {
my($entity) = @_;
my(@lists);
my($blacklist);
...
if ($RelayAddr eq "127.0.0.1" or $RelayAddr eq "mailserver.dotted.ip.address")
{
md_graphdefang_log('mail_out',,$RelayAddr);
}
else
{
# Do not scan any messages going to any of the mailing lists.
@lists = &get_lists();
foreach $recipient (@Recipients)
{
if (&is_list($recipient,@lists))
{
md_graphdefang_log('mail_in', , $RelayAddr);
md_graphdefang_log('mailing_list', $hits, $RelayAddr);
return;
}
}
# Spam checks if SpamAssassin is installed
if ($Features{"SpamAssassin"}) {
...
_______________________________________________
Visit http://www.mimedefang.org and http://www.canit.ca
MIMEDefang mailing list
[EMAIL PROTECTED]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
