4 if (!defined('_ECRIRE_INC_VERSION')) {
9 * Vérifie la validité d'une adresse de courriel.
11 * Les contraintes du mail sont déterminées par le mode de validation
12 * En option, on contrôle aussi la disponibilité du mail dans la table des auteurs
14 * @param string $valeur
15 * La valeur à vérifier.
16 * @param array $options
17 * Un éventuel tableau d'options.
19 * Retourne une chaine vide si c'est valide, sinon une chaine expliquant l'erreur.
21 function verifier_email_dist($valeur, $options = array()) {
22 include_spip('inc/filtres');
23 if (!is_string($valeur)) {
27 // Disponibilite des courriels en base AUTEURS
28 // Si l'adresse n'est pas disponible, on stoppe tout sinon on continue
29 if (!empty($options['disponible']) and !verifier_disponibilite_email($valeur, isset($options['id_auteur']) ?
$options['id_auteur'] : null)) {
30 return _T('verifier:erreur_email_nondispo', array('email' => echapper_tags($valeur)));
33 // Choix du mode de verification de la syntaxe des courriels
34 if (empty($options['mode']) or !in_array($options['mode'], array('normal','rfc5322','strict'))) {
37 $mode = $options['mode'];
40 $fonctions_disponibles = array(
41 'normal' => 'email_valide',
42 'rfc5322' => 'verifier_email_rfc5322',
43 'strict' => 'verifier_email_de_maniere_stricte'
45 $fonction_verif = $fonctions_disponibles[$mode];
47 if (!$fonction_verif($valeur)) {
48 return _T('verifier:erreur_email', array('email' => echapper_tags($valeur)));
55 * Changement de la RegExp d'origine
57 * Respect de la RFC5322
59 * @link (phraseur détaillé ici : http://www.dominicsayers.com/isemail/)
60 * @param string $valeur La valeur à vérifier
61 * @return boolean Retourne true uniquement lorsque le mail est valide
63 function verifier_email_rfc5322($valeur) {
64 // Si c'est un spammeur autant arreter tout de suite
65 if (preg_match(",[\n\r].*(MIME|multipart|Content-),i", $valeur)) {
66 spip_log("Tentative d'injection de mail : $valeur");
69 include_spip('inc/is_email');
70 foreach (explode(',', $valeur) as $adresse) {
71 if (!is_email(trim($adresse))) {
79 * Version basique du contrôle des mails
81 * Cette version impose des restrictions supplémentaires
82 * qui sont souvent utilisées pour des raison de simplification des adresses
83 * (ex. comptes utilisateurs lisibles, etc..)
85 * @param string $valeur La valeur à vérifier
86 * @return boolean Retourne true uniquement lorsque le mail est valide
88 function verifier_email_de_maniere_stricte($valeur) {
89 // Si c'est un spammeur autant arreter tout de suite
90 if (preg_match(",[\n\r].*(MIME|multipart|Content-),i", $valeur)) {
91 spip_log("Tentative d'injection de mail : $valeur");
94 foreach (explode(',', $valeur) as $adresse) {
95 // nettoyer certains formats
96 // "Marie Toto <Marie@toto.com>"
97 $adresse = trim(preg_replace(',^[^<>\"]*<([^<>\"]+)>$,i', '\\1', $adresse));
98 if (!preg_match('/^([A-Za-z0-9]){1}([A-Za-z0-9]|-|_|\.)*@[A-Za-z0-9]([A-Za-z0-9]|-|\.){1,}\.[A-Za-z]{2,4}$/', $adresse)) {
106 * Vérifier que le courriel à tester n'est pas
107 * déjà utilisé dans la table spip_auteurs
109 * @param string $valeur La valeur à vérifier
110 * @return boolean Retourne false lorsque le mail est déjà utilisé
112 function verifier_disponibilite_email($valeur, $exclure_id_auteur = null) {
113 include_spip('base/abstract_sql');
115 if (sql_getfetsel('id_auteur', 'spip_auteurs', 'email='.sql_quote($valeur).(!is_null($exclure_id_auteur)?
"AND statut<>'5poubelle' AND id_auteur<>".intval($exclure_id_auteur):''))) {