www/ecrire/inc/envoyer_mail.php

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