emails.php

Go to the documentation of this file.

<?php
// This file should be in UTF8 without BOM - Accents examples: éèê
// +----------------------------------------------------------------------+
// | Copyright (c) 2004-2015 Advisto SAS, service PEEL - contact@peel.fr  |
// +----------------------------------------------------------------------+
// | This file is part of PEEL Shopping 8.0.0, which is subject to an   |
// | opensource GPL license: you are allowed to customize the code           |
// | for your own needs, but must keep your changes under GPL                |
// | More information: https://www.peel.fr/lire/licence-gpl-70.html          |
// +----------------------------------------------------------------------+
// | Author: Advisto SAS, RCS 479 205 452, France, https://www.peel.fr/      |
// +----------------------------------------------------------------------+
// $Id: emails.php 46935 2015-09-18 08:49:48Z gboussin $
if (!defined('IN_PEEL')) {
     die();
}

function send_email($to, $mail_subject = '', $mail_content = '', $template_technical_code = null, $template_tags = null, $format = null, $sender = null, $html_add_structure = true, $html_correct_conformity = false, $html_convert_url_to_links = true, $reply_to = null, $attached_files_infos_array = null, $lang = null, $additional_infos_array = array(), $attachment_not_sent_by_email = false)
{
     // Suivant les hébergements, on peut remplacer \r\n par \n
     $eol = "\r\n";
     // $eol = PHP_EOL;
     // $eol = "\n";
     if(empty($lang) || !in_array($lang, $GLOBALS['admin_lang_codes'])){
          $lang = $_SESSION['session_langue'];
     }
     if (empty($format)) {
          $format = vb($GLOBALS['site_parameters']['email_sending_format_default'], 'html');
     }
     if (defined('IN_PEEL_ADMIN') && a_priv('demo')) {
          echo $GLOBALS['tplEngine']->createTemplate('global_error.tpl', array('message' => $GLOBALS['STR_ADMIN_DEMO_EMAILS_DEACTIVATED']))->fetch();
          return false;
     }
     if(is_array($sender)) {
          $from = $sender['email'];
     } else {
          $from = $sender;
     }
     if (empty($from) && !empty($GLOBALS['support'])) {
          $from = $GLOBALS['support'];
     }
     $used_template_technical_code = null;
     if (!empty($template_technical_code)) {
          if(!is_array($template_technical_code)) {
               $template_technical_code = array($template_technical_code);
          }
          foreach($template_technical_code as $this_template_technical_code) {
               $template_infos = getTextAndTitleFromEmailTemplateLang($this_template_technical_code, $lang);
               if (!empty($template_infos)) {
                    // Si l'on envoie un email avec un sujet, un message et un template d'email, le template n'est pas prioritaire.
                    // Ce fonctionnement est utile au module webmail lors de l'envoi d'email depuis le site.
                    if (empty($mail_subject)) {
                         $mail_subject = $template_infos['subject'];
                    }
                    if (empty($mail_content)) {
                         $mail_content = $template_infos['text'];
                    }
                    if (!empty($mail_content)) {
                         if (!empty($template_infos["default_signature_code"])) {
                              // Récupération du technical code de la signature associé au template
                              $signature = $template_infos["default_signature_code"];
                         } else {
                              $signature = 'signature';
                         }
                         $signature_infos = getTextAndTitleFromEmailTemplateLang($signature, $lang);
                         if (!empty($signature_infos)) {
                              $mail_content .= $signature_infos['text'];
                         }
                    }
                    $used_template_technical_code = $this_template_technical_code;
                    break;
               }
          }
     }
     if (empty($mail_subject) && empty($mail_content)) {
          return false;
     }
     $mail_header = "Content-Transfer-Encoding: 8bit" . $eol;
     $mail_header .= "MIME-Version: 1.0" . $eol;
     if (!empty($from)) {
          // Au cas où $from ait plusieurs adresses emails (variable support par exemple)
          if ($from == $GLOBALS['support'] && !empty($GLOBALS['site_parameters']['nom_expediteur'])) {
               $email_name_rules = array("\r" => '', "\n" => '', "\t" => '', '"' => "'", ',' => '', '<' => '[', '>' => ']');
               $nom_expediteur = strtr($GLOBALS['site_parameters']['nom_expediteur'], $email_name_rules);
          } else {
               $nom_expediteur = '';
          }
          $temp = explode(',', str_replace(';', ',', $from));
          $from = trim($temp[0]);
          // création du header de l'email
          if (!empty($nom_expediteur)) {
               $mail_header .= 'From: "' . $nom_expediteur . '" <' . $from . '>' . $eol;
          } else {
               $mail_header .= 'From: ' . $from . $eol;
          }
          if (!empty($reply_to)) {
               // Au cas où $reply_to ait plusieurs adresses emails (variable support par exemple)
               $reply_to_array = explode(',', str_replace(';', ',', $reply_to));
               $reply_to = trim($reply_to_array[0]);
               $mail_header .= "Reply-To: " . $reply_to . "" . $eol;
          } else {
               $mail_header .= "Reply-To: " . $from . "" . $eol;
          }
          $mail_header .= "Return-Path:" . $from . "" . $eol;
     }
     if ($format != "text") {
          // On traite le modèle d'email avant de remplacer les tags car le modèle est peut-être en texte brut contrairement aux tags
          if (strip_tags($mail_content) != $mail_content) {
               // On passe le contenu de l'email en HTML si ce n'est pas déjà le cas
               // Par exemple si on a mis des balises <b> ou <u> dans email sans mettre de <br /> nulle part, on rajoute <br /> en fin de ligne
               $mail_content = String::nl2br_if_needed($mail_content);
          } else {
               // Email de texte qu'on va envoyer en HTML, et pour avoir une source d'email lisible on garde le \n à la fin
               // NB : il faut faire le replace en 2 fois pour éviter que le \n après le <br /> soit à nouveau remplacé !
               $mail_content = str_replace(array("\n"), "<br />\n", str_replace(array("\r\n", "\r"), array("\n", "\n"), $mail_content));
          }
     }
     // Traitement des tags dans les templates. Même si $template_tags est vide il faut le faire pour gérer les tags génériques
     // NB : Si on veut du HTML avec $format='html', le contenu de ces tags est converti par template_tags_replace en HTML
     $mail_content = template_tags_replace($mail_content, $template_tags, false, $format, $lang);
     $mail_subject = template_tags_replace(String::strip_tags($mail_subject), $template_tags, false, 'text', $lang);
     if ($format == "text") {
          // On force le format en texte sans HTML
          $mail_content = trim(String::html_entity_decode(String::strip_tags($mail_content)));
          if (empty($attached_files_infos_array)) {
               // Pas de fichier attaché : on n'a pas besoin de déclarer des sections MIME
               $mail_header .= "Content-Type: text/plain; charset=" . GENERAL_ENCODING . "" . $eol;
          }
          $mail_body = $mail_content;
     } else {
          // Dans tous les cas, si les & ne sont pas encodés, on les encode. 
          // Sinon, problème avec certaines messageries qui croient que dans une URL, &currency est une entité pour laquelle il manque le point virgule
          // Si les & sont déjà encodés en &amp; la fonction suivante va les garder 
          $mail_content = String::htmlentities($mail_content, null, GENERAL_ENCODING, false, true, false);
          if ($html_correct_conformity) {
               // On corrige le HTML si demandé
               $mail_content = String::getCleanHTML($mail_content, null, true, true, true, null, false);
          }
          if (empty($attached_files_infos_array)) {
               // Pas de fichier attaché : on n'a pas besoin de déclarer des sections MIME
               $mail_header .= "Content-Type: text/html; charset=" . GENERAL_ENCODING . "" . $eol;
          }
          // On transforme les liens [link=] ... [/link] en balises HTML <a>
          $mail_content = linkFormat($mail_content);
          if ($html_convert_url_to_links) {
               // On rend cliquables les URL qui étaient bruts
               $mail_content = url2Link($mail_content);
          }
          if (String::strpos(String::strtolower($mail_content), '<body') === false && String::strpos($mail_content, '<!DOCTYPE') === false) {
               $mail_body = '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
     <meta http-equiv="Content-Type" content="text/html; charset=' . GENERAL_ENCODING . '">
     <title>' . $mail_subject . '</title>
</head>
<body>
' . $mail_content . '
</body>
</html>';
          } else {
               $mail_body = $mail_content;
          }
     }
     // Ajout de fichiers attachés
     if (!empty($attached_files_infos_array) && !$attachment_not_sent_by_email) {
          $main_document_attached = $attached_files_infos_array['path_file_attachment'][0] . $attached_files_infos_array['name'][0]; 
          $mime_boundary_main = md5(uniqid() . 'iéhf|ao5225izah%0g'.mt_rand(1,1000000));
          $mime_boundary_html_or_plain = md5(mt_rand(1,1000000).'iéhf|ao5225izah%0g' . uniqid());
          // multipart/alternative
          $mail_header .= "Content-Type: multipart/mixed; boundary=\"" . $mime_boundary_main . "\"" . "" . $eol;

          $msg = "--" . $mime_boundary_main . "" . $eol;
          $msg .= "Content-Type: multipart/alternative; boundary=\"" . $mime_boundary_html_or_plain . "\"" . $eol . $eol;

          $msg .= "--" . $mime_boundary_html_or_plain . "" . $eol;
          $msg .= "Content-Type: text/plain; charset=" . GENERAL_ENCODING . "" . $eol;
          $msg .= "Content-Transfer-Encoding: 8bit" . "" . $eol . $eol;
          $msg .= trim(String::strip_tags($mail_body)) . $eol;
          if ($format == "html") {
               // SI on envoie en HTML, on met en texte brut d'abord, et en HTML ensuite
               $msg .= "--" . $mime_boundary_html_or_plain . "" . $eol;
               $msg .= "Content-Type: text/html; charset=" . GENERAL_ENCODING . "" . $eol;
               $msg .= "Content-Transfer-Encoding: 8bit" . $eol . $eol;
               $msg .= $mail_body . $eol;
          }
          $msg .= "--".$mime_boundary_html_or_plain."--" . "" . $eol . $eol;
          for($j = 0;$j < count($attached_files_infos_array['name']); $j++) {
               if(!empty($attached_files_infos_array['content'][$j])) {
                    $fichier = $attached_files_infos_array['content'][$j];
               } else {
                    $fichier = file_get_contents($attached_files_infos_array['path_file_attachment'][$j] . $attached_files_infos_array['name'][$j]);
               }
               $msg .= "--" . $mime_boundary_main . "" . $eol;
               $msg .= "Content-Type: " . $attached_files_infos_array['type-mime'][$j] . "; name=\"" . $attached_files_infos_array['name'][$j] . "\"" . "" . $eol;
               $msg .= "Content-Transfer-Encoding: base64" . "" . $eol;
               $msg .= "Content-Disposition: attachment; filename=\"" . $attached_files_infos_array['name'][$j] . "\"" . "" . $eol . $eol;
               $msg .= chunk_split(base64_encode($fichier)) . "" . $eol . $eol;
          }
          $msg .= "--" . $mime_boundary_main . "--" . "" . $eol . $eol;
          $mail_body = $msg;
     }
     $recipient_array = explode(',', str_replace(';', ',', $to));
     $result = false;
     $i = 0;
     foreach($recipient_array as $this_email) {
          $this_email = trim($this_email);
          if(empty($used_template_technical_code) || !in_array($used_template_technical_code, vb($GLOBALS['site_parameters']['send_email_technical_codes_no_email'], array()))) {
               if (empty($this_email) || $i > 10) {
                    // Limitation à 10 destinataires en même temps par sécurité
                    continue;
               }
               if (((strpos($GLOBALS['wwwroot'], '://localhost')===false && strpos($GLOBALS['wwwroot'], '://127.0.0.1')===false) || !empty($GLOBALS['site_parameters']['localhost_send_email_active'])) && !empty($GLOBALS['site_parameters']['send_email_active'])) {
                    if(EmailOK($this_email)){
                         if (String::strtolower(GENERAL_ENCODING) != 'iso-8859-1') {
                              $result = mail($this_email, '=?' . String::strtoupper(GENERAL_ENCODING) . '?B?' . base64_encode($mail_subject) . '?=', $mail_body, $mail_header);
                         } else {
                              $result = mail($this_email, $mail_subject, $mail_body, $mail_header);
                         }
                         if(!empty($GLOBALS['site_parameters']['trigger_user_notice_email_sent']) && empty($GLOBALS['display_errors'])) {
                              trigger_error('Email sent to ' . $this_email . ' : ' . $mail_subject, E_USER_NOTICE);
                         }
                    }else{
                         trigger_error('Email invalide : ' . $this_email, E_USER_NOTICE);
                    }
               } else {
                    if(!IN_INSTALLATION) {
                         // On n'affiche le message de désactivation des envois qu'à l'extérieur de l'installation
                         echo $GLOBALS['tplEngine']->createTemplate('global_success.tpl', array('message' => sprintf($GLOBALS['STR_EMAIL_SENDING_DEACTIVATED'], $mail_subject)))->fetch();
                    }
               }
          }
          if(is_array($sender)) {
               $params = $sender;
          } else {
               $params = array();
          }
          $params = array_merge($params, array('recipient_array' => array($this_email), 'from' => $from, 'mail_subject' => $mail_subject, 'mail_content' => $mail_content, 'technical_code' => $used_template_technical_code, 'document' => vb($main_document_attached)), $additional_infos_array);
          if(empty($params['id_expediteur']) && !empty($from)) {
               if(!empty($params['id_utilisateur'])) {
                    $params['id_expediteur'] = $params['id_utilisateur'];
               } else {
                    $query = query('SELECT id_utilisateur
                         FROM peel_utilisateurs
                         WHERE email="' . real_escape_string($from) . '"');
                    if($result = fetch_assoc($query)) {
                         $params['id_expediteur'] = $result['id_utilisateur'];
                    }
               }
          }
          call_module_hook('send_email', $params);
          $i++;
     }
     return $result;
}

function EmailOK($email)
{
     // return(preg('^[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+' . '@' . '[-!#$%&\'*+\\/0-9=?A-Z^_`a-z{|}~]+\.' . '[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+$', $email));
     return(preg_match('/^[[:alnum:]]*((\.|_|-)[[:alnum:]]+)*@[[:alnum:]]*((\.|-)[[:alnum:]]+)*(\.[[:alpha:]]{2,})/i', $email));
}

function prepare_email_tags($user_id, $order_id)
{
     if (!empty($user_id)) {
          $sql_additional_fields = '';
          $q = 'SELECT *' . $sql_additional_fields . '
               FROM peel_users
               WHERE id_utilisateur="' . intval($user_id) . '"';
          $result = query($q);
          if ($row_account = fetch_assoc($result)) {
               foreach($row_account as $key => $value) {
                    if ($key != 'mot_passe') {
                         $template_tags[String::strtoupper($key)] = $value;
                    }
               }
          }
     }
     if (!empty($order_id)) {
          $q = 'SELECT o.code_facture
               FROM peel_commandes o
               WHERE o.id="' . intval($order_id) . '" AND ' . get_filter_site_cond('commandes', 'o') . '';
          $result_orders = query($q);
          $row_orders = fetch_assoc($result_orders);
          $template_tags['ORDER'] = '';
          $template_tags['ORDER_LINK'] = '[link="' . $GLOBALS['wwwroot'] . '/factures/commande_pdf.php?code_facture=' . urlencode($row_orders['code_facture']) . '&amp;mode=facture"]Facture n°' . urlencode($_POST['form_order']) . '[/link]';
     }
     return $template_tags;
}

function getTextAndTitleFromEmailTemplateLang($template_technical_code, $template_lang, $template_technical_id = null)
{
     // Dans le cas de la newsletter, le titre ne doit pas être celui du template, mais le titre renseigné dans la liste des newsletters.
     $sql = 'SELECT *
          FROM peel_email_template
          WHERE active="TRUE" AND ' . get_filter_site_cond('email_template', null);
     if(!empty($template_technical_id)) {
          $sql .= ' AND id="' . intval($template_technical_id) . '"';
     } else {
          $sql .= ' AND technical_code="' . nohtml_real_escape_string($template_technical_code) . '" AND (lang="' . word_real_escape_string($template_lang) . '" OR lang="")';
     }
     $sql .= 'LIMIT 1';
     $query_template = query($sql);
     if ($this_template = fetch_assoc($query_template)) {
          if(!empty($this_template['lang'])) {
               $this_lang = $this_template['lang'];
          } elseif(!empty($template_lang)) {
               $this_lang = $template_lang;
          } else {
               $this_lang = $_SESSION['session_langue'];
          }
          if ($this_template['technical_code'] != 'layout') {
               $generic_layout_infos = getTextAndTitleFromEmailTemplateLang('layout', $this_lang, null);
               if(!empty($generic_layout_infos['text'])) {
                    // Lors de la fusion des templates, on passe en HTML les sauts de ligne si nécessaire pour chaque template
                    $this_template['text'] = str_replace('[TEMPLATE]', String::nl2br_if_needed($this_template['text']), String::nl2br_if_needed($generic_layout_infos['text']));
               }
          }
          if (String::strpos($this_template['text'], '[NEWSLETTER]') !== false) {
               // Le template contient une newsletter, on donne au template le sujet de la newsletter
               $news_infos = get_last_newsletter(null, $this_lang);
               if(!empty($news_infos['sujet_' . $this_lang])) {
                    $this_template['subject'] = $news_infos['sujet_' . $this_lang];
               }
               // NB : Le contenu du tag [NEWSLETTER] sera remplacé comme tous les autres tags plus tard lors de l'appel à la fonction template_tags_replace
          }
          return $this_template;
     } else {
          return null;
     }
}

function get_last_newsletter($id = null, $lang = null) {
     if(!empty($id)) {
          $sql_cond_array[] = "id='".intval($id)."'";
     }
     if(!empty($lang) && empty($id)) {
          // On cherche une newsletter non vide pour la langue cherchée
          $sql_cond_array[] = "(sujet_".$lang."!='' OR message_".$lang."!='')";
     }
     if(empty($sql_cond_array)) {
          $sql_cond_array[] = 1;
     }
     $sql = "SELECT id, date, format, template_technical_code, statut, sujet_".$lang.", message_".$lang."
          FROM peel_newsletter
          WHERE " . implode(' AND ', $sql_cond_array) . " AND " . get_filter_site_cond('newsletter') . "
          ORDER BY id DESC
          LIMIT 1";
     $res = query($sql);
     return fetch_assoc($res);
}