Subversion Repositories eFlore/Applications.del

Rev

Details | Last modification | View Log | RSS feed

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