filtre perl sur un mail

Bonjour,

dans le cadre d'un projet en entreprise, je doit réaliser un filtre en perl, qui intercepte un message, le ré-écrit et le ré-envoit.

un exemple : le serveur mail reçois un message de l'expéditeur "helpdesk" avec comme objet "Event Notification"
avec un text donnée

le filtre aurra pour effet de transformer ce mail et de l'envoiller au destinataire.

le probleme c'est que ça ne fait que 3 semaines que je fait du perl.
J'ai commencé à ecrire un script qui envoie le mail modifier (grace au module MIME).
Je ne sais pas du tout comment faire pour recupérer le mail de l'expediteur "helpdesk", l'empéché d'être envoyé, et donc envoyer le mail modifié à la place.

Si quelqu'un pouvais m'aider ça serai sympa.

Je bosse sous une red Hat avec comme serveur mail, Xmail.

Il faut que tu crées un filtre pour Xmail.

Tu crées d'abord ton script de filtrage :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/perl   open(IN, $ARGV[0];); @mail = <IN>; close(IN); $mail = join "", @mail;   # Faire le traitement ici, par exemple : $mail =~ s/Subject:\s/Subject: Coucou /is; open(OUT, ">$ARGV[0];"); print OUT $mail; close(OUT);   exit 100;

---

Ensuite admettons que tu veuilles filtrer les mails vers untel@corp.fr, tu crées un fichier nommé "untel\@corp.fr.tab" dans le répertoire de filtres de Xmail qui contiendra :

Code:

---

/path/to/filtre.pl "@@FILE"

---

Voilà, ca devrait suffire :)

vic

Je te remercie beaucoup ça me sera tres utiles merci :)

J'ai vraiment pas l'âme d'un develloppeur :roll:

Citation:

---

Envoyé par sasame

J'ai vraiment pas l'âme d'un develloppeur

---

Mais si, mais si, c'est comme tout, ça s'apprend.
Un petit tag résolu la prochaine fois.

@++