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  *     bool exceptions : lancer une exception en cas d'erreur (false par defaut)
  36  * @param string $from (deprecie, utiliser l'entree from de $corps)
  37  * @param string $headers (deprecie, utiliser l'entree headers de $corps)
  38  * @return bool
  39  */
  40 function inc_envoyer_mail($destinataire, $sujet, $corps, $from = "", $headers = "") {
  41         $message_html   = '';
  42         $message_texte  = '';
  43         $nom_envoyeur = $cc = $bcc = $repondre_a = '';
  44         $pieces_jointes = array();
  45
  46         // si $corps est un tableau -> fonctionnalites etendues
  47         // avec entrees possible : html, texte, pieces_jointes, nom_envoyeur, ...
  48         if (is_array($corps)) {
  49                 $message_html   = isset($corps['html']) ? $corps['html'] : "";
  50                 $message_texte  = isset($corps['texte']) ? nettoyer_caracteres_mail($corps['texte']) : "";
  51                 $pieces_jointes = isset($corps['pieces_jointes']) ? $corps['pieces_jointes'] : array();
  52                 $nom_envoyeur   = isset($corps['nom_envoyeur']) ? $corps['nom_envoyeur'] : "";
  53                 $from = isset($corps['from']) ? $corps['from']: $from;
  54                 $cc   = isset($corps['cc']) ? $corps['cc'] : "";
  55                 $bcc  = isset($corps['bcc']) ? $corps['bcc'] : "";
  56                 $repondre_a = isset($corps['repondre_a']) ? $corps['repondre_a'] : "";
  57                 $adresse_erreur = isset($corps['adresse_erreur']) ? $corps['adresse_erreur'] : "";
  58                 $headers = isset($corps['headers']) ? $corps['headers'] : $headers;
  59                 if (is_string($headers)){
  60                         $headers = array_map('trim',explode("\n",$headers));
  61                         $headers = array_filter($headers);
  62                 }
  63         }
  64         // si $corps est une chaine -> compat avec la fonction native SPIP
  65         // gerer le cas ou le corps est du html avec un Content-Type: text/html dans les headers
  66         else {
  67                 if (preg_match(',Content-Type:\s*text/html,ims',$headers)){
  68                         $message_html   = $corps;
  69                 }
  70                 else {
  71                         // Autodetection : tester si le mail est en HTML
  72                         if (strpos($headers,"Content-Type:")===false
  73                                 AND strpos($corps,"<")!==false // eviter les tests suivants si possible
  74                                 AND $ttrim = trim($corps)
  75                                 AND substr($ttrim,0,1)=="<"
  76                                 AND substr($ttrim,-1,1)==">"
  77                                 AND stripos($ttrim,"</html>")!==false){
  78
  79                                 if(!strlen($sujet)){
  80                                         // dans ce cas on ruse un peu : extraire le sujet du title
  81                                         if (preg_match(",<title>(.*)</title>,Uims",$corps,$m))
  82                                                 $sujet = $m[1];
  83                                         else {
  84                                                 // fallback, on prend le body si on le trouve
  85                                                 if (preg_match(",<body[^>]*>(.*)</body>,Uims",$corps,$m))
  86                                                         $ttrim = $m[1];
  87
  88                                                 // et on extrait la premiere ligne de vrai texte...
  89                                                 // nettoyer le html et les retours chariots
  90                                                 $ttrim = textebrut($ttrim);
  91                                                 $ttrim = str_replace("\r\n", "\r", $ttrim);
  92                                                 $ttrim = str_replace("\r", "\n", $ttrim);
  93                                                 // decouper
  94                                                 $ttrim = explode("\n",trim($ttrim));
  95                                                 // extraire la premiere ligne de texte brut
  96                                                 $sujet = array_shift($ttrim);
  97                                         }
  98                                 }
  99                                 $message_html   = $corps;
 100                         }
 101                         // c'est vraiment un message texte
 102                         else
 103                                 $message_texte  = nettoyer_caracteres_mail($corps);
 104                 }
 105                 $headers = array_map('trim',explode("\n",$headers));
 106                 $headers = array_filter($headers);
 107         }
 108         $sujet = nettoyer_titre_email($sujet);
 109
 110         // si le mail est en texte brut, on l'encapsule dans un modele surchargeable
 111         // pour garder le texte brut, il suffit de faire un modele qui renvoie uniquement #ENV*{texte}
 112         if ($message_texte AND ! $message_html){
 113                 $message_html = recuperer_fond("emails/texte",array('texte'=>$message_texte,'sujet'=>$sujet));
 114         }
 115         // si le mail est en HTML sans alternative, la generer
 116         if ($message_html AND !$message_texte){
 117                 $message_texte = facteur_mail_html2text($message_html);
 118         }
 119
 120         $exceptions = false;
 121         if (is_array($corps) AND isset($corps['exceptions'])){
 122                 $exceptions = $corps['exceptions'];
 123         }
 124
 125         // mode TEST : forcer l'email
 126         if (defined('_TEST_EMAIL_DEST')) {
 127                 if (!_TEST_EMAIL_DEST){
 128                         spip_log($e="Envois bloques par la constante _TEST_EMAIL_DEST", 'mail.' . _LOG_ERREUR);
 129                         if ($exceptions) {
 130                                 throw new Exception($e);
 131                         }
 132                         return false;
 133                 }
 134                 else
 135                         $destinataire = _TEST_EMAIL_DEST;
 136         }
 137
 138         // plusieurs destinataires peuvent etre fournis separes par des virgules
 139         // c'est un format standard dans l'envoi de mail
 140         // les passer au format array pour phpMailer
 141         // mais ne pas casser si on a deja un array en entree
 142         // si pas destinataire du courriel on renvoie false (eviter les warning PHP : ligne 464 de phpmailer-php5/class.phpmailer.php
 143         // suppression des adresses de courriels invalides, si aucune valide, renvoyer false (eviter un warning PHP : ligne 464 de phpmailer-php5/class.phpmailer.php)
 144         if (is_array($destinataire))
 145                 $destinataire = implode(", ",$destinataire);
 146
 147         if(strlen($destinataire) > 0){
 148                 $destinataire = array_map('trim',explode(",",$destinataire));
 149                 foreach ($destinataire as $key => $value) {
 150                         if(!email_valide($value))
 151                                 unset($destinataire[$key]);
 152                 }
 153                 if(count($destinataire) == 0) {
 154                         spip_log($e="Aucune adresse email de destination valable pour l'envoi du courriel.", 'mail.' . _LOG_ERREUR);
 155                         if ($exceptions) {
 156                                 throw new Exception($e);
 157                         }
 158                         return false;
 159                 }
 160         }
 161         else {
 162                 spip_log($e="Aucune adresse email de destination valable pour l'envoi du courriel.", 'mail.' . _LOG_ERREUR);
 163                 if ($exceptions) {
 164                         throw new Exception($e);
 165                 }
 166                 return false;
 167         }
 168
 169         // On crée l'objet Facteur (PHPMailer) pour le manipuler ensuite
 170         $facteur = new Facteur($destinataire, $sujet, $message_html, $message_texte);
 171         if (is_array($corps) AND isset($corps['exceptions'])){
 172                 $facteur->SetExceptions($corps['exceptions']);
 173         }
 174
 175         // On ajoute le courriel de l'envoyeur s'il est fournit par la fonction
 176         if (empty($from) AND empty($facteur->From)) {
 177                 $from = $GLOBALS['meta']["email_envoi"];
 178                 if (empty($from) OR !email_valide($from)) {
 179                         spip_log("Meta email_envoi invalide. Le mail sera probablement vu comme spam.", 'mail.' . _LOG_ERREUR);
 180                         if(is_array($destinataire) && count($destinataire) > 0)
 181                                 $from = $destinataire[0];
 182                         else
 183                                 $from = $destinataire;
 184                 }
 185         }
 186
 187         // "Marie Toto <Marie@toto.com>"
 188         if (preg_match(",^([^<>\"]*)<([^<>\"]+)>$,i",$from,$m)){
 189                 $nom_envoyeur = trim($m[1]);
 190                 $from = trim($m[2]);
 191         }
 192         if (!empty($from)){
 193                 $facteur->From = $from;
 194                 // la valeur par défaut de la config n'est probablement pas valable pour ce mail,
 195                 // on l'écrase pour cet envoi
 196                 $facteur->FromName = $from;
 197         }
 198
 199         // On ajoute le nom de l'envoyeur s'il fait partie des options
 200         if ($nom_envoyeur)
 201                 $facteur->FromName = $nom_envoyeur;
 202
 203         // Si plusieurs emails dans le from, pas de Name !
 204         if (strpos($facteur->From,",")!==false){
 205                 $facteur->FromName = "";
 206         }
 207
 208         // S'il y a des copies à envoyer
 209         if ($cc){
 210                 if (is_array($cc))
 211                         foreach ($cc as $courriel)
 212                                 $facteur->AddCC($courriel);
 213                 else
 214                         $facteur->AddCC($cc);
 215         }
 216
 217         // S'il y a des copies cachées à envoyer
 218         if ($bcc){
 219                 if (is_array($bcc))
 220                         foreach ($bcc as $courriel)
 221                                 $facteur->AddBCC($courriel);
 222                 else
 223                         $facteur->AddBCC($bcc);
 224         }
 225
 226         // S'il y a une adresse de reply-to
 227         if ($repondre_a){
 228                 if (is_array($repondre_a))
 229                         foreach ($repondre_a as $courriel)
 230                                 $facteur->AddReplyTo($courriel);
 231                 else
 232                         $facteur->AddReplyTo($repondre_a);
 233         }
 234
 235         // S'il y a des pièces jointes on les ajoute proprement
 236         if (count($pieces_jointes)) {
 237                 foreach ($pieces_jointes as $piece) {
 238                         $facteur->AddAttachment(
 239                                 $piece['chemin'],
 240                                 isset($piece['nom']) ? $piece['nom']:'',
 241                                 (isset($piece['encodage']) AND in_array($piece['encodage'],array('base64', '7bit', '8bit', 'binary', 'quoted-printable'))) ? $piece['encodage']:'base64',
 242                                 isset($piece['mime']) ? $piece['mime']:Facteur::_mime_types(pathinfo($piece['chemin'], PATHINFO_EXTENSION))
 243                         );
 244                 }
 245         }
 246
 247         // Si une adresse email a été spécifiée pour les retours en erreur, on l'ajoute
 248         if (!empty($adresse_erreur))
 249                 $facteur->Sender = $adresse_erreur;
 250
 251         // si entetes personalises : les ajouter
 252         // attention aux collisions : si on utilise l'option cc de $corps
 253         // et qu'on envoie en meme temps un header Cc: xxx, yyy
 254         // on aura 2 lignes Cc: dans les headers
 255         if (!empty($headers)) {
 256                 foreach($headers as $h){
 257                         // verifions le format correct : il faut au moins un ":" dans le header
 258                         // et on filtre le Content-Type: qui sera de toute facon fourni par facteur
 259                         if (strpos($h,":")!==false
 260                           AND strncmp($h,"Content-Type:",13)!==0)
 261                                 $facteur->AddCustomHeader($h);
 262                 }
 263         }
 264
 265         // On passe dans un pipeline pour modifier tout le facteur avant l'envoi
 266         $facteur = pipeline('facteur_pre_envoi', $facteur);
 267
 268         // On génère les headers
 269         $head = $facteur->CreateHeader();
 270
 271         // Et c'est parti on envoie enfin
 272         spip_log("mail via facteur\n$head"."Destinataire:".print_r($destinataire,true),'mail');
 273         spip_log("mail\n$head"."Destinataire:".print_r($destinataire,true),'facteur');
 274         $retour = $facteur->Send();
 275
 276         if (!$retour){
 277                 spip_log("Erreur Envoi mail via Facteur : ".print_r($facteur->ErrorInfo,true),'mail.'._LOG_ERREUR);
 278         }
 279
 280         return $retour ;
 281 }