Subversion Repositories Sites.tela-botanica.org

<?php

if (!defined("_ECRIRE_INC_VERSION")) return;    #securite

include_ecrire('inc_abstract_sql.php3');

// Balise independante du contexte
global $balise_FORMULAIRE_INSCRIPTION_collecte ;
$balise_FORMULAIRE_INSCRIPTION_collecte = array();

// args[0] est le parametre 'focus' -- [(#FORMULAIRE_INSCRIPTION{focus})]
function balise_FORMULAIRE_INSCRIPTION_stat($args, $filtres) {
        if (lire_meta('accepter_inscriptions') != 'oui')
                return '';
        else
                return array('redac', ($args[0] == 'focus' ? 'nom_inscription' : ''));
}

function balise_FORMULAIRE_INSCRIPTION_dyn($mode, $focus) {

        // Si une inscription est autorisee, on enregistre le demandeur
        // comme 'nouveau' et on lui envoie ses codes par email ; lors de
        // sa premiere connexion il obtiendra son statut final (auth->activer())
        if (!(($mode == 'redac' AND lire_meta('accepter_inscriptions') == 'oui')
        OR ($mode == 'forum' AND (
                lire_meta('accepter_visiteurs') == 'oui'
                OR lire_meta('forums_publics') == 'abo'
                )
            )))
                return _T('pass_rien_a_faire_ici');

        // recuperer les donnees envoyees
        $mail_inscription = trim(_request('mail_inscription'));
        $nom_inscription = _request('nom_inscription');

        if (!$nom_inscription) 
                $message = '';
        elseif (!test_mail_ins($mode, $mail_inscription))
                $message = _T('info_email_invalide');
        else    $message = message_inscription($mail_inscription,
                                               $nom_inscription,
                                               false,
                                               ($mode == 'forum')  ?
                                               'form_forum_voici1' :
                                               'form_forum_voici2');

        return array("formulaire_inscription", $GLOBALS['delais'],
                        array('focus' => $focus,
                                'target' => _request('target'),
                                'message' => $message,
                                'mode' => $mode,
                                'self' => $GLOBALS["clean_link"]->getUrl()
                                ));
}

// fonction qu'on peut redefinir pour filtrer selon l'adresse mail
// cas general: controler juste que l'adresse n'est pas vide et est valide

function test_mail_ins($mode, $mail) {
        return  ($mail = trim($mail)) AND email_valide($mail);
}

// creer un nouvel utilisateur et lui envoyer un mail avec ses identifiants

function message_inscription($mail_inscription, $nom_inscription, $force, $mode) {
        $s = spip_query("SELECT statut, id_auteur, login
                FROM spip_auteurs WHERE email='".addslashes($mail_inscription)."'");
        $row = spip_fetch_array($s);

        if (!$row) {
        // il n'existe pas, creer les identifiants 
                $login = test_login($nom_inscription, $mail_inscription);
                $pass = creer_pass_pour_auteur(spip_abstract_insert('spip_auteurs', 
                                '(nom, email, login, statut)',
                                "('".
                                addslashes($nom_inscription) .
                                "', '".
                                addslashes($mail_inscription) .
                                "', '" .
                                $login .
                                "', 'nouveau')"));

                return envoyer_inscription($mail_inscription, 'nouveau', $mode, $login, $pass, $nom_inscription);
        } else {
                // existant mais encore muet, ou ressucite: renvoyer les infos
                if ((($row['statut'] == 'nouveau') && !$force) ||
                (($row['statut'] == '5poubelle') && $force)) {
                        // recreer le pass
                        $pass = creer_pass_pour_auteur($row['id_auteur']);
                        return envoyer_inscription($mail_inscription, $row['statut'], $mode,
                                     $row['login'], $pass, $nom_inscription);
                } else {
                        // irrecuperable
                        if ($row['statut'] == '5poubelle')
                                return_T('form_forum_access_refuse');
                        else
                                // deja inscrit
                                return _T('form_forum_email_deja_enregistre');
                }
        }
}


// envoyer identifiants par mail
function envoyer_inscription($mail, $statut, $mode, $login, $pass, $nom) {
        $nom_site_spip = lire_meta("nom_site");
        $adresse_site = lire_meta("adresse_site");
        
        $message = _T('form_forum_message_auto')."\n\n"
          . _T('form_forum_bonjour', array('nom'=>$nom))."\n\n"
          . _T($mode, array('nom_site_spip' => $nom_site_spip, 'adresse_site' => $adresse_site)) . "\n\n"
          . "- "._T('form_forum_login')." $login\n"
          . "- "._T('form_forum_pass')." $pass\n\n";

        include_ecrire("inc_mail.php3");
        if (envoyer_mail($mail,
                         "[$nom_site_spip] "._T('form_forum_identifiants'),
                         $message))
                return _T('form_forum_identifiant_mail');
        else
                return _T('form_forum_probleme_mail');
}

function test_login($nom, $mail) {
        include_ecrire('inc_charsets.php3');
        $nom = strtolower(translitteration($nom));
        $login_base = ereg_replace("[^a-zA-Z0-9_]", "_", $nom);

        // il faut eviter que le login soit vraiment trop court
        if (strlen($login_base) < 3) {
                $mail = strtolower(translitteration(preg_replace('/@.*/', '', $mail)));
                $login_base = ereg_replace("[^a-zA-Z0-9]", "_", $nom);
        }
        if (strlen($login_base) < 3)
                $login_base = 'user';

        // eviter aussi qu'il soit trop long (essayer d'attraper le prenom)
        if (strlen($login_base) > 10) {
                $login_base = preg_replace("/^(.{4,}(_.{1,7})?)_.*/",
                        '\1', $login_base);
                $login_base = substr($login_base, 0,13);
        }

        $login = $login_base;

        for ($i = 1; ; $i++) {
          if (!spip_num_rows(spip_query("SELECT id_auteur FROM spip_auteurs WHERE login='$login' LIMIT 1")))
                        return $login;
                $login = $login_base.$i;
        }
}

function creer_pass_pour_auteur($id_auteur) {
        include_ecrire("inc_acces.php3");
        $pass = creer_pass_aleatoire(8, $id_auteur);
        $mdpass = md5($pass);
        $htpass = generer_htpass($pass);
        spip_query("UPDATE spip_auteurs
                SET pass='$mdpass', htpass='$htpass'
                WHERE id_auteur = ".$id_auteur);
        ecrire_acces();
        
        return $pass;
}

?>