source: spip-zone/_plugins_/facteur/inc/envoyer_mail.php @ 32419

Last change on this file since 32419 was 32419, checked in by kent1@…, 11 years ago

Le monde n'est pas toujours rose ...

Il se peut que l'on envoie des mails en texte toujours et il est donc nécessaire de conserver les traitements standards sur le contenu

File size: 1.4 KB
Line 
1<?php
2
3
4        include_spip('inc/facteur_classes');
5
6
7        function inc_envoyer_mail($destinataire, $sujet, $corps, $from = "", $headers = "") {
8                $message_html   = '';
9                $message_texte  = '';
10                if (is_array($corps)) {
11                        $message_html   = $corps['html'];
12                        $message_texte  = nettoyer_caracteres_mail($corps['texte']);
13                        $pieces_jointes = $corps['pieces_jointes'];
14                } else {
15                        $message_texte  = nettoyer_caracteres_mail($corps);
16                }
17                $sujet = nettoyer_titre_email($sujet);
18                $notification = new Facteur($destinataire, $sujet, $message_html, $message_texte);
19                if (!empty($from))
20                        $notification->From = $from;
21                if (count($pieces_jointes)) {
22                        foreach ($pieces_jointes as $piece) {
23                                $notification->AddAttachment($piece['chemin'], $piece['nom'], $piece['encodage'], $piece['mime']);
24                        }
25                }
26                return $notification->Send();
27        }
28
29
30
31/** Conserver les fonctions de SPIP car il en utilise certaines ! **/
32
33// utilisee par inc/notifications.php
34// http://doc.spip.org/@nettoyer_titre_email
35function nettoyer_titre_email($titre) {
36        return str_replace("\n", ' ', supprimer_tags(extraire_multi($titre)));
37}
38
39// http://doc.spip.org/@nettoyer_caracteres_mail
40function nettoyer_caracteres_mail($t) {
41
42        $t = filtrer_entites($t);
43
44        if ($GLOBALS['meta']['charset'] <> 'utf-8') {
45                $t = str_replace(
46                        array("&#8217;","&#8220;","&#8221;"),
47                        array("'",      '"',      '"'),
48                $t);
49        }
50
51        $t = str_replace(
52                array("&mdash;", "&endash;"),
53                array("--","-" ),
54        $t);
55
56        return $t;
57}
58
59?>
Note: See TracBrowser for help on using the repository browser.