filtre perl sur un mail

**sasame** · 17/01/2005, 18h23

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.

**vic** · 20/01/2005, 12h44

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part