#!/usr/bin/perl -w 
use strict; 
use MIME::Parser;

# Decodage des mails recus 
my $parser = new MIME::Parser; 

# Lecture sur l'entree standart du mail 
my $entity = $parser->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)."<hr>\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);