On Sun, 21 Mar 2004 00:00:17 -0600
Michael Sims <[EMAIL PROTECTED]> wrote:
> Try this in filter_end (untested):
>
> open(HEADERS, '< ./HEADERS');
> while (<HEADERS>) {
> if (/^X-Telstra-AS-Scanner: .*?, (.*?)% /i
> && $1 >= 90) {
>
> delete_recipient($_) foreach (@Recipients);
> add_recipient('[EMAIL PROTECTED]');
> last;
> }
> }
> close(HEADERS);
>
> ___________________________________________
> Michael Sims
Hi again Michael (and anybody else who has interest in this thread),
So far, this seems to be successful in that it doesn't cause any dramas for legitimate
mail coming in. I haven't received any with the applicable headers yet to be sure if
it gets rid of the spam though.
However, I also want to add in a section to get rid of mail with the "X-Habeas-SWE"
type headers as they also only appear to be spam, but my ISP for some reason seems to
let them through as valid messages.
I have added the following lines to my mimedefang-filter, between the two } curly
brackets at the end, which I assume would include it in the "while (<HEADERS>) {"
routine:
if (/^X-Habeas-SWE) {
delete_recipient($_) foreach (@Recipients);
add_recipient('[EMAIL PROTECTED]');
last;
}
I have, of course, substituted '[EMAIL PROTECTED]' with my local spamdrop mailbox.
I thought that this would work, but when I run mimedefang.pl -test, it comes up with
errors about bare text and missing curly brackets etc., so obviously it is not correct.
Can anyone enlighten me as to what I have done wrong or tell me how I can add an "or"
type statement into the first part Michael has provided?
Thanks,
Pete
_______________________________________________
Visit http://www.mimedefang.org and http://www.canit.ca
MIMEDefang mailing list
[EMAIL PROTECTED]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
