Subversion Repositories eFlore/Applications.del

Rev

Rev 1930 | Details | Compare with Previous | Last modification | View Log | RSS feed

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