Subversion Repositories eFlore/Applications.del

Rev

Rev 1789 | Rev 1867 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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