4414b5e5f2e619965e0d7d6616132919cd6ed884
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2011 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
15 function formulaires_inscription_charger_dist($mode, $focus, $id=0) {
16 $valeurs = array('nom_inscription'=>'','mail_inscription'=>'', 'id'=>$id);
18 $valeurs['_commentaire'] = _T('pass_espace_prive_bla');
20 $valeurs['_commentaire'] = _T('pass_forum_bla');
22 if (!tester_config($id, $mode))
23 $valeurs['editable'] = false;
28 // Si inscriptions pas autorisees, retourner une chaine d'avertissement
29 function formulaires_inscription_verifier_dist($mode, $focus, $id=0) {
32 include_spip('inc/filtres');
33 if (!tester_config($id, $mode) OR (strlen(_request('nobot'))>0))
34 $erreurs['message_erreur'] = _T('rien_a_faire_ici');
36 if (!$nom = _request('nom_inscription'))
37 $erreurs['nom_inscription'] = _T("info_obligatoire");
38 if (!$mail = _request('mail_inscription'))
39 $erreurs['mail_inscription'] = _T("info_obligatoire");
41 // compatibilite avec anciennes fonction surchargeables
42 // plus de definition par defaut
43 if (!count($erreurs)){
44 if (function_exists('test_inscription'))
45 $f = 'test_inscription';
47 $f = 'test_inscription_dist';
48 $declaration = $f($mode, $mail, $nom, $id);
49 if (is_string($declaration)) {
50 $k = (strpos($declaration, 'mail') !== false) ?
51 'mail_inscription' : 'nom_inscription';
52 $erreurs[$k] = _T($declaration);
54 include_spip('base/abstract_sql');
56 if ($row = sql_fetsel("statut, id_auteur, login, email", "spip_auteurs", "email=" . sql_quote($declaration['email']))){
57 if (($row['statut'] == '5poubelle') AND !$declaration['pass'])
59 $erreurs['message_erreur'] = _T('form_forum_access_refuse');
60 elseif (($row['statut'] != 'nouveau') AND !$declaration['pass'])
62 $erreurs['message_erreur'] = _T('form_forum_email_deja_enregistre');
63 spip_log($row['id_auteur'] . " veut se resinscrire");
70 function formulaires_inscription_traiter_dist($mode, $focus, $id=0) {
72 $nom = _request('nom_inscription');
73 $mail_complet = _request('mail_inscription');
75 if (function_exists('test_inscription'))
76 $f = 'test_inscription';
77 else $f = 'test_inscription_dist';
78 $desc = $f($mode, $mail_complet, $nom, $id);
80 if (!is_array($desc)) {
83 include_spip('base/abstract_sql');
84 $res = sql_select("statut, id_auteur, login, email", "spip_auteurs", "email=" . sql_quote($desc['email']));
86 $desc = _T('titre_probleme_technique');
88 $row = sql_fetch($res);
89 // s'il n'existe pas deja, creer les identifiants
90 $desc = $row ?
$row : inscription_nouveau($desc);
94 if (is_array($desc)) {
95 // generer le mot de passe (ou le refaire si compte inutilise)
96 $desc['pass'] = creer_pass_pour_auteur($desc['id_auteur']);
97 // charger de suite cette fonction, pour ses utilitaires
98 $envoyer_mail = charger_fonction('envoyer_mail','inc');
99 if (function_exists('envoyer_inscription'))
100 $f = 'envoyer_inscription';
101 else $f = 'envoyer_inscription_dist';
102 list($sujet,$msg,$from,$head) = $f($desc, $nom, $mode, $id);
103 if (!$envoyer_mail($mail_complet, $sujet, $msg, $from, $head))
104 $desc = _T('form_forum_probleme_mail');
106 if ($notifications = charger_fonction('notifications', 'inc')) {
107 $notifications('inscription', $desc['id_auteur'],
108 array('nom' => $desc['nom'], 'email' => $desc['email'])
113 return array('message_ok'=>is_string($desc) ?
$desc : _T('form_forum_identifiant_mail'));
116 // fonction qu'on peut redefinir pour filtrer les adresses mail et les noms,
117 // et donner des infos supplementaires
118 // Std: controler que le nom (qui sert a calculer le login) est plausible
119 // et que l'adresse est valide. On les normalise au passage (trim etc).
121 // - si ok un tableau avec au minimum email, nom, mode (redac / forum)
122 // - si ko une chaine de langue servant d'argument a _T expliquant le refus
124 // http://doc.spip.org/@test_inscription_dist
125 function test_inscription_dist($mode, $mail, $nom, $id=0) {
127 include_spip('inc/filtres');
128 $nom = trim(corriger_caracteres($nom));
129 if((strlen ($nom) < _LOGIN_TROP_COURT
) OR (strlen($nom) > 64))
130 return 'ecrire:info_login_trop_court';
131 if (!$r = email_valide($mail)) return 'info_email_invalide';
132 return array('email' => $r, 'nom' => $nom, 'bio' => $mode);
135 // On enregistre le demandeur comme 'nouveau', en memorisant le statut final
136 // provisoirement dans le champ Bio, afin de ne pas visualiser les inactifs
137 // A sa premiere connexion il obtiendra son statut final.
139 // http://doc.spip.org/@inscription_nouveau
140 function inscription_nouveau($desc)
142 if (!isset($desc['login']))
143 $desc['login'] = test_login($desc['nom'], $desc['email']);
145 $desc['statut'] = 'nouveau';
147 $n = sql_insertq('spip_auteurs', $desc);
149 if (!$n) return _T('titre_probleme_technique');
151 $desc['id_auteur'] = $n;
156 // construction du mail envoyant les identifiants
157 // fonction redefinissable qui doit retourner un tableau
158 // dont les elements seront les arguments de inc_envoyer_mail
160 // http://doc.spip.org/@envoyer_inscription_dist
161 function envoyer_inscription_dist($desc, $nom, $mode, $id) {
163 $nom_site_spip = nettoyer_titre_email($GLOBALS['meta']["nom_site"]);
164 $adresse_site = $GLOBALS['meta']["adresse_site"];
165 if ($mode == '6forum') {
166 $adresse_login = generer_url_public('login');
167 $msg = 'form_forum_voici1';
169 $adresse_login = $adresse_site .'/'. _DIR_RESTREINT_ABS
;
170 $msg = 'form_forum_voici2';
173 $msg = _T('form_forum_message_auto')."\n\n"
174 . _T('form_forum_bonjour', array('nom'=>$nom))."\n\n"
175 . _T($msg, array('nom_site_spip' => $nom_site_spip,
176 'adresse_site' => $adresse_site . '/',
177 'adresse_login' => $adresse_login)) . "\n\n- "
178 . _T('form_forum_login')." " . $desc['login'] . "\n- "
179 . _T('form_forum_pass'). " " . $desc['pass'] . "\n\n";
181 return array("[$nom_site_spip] "._T('form_forum_identifiants'), $msg);
184 // http://doc.spip.org/@test_login
185 function test_login($nom, $mail) {
186 include_spip('inc/charsets');
187 $nom = strtolower(translitteration($nom));
188 $login_base = preg_replace("/[^\w\d_]/", "_", $nom);
190 // il faut eviter que le login soit vraiment trop court
191 if (strlen($login_base) < 3) {
192 $mail = strtolower(translitteration(preg_replace('/@.*/', '', $mail)));
193 $login_base = preg_replace("/[^\w\d]/", "_", $mail);
195 if (strlen($login_base) < 3)
196 $login_base = 'user';
198 // eviter aussi qu'il soit trop long (essayer d'attraper le prenom)
199 if (strlen($login_base) > 10) {
200 $login_base = preg_replace("/^(.{4,}(_.{1,7})?)_.*/",
202 $login_base = substr($login_base, 0,13);
205 $login = $login_base;
207 for ($i = 1; ; $i++
) {
208 if (!sql_countsel('spip_auteurs', "login='$login'"))
210 $login = $login_base.$i;
214 // http://doc.spip.org/@creer_pass_pour_auteur
215 function creer_pass_pour_auteur($id_auteur) {
216 include_spip('inc/acces');
217 $pass = creer_pass_aleatoire(8, $id_auteur);
218 include_spip('action/editer_auteur');
219 instituer_auteur($id_auteur, array('pass'=>$pass));