www/plugins/facteur/inc/envoyer_mail.php

   1 <?php
   2 /*
   3  * Plugin Facteur 2
   4  * (c) 2009-2011 Collectif SPIP
   5  * Distribue sous licence GPL
   6  *
   7  */
   8
   9 if (!defined("_ECRIRE_INC_VERSION")) return;
  10
  11 include_spip('classes/facteur');
  12 // inclure le fichier natif de SPIP, pour les fonctions annexes
  13 include_once _DIR_RESTREINT."inc/envoyer_mail.php";
  14
  15 /**
  16  * @param string $destinataire
  17  * @param string $sujet
  18  * @param string|array $corps
  19  *   au format string, c'est un corps d'email au format texte, comme supporte nativement par le core
  20  *   au format array, c'est un corps etendu qui peut contenir
  21  *     string texte : le corps d'email au format texte
  22  *     string html : le corps d'email au format html
  23  *     string from : email de l'envoyeur (prioritaire sur argument $from de premier niveau, deprecie)
  24  *     string nom_envoyeur : un nom d'envoyeur pour completer l'email from
  25  *     string cc : destinataires en copie conforme
  26  *     string bcc : destinataires en copie conforme cachee
  27  *     string|array repondre_a : une ou plusieurs adresses à qui répondre
  28  *     string adresse_erreur : addresse de retour en cas d'erreur d'envoi
  29  *     array pieces_jointes : listes de pieces a embarquer dans l'email, chacune au format array :
  30  *       string chemin : chemin file system pour trouver le fichier a embarquer
  31  *       string nom : nom du document tel qu'apparaissant dans l'email
  32  *       string encodage : encodage a utiliser, parmi 'base64', '7bit', '8bit', 'binary', 'quoted-printable'
  33  *       string mime : mime type du document
  34  *     array headers : tableau d'en-tetes personalises, une entree par ligne d'en-tete
  35  * @param string $from (deprecie, utiliser l'entree from de $corps)
  36  * @param string $headers (deprecie, utiliser l'entree headers de $corps)
  37  * @return bool
  38  */
  39 function inc_envoyer_mail($destinataire, $sujet, $corps, $from = "", $headers = "") {
  40         $message_html   = '';
  41         $message_texte  = '';
  42
  43         // si $corps est un tableau -> fonctionnalites etendues
  44         // avec entrees possible : html, texte, pieces_jointes, nom_envoyeur, ...
  45         if (is_array($corps)) {
  46                 $message_html   = $corps['html'];
  47                 $message_texte  = nettoyer_caracteres_mail($corps['texte']);
  48                 $pieces_jointes = $corps['pieces_jointes'];
  49                 $nom_envoyeur = $corps['nom_envoyeur'];
  50                 $from = (isset($corps['from'])?$corps['from']:$from);
  51                 $cc = $corps['cc'];
  52                 $bcc = $corps['bcc'];
  53                 $repondre_a = $corps['repondre_a'];
  54                 $adresse_erreur = $corps['adresse_erreur'];
  55                 $headers = (isset($corps['headers'])?$corps['headers']:$headers);
  56                 if (is_string($headers)){
  57                         $headers = array_map('trim',explode("\n",$headers));
  58                         $headers = array_filter($headers);
  59                 }
  60         }
  61         // si $corps est une chaine -> compat avec la fonction native SPIP
  62         // gerer le cas ou le corps est du html avec un Content-Type: text/html dans les headers
  63         else {
  64                 if (preg_match(',Content-Type:\s*text/html,ims',$headers)){
  65                         $message_html   = $corps;
  66                 }
  67                 else {
  68                         // Autodetection : tester si le mail est en HTML
  69                         if (strpos($headers,"Content-Type:")===false
  70                                 AND strpos($corps,"<")!==false // eviter les tests suivants si possible
  71                                 AND $ttrim = trim($corps)
  72                                 AND substr($ttrim,0,1)=="<"
  73                                 AND substr($ttrim,-1,1)==">"
  74                                 AND stripos($ttrim,"</html>")!==false){
  75
  76                                 if(!strlen($sujet)){
  77                                         // dans ce cas on ruse un peu : extraire le sujet du title
  78                                         if (preg_match(",<title>(.*)</title>,Uims",$corps,$m))
  79                                                 $sujet = $m[1];
  80                                         else {
  81                                                 // fallback, on prend le body si on le trouve
  82                                                 if (preg_match(",<body[^>]*>(.*)</body>,Uims",$corps,$m))
  83                                                         $ttrim = $m[1];
  84
  85                                                 // et on extrait la premiere ligne de vrai texte...
  86                                                 // nettoyer le html et les retours chariots
  87                                                 $ttrim = textebrut($ttrim);
  88                                                 $ttrim = str_replace("\r\n", "\r", $ttrim);
  89                                                 $ttrim = str_replace("\r", "\n", $ttrim);
  90                                                 // decouper
  91                                                 $ttrim = explode("\n",trim($ttrim));
  92                                                 // extraire la premiere ligne de texte brut
  93                                                 $sujet = array_shift($ttrim);
  94                                         }
  95                                 }
  96                                 $message_html   = $corps;
  97                         }
  98                         // c'est vraiment un message texte
  99                         else
 100                                 $message_texte  = nettoyer_caracteres_mail($corps);
 101                 }
 102                 $headers = array_map('trim',explode("\n",$headers));
 103                 $headers = array_filter($headers);
 104         }
 105         $sujet = nettoyer_titre_email($sujet);
 106
 107         // si le mail est en texte brut, on l'encapsule dans un modele surchargeable
 108         // pour garder le texte brut, il suffit de faire un modele qui renvoie uniquement #ENV*{texte}
 109         if ($message_texte AND ! $message_html){
 110                 $message_html = recuperer_fond("emails/texte",array('texte'=>$message_texte,'sujet'=>$sujet));
 111         }
 112         // si le mail est en HTML sans alternative, la generer
 113         if ($message_html AND !$message_texte){
 114                 $message_texte = facteur_mail_html2text($message_html);
 115         }
 116
 117         // mode TEST : forcer l'email
 118         if (defined('_TEST_EMAIL_DEST')) {
 119                 if (!_TEST_EMAIL_DEST)
 120                         return false;
 121                 else
 122                         $destinataire = _TEST_EMAIL_DEST;
 123         }
 124
 125         // plusieurs destinataires peuvent etre fournis separes par des virgules
 126         // c'est un format standard dans l'envoi de mail
 127         // les passer au format array pour phpMailer
 128         // mais ne pas casser si on a deja un array en entree
 129         // si aucun destinataire du courriel on renvoie false (eviter les warning PHP)
 130         if (is_array($destinataire))
 131                 $destinataire = implode(", ",$destinataire);
 132
 133         if(strlen($destinataire) > 0)
 134                 $destinataire = array_map('trim',explode(",",$destinataire));
 135         else {
 136                 spip_log("Aucune adresse email de destination valable pour l'envoi du courriel.", 'mail.' . _LOG_ERREUR);
 137                 return false;
 138         }
 139
 140         // On crée l'objet Facteur (PHPMailer) pour le manipuler ensuite
 141         $facteur = new Facteur($destinataire, $sujet, $message_html, $message_texte);
 142
 143         // On ajoute le courriel de l'envoyeur s'il est fournit par la fonction
 144         if (empty($from) AND empty($facteur->From)) {
 145                 $from = $GLOBALS['meta']["email_envoi"];
 146                 if (empty($from) OR !email_valide($from)) {
 147                         spip_log("Meta email_envoi invalide. Le mail sera probablement vu comme spam.", 'mail.' . _LOG_ERREUR);
 148                         $from = $destinataire;
 149                 }
 150         }
 151
 152         // "Marie Toto <Marie@toto.com>"
 153         if (preg_match(",^([^<>\"]*)<([^<>\"]+)>$,i",$from,$m)){
 154                 $nom_envoyeur = trim($m[1]);
 155                 $from = trim($m[2]);
 156         }
 157         if (!empty($from)){
 158                 $facteur->From = $from;
 159                 // la valeur par défaut de la config n'est probablement pas valable pour ce mail,
 160                 // on l'écrase pour cet envoi
 161                 $facteur->FromName = $from;
 162         }
 163
 164         // On ajoute le nom de l'envoyeur s'il fait partie des options
 165         if ($nom_envoyeur)
 166                 $facteur->FromName = $nom_envoyeur;
 167
 168         // Si plusieurs emails dans le from, pas de Name !
 169         if (strpos($facteur->From,",")!==false){
 170                 $facteur->FromName = "";
 171         }
 172
 173         // S'il y a des copies à envoyer
 174         if ($cc){
 175                 if (is_array($cc))
 176                         foreach ($cc as $courriel)
 177                                 $facteur->AddCC($courriel);
 178                 else
 179                         $facteur->AddCC($cc);
 180         }
 181
 182         // S'il y a des copies cachées à envoyer
 183         if ($bcc){
 184                 if (is_array($bcc))
 185                         foreach ($bcc as $courriel)
 186                                 $facteur->AddBCC($courriel);
 187                 else
 188                         $facteur->AddBCC($bcc);
 189         }
 190
 191         // S'il y a une adresse de reply-to
 192         if ($repondre_a){
 193                 if (is_array($repondre_a))
 194                         foreach ($repondre_a as $courriel)
 195                                 $facteur->AddReplyTo($courriel);
 196                 else
 197                         $facteur->AddReplyTo($repondre_a);
 198         }
 199
 200         // S'il y a des pièces jointes on les ajoute proprement
 201         if (count($pieces_jointes)) {
 202                 foreach ($pieces_jointes as $piece) {
 203                         $facteur->AddAttachment(
 204                                 $piece['chemin'],
 205                                 isset($piece['nom']) ? $piece['nom']:'',
 206                                 (isset($piece['encodage']) AND in_array($piece['encodage'],array('base64', '7bit', '8bit', 'binary', 'quoted-printable'))) ? $piece['encodage']:'base64',
 207                                 isset($piece['mime']) ? $piece['mime']:Facteur::_mime_types(pathinfo($piece['chemin'], PATHINFO_EXTENSION))
 208                         );
 209                 }
 210         }
 211
 212         // Si une adresse email a été spécifiée pour les retours en erreur, on l'ajoute
 213         if (!empty($adresse_erreur))
 214                 $facteur->Sender = $adresse_erreur;
 215
 216         // si entetes personalises : les ajouter
 217         // attention aux collisions : si on utilise l'option cc de $corps
 218         // et qu'on envoie en meme temps un header Cc: xxx, yyy
 219         // on aura 2 lignes Cc: dans les headers
 220         if (!empty($headers)) {
 221                 foreach($headers as $h){
 222                         // verifions le format correct : il faut au moins un ":" dans le header
 223                         // et on filtre le Content-Type: qui sera de toute facon fourni par facteur
 224                         if (strpos($h,":")!==false
 225                           AND strncmp($h,"Content-Type:",13)!==0)
 226                                 $facteur->AddCustomHeader($h);
 227                 }
 228         }
 229
 230         // On passe dans un pipeline pour modifier tout le facteur avant l'envoi
 231         $facteur = pipeline('facteur_pre_envoi', $facteur);
 232
 233         // On génère les headers
 234         $head = $facteur->CreateHeader();
 235
 236         // Et c'est parti on envoie enfin
 237         spip_log("mail via facteur\n$head"."Destinataire:".print_r($destinataire,true),'mail.' . _LOG_ERREUR);
 238         spip_log("mail\n$head"."Destinataire:".print_r($destinataire,true),'facteur');
 239         $retour = $facteur->Send();
 240
 241         if (!$retour)
 242                 spip_log("Erreur Envoi mail via Facteur : ".print_r($facteur->ErrorInfo,true),'facteur');
 243
 244         return $retour ;
 245 }
 246
 247 ?>