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 |
}
|