Subversion Repositories eFlore/Applications.del

<?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;

	}

}