Re: [Mimedefang] redirect spam for a single domain to another recipient

2014-04-03 Thread Steffen Kaiser 

-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1

On Wed, 2 Apr 2014, Marcus Schopen wrote:


I use stream_by_domain and like to redirect/move spam for a single
domain to a special recipient/mailbox and collect it there. Any better
code possible?

sub filter_end {
[...]
   if ($Domain eq 'mydomain.de'  $hits = 5) {
foreach $recip (@Recipients) {
delete_recipient($recip);
}
add_recipient('spambox');
   }


Looks good for me. About $Domain: I'm not sure, whether or not the 
domain is always lower-case and never has a dot at the end, therefore I 
always lower-case domains names and accept an additional final dot, e.g.:


$Domain =~ /\Amydomain\.de\.?\z/i

Cosmetic: foreach my $recip ...
or delete_recipient($_) for @Recipients;

- -- 
Steffen Kaiser

-BEGIN PGP SIGNATURE-
Version: GnuPG v1.4.11 (GNU/Linux)

iQEVAwUBUzz7YZSHNCne69JnAQKUXwf/fLhwChGWGTdSRgZqBRkPth5tCp8ldp89
HE1UbzONAfFDGCjABDl4EE/+erFHjfeyPzhaRlH9dh+NoNLwByD8+d3Wdadm8wVA
QlfkAirk6yHrp1njrs5fTOuf+TIL0AuX/oQGhYtza2O6Q92tHUnF97CdWM+op26c
4tLGNiMxLFzA85MIE1MdkxLc0OljWEIrK2WslYwYermMRbMiW61SAYdvOPlkJEio
3lGwML0Ey/oglAHQP8jsUZGVtoL9+e0Mh18NeeeJdSmbGtEFgduhXvUj4Zx0UGkg
KkHxI76N7SUY53Pba3/S3V7xrnVefcqBAK8UnCLzQQqskEbrB6/TPw==
=NEiN
-END PGP SIGNATURE-
___
NOTE: If there is a disclaimer or other legal boilerplate in the above
message, it is NULL AND VOID.  You may ignore it.

Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list MIMEDefang@lists.roaringpenguin.com
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang

Re: [Mimedefang] redirect spam for a single domain to another recipient

2014-04-03 Thread Marcus Schopen 
Hi Steffen,

Am Donnerstag, den 03.04.2014, 08:10 +0200 schrieb Steffen Kaiser:
 On Wed, 2 Apr 2014, Marcus Schopen wrote:
 
  I use stream_by_domain and like to redirect/move spam for a single
  domain to a special recipient/mailbox and collect it there. Any better
  code possible?
 
  sub filter_end {
  [...]
 if ($Domain eq 'mydomain.de'  $hits = 5) {
  foreach $recip (@Recipients) {
  delete_recipient($recip);
  }
  add_recipient('spambox');
 }
 
 Looks good for me. About $Domain: I'm not sure, whether or not the 
 domain is always lower-case and never has a dot at the end, therefore I 
 always lower-case domains names and accept an additional final dot, e.g.:
 
 $Domain =~ /\Amydomain\.de\.?\z/i

That's a good point!

 Cosmetic: foreach my $recip ...
 or delete_recipient($_) for @Recipients;

Thanks,
Marcus


___
NOTE: If there is a disclaimer or other legal boilerplate in the above
message, it is NULL AND VOID.  You may ignore it.

Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list MIMEDefang@lists.roaringpenguin.com
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang