Subversion Repositories eFlore/Applications.del

Rev

Rev 1790 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1790 Rev 1867
1 
<?php
 1 
<?php
- 
 
 2 
// declare(encoding='UTF-8');
- 
 
 3 
/**
- 
 
 4 
 * Classe Messagerie permettant d'envoyer des courriels (s'inspire de ce qui est fait dans l'appli Annuaire).
- 
 
 5 
 *
- 
 
 6 
 * @category   DEL
- 
 
 7 
 * @package    Scripts
- 
 
 8 
 * @subpackage Bibliotheque
- 
 
 9 
 * @author     Mathias CHOUET <mathias@tela-botanica.org>
- 
 
 10 
 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>
- 
 
 11 
 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>
- 
 
 12 
 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>
- 
 
 13 
 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
- 
 
 14 
 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>
- 
 
 15 
 */
2 
class Messagerie {
 16 
class Messagerie {
3 
 
 17 
 
4 
	private $conteneur = null;
 18 
	private $conteneur = null;
5 
 
 19 
 
6 
	public function __construct($conteneur) {
 20 
	public function __construct($conteneur) {
7 
		$this->conteneur = $conteneur;
 21 
		$this->conteneur = $conteneur;
8 
	}
 22 
	}
9 
 
 23 
 
10 
	public function envoyerHtml($destinataires, $sujet, $messageHtml, $messageTxt = '') {
 24 
	public function envoyerHtml($destinataires, $sujet, $messageHtml, $messageTxt = '') {
11 
		if ($messageTxt == '') {
 25 
		if ($messageTxt == '') {
12 
			$messageSansHtml = $this->supprimerHtml($messageHtml);
 26 
			$messageSansHtml = $this->supprimerHtml($messageHtml);
13 
			$messageTxt = $this->nettoyerTxt($messageSansHtml);
 27 
			$messageTxt = $this->nettoyerTxt($messageSansHtml);
14 
		}
 28 
		}
15 
		$encodage = $this->conteneur->getParametre('encodage_appli');
 29 
		$encodage = $this->conteneur->getParametre('encodage_appli');
16 
		mb_internal_encoding($encodage);
 30 
		mb_internal_encoding($encodage);
17 
		// tentative d'acceptation des sujets longs (+ 76 caractères) par les clients mail tatillons
 31 
		// tentative d'acceptation des sujets longs (+ 76 caractères) par les clients mail tatillons
18 
		$sujetEncode = mb_encode_mimeheader($sujet, mb_internal_encoding(), "B", "\n");
 32 
		$sujetEncode = mb_encode_mimeheader($sujet, mb_internal_encoding(), "B", "\n");
19 
 
 33 
 
20 
		$emailExpediteur = $this->conteneur->getParametre('adresse_expediteur_recapitulatif');
 34 
		$emailExpediteur = $this->conteneur->getParametre('adresse_expediteur_recapitulatif');
21 
		$dateHeure = date('r');
 35 
		$dateHeure = date('r');
22 
		$uid = md5(uniqid(rand()));
 36 
		$uid = md5(uniqid(rand()));
23 
		$limite = "_----------=_parties_$uid";
 37 
		$limite = "_----------=_parties_$uid";
24 
		$eol = "\n";// ATTENTION : avec Qmail laisser seulement \n car il remplace automatiquement par \r\n
 38 
		$eol = "\n";// ATTENTION : avec Qmail laisser seulement \n car il remplace automatiquement par \r\n
25 
 
 39 
 
26 
		// Définition d'un mail en texte simple et html
 40 
		// Définition d'un mail en texte simple et html
27 
		// multipart/alternative signifie même contenu de la forme la plus simple à la plus complexe
 41 
		// multipart/alternative signifie même contenu de la forme la plus simple à la plus complexe
28 
		$entetes = 'X-Sender: <http://www.tela-botanica.org>'.$eol.
 42 
		$entetes = 'X-Sender: <http://www.tela-botanica.org>'.$eol.
29 
			'X-Mailer: PHP-DEL-SCRIPTS'.$eol.
 43 
			'X-Mailer: PHP-DEL-SCRIPTS'.$eol.
30 
			'X-auth-smtp-user: '.$emailExpediteur.$eol.
 44 
			'X-auth-smtp-user: '.$emailExpediteur.$eol.
31 
			'X-abuse-contact: '.$emailExpediteur.$eol.
 45 
			'X-abuse-contact: '.$emailExpediteur.$eol.
32 
			'Date: '.$dateHeure.$eol.
 46 
			'Date: '.$dateHeure.$eol.
33 
			'From: '.$emailExpediteur.$eol.
 47 
			'From: '.$emailExpediteur.$eol.
34 
			'Reply-To: '.$this->conteneur->getParametre('adresse_reponse').$eol.
 48 
			'Reply-To: '.$this->conteneur->getParametre('adresse_reponse').$eol.
35 
			'MIME-Version: 1.0'.$eol.
 49 
			'MIME-Version: 1.0'.$eol.
36 
			"Content-Type: multipart/alternative; boundary=\"$limite\";".$eol.$eol;
 50 
			"Content-Type: multipart/alternative; boundary=\"$limite\";".$eol.$eol;
37 
 
 51 
 
38 
		// le message en html est préféré s'il est lisible
 52 
		// le message en html est préféré s'il est lisible
39 
		$contenu =
 53 
		$contenu =
40 
			"--$limite".$eol.
 54 
			"--$limite".$eol.
41 
			"Content-Type: text/plain; charset=\"$encodage\";".$eol.
 55 
			"Content-Type: text/plain; charset=\"$encodage\";".$eol.
42 
			"Content-Transfer-Encoding: 8bit;".$eol.$eol.
 56 
			"Content-Transfer-Encoding: 8bit;".$eol.$eol.
43 
			"$messageTxt".$eol.$eol.
 57 
			"$messageTxt".$eol.$eol.
44 
			"--$limite".$eol.
 58 
			"--$limite".$eol.
45 
			"Content-Type: text/html; charset=\"$encodage\";".$eol.
 59 
			"Content-Type: text/html; charset=\"$encodage\";".$eol.
46 
			"Content-Transfer-Encoding: 8bit;".$eol.$eol.
 60 
			"Content-Transfer-Encoding: 8bit;".$eol.$eol.
47 
			"$messageHtml".$eol.
 61 
			"$messageHtml".$eol.
48 
			"--".$limite."--".$eol.$eol;
 62 
			"--".$limite."--".$eol.$eol;
49 
 
 63 
 
50 
		$envoieStatut = $this->envoyer($destinataires, $entetes, $sujetEncode, $contenu);
 64 
		$envoieStatut = $this->envoyer($destinataires, $entetes, $sujetEncode, $contenu);
51 
 
 65 
 
52 
		return $envoieStatut;
 66 
		return $envoieStatut;
53 
	}
 67 
	}
54 
 
 68 
 
55 
	public function envoyerTxt($destinataires, $sujet, $messageTxt) {
 69 
	public function envoyerTxt($destinataires, $sujet, $messageTxt) {
56 
		$emailExpediteur = $this->conteneur->getParametre('adresse_expediteur_recapitulatif');
 70 
		$emailExpediteur = $this->conteneur->getParametre('adresse_expediteur_recapitulatif');
57 
		$encodage = $this->conteneur->getParametre('encodage_appli');
 71 
		$encodage = $this->conteneur->getParametre('encodage_appli');
58 
		mb_internal_encoding($encodage);
 72 
		mb_internal_encoding($encodage);
59 
		$sujetEncode = mb_encode_mimeheader($sujet, mb_internal_encoding(), "B", "\n");
 73 
		$sujetEncode = mb_encode_mimeheader($sujet, mb_internal_encoding(), "B", "\n");
60 
		$dateHeure = date('r');
 74 
		$dateHeure = date('r');
61 
		$eol = "\n";// ATTENTION : avec Qmail laisser seulement \n car il remplace automatiquement par \r\n
 75 
		$eol = "\n";// ATTENTION : avec Qmail laisser seulement \n car il remplace automatiquement par \r\n
62 
 
 76 
 
63 
		// Définition d'un mail en texte simple et html
 77 
		// Définition d'un mail en texte simple et html
64 
		// multipart/alternative signifie même contenu de la forme la plus simple à la plus complexe
 78 
		// multipart/alternative signifie même contenu de la forme la plus simple à la plus complexe
65 
		$entetes = 'X-Sender: <http://www.tela-botanica.org>'.$eol.
 79 
		$entetes = 'X-Sender: <http://www.tela-botanica.org>'.$eol.
66 
			'X-Mailer: PHP-DEL-SCRIPTS'.$eol.
 80 
			'X-Mailer: PHP-DEL-SCRIPTS'.$eol.
67 
			'X-auth-smtp-user: '.$emailExpediteur.$eol.
 81 
			'X-auth-smtp-user: '.$emailExpediteur.$eol.
68 
			'X-abuse-contact: '.$emailExpediteur.$eol.
 82 
			'X-abuse-contact: '.$emailExpediteur.$eol.
69 
			'Date: '.$dateHeure.$eol.
 83 
			'Date: '.$dateHeure.$eol.
70 
			'From: '.$emailExpediteur.$eol.
 84 
			'From: '.$emailExpediteur.$eol.
71 
			'Reply-To: '.$this->conteneur->getParametre('adresse_reponse').$eol.
 85 
			'Reply-To: '.$this->conteneur->getParametre('adresse_reponse').$eol.
72 
			'MIME-Version: 1.0'.$eol.
 86 
			'MIME-Version: 1.0'.$eol.
73 
			"Content-Type: text/plain; charset=\"$encodage\";".$eol.$eol;
 87 
			"Content-Type: text/plain; charset=\"$encodage\";".$eol.$eol;
74 
 
 88 
 
75 
		// le message en html est préféré s'il est lisible
 89 
		// le message en html est préféré s'il est lisible
76 
		$contenu = $messageTxt.$eol.$eol;
 90 
		$contenu = $messageTxt.$eol.$eol;
77 
 
 91 
 
78 
		$envoieStatut = $this->envoyer($destinataires, $entetes, $sujetEncode, $contenu);
 92 
		$envoieStatut = $this->envoyer($destinataires, $entetes, $sujetEncode, $contenu);
79 
 
 93 
 
80 
		return $envoieStatut;
 94 
		return $envoieStatut;
81 
	}
 95 
	}
82 
 
 96 
 
83 
	private function envoyer($destinataires, $entetes, $sujet, $contenu) {
 97 
	private function envoyer($destinataires, $entetes, $sujet, $contenu) {
84 
		$envoieStatut = mail(
 98 
		$envoieStatut = mail(
85 
			$destinataires,
 99 
			$destinataires,
86 
			$sujet,
 100 
			$sujet,
87 
			$contenu,
 101 
			$contenu,
88 
			$entetes
 102 
			$entetes
89 
		);
 103 
		);
90 
		return $envoieStatut;
 104 
		return $envoieStatut;
91 
	}
 105 
	}
92 
 
 106 
 
93 
	/** Transforme automatiquement le message html en message txt.
 107 
	/** Transforme automatiquement le message html en message txt.
94 
	 *
 108 
	 *
95 
	 * Réalise un stip_tags et avant ça un remplacement des liens sur mesure pour les mettre au format email txt.
 109 
	 * Réalise un stip_tags et avant ça un remplacement des liens sur mesure pour les mettre au format email txt.
96 
	 */
 110 
	 */
97 
	private function supprimerHtml($messageHtml) {
 111 
	private function supprimerHtml($messageHtml) {
98 
		$html = $this->ajouterHrefDansBalise($messageHtml);
 112 
		$html = $this->ajouterHrefDansBalise($messageHtml);
99 
		$messageSansHtml = strip_tags($html);
 113 
		$messageSansHtml = strip_tags($html);
100 
		return $messageSansHtml;
 114 
		return $messageSansHtml;
101 
	}
 115 
	}
102 
 
 116 
 
103 
	/**
 117 
	/**
104 
	 * Extrait la valeur de l'attribut href des balises HTML de liens (a) et ajoute le lien entre
 118 
	 * Extrait la valeur de l'attribut href des balises HTML de liens (a) et ajoute le lien entre
105 
	 * chevrons (<>) dans le contenu de la balise "a".
 119 
	 * chevrons (<>) dans le contenu de la balise "a".
106 
	 */
 120 
	 */
107 
	private function ajouterHrefDansBalise($html) {
 121 
	private function ajouterHrefDansBalise($html) {
108 
		libxml_use_internal_errors(true);
 122 
		libxml_use_internal_errors(true);
109 
		$dom = new DOMDocument();
 123 
		$dom = new DOMDocument();
110 
		$dom->loadHTML($html);
 124 
		$dom->loadHTML($html);
111 
		foreach ($dom->getElementsByTagName('a') as $node) {
 125 
		foreach ($dom->getElementsByTagName('a') as $node) {
112 
			if ($node->hasAttribute( 'href' )) {
 126 
			if ($node->hasAttribute( 'href' )) {
113 
				$href = $node->getAttribute('href');
 127 
				$href = $node->getAttribute('href');
114 
				$node->nodeValue = $node->nodeValue." ( $href )";
 128 
				$node->nodeValue = $node->nodeValue." ( $href )";
115 
			}
 129 
			}
116 
		}
 130 
		}
117 
		$html = $dom->saveHtml();
 131 
		$html = $dom->saveHtml();
118 
		return $html;
 132 
		return $html;
119 
	}
 133 
	}
120 
 
 134 
 
121 
	private function nettoyerTxt($message) {
 135 
	private function nettoyerTxt($message) {
122 
		$messageSansTab = preg_replace('/\t+/', '', $message);
 136 
		$messageSansTab = preg_replace('/\t+/', '', $message);
123 
		$messageSansRetourMultiple = preg_replace('/\n+/', "\n", $messageSansTab);
 137 
		$messageSansRetourMultiple = preg_replace('/\n+/', "\n", $messageSansTab);
124 
		$messageTxt = html_entity_decode($messageSansRetourMultiple, null, 'UTF-8');
 138 
		$messageTxt = html_entity_decode($messageSansRetourMultiple, null, 'UTF-8');
125 
		return $messageTxt;
 139 
		return $messageTxt;
126 
	}
 140 
	}
127 
}
 141 
}