j'ai fait mon anti-spam en sh, ca marche nickel. Voici la commande dans
procmail:
# filtrage a partir d'une whitelist
FROM=`formail -XFrom: | formail -r -xTo: | tr -d ' '`
:0
* ! ? grep -F -i -x -q "$FROM" $HOME/.whitelist
IMAP/unknown
Stephane
Stephane Driussi wrote:
> bonjour a tous,
>
> je voudrais realiser un logiciel anti-spam dont le principe serait de
> mettre tout mails dont l'expediteur est inconnu dans un repertoire
> unknown.
> la liste des expediteurs connus serait issue d'une extraction
> reguliere de mon compte email. Ainsi si dans unknown il y a un vrai
> mail, un deplacement manuel de celui-ci suffit pour inscrire la personne.
>
> dans .procmailrc je place les lignes suivantes:
>
> :0fw
> | /usr/local/bin/spam.pl
>
> :0
> * ^X-Spam-Found: yes
> $HOME/IMAP/unknown
>
> mon soucis est dans l'ecriture du programme perl qui va extraire le
> email de l'expediteur et le comparer a la liste.
>
> y aurait-il une ame charitale qui pourrait me fournir un bout de code
> en perl pour m'aider a realiser cette fonction ?
>
> Stephane
>
