Malgrés mes réticences, j'ai jetté un oeil dans le code de vacation.pl (je n'y connais rien en Perl ...) et j'ai ajouté cette ligne :
if (/^X-Spam-Flag:\s+YES/i) { do_debug ("Spam", "to $to", "from $from", "subject $subject" ); exit (0); } |
Dans le main, dans la boucle while qui lit les header justement () ça donne ça :
Code :
- # Take headers apart
- while (<STDIN> ) {
- last if (/^$/);
- if (/^from:\s+(.*)\n$/i) { $from = $1; }
- if (/^to:\s+(.*)\n$/i) { $to = $1; }
- if (/^cc:\s+(.*)\n$/i) { $cc = $1; }
- if (/^subject:\s+(.*)\n$/i) { $subject = $1; }
- if (/^message-id:\s+(.*)\n$/i) { $messageid = $1; }
- if (/^X-Spam-Flag:\s+YES/i) { do_debug ("Spam", "to $to", "from $from", "subject $subject" ); exit (0); }
- if (/^precedence:\s+(bulk|list|junk)/i) { exit (0); }
- if (/^x-loop:\s+postfix\ admin\ virtual\ vacation/i) { exit (0); }
- }
|
Et ça marche (donc, dans ma config, le mail passe par l'antispam avant que les alias soient traités)
Message édité par Snipe Foo le 18-12-2006 à 18:04:19