Blame | Last modification | View Log | RSS feed
<?php
// declare(encoding='UTF-8');
/**
* Classe Messagerie permettant d'envoyer des courriels (s'inspire de ce qui est fait dans l'appli Annuaire).
*
* @category DEL
* @package Scripts
* @subpackage Bibliotheque
* @author Mathias CHOUET <mathias@tela-botanica.org>
* @author Jean-Pascal MILCENT <jpm@tela-botanica.org>
* @author Aurelien PERONNET <aurelien@tela-botanica.org>
* @license GPL v3 <http://www.gnu.org/licenses/gpl.txt>
* @license CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
* @copyright 1999-2014 Tela Botanica <accueil@tela-botanica.org>
*/
class Messagerie {
private $conteneur = null;
public function __construct($conteneur) {
$this->conteneur = $conteneur;
}
public function envoyerHtml($destinataires, $sujet, $messageHtml, $messageTxt = '') {
if ($messageTxt == '') {
$messageSansHtml = $this->supprimerHtml($messageHtml);
$messageTxt = $this->nettoyerTxt($messageSansHtml);
}
$encodage = $this->conteneur->getParametre('encodage_appli');
mb_internal_encoding($encodage);
// tentative d'acceptation des sujets longs (+ 76 caractères) par les clients mail tatillons
$sujetEncode = mb_encode_mimeheader($sujet, mb_internal_encoding(), "B", "\n");
$emailExpediteur = $this->conteneur->getParametre('adresse_expediteur_recapitulatif');
$dateHeure = date('r');
$uid = md5(uniqid(rand()));
$limite = "_----------=_parties_$uid";
$eol = "\n";// ATTENTION : avec Qmail laisser seulement \n car il remplace automatiquement par \r\n
// Définition d'un mail en texte simple et html
// multipart/alternative signifie même contenu de la forme la plus simple à la plus complexe
$entetes = 'X-Sender: <http://www.tela-botanica.org>'.$eol.
'X-Mailer: PHP-DEL-SCRIPTS'.$eol.
'X-auth-smtp-user: '.$emailExpediteur.$eol.
'X-abuse-contact: '.$emailExpediteur.$eol.
'Date: '.$dateHeure.$eol.
'From: '.$emailExpediteur.$eol.
'Reply-To: '.$this->conteneur->getParametre('adresse_reponse').$eol.
'MIME-Version: 1.0'.$eol.
"Content-Type: multipart/alternative; boundary=\"$limite\";".$eol.$eol;
// le message en html est préféré s'il est lisible
$contenu =
"--$limite".$eol.
"Content-Type: text/plain; charset=\"$encodage\";".$eol.
"Content-Transfer-Encoding: 8bit;".$eol.$eol.
"$messageTxt".$eol.$eol.
"--$limite".$eol.
"Content-Type: text/html; charset=\"$encodage\";".$eol.
"Content-Transfer-Encoding: 8bit;".$eol.$eol.
"$messageHtml".$eol.
"--".$limite."--".$eol.$eol;
$envoieStatut = $this->envoyer($destinataires, $entetes, $sujetEncode, $contenu);
return $envoieStatut;
}
public function envoyerTxt($destinataires, $sujet, $messageTxt) {
$emailExpediteur = $this->conteneur->getParametre('adresse_expediteur_recapitulatif');
$encodage = $this->conteneur->getParametre('encodage_appli');
mb_internal_encoding($encodage);
$sujetEncode = mb_encode_mimeheader($sujet, mb_internal_encoding(), "B", "\n");
$dateHeure = date('r');
$eol = "\n";// ATTENTION : avec Qmail laisser seulement \n car il remplace automatiquement par \r\n
// Définition d'un mail en texte simple et html
// multipart/alternative signifie même contenu de la forme la plus simple à la plus complexe
$entetes = 'X-Sender: <http://www.tela-botanica.org>'.$eol.
'X-Mailer: PHP-DEL-SCRIPTS'.$eol.
'X-auth-smtp-user: '.$emailExpediteur.$eol.
'X-abuse-contact: '.$emailExpediteur.$eol.
'Date: '.$dateHeure.$eol.
'From: '.$emailExpediteur.$eol.
'Reply-To: '.$this->conteneur->getParametre('adresse_reponse').$eol.
'MIME-Version: 1.0'.$eol.
"Content-Type: text/plain; charset=\"$encodage\";".$eol.$eol;
// le message en html est préféré s'il est lisible
$contenu = $messageTxt.$eol.$eol;
$envoieStatut = $this->envoyer($destinataires, $entetes, $sujetEncode, $contenu);
return $envoieStatut;
}
private function envoyer($destinataires, $entetes, $sujet, $contenu) {
$envoieStatut = mail(
$destinataires,
$sujet,
$contenu,
$entetes
);
return $envoieStatut;
}
/** Transforme automatiquement le message html en message txt.
*
* Réalise un stip_tags et avant ça un remplacement des liens sur mesure pour les mettre au format email txt.
*/
private function supprimerHtml($messageHtml) {
$html = $this->ajouterHrefDansBalise($messageHtml);
$messageSansHtml = strip_tags($html);
return $messageSansHtml;
}
/**
* Extrait la valeur de l'attribut href des balises HTML de liens (a) et ajoute le lien entre
* chevrons (<>) dans le contenu de la balise "a".
*/
private function ajouterHrefDansBalise($html) {
libxml_use_internal_errors(true);
$dom = new DOMDocument();
$dom->loadHTML($html);
foreach ($dom->getElementsByTagName('a') as $node) {
if ($node->hasAttribute( 'href' )) {
$href = $node->getAttribute('href');
$node->nodeValue = $node->nodeValue." ( $href )";
}
}
$html = $dom->saveHtml();
return $html;
}
private function nettoyerTxt($message) {
$messageSansTab = preg_replace('/\t+/', '', $message);
$messageSansRetourMultiple = preg_replace('/\n+/', "\n", $messageSansTab);
$messageTxt = html_entity_decode($messageSansRetourMultiple, null, 'UTF-8');
return $messageTxt;
}
}