http://lea-linux.org/pho/list/5 fr-FR Tue, 13 May 2008 14:33:22 +0200 Tue, 13 May 2008 14:33:22 +0200 Administration Phorum 5.0.21 RSS Feed Generator - Léa version 1.2 http://lea-linux.org/pho/list/5 http://lea-linux.org/images/logo-rss/logo-rss-admin.png 600 http://lea-linux.org/pho/read/5/336759/336983#msg-336983 zildjian <phorum@lealinux.org> read(\*STDIN) || die "couldn't parse MIME stream"; # On recupere l'entete du message my $head = $entity->head(); my $body = $entity->body(); # on a ici dans body une reference a un tableau contenant els lignes du message my @tab; my @corp; #Recuperation des informations # On recupere l'expediteur du message $tab[0] = $head->get('From:'); # On recupere le destinataire du message $tab[1] = $head->get('To:'); # On recupere les autres destinataires du message(copies) $tab[2] = $head->get('Cc:'); # On recupere le Sujet du message $tab[3]= $head->get('Subject:'); # On recupere la date du message $tab[4] = $head->get('Date:'); # On recupere le corps du message #$tab[5]= "Body :".$message."\n\n{[intercepté par clem]}\n"; #####recuperation du body @corp=@$body; #on met ds le tableau corp le contenu du tableau pointé par body #on regroupe dans une ligne $tab[5]= "Body :".(join "",@corp)."\n{[intercepté par clem]}\n"; ######################## #(essai1)je ré-écrit l'entete dans un fichier my $line=join "",@tab; open(FILE,">/script/".$tab[3].".txt")or die "Erreur d ouverture : $!"; print FILE $line; close FILE; use MIME::Lite; ##########code pour envoyer un mail my $msg = new MIME::Lite From =>'clement@postfix.audiens.fr', To =>'azerty@postfix.audiens.fr', Cc =>'', Subject =>'ACK reception', Date =>'', Data =>'essai d envoi a la fin du script'; $msg -> send; exit(1); [/code]]]> Administration http://lea-linux.org/pho/read/5/336759/336983#msg-336983 Tue, 13 May 2008 14:33:22 +0200 http://lea-linux.org/pho/read/5/336759/336759#msg-336759 zildjian <phorum@lealinux.org> clement:"|monscript.pl" mon script utilise MIME::tools (dont le parser), pour travailler sur le mail. Jusque là me direz vous tout va bien.Si seulement... ce qui se passe : -envoi d'un mail de azerty@postfix.domaine.fr vers clement.postfix.domaine.fr -le script se lance, mais je ne recoit pas de message sur clement.postfix.domaine.fr ...A mon (humble) avis, quand mon script renvoie le mail, il relance le script...bouclage??? Le script actuel pour bientot.Merci d'avance]]> Administration http://lea-linux.org/pho/read/5/336759/336759#msg-336759 Wed, 07 May 2008 16:38:53 +0200