function formulaires_editer_profil_verifier_dist($id_auteur)
{
    $erreurs = array();
    $auteur = sql_fetsel('*', 'spip_auteurs', 'id_auteur=' . intval($id_auteur));
    $oblis = array('name', 'prenom', 'email');
    foreach ($oblis as $obli) {
        if (!strlen(_request($obli))) {
            $erreurs[$obli] = _T('editer_profil:erreur_' . $obli . '_obligatoire');
        }
    }
    // Verifier l'email
    if (!isset($erreurs['email'])) {
        $email = trim(_request('email'));
        if (!email_valide($email)) {
            $erreurs['email'] = _T('editer_profil:erreur_email_invalide');
        } elseif ($auteur['email'] == $auteur['login']) {
            if (sql_countsel("spip_auteurs", "(email=" . sql_quote($email) . " OR login=" . sql_quote($email) . ") AND id_auteur!=" . intval($id_auteur))) {
                $erreurs['email'] = _T('editer_profil:erreur_email_doublon');
            }
        }
    }
    /* On ne permet pas aux redacteurs/admin de modifier leur pseudo ici
    	 si ils ont des articles publies car cela impacte leur signature */
    // 0minirezo ou 1comite
    if (intval($GLOBALS['visiteur_session']['statut']) <= 1) {
        $nb_articles = sql_countsel('spip_auteurs_liens AS L JOIN spip_articles as A ON (A.id_article=L.id_objet AND L.objet=' . sql_quote('article') . ')', 'L.id_auteur=' . intval($id_auteur) . " AND L.objet='article' AND A.statut=" . sql_quote('publie'));
        if ($nb_articles > 0) {
            if (_request('nom') and _request('nom') !== $auteur['nom']) {
                $erreurs['nom'] = _T('editer_profil:erreur_impossible_modifier_pseudo_auteur');
            }
        }
    }
    return $erreurs;
}

function formulaires_ecrire_auteur_verifier_dist($id_auteur, $id_article, $mail)
{
    $erreurs = array();
    include_spip('inc/filtres');
    if (!($adres = _request('email_message_auteur'))) {
        $erreurs['email_message_auteur'] = _T("info_obligatoire");
    } elseif (!email_valide($adres)) {
        $erreurs['email_message_auteur'] = _T('form_prop_indiquer_email');
    } else {
        include_spip('inc/session');
        session_set('email', $adres);
    }
    if (!($sujet = _request('sujet_message_auteur'))) {
        $erreurs['sujet_message_auteur'] = _T("info_obligatoire");
    } elseif (!(strlen($sujet) > 3)) {
        $erreurs['sujet_message_auteur'] = _T('forum:forum_attention_trois_caracteres');
    }
    if (!($texte = _request('texte_message_auteur'))) {
        $erreurs['texte_message_auteur'] = _T("info_obligatoire");
    } elseif (!(strlen($texte) > 10)) {
        $erreurs['texte_message_auteur'] = _T('forum:forum_attention_dix_caracteres');
    }
    if (_request('nobot')) {
        $erreurs['message_erreur'] = _T('pass_rien_a_faire_ici');
    }
    if (!_request('confirmer') and !count($erreurs)) {
        $erreurs['previsu'] = ' ';
    }
    return $erreurs;
}

function formulaires_configurer_annonces_verifier_dist()
{
    $erreurs = array();
    if (_request('suivi_edito') == 'oui') {
        if (!($email = _request('adresse_suivi'))) {
            $erreurs['adresse_suivi'] = _T('info_obligatoire');
        } else {
            include_spip('inc/filtres');
            if (!email_valide($email)) {
                $erreurs['adresse_suivi'] = _T('form_prop_indiquer_email');
            }
        }
    }
    if (_request('quoi_de_neuf') == 'oui') {
        if (!($email = _request('adresse_neuf'))) {
            $erreurs['adresse_neuf'] = _T('info_obligatoire');
        } else {
            include_spip('inc/filtres');
            if (!email_valide($email)) {
                $erreurs['adresse_neuf'] = _T('form_prop_indiquer_email');
            }
        }
        if (!($email = _request('jours_neuf'))) {
            $erreurs['jours_neuf'] = _T('info_obligatoire');
        }
    }
    return $erreurs;
}

function formulaires_editer_profil_verifier_dist($id_auteur, $retour = '')
{
    $email = _request('email');
    $pass = _request('new_pass');
    $pass2 = _request('new_pass2');
    foreach (array('nom', 'prenom', 'activite', 'email') as $obligatoire) {
        if (!_request($obligatoire)) {
            $erreurs[$obligatoire] = _T('fraap_candidatures:form_champ_obligatoire');
        }
    }
    if ($email and !email_valide($email)) {
        $erreurs['email'] = _T('form_email_non_valide');
    }
    if ($p = _request('new_pass')) {
        if (strlen($p) < 6) {
            $erreurs['new_pass'] = _T('fraap_candidatures:pass_trop_court');
        } elseif ($p != _request('new_pass2')) {
            $erreurs['new_pass2'] = _T('fraap_candidatures:pass_pas_identique');
        }
    }
    if (!$mdp && $mdp2) {
        $erreurs['new_pass'] = _T('fraap_candidatures:pass_pas_identique');
    }
    return $erreurs;
}

/**
 * Calculs de paramètres de contexte automatiques pour la balise FORMULAIRE_ECRIRE_AUTEUR
 *
 * Retourne le contexte du formulaire uniquement si l'email de l'auteur
 * est valide, sinon rien (pas d'exécution/affichage du formulaire)
 * 
 * @param array $args
 *   Liste des arguments demandés obtenus du contexte (id_auteur, id_article, email)
 * @param array $context_compil
 *   Tableau d'informations sur la compilation
 * @return array|string
 *   - Liste (id_auteur, id_article, email) des paramètres du formulaire CVT
 *   - chaîne vide sinon (erreur ou non affichage).
 */
function balise_FORMULAIRE_ECRIRE_AUTEUR_stat($args, $context_compil)
{
    include_spip('inc/filtres');
    // Pas d'id_auteur ni d'id_article ? Erreur de contexte
    $id = intval($args[1]);
    if (!$args[0] and !$id) {
        $msg = array('zbug_champ_hors_motif', array('champ' => 'FORMULAIRE_ECRIRE_AUTEUR', 'motif' => 'AUTEURS/ARTICLES'));
        erreur_squelette($msg, $context_compil);
        return '';
    }
    // Si on est dans un contexte article,
    // sortir tous les mails des auteurs de l'article
    if (!$args[0] and $id) {
        $r = '';
        $s = sql_allfetsel('email', 'spip_auteurs AS A LEFT JOIN spip_auteurs_liens AS L ON (A.id_auteur=L.id_auteur AND L.objet=\'article\')', "A.email != '' AND L.id_objet={$id}");
        foreach ($s as $row) {
            if (email_valide($row['email'])) {
                $r .= ', ' . $row['email'];
            }
        }
        $args[2] = substr($r, 2);
    }
    // On ne peut pas ecrire a un auteur dont le mail n'est pas valide
    if (!$args[2] or !email_valide($args[2])) {
        return '';
    }
    // OK
    return $args;
}

function formulaires_configurer_bank_paiement_verifier_dist()
{
    $erreurs = array();
    if ($e = _request('email_ticket_admin') and !email_valide($e)) {
        $erreurs['email_ticket_admin'] = _T('form_prop_indiquer_email');
    }
    if (!count($erreurs)) {
        if ($dels = _request('action_del') and count($dels)) {
            set_request('action_del');
            foreach ($dels as $del => $v) {
                set_request($del, null);
            }
        }
        if ($ups = _request('action_up') and count($ups)) {
            set_request('action_up');
            foreach ($ups as $up => $v) {
                bank_deplacer_config($up, "up");
            }
        }
        if ($downs = _request('action_down') and count($downs)) {
            set_request('action_down');
            foreach ($downs as $down => $v) {
                bank_deplacer_config($down, "down");
            }
        }
        if (_request('action_append') and $presta = _request('action_append_presta') and in_array($presta, bank_lister_prestas())) {
            set_request('action_append');
            set_request('action_append_presta');
            bank_ajouter_config($presta);
        }
    }
    return $erreurs;
}

function test_oubli_dist($email)
{
	include_spip('inc/filtres'); # pour email_valide()
	if (!email_valide($email) )
		return _T('pass_erreur_non_valide', array('email_oubli' => htmlspecialchars($email)));
	return array('mail' => $email);
}

function formulaires_clevermail_list_edit_verifier_dist($lst_id = -1)
{
    $erreurs = array();
    foreach (array('lst_name', 'lst_moderator_email', 'lst_url_html') as $obligatoire) {
        if (!_request($obligatoire)) {
            $erreurs[$obligatoire] = _T('clevermail:ce_champ_est_obligatoire');
        }
    }
    $nb = sql_countsel("spip_cm_lists", "lst_id != " . intval(_request('lst_id')) . " AND lst_name = " . sql_quote(_request('lst_name')));
    if ($nb > 0) {
        $erreurs['lst_name'] = _T('clevermail:lettre_meme_nom');
    }
    include_spip('inc/filtres');
    if (_request('lst_moderator_email') && !email_valide(_request('lst_moderator_email'))) {
        $erreurs['lst_moderator_email'] = _T('clevermail:cette_adresse_email_n_est_pas_valide');
    }
    if (_request('lst_auto_mode') && _request('lst_auto_mode') != 'none') {
        if (in_array(_request('lst_auto_mode'), array('day', 'week', 'month'))) {
            if (_request('lst_auto_hour') && (intval(_request('lst_auto_hour')) < 0 || intval(_request('lst_auto_hour')) > 23)) {
                $erreurs['lst_auto_hour'] = _T('clevermail:auto_erreur_cette_heure_existe_pas');
            }
            switch (_request('lst_auto_mode')) {
                case 'day':
                    break;
                case 'week':
                    if (!_request('lst_auto_week_days') || count(_request('lst_auto_week_days')) == 0) {
                        $erreurs['lst_auto_week_days'] = _T('clevermail:auto_erreur_choisir_un_jour_minimum');
                    } elseif (min(_request('lst_auto_week_days')) < 0 || max(_request('lst_auto_week_days')) > 6) {
                        $erreurs['lst_auto_week_days'] = _T('clevermail:auto_erreur_ce_jour_semaine_existe_pas');
                    }
                    break;
                case 'month':
                    if (_request('lst_auto_month_day') && (intval(_request('lst_auto_month_day')) < 0 || intval(_request('lst_auto_month_day')) > 31)) {
                        $erreurs['lst_auto_month_day'] = _T('clevermail:auto_erreur_ce_jour_mois_existe_pas');
                    } elseif (intval(_request('lst_auto_month_day')) > 28) {
                        $erreurs['lst_auto_month_day'] = _T('clevermail:auto_erreur_ce_jour_mois_pas_possible');
                    }
                    break;
            }
        } else {
            $erreurs['lst_auto_mode'] = _T('clevermail:auto_erreur_ce_mode_automatisation_existe_pas');
        }
    }
    if (_request('lst_auto_subscribers') != '') {
        include_spip('inc/distant');
        if ($adresses = recuperer_page(_request('lst_auto_subscribers'))) {
            include_spip('inc/clevermail_abonnes');
            if (!clevermail_verification_adresses_email($adresses)) {
                $erreurs['lst_auto_subscribers'] = _T('clevermail:le_format_des_adresses_email_ne_semble_pas_bon');
            }
        } else {
            $erreurs['lst_auto_subscribers'] = _T('clevermail:fichier_adresses_distant_impossible_telecharger');
        }
    }
    if (count($erreurs)) {
        $erreurs['message_erreur'] = _T('clevermail:veuillez_corriger_votre_saisie');
    }
    return $erreurs;
}

function formulaires_configurer_bank_paiement_verifier_dist()
{
    $erreurs = array();
    if ($e = _request('email_ticket_admin') and !email_valide($e)) {
        $erreurs['email_ticket_admin'] = _T('form_prop_indiquer_email');
    }
    return $erreurs;
}

function formulaires_vacarme_editer_email_auteur_verifier_dist($id_auteur = 'new')
{
    $erreurs = formulaires_editer_objet_verifier('auteur', $id_auteur, array('email'));
    if ($email = _request('email')) {
        include_spip('inc/filtres');
        if (!email_valide($email)) {
            $erreurs['email'] = _T('form_email_non_valide');
        }
    }
    return $erreurs;
}

function formulaires_spip_listes_inscription_verifier_dist ($id_liste='')
{
	$erreurs = array();
	
	// verifier que les champs obligatoires sont bien la :
	foreach(array('email') as $obligatoire) {
		if (!_request($obligatoire))
		{
			$erreurs[$obligatoire] = _T('spiplistes:champ_obligatoire');
		}
	}
	
	if (!in_array(_request('format_abo'), array('html','texte')))
	{
		$erreurs['format'] = 'format inconnu';
	}
	
	$listes = _request('listes');
	
	if (is_array($listes))
	{
		foreach($listes as $liste)
		{
			$id_liste = intval($liste);
			if(!$id_liste) 
			{
				$erreurs['liste'] = _T('spiplistes:liste_inconnue');
			}
		}
	}

	// verifier que si un email a ete saisi, il est bien valide :
	include_spip('inc/filtres');
	$email = _request('email');
	if ($email && !email_valide($email)) 
	{
		$erreurs['email'] = _T('spiplistes:cet_email_pas_valide');
	}
	
	//// Verifier si le mail est deja connu
	//if (email_valide(_request('email'))) {
	//	if (sql_getfetsel('id_auteur','spip_auteurs',"id_auteur !='".intval($id_auteur)."' AND email = '$email'")) {
	//		$erreurs['email'] = _T('spiplistes:cet_email_deja_enregistre');
	//	}
	//}

	if (count($erreurs)) {
		$erreurs['message_erreur'] = _T('spiplistes:saisie_erreurs');
	}
	
    return ($erreurs); // si c'est vide, traiter sera appele, sinon le formulaire sera re-soumis
}

function clevermail_verification_adresses_email($adresses)
{
    include_spip('inc/filtres');
    if (is_string($adresses)) {
        $adresses = clevermail_chaine_email_en_tableau($adresses);
    }
    foreach ($adresses as $adresse) {
        if (!email_valide($adresse)) {
            return false;
        }
    }
    return true;
}

/**
 * Verifier les champs postes et signaler d'eventuelles erreurs
 */
function formulaires_newsletter_subscribe_verifier_dist($listes = '')
{
    $erreurs = array();
    if (!($email = _request('session_email'))) {
        $erreurs['session_email'] = _T('info_obligatoire');
    } else {
        // verifier que l'email est valide
        if (!email_valide($email)) {
            $erreurs['session_email'] = _T('info_email_invalide');
        }
    }
    return $erreurs;
}

function formulaires_configurer_identite_verifier_dist()
{
    $erreurs = array();
    // adresse_site est obligatoire mais rempli automatiquement si absent !
    foreach (array('nom_site') as $obli) {
        if (!_request($obli)) {
            $erreurs[$obli] = _T('info_obligatoire');
        }
    }
    if ($email = _request('email_webmaster') and !email_valide($email)) {
        $erreurs['email_webmaster'] = _T('info_email_invalide');
    }
    return $erreurs;
}

function formulaires_tispip_contact_verifier_dist(){
	$erreurs = array();
	// verifier que les champs obligatoires sont bien la :
	foreach(array('email','message') as $obligatoire)
		if (!_request($obligatoire)) $erreurs[$obligatoire] = 'Ce champ est obligatoire';
	
	// verifier que si un email a été saisi, il est bien valide :
	include_spip('inc/filtres');
	if (_request('email') AND !email_valide(_request('email')))
		$erreurs['email'] = 'Cet email n\'est pas valide';

	if (count($erreurs))
		$erreurs['message_erreur'] = 'Votre saisie contient des erreurs !';
	return $erreurs;
}

function action_confirmer_email_dist()
{
    $securiser_action = charger_fonction('securiser_action', 'inc');
    $arg = $securiser_action();
    include_spip('inc/filtres');
    if ($GLOBALS['visiteur_session']['id_auteur'] and email_valide($arg)) {
        include_spip('action/editer_auteur');
        auteur_modifier($GLOBALS['visiteur_session']['id_auteur'], array('email' => $arg));
    }
    // verifier avant de rediriger pour invalider le message de confirmation
    // si ca n'a pas marche
    if ($redirect = _request('redirect') and !$arg == sql_getfetsel('email', 'spip_auteurs', 'id_auteur=' . intval($GLOBALS['visiteur_session']))) {
        $GLOBALS['redirect'] = parametre_url($redirect, 'email_modif', '');
    }
}

/**
 * Fonction generique de verification des destinataires
 * lors de l'envoi d'un message ou de recommander
 * un destinataire peut etre un id_auteur numerique
 * ou une adresse mail valide, si l'options accepter_email est true
 *
 * @param array $destinataires
 * @param array $options
 * @return array
 */
function messagerie_verifier_destinataires($destinataires, $options = array('accepter_email' => true))
{
    $erreurs = array();
    $destinataires = messagerie_nettoyer_destinataires($destinataires);
    foreach ($destinataires as $id) {
        if (is_numeric($id)) {
            if (!$id) {
                $erreurs[] = _T('organiseur:erreur_destinataire_invalide', array('dest' => $id));
            }
        } else {
            if (!$options['accepter_email'] or !email_valide($id)) {
                $erreurs[] = _T('organiseur:erreur_destinataire_invalide', array('dest' => $id));
            }
        }
    }
    return $erreurs;
}

function formulaires_clevermail_multiple_verifier_dist($lst_id = 0, $lsr_mode_force = false)
{
    $erreurs = array();
    if (!_request('lst_id') && !_request('lst_ids')) {
        $erreurs['lst_ids'] = _T('clevermail:ce_champ_est_obligatoire');
    }
    if (!_request('sub_email')) {
        $erreurs['sub_email'] = _T('clevermail:ce_champ_est_obligatoire');
    }
    include_spip('inc/filtres');
    if (_request('sub_email') && !email_valide(_request('sub_email'))) {
        $erreurs['sub_email'] = _T('clevermail:cette_adresse_email_n_est_pas_valide');
    }
    if (count($erreurs)) {
        $erreurs['message_erreur'] = _T('clevermail:veuillez_corriger_votre_saisie');
    }
    return $erreurs;
}

/**
 * fonction qu'on peut redefinir pour filtrer les adresses mail et les noms,
 * et donner des infos supplementaires
 * Std: controler que le nom (qui sert a calculer le login) est plausible
 * et que l'adresse est valide. On les normalise au passage (trim etc).
 * Retour:
 * - si ok un tableau avec au minimum email, nom, mode (redac / forum)
 * - si ko une chaine de langue servant d'argument a  _T expliquant le refus
 *
 * http://doc.spip.org/@test_inscription_dist
 *
 * @param string $statut
 * @param string $mail
 * @param string $nom
 * @param string $options
 * @return array|string
 */
function test_inscription_dist($statut, $mail, $nom, $options)
{
    include_spip('inc/filtres');
    if (!($r = email_valide($mail))) {
        return 'info_email_invalide';
    }
    $nom = trim(corriger_caracteres($nom));
    $res = array('email' => $r, 'nom' => $nom, 'prefs' => $statut);
    if (isset($options['login'])) {
        $login = trim(corriger_caracteres($options['login']));
        if (strlen($login) >= _LOGIN_TROP_COURT and strlen($nom) <= 64) {
            $res['login'] = $login;
        }
    }
    if (!isset($res['login']) and (strlen($nom) < _LOGIN_TROP_COURT or strlen($nom) > 64)) {
        return 'ecrire:info_login_trop_court';
    }
    return $res;
}

function formulaires_clevermail_settings_edit_verifier_dist()
{
    include_spip('inc/filtres');
    $mails = array('CM_MAIL_ADMIN', 'CM_MAIL_FROM', 'CM_MAIL_RETURN');
    $keys = array('CM_MAIL_ADMIN', 'CM_MAIL_FROM', 'CM_MAIL_RETURN', 'CM_SEND_NUMBER', 'CM_MAIL_SUBJECT', 'CM_MAIL_TEXT');
    $erreurs = array();
    foreach ($keys as $obligatoire) {
        if (!_request($obligatoire)) {
            $erreurs[$obligatoire] = _T('clevermail:ce_champ_est_obligatoire');
        }
    }
    foreach ($mails as $mail) {
        if (!email_valide(_request($mail))) {
            $erreurs[$mail] = _T('cette_adresse_email_n_est_pas_valide');
        }
    }
    if (count($erreurs)) {
        $erreurs['message_erreur'] = _T('clevermail:veuillez_corriger_votre_saisie');
    }
    return $erreurs;
}