--- /dev/null
+<?php\r
+/*\r
+ * Plugin Facteur 2\r
+ * (c) 2009-2011 Collectif SPIP\r
+ * Distribue sous licence GPL\r
+ *\r
+ */\r
+\r
+if (!defined("_ECRIRE_INC_VERSION")) return;\r
+\r
+include_spip('classes/facteur');\r
+// inclure le fichier natif de SPIP, pour les fonctions annexes\r
+include_once _DIR_RESTREINT."inc/envoyer_mail.php";\r
+\r
+/**\r
+ * @param string $destinataire\r
+ * @param string $sujet\r
+ * @param string|array $corps\r
+ * au format string, c'est un corps d'email au format texte, comme supporte nativement par le core\r
+ * au format array, c'est un corps etendu qui peut contenir\r
+ * string texte : le corps d'email au format texte\r
+ * string html : le corps d'email au format html\r
+ * string from : email de l'envoyeur (prioritaire sur argument $from de premier niveau, deprecie)\r
+ * string nom_envoyeur : un nom d'envoyeur pour completer l'email from\r
+ * string cc : destinataires en copie conforme\r
+ * string bcc : destinataires en copie conforme cachee\r
+ * string|array repondre_a : une ou plusieurs adresses à qui répondre\r
+ * string adresse_erreur : addresse de retour en cas d'erreur d'envoi\r
+ * array pieces_jointes : listes de pieces a embarquer dans l'email, chacune au format array :\r
+ * string chemin : chemin file system pour trouver le fichier a embarquer\r
+ * string nom : nom du document tel qu'apparaissant dans l'email\r
+ * string encodage : encodage a utiliser, parmi 'base64', '7bit', '8bit', 'binary', 'quoted-printable'\r
+ * string mime : mime type du document\r
+ * array headers : tableau d'en-tetes personalises, une entree par ligne d'en-tete\r
+ * @param string $from (deprecie, utiliser l'entree from de $corps)\r
+ * @param string $headers (deprecie, utiliser l'entree headers de $corps)\r
+ * @return bool\r
+ */\r
+function inc_envoyer_mail($destinataire, $sujet, $corps, $from = "", $headers = "") {\r
+ $message_html = '';\r
+ $message_texte = '';\r
+\r
+ // si $corps est un tableau -> fonctionnalites etendues\r
+ // avec entrees possible : html, texte, pieces_jointes, nom_envoyeur, ...\r
+ if (is_array($corps)) {\r
+ $message_html = $corps['html'];\r
+ $message_texte = nettoyer_caracteres_mail($corps['texte']);\r
+ $pieces_jointes = $corps['pieces_jointes'];\r
+ $nom_envoyeur = $corps['nom_envoyeur'];\r
+ $from = (isset($corps['from'])?$corps['from']:$from);\r
+ $cc = $corps['cc'];\r
+ $bcc = $corps['bcc'];\r
+ $repondre_a = $corps['repondre_a'];\r
+ $adresse_erreur = $corps['adresse_erreur'];\r
+ $headers = (isset($corps['headers'])?$corps['headers']:$headers);\r
+ if (is_string($headers))\r
+ $headers = array_map('trim',explode("\n",$headers));\r
+ }\r
+ // si $corps est une chaine -> compat avec la fonction native SPIP\r
+ // gerer le cas ou le corps est du html avec un Content-Type: text/html dans les headers\r
+ else {\r
+ if (preg_match(',Content-Type:\s*text/html,ims',$headers)){\r
+ $message_html = $corps;\r
+ }\r
+ else {\r
+ // Autodetection : tester si le mail est en HTML\r
+ if (strpos($headers,"Content-Type:")===false\r
+ AND strpos($corps,"<")!==false // eviter les tests suivants si possible\r
+ AND $ttrim = trim($corps)\r
+ AND substr($ttrim,0,1)=="<"\r
+ AND substr($ttrim,-1,1)==">"\r
+ AND stripos($ttrim,"</html>")!==false){\r
+\r
+ if(!strlen($sujet)){\r
+ // dans ce cas on ruse un peu : extraire le sujet du title\r
+ if (preg_match(",<title>(.*)</title>,Uims",$corps,$m))\r
+ $sujet = $m[1];\r
+ else {\r
+ // fallback, on prend le body si on le trouve\r
+ if (preg_match(",<body[^>]*>(.*)</body>,Uims",$corps,$m))\r
+ $ttrim = $m[1];\r
+\r
+ // et on extrait la premiere ligne de vrai texte...\r
+ // nettoyer le html et les retours chariots\r
+ $ttrim = textebrut($ttrim);\r
+ $ttrim = str_replace("\r\n", "\r", $ttrim);\r
+ $ttrim = str_replace("\r", "\n", $ttrim);\r
+ // decouper\r
+ $ttrim = explode("\n",trim($ttrim));\r
+ // extraire la premiere ligne de texte brut\r
+ $sujet = array_shift($ttrim);\r
+ }\r
+ }\r
+ $message_html = $corps;\r
+ }\r
+ // c'est vraiment un message texte\r
+ else\r
+ $message_texte = nettoyer_caracteres_mail($corps);\r
+ }\r
+ $headers = array_map('trim',explode("\n",$headers));\r
+ }\r
+ $sujet = nettoyer_titre_email($sujet);\r
+\r
+ // si le mail est en texte brut, on l'encapsule dans un modele surchargeable\r
+ // pour garder le texte brut, il suffit de faire un modele qui renvoie uniquement #ENV*{texte}\r
+ if ($message_texte AND ! $message_html){\r
+ $message_html = recuperer_fond("emails/texte",array('texte'=>$message_texte,'sujet'=>$sujet));\r
+ }\r
+ // si le mail est en HTML sans alternative, la generer\r
+ if ($message_html AND !$message_texte){\r
+ $message_texte = facteur_mail_html2text($message_html);\r
+ }\r
+\r
+ // mode TEST : forcer l'email\r
+ if (defined('_TEST_EMAIL_DEST')) {\r
+ if (!_TEST_EMAIL_DEST)\r
+ return false;\r
+ else\r
+ $destinataire = _TEST_EMAIL_DEST;\r
+ }\r
+\r
+ // plusieurs destinataires peuvent etre fournis separes par des virgules\r
+ // c'est un format standard dans l'envoi de mail\r
+ // les passer au format array pour phpMailer\r
+ // mais ne pas casser si on a deja un array en entree\r
+ if (is_array($destinataire))\r
+ $destinataire = implode(", ",$destinataire);\r
+ $destinataire = array_map('trim',explode(",",$destinataire));\r
+ \r
+ // On crée l'objet Facteur (PHPMailer) pour le manipuler ensuite\r
+ $facteur = new Facteur($destinataire, $sujet, $message_html, $message_texte);\r
+ \r
+ // On ajoute le courriel de l'envoyeur s'il est fournit par la fonction\r
+ if (empty($from) AND empty($facteur->From)) {\r
+ $from = $GLOBALS['meta']["email_envoi"];\r
+ if (empty($from) OR !email_valide($from)) {\r
+ spip_log("Meta email_envoi invalide. Le mail sera probablement vu comme spam.");\r
+ $from = $destinataire;\r
+ }\r
+ }\r
+\r
+ // "Marie Toto <Marie@toto.com>"\r
+ if (preg_match(",^([^<>\"]*)<([^<>\"]+)>$,i",$from,$m)){\r
+ $nom_envoyeur = trim($m[1]);\r
+ $from = trim($m[2]);\r
+ }\r
+ if (!empty($from)){\r
+ $facteur->From = $from;\r
+ // la valeur par défaut de la config n'est probablement pas valable pour ce mail,\r
+ // on l'écrase pour cet envoi\r
+ $facteur->FromName = $from;\r
+ }\r
+\r
+ // On ajoute le nom de l'envoyeur s'il fait partie des options\r
+ if ($nom_envoyeur)\r
+ $facteur->FromName = $nom_envoyeur;\r
+\r
+ // Si plusieurs emails dans le from, pas de Name !\r
+ if (strpos($facteur->From,",")!==false){\r
+ $facteur->FromName = "";\r
+ }\r
+\r
+ // S'il y a des copies à envoyer\r
+ if ($cc){\r
+ if (is_array($cc))\r
+ foreach ($cc as $courriel)\r
+ $facteur->AddCC($courriel);\r
+ else\r
+ $facteur->AddCC($cc);\r
+ }\r
+ \r
+ // S'il y a des copies cachées à envoyer\r
+ if ($bcc){\r
+ if (is_array($bcc))\r
+ foreach ($bcc as $courriel)\r
+ $facteur->AddBCC($courriel);\r
+ else\r
+ $facteur->AddBCC($bcc);\r
+ }\r
+ \r
+ // S'il y a des copies cachées à envoyer\r
+ if ($repondre_a){\r
+ if (is_array($repondre_a))\r
+ foreach ($repondre_a as $courriel)\r
+ $facteur->AddReplyTo($courriel);\r
+ else\r
+ $facteur->AddReplyTo($repondre_a);\r
+ }\r
+ \r
+ // S'il y a des pièces jointes on les ajoute proprement\r
+ if (count($pieces_jointes)) {\r
+ foreach ($pieces_jointes as $piece) {\r
+ $facteur->AddAttachment(\r
+ $piece['chemin'],\r
+ isset($piece['nom']) ? $piece['nom']:'',\r
+ (isset($piece['encodage']) AND in_array($piece['encodage'],array('base64', '7bit', '8bit', 'binary', 'quoted-printable'))) ? $piece['encodage']:'base64',\r
+ isset($piece['mime']) ? $piece['mime']:Facteur::_mime_types(pathinfo($piece['chemin'], PATHINFO_EXTENSION))\r
+ );\r
+ }\r
+ }\r
+\r
+ // Si une adresse email a été spécifiée pour les retours en erreur, on l'ajoute\r
+ if (!empty($adresse_erreur))\r
+ $facteur->Sender = $adresse_erreur;\r
+\r
+ // si entetes personalises : les ajouter\r
+ // bug : semble ecraser les autres headers. A debug si on veut le rendre fonctionnel\r
+ //if (!empty($headers)) {\r
+ // foreach($headers as $h)\r
+ // $facteur->AddCustomHeader($h);\r
+ //}\r
+ \r
+ // On passe dans un pipeline pour modifier tout le facteur avant l'envoi\r
+ $facteur = pipeline('facteur_pre_envoi', $facteur);\r
+ \r
+ // On génère les headers\r
+ $head = $facteur->CreateHeader();\r
+\r
+ // Et c'est parti on envoie enfin\r
+ spip_log("mail via facteur\n$head"."Destinataire:".print_r($destinataire,true),'mail');\r
+ spip_log("mail\n$head"."Destinataire:".print_r($destinataire,true),'facteur');\r
+ $retour = $facteur->Send();\r
+ \r
+ if (!$retour)\r
+ spip_log("Erreur Envoi mail via Facteur : ".print_r($facteur->ErrorInfo,true),'facteur');\r
+\r
+ return $retour ;\r
+}\r
+\r
+?>\r