www/ecrire/inc/envoyer_mail.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2017                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   9  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
  10  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
  11 \***************************************************************************/
  12
  13 /**
  14  * Gestion des emails et de leur envoi
  15  *
  16  * @package SPIP\Core\Mail
  17  **/
  18 if (!defined('_ECRIRE_INC_VERSION')) {
  19         return;
  20 }
  21
  22 include_spip('inc/charsets');
  23 include_spip('inc/texte');
  24
  25 /**
  26  * Nettoyer le titre d'un email
  27  *
  28  * @uses textebrut()
  29  * @uses corriger_typo()
  30  *
  31  * @param  string $titre
  32  * @return string
  33  */
  34 function nettoyer_titre_email($titre) {
  35         return str_replace("\n", ' ', textebrut(corriger_typo($titre)));
  36 }
  37
  38 /**
  39  * Utiliser le bon encodage de caractères selon le charset
  40  *
  41  * Caractères pris en compte : apostrophe, double guillemet,
  42  * le tiret cadratin, le tiret demi-cadratin
  43  *
  44  * @uses filtrer_entites()
  45  *
  46  * @param string $t
  47  * @return string
  48  */
  49 function nettoyer_caracteres_mail($t) {
  50
  51         $t = filtrer_entites($t);
  52
  53         if ($GLOBALS['meta']['charset'] <> 'utf-8') {
  54                 $t = str_replace(
  55                         array('&#8217;', '&#8220;', '&#8221;'),
  56                         array("'", '"', '"'),
  57                         $t
  58                 );
  59         }
  60
  61         $t = str_replace(
  62                 array('&mdash;', '&endash;'),
  63                 array('--', '-'),
  64                 $t
  65         );
  66
  67         return $t;
  68 }
  69
  70 /**
  71  * Envoi d'un mail
  72  *
  73  * @param string $destinataire
  74  * @param string $sujet
  75  * @param string|array $corps
  76  *   - au format string, c'est un corps d'email au format texte, comme supporte nativement par le core
  77  *   - au format array, c'est un corps etendu qui peut contenir
  78  *     - string texte : le corps d'email au format texte
  79  *     - string from : email de l'envoyeur (prioritaire sur argument $from de premier niveau, deprecie)
  80  *     - array headers : tableau d'en-tetes personalises, une entree par ligne d'en-tete
  81  *         --- Support partiel par une fonction mail_embarquer_pieces_jointes a fournir, ---
  82  *         --- chargee de convertir en texte encodee les pieces jointes ---
  83  *     - array pieces_jointes : listes de pieces a embarquer dans l'email, chacune au format array :
  84  *       - string chemin : chemin file system pour trouver le fichier a embarquer
  85  *       - string nom : nom du document tel qu'apparaissant dans l'email
  86  *       - string encodage : encodage a utiliser, parmi 'base64', '7bit', '8bit', 'binary', 'quoted-printable'
  87  *       - string mime : mime type du document
  88  *             --- Non implemente ici ---
  89  *     - string html : le corps d'email au format html
  90  *     - string nom_envoyeur : un nom d'envoyeur pour completer l'email from
  91  *     - string cc : destinataires en copie conforme
  92  *     - string bcc : destinataires en copie conforme cachee
  93  *     - string adresse_erreur : addresse de retour en cas d'erreur d'envoi
  94  * @param string $from (deprecie, utiliser l'entree from de $corps)
  95  * @param string $headers (deprecie, utiliser l'entree headers de $corps)
  96  * @return bool
  97  */
  98 function inc_envoyer_mail_dist($destinataire, $sujet, $corps, $from = '', $headers = '') {
  99
 100         if (!email_valide($destinataire)) {
 101                 return false;
 102         }
 103         if ($destinataire == _T('info_mail_fournisseur')) {
 104                 return false;
 105         } // tres fort
 106
 107         // Fournir si possible un Message-Id: conforme au RFC1036,
 108         // sinon SpamAssassin denoncera un MSGID_FROM_MTA_HEADER
 109
 110         $email_envoi = $GLOBALS['meta']['email_envoi'];
 111         if (!email_valide($email_envoi)) {
 112                 spip_log('Meta email_envoi invalide. Le mail sera probablement vu comme spam.');
 113                 $email_envoi = $destinataire;
 114         }
 115
 116         $parts = '';
 117         if (is_array($corps)) {
 118                 $texte = $corps['texte'];
 119                 $from = (isset($corps['from']) ? $corps['from'] : $from);
 120                 $headers = (isset($corps['headers']) ? $corps['headers'] : $headers);
 121                 if (is_array($headers)) {
 122                         $headers = implode("\n", $headers);
 123                 }
 124                 if ($corps['pieces_jointes'] and function_exists('mail_embarquer_pieces_jointes')) {
 125                         $parts = mail_embarquer_pieces_jointes($corps['pieces_jointes']);
 126                 }
 127         } else {
 128                 $texte = $corps;
 129         }
 130
 131         if (!$from) {
 132                 $from = $email_envoi;
 133         }
 134
 135         // ceci est la RegExp NO_REAL_NAME faisant hurler SpamAssassin
 136         if (preg_match('/^["\s]*\<?\S+\@\S+\>?\s*$/', $from)) {
 137                 $from .= ' (' . str_replace(')', '', translitteration(str_replace('@', ' at ', $from))) . ')';
 138         }
 139
 140         // nettoyer les &eacute; &#8217, &emdash; etc...
 141         // les 'cliquer ici' etc sont a eviter;  voir:
 142         // http://mta.org.ua/spamassassin-2.55/stuff/wiki.CustomRulesets/20050914/rules/french_rules.cf
 143         $texte = nettoyer_caracteres_mail($texte);
 144         $sujet = nettoyer_caracteres_mail($sujet);
 145
 146         // encoder le sujet si possible selon la RFC
 147         if (init_mb_string()) {
 148                 # un bug de mb_string casse mb_encode_mimeheader si l'encoding interne
 149                 # est UTF-8 et le charset iso-8859-1 (constate php5-mac ; php4.3-debian)
 150                 $charset = $GLOBALS['meta']['charset'];
 151                 mb_internal_encoding($charset);
 152                 $sujet = mb_encode_mimeheader($sujet, $charset, 'Q', "\n");
 153                 mb_internal_encoding('utf-8');
 154         }
 155
 156         if (function_exists('wordwrap') && (preg_match(',multipart/mixed,', $headers) == 0)) {
 157                 $texte = wordwrap($texte);
 158         }
 159
 160         list($headers, $texte) = mail_normaliser_headers($headers, $from, $destinataire, $texte, $parts);
 161
 162         if (_OS_SERVEUR == 'windows') {
 163                 $texte = preg_replace("@\r*\n@", "\r\n", $texte);
 164                 $headers = preg_replace("@\r*\n@", "\r\n", $headers);
 165                 $sujet = preg_replace("@\r*\n@", "\r\n", $sujet);
 166         }
 167
 168         spip_log("mail $destinataire\n$sujet\n$headers", 'mails');
 169         // mode TEST : forcer l'email
 170         if (defined('_TEST_EMAIL_DEST')) {
 171                 if (!_TEST_EMAIL_DEST) {
 172                         return false;
 173                 } else {
 174                         $texte = "Dest : $destinataire\r\n" . $texte;
 175                         $destinataire = _TEST_EMAIL_DEST;
 176                 }
 177         }
 178
 179         return @mail($destinataire, $sujet, $texte, $headers);
 180 }
 181
 182 /**
 183  * Formater correctement l'entête d'un email
 184  *
 185  * @param string $headers
 186  * @param string $from
 187  * @param string $to
 188  * @param string $texte
 189  * @param string $parts
 190  * @return array
 191  */
 192 function mail_normaliser_headers($headers, $from, $to, $texte, $parts = '') {
 193         $charset = $GLOBALS['meta']['charset'];
 194
 195         // Ajouter le Content-Type et consort s'il n'y est pas deja
 196         if (strpos($headers, 'Content-Type: ') === false) {
 197                 $type =
 198                         "Content-Type: text/plain;charset=\"$charset\";\n" .
 199                         "Content-Transfer-Encoding: 8bit\n";
 200         } else {
 201                 $type = '';
 202         }
 203
 204         // calculer un identifiant unique
 205         preg_match('/@\S+/', $from, $domain);
 206         $uniq = rand() . '_' . md5($to . $texte) . $domain[0];
 207
 208         // Si multi-part, s'en servir comme borne ...
 209         if ($parts) {
 210                 $texte = "--$uniq\n$type\n" . $texte . "\n";
 211                 foreach ($parts as $part) {
 212                         $n = strlen($part[1]) . ($part[0] ? "\n" : '');
 213                         $e = join("\n", $part[0]);
 214                         $texte .= "\n--$uniq\nContent-Length: $n$e\n\n" . $part[1];
 215                 }
 216                 $texte .= "\n\n--$uniq--\n";
 217                 // Si boundary n'est pas entre guillemets,
 218                 // elle est comprise mais le charset est ignoree !
 219                 $type = "Content-Type: multipart/mixed; boundary=\"$uniq\"\n";
 220         }
 221
 222         // .. et s'en servir pour plaire a SpamAssassin
 223
 224         $mid = 'Message-Id: <' . $uniq . '>';
 225
 226         // indispensable pour les sites qui collent d'office From: serveur-http
 227         // sauf si deja mis par l'envoyeur
 228         $rep = (strpos($headers, 'Reply-To:') !== false) ? '' : "Reply-To: $from\n";
 229
 230         // Nettoyer les en-tetes envoyees
 231         // Ajouter le \n final
 232         if (strlen($headers = trim($headers))) {
 233                 $headers .= "\n";
 234         }
 235
 236         // Et mentionner l'indeboulonable nomenclature ratee
 237
 238         $headers .= "From: $from\n$type$rep$mid\nMIME-Version: 1.0\n";
 239
 240         return array($headers, $texte);
 241 }