fmagusto
11/02/2004, 17h40
J'ai un dédié, et je souhaite traiter les mails reçu à une adresse avec un script cgi.
Suite à l'envoi d'un mail à une adresse, j'obtient le lancement d'un scrip qui me lit l'objet, l'expéditeur, la date, etc. Mais j'arrive pas à traiter le message due mail. QQ à une odée de ce qu'il faut rajouter ?
Voici le bout de scrip
while (<>) # lecture de l'entree standard, ici le mail envoyé vers le script
{ chomp;
last if /^$/; # on sort a la premiere ligne vide
$From=$' if !defined($From) && /^From: /; # recuperation du chmp From: $Sujet=$' if !defined($Sujet) && /^Subject: /; # recup du sujet $headers=$' if !defined($headers) && /^headers: /; # recup de l'expediteur $Date=$' if !defined($Date) && /^Date: /; # recup de l'expediteur $To=$' if !defined($To) && /^To: /; # recup de l'expediteur
}
Suite à l'envoi d'un mail à une adresse, j'obtient le lancement d'un scrip qui me lit l'objet, l'expéditeur, la date, etc. Mais j'arrive pas à traiter le message due mail. QQ à une odée de ce qu'il faut rajouter ?
Voici le bout de scrip
while (<>) # lecture de l'entree standard, ici le mail envoyé vers le script
{ chomp;
last if /^$/; # on sort a la premiere ligne vide
$From=$' if !defined($From) && /^From: /; # recuperation du chmp From: $Sujet=$' if !defined($Sujet) && /^Subject: /; # recup du sujet $headers=$' if !defined($headers) && /^headers: /; # recup de l'expediteur $Date=$' if !defined($Date) && /^Date: /; # recup de l'expediteur $To=$' if !defined($To) && /^To: /; # recup de l'expediteur
}