Pawel Tecza wrote:
> Earl Kinney III <[EMAIL PROTECTED]> writes:
>
>> We started seeing these kinds of spam some time ago and in response
>> wrote a custom perlfilter that rejects messages with a Delivered-To
>> containing one of our hosted domains. So far it has not blocked
>> anything it wasn't supposed to and we no longer see the bounces.
>
> Hello Earl,
>
> Could you please show us the code of your perlfilter, if it's not
> a top secret, of course ;) I think it can be very interesting
> for many Courier admins.
>
> My best regards,
>
> Pawel
Using the perlfilter-example.pl as a basis you can modify the filterdata
subroutine like so:
sub filterdata
{
my $filename=shift;
# get our domain list ($domains_file is the hosteddomains file)
my $fh=new IO::File "< $domains_file";
chomp(my @DOMAINS = <$fh>);
# construct a portion of a regex
my $domain_regex = '(' . join( '|', @DOMAINS ) . ')';
# Here's where the custom content filter is implemented. Use filehandles
# so that cleanup's automatic.
my $fh=new IO::File "< $filename";
return "" unless defined $fh;
my $line;
while ( defined ($line=<$fh>))
{
chomp $line;
last if $line eq ""; # End of headers
return "500 Already have my Delivered-To header."
if $line =~ /^Delivered-To:[EMAIL PROTECTED]/i;
}
return "";
}
--
Earl (Bob) Kinney
UNIX Systems Administrator
Harvard-MIT Data Center
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
courier-users mailing list
[email protected]
Unsubscribe: https://lists.sourceforge.net/lists/listinfo/courier-users
