Subversion Repositories Sites.tela-botanica.org

Rev

Rev 398 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 398 Rev 409
Line 1... Line 1...
1 
<?php
 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
- 
 
3 
// +------------------------------------------------------------------------------------------------------+
 2 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
 3 
// | PHP version 4.1																					  |
5 
// +------------------------------------------------------------------------------------------------------+
 4 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
 5 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)							   	          |
7 
// +------------------------------------------------------------------------------------------------------+
 6 
// +------------------------------------------------------------------------------------------------------+
8 
// | This library is free software; you can redistribute it and/or                                        |
 7 
// | This library is free software; you can redistribute it and/or										  |
9 
// | modify it under the terms of the GNU Lesser General Public                                           |
 8 
// | modify it under the terms of the GNU Lesser General Public										      |
10 
// | License as published by the Free Software Foundation; either                                         |
 9 
// | License as published by the Free Software Foundation; either										  |
11 
// | version 2.1 of the License, or (at your option) any later version.                                   |
 10 
// | version 2.1 of the License, or (at your option) any later version.								      |
12 
// |                                                                                                      |
 11 
// |																									  |
13 
// | This library is distributed in the hope that it will be useful,                                      |
 12 
// | This library is distributed in the hope that it will be useful,									  |
14 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
 13 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of									      |
15 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
 14 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU									  |
16 
// | Lesser General Public License for more details.                                                      |
 15 
// | Lesser General Public License for more details.													  |
17 
// |                                                                                                      |
 16 
// |																									  |
18 
// | You should have received a copy of the GNU Lesser General Public                                     |
 17 
// | You should have received a copy of the GNU Lesser General Public									  |
19 
// | License along with this library; if not, write to the Free Software                                  |
 18 
// | License along with this library; if not, write to the Free Software								  |
20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
 19 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA							  |
21 
// +------------------------------------------------------------------------------------------------------+
 20 
// +------------------------------------------------------------------------------------------------------+
22 
// CVS : $Id: inscription.fonct.php,v 1.2 2005/03/21 16:50:27 alex Exp $
 - 
 
23 
// CVS : $Id: inscription.fonct.php,v 1.2 2005/03/21 16:50:27 alex Exp $
 - 
 
24 
/**
 21 
/**
25 
* Fonctions du module inscription
 22 
* Fonctions du module inscription
26 
*
 23 
*
27 
* Fonctions du module inscription
 24 
* Fonctions du module inscription
28 
*
 25 
*
29 
*@package inscription
 26 
*@package inscription
30 
//Auteur original :
 27 
//Auteur original :
31 
*@author        Alexandre Granier <alexandre@tela-botanica.org>
 28 
*@author		Alexandre Granier <alexandre@tela-botanica.org>
32 
//Autres auteurs :
 29 
//Autres auteurs :
33 
*@author        Aucun
 30 
*@author	   Jean-Pascal MILCENT <jpm@tela-botanica.org>
34 
*@copyright     Tela-Botanica 2000-2004
 31 
*@copyright	 Tela-Botanica 2000-2004
35 
*@version       $Revision: 1.2 $ $Date: 2005/03/21 16:50:27 $
 32 
*@version	 $Id: inscription.fonct.php,v 1.2 2005/03/21 16:50:27 alex Exp $
36 
// +------------------------------------------------------------------------------------------------------+
 33 
// +------------------------------------------------------------------------------------------------------+
37 
*/
 34 
*/
Line 38... Line 35...
38 
 
 35 
 
39 
// +------------------------------------------------------------------------------------------------------+
 36 
// +------------------------------------------------------------------------------------------------------+
40 
// |                                            ENTETE du PROGRAMME                                       |
 37 
// |											ENTETE du PROGRAMME									   |
Line 41... Line -...
41 
// +------------------------------------------------------------------------------------------------------+
 - 
 
42 
 
 - 
 
43 
include_once INS_CHEMIN_FICHIER.'bibliotheque/ins_wiki.fonct.php' ;
 - 
 
44 
include_once INS_CHEMIN_FICHIER.'bibliotheque/ins_spip.fonct.php' ;
 - 
 
45 
require_once 'HTML/QuickForm.php' ;
 - 
 
- 
 
 38 
// +------------------------------------------------------------------------------------------------------+
Line 46... Line 39...
46 
require_once 'HTML/QuickForm/checkbox.php' ;
 39 
 
47 
require_once 'HTML/QuickForm/password.php' ;
 40 
 
48 
 
 41 
 
Line 49... Line -...
49 
// +------------------------------------------------------------------------------------------------------+
 - 
 
50 
// |                                           LISTE de FONCTIONS                                         |
 42 
// +------------------------------------------------------------------------------------------------------+
51 
// +------------------------------------------------------------------------------------------------------+
 43 
// |										   LISTE de FONCTIONS										 |
52 
 
 44 
// +------------------------------------------------------------------------------------------------------+
53 
 
 45 
 
54 
/**
 46 
/**
55 
 *
 - 
 
56 
 * @param   array   les valeurs renvoyés par le formulaire
 47 
 *
57 
 * @return
 48 
 * @param   array   les valeurs renvoyés par le formulaire
58 
 */
 49 
 * @return
59 
 
 50 
 */
60 
function demande_inscription ($valeurs) {
 51 
function demande_inscription ($valeurs) {
61 
    // On stocke les informations dans un variable de session
 52 
	// On stocke les informations dans un variable de session
62 
    // On coupe l'identifiant de session pour ne prendre que les 8 premiers caractères
 53 
	// On coupe l'identifiant de session pour ne prendre que les 8 premiers caractères
63 
    // afin d'éviter d'obtenir une url trop longue
 54 
	// afin d'éviter d'obtenir une url trop longue
64 
    $chaine = substr (session_id(), 0, 8) ;
 55 
	$chaine = substr (session_id(), 0, 8) ;
65 
    $requete_verif = 'SELECT * FROM inscription_demande WHERE id_identifiant_session="'.$chaine.'"' ;
 56 
	$requete_verif = 'SELECT * FROM inscription_demande WHERE id_identifiant_session="'.$chaine.'"' ;
66 
    $resultat_verif = $GLOBALS['ins_db']->query($requete_verif) ;
 57 
	$resultat_verif = $GLOBALS['ins_db']->query($requete_verif) ;
67 
    if ($resultat_verif->numRows() != 0) {
 58 
	if ($resultat_verif->numRows() != 0) {
68 
        $requete_suppression = 'DELETE FROM inscription_demande WHERE id_identifiant_session="'.$chaine.'"' ;
 59 
		$requete_suppression = 'DELETE FROM inscription_demande WHERE id_identifiant_session="'.$chaine.'"' ;
69 
        $GLOBALS['ins_db']->query($requete_suppression) ;
 60 
		$GLOBALS['ins_db']->query($requete_suppression) ;
70 
    }
 61 
	}
71 
    $requete = 'INSERT INTO inscription_demande SET id_identifiant_session="'.$chaine.'", id_donnees="'.
 62 
	$requete = 'INSERT INTO inscription_demande SET id_identifiant_session="'.$chaine.'", id_donnees="'.
72 
                addslashes(serialize($valeurs)).'", id_date=NOW()' ;
 63 
				addslashes(serialize($valeurs)).'", id_date=NOW()' ;
73 
    $resultat = $GLOBALS['ins_db']->query($requete) ;
 64 
	$resultat = $GLOBALS['ins_db']->query($requete) ;
74 
    if (DB::isError ($resultat)) {
 65 
	if (DB::isError ($resultat)) {
75 
        echo ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
 66 
		echo ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
76 
    }
 67 
	}
77 
    // On envoie un email de confirmation pour l'utilisateur
 68 
	// On envoie un email de confirmation pour l'utilisateur
78 
    $GLOBALS['ins_url']->addQueryString('id', $chaine) ;
 69 
	$GLOBALS['ins_url']->addQueryString('id', $chaine) ;
79
70
80 
    $corps = INS_MESSAGE_DEBUT_MAIL_INSCRIPTION ;
 71 
	$corps = INS_MESSAGE_DEBUT_MAIL_INSCRIPTION ;
81 
    if (INS_UTILISE_REECRITURE_URL) {
 72 
	if (INS_UTILISE_REECRITURE_URL) {
82 
        $corps .= 'http://'.$GLOBALS['ins_url']->host.'/'.INS_URL_PREFIXE.$chaine ;
 73 
		$corps .= 'http://'.$GLOBALS['ins_url']->host.'/'.INS_URL_PREFIXE.$chaine ;
83 
    } else {
 74 
	} else {
84 
        $corps .= str_replace ('&amp;', '&', $GLOBALS['ins_url']->getURL()) ;
 75 
		$corps .= str_replace ('&amp;', '&', $GLOBALS['ins_url']->getURL()) ;
Line 85... Line -...
85 
    }
 - 
 
86 
    $corps .= INS_MESSAGE_FIN_MAIL_INSCRIPTION ;
 76 
	}
87 
    mail ($GLOBALS['email'], 'Inscription', $corps, 'From: '.INS_MAIL_ADMIN_APRES_INSCRIPTION) ;
 77 
	$corps .= INS_MESSAGE_FIN_MAIL_INSCRIPTION ;
88 
}
 78 
	mail ($GLOBALS['email'], 'Inscription', $corps, 'From: '.INS_MAIL_ADMIN_APRES_INSCRIPTION) ;
89 
 
 79 
}
90 
 
 80 
 
- 
 
 81 
function AUTH_formulaire_login ($msg = '') {
91 
function AUTH_formulaire_login ($msg = '') {
 82 
	$res = '';
- 
 
 83 
	//--------------------------------------------------------------------------
92 
 
 84 
	// Les urls
- 
 
 85 
	$url_deja_inscrit = preg_replace ('/&amp;/', '&', $GLOBALS['ins_url']->getURL()) ;
- 
 
 86 
	$GLOBALS['ins_url']->addQueryString('action', 'inscription');
93 
    //--------------------------------------------------------------------------
 87 
	$url_inscription = preg_replace ('/&amp;/', '&', $GLOBALS['ins_url']->getURL()) ;
94 
    // Le formulaire
 88 
	$GLOBALS['ins_url']->removeQueryString('action');
95 
    //--------------------------------------------------------------------------
 89
96 
    $url = preg_replace ('/&amp;/', '&', $GLOBALS['ins_url']->getURL()) ;
 90 
	//--------------------------------------------------------------------------
97
91 
	// Le formulaire
98 
    $form = new HTML_QuickForm ('inscription', 'post', $url."&action=inscription") ;
 92 
	$form = new HTML_QuickForm ('inscription', 'post', $url_inscription);
99 
    $form->addElement ('submit', 'Inscription', INS_INSCRIPTION) ;
 93 
	$form->addElement ('submit', 'Inscription', INS_INSCRIPTION) ;
100 
    $res = '<h1 class="titre1_inscription">'.INS_ACCUEIL_INSCRIPTION.'</h1>';
 94 
	$res = '<h1 class="titre1_inscription">'.INS_ACCUEIL_INSCRIPTION.'</h1>';
101 
    $res .= $msg ;
 95 
	$res .= $msg ;
102 
    $res .= "<h2 class=\"titre2_inscription\">".INS_LAIUS_INSCRIPTION."</h2>\n" ;
 96 
	$res .= '<h2 class="titre2_inscription">'.INS_LAIUS_INSCRIPTION.'</h2>'."\n" ;
103 
    $res .= "<div>".INS_LAIUS_INSCRIPTION_2."</div>\n" ;
 97 
	$res .= '<p>'.INS_LAIUS_INSCRIPTION_2.'</p>'."\n" ;
104 
    $res .= $form->toHTML() ;
 98 
	$res .= $form->toHTML() ;
105 
    $res .= '<h2 class="titre2_inscription">'.INS_DEJA_INSCRIT.'</h2>' ;
 - 
 
106 
    $form = new HTML_QuickForm ('inscription', 'post', $url) ;
 99 
	$res .= '<h2 class="titre2_inscription">'.INS_DEJA_INSCRIT.'</h2>' ;
107 
    $form->addElement ('text', 'username', INS_EMAIL) ;
 - 
 
108 
    $form->addElement ('password', 'password', INS_MOT_DE_PASSE) ;
 100 
	$form = new HTML_QuickForm ('inscription', 'post', $url_deja_inscrit) ;
109 
    $form->addElement('submit', 'valider', INS_VALIDER);
 101 
	$form->addElement ('text', 'username', INS_EMAIL) ;
110
102 
	$form->addElement ('password', 'password', INS_MOT_DE_PASSE) ;
Line 111... Line 103...
111 
    $res .= $form->toHTML() ;
 103 
	$form->addElement('submit', 'valider', INS_VALIDER);
112 
 
 104 
	$res .= $form->toHTML() ;
- 
 
 105 
	$res .= '<p>'.INS_TEXTE_PERDU.'</p>'."\n" ;
- 
 
 106 
	return $res;
113 
    $res .= "<div>".INS_TEXTE_PERDU."</div>\n" ;
 107 
}
114 
    return $res;
 108 
 
- 
 
 109 
/** message_erreur () - Renvoie le code HTML d'un message d'erreur
- 
 
 110 
*
Line 115... Line -...
115 
}
 - 
 
116 
 
 111 
* Cette page est appelée avec le paramêtre action=mdp_oubli passé dans l'url.
- 
 
 112 
* Elle peut aussi être appelé en cas d'erreur de loggin.
117 
/** message_erreur () - Renvoie le code HTML d'un message d'erreur
 113 
* @return   string  HTML
118 
*
 114 
*/
- 
 
 115 
function message_erreur ($erreur = true) {
- 
 
 116 
	$res = '';
- 
 
 117 
 
119 
* @return   string  HTML
 118 
	// Les urls
- 
 
 119 
	$url_deja_inscrit = preg_replace ('/&amp;/', '&', $GLOBALS['ins_url']->getURL()) ;
120 
*/
 120 
	$GLOBALS['ins_url']->addQueryString('action', 'sendpasswd');
- 
 
 121 
	$url_envoi_mdp = preg_replace ('/&amp;/', '&', $GLOBALS['ins_url']->getURL()) ;
- 
 
 122 
	$GLOBALS['ins_url']->removeQueryString('action');
121 
 
 123 
 
- 
 
 124 
	// La page
122 
function message_erreur () {
 125 
	$res .= '<h1 class="titre1_inscription">'.INS_MDP_PERDU_TITRE.'</h1>' ;
123 
    $res = '';
 - 
 
124 
    $GLOBALS['ins_url']->addQueryString('action', 'sendpasswd');
 126 
	if ($erreur) {
125 
    $url = preg_replace ('/&amp;/', '&', $GLOBALS['ins_url']->getURL()) ;
 127 
		$res .= '<p class="attention">'.INS_ERREUR_LOGIN.'</p>'."\n" ;
- 
 
 128 
	}
126 
    $res .= '<h1 class="titre1_inscription">'.INS_ACCUEIL_INSCRIPTION.'</h1>' ;
 129 
	$res .= '<div class="information">'."\n";
127 
    $res .= "<div class=\"inscription_erreur\">".INS_ERREUR_LOGIN."</div>\n" ;
 - 
 
128 
    $res .= "<div>".INS_SI_PASSE_PERDU."</div>\n" ;
 130 
	$res .= '<p>'.INS_SI_PASSE_PERDU.'</p>'."\n";
129 
    $res .= '<div>' ;
 131 
	$res .= '<p>'.INS_INDIQUE_ADRESSE.'</p>'."\n";
- 
 
 132 
	$res .= '<p>'."\n";
- 
 
 133 
	$res .= '<form action="'.$url_envoi_mdp.'" method="post">'."\n";
- 
 
 134 
	$res .= '<label for="nom_d_utilisateur">'.INS_EMAIL.' : </label>';
130
135 
	$valeur = (isset($_POST['username'])) ? $_POST['username'] : '';
131 
    $res .= '<form action="'.$url.'" method="post">'."\n" ;
 136 
	$res .= '<input type="text" id="nom_d_utilisateur" name="nom_d_utilisateur" value="'.$valeur.'" size="32" /></li></ul>'."\n";
132 
    $res .= INS_EMAIL.'&nbsp;' ;
 137 
	$res .= '<input type="submit" value="'.INS_ENVOIE_PASSE.'" />'."\n";
133 
    $res .= '<input type="text" value="'.$_POST['username'].'" name="nom_d_utilisateur" size="32" /></li></ul>'."\n" ;
 138 
	$res .= '</form>'."\n";
134 
    $res .= '<div>'.INS_INDIQUE_ADRESSE.'</div>'."\n" ;
 139 
	$res .= '</p>';
135 
    $res .= "<input type=\"submit\" value=\"".INS_ENVOIE_PASSE."\" />" ;
 140 
	$res .= '</div>';
136 
    $res .= "</form></div>\n" ;
 141 
	$res .= '<hr/>';
137 
 
 142
- 
 
 143 
	// On remet le formulaire d'inscription mais un peu réduit
138 
    // On remet le formulaire d'inscription mais un peu réduit
 144 
	$res .= '<h2 class="titre2_inscription">'.INS_MDP_PERDU_TITRE_RETENTER.'</h2>' ;
139 
    $res .= '<h2 class="titre2_inscription">'.INS_DEJA_INSCRIT.'</h2>' ;
 145 
	$form = new HTML_QuickForm ('inscription', 'post', $url_deja_inscrit) ;
140 
    $form = new HTML_QuickForm ('inscription', 'post', $url) ;
 146 
	$form->addElement('text', 'username', INS_EMAIL) ;
141 
    $form->addElement ('text', 'username', INS_EMAIL) ;
 147 
	$form->addElement('password', 'password', INS_MOT_DE_PASSE) ;
142 
    $form->addElement ('password', 'password', INS_MOT_DE_PASSE) ;
 148 
	$form->addElement('submit', 'valider', INS_VALIDER);
143 
    $form->addElement('submit', 'valider', INS_VALIDER);
 - 
 
144
149 
 
145 
    $res .= $form->toHTML() ;
 150 
	// Retour du html
146 
    return $res;
 151 
	$res .= $form->toHTML() ;
147 
}
 152 
	return $res;
148 
 
 153 
}
- 
 
 154 
 
- 
 
 155 
function insertion($valeur) {
149 
function insertion($valeur) {
 156 
	// ===========  Insertion dans l'annuaire ===================
- 
 
 157 
 
- 
 
 158 
	$autres_valeurs = info_annuaire($valeur);
150
159 
	$autres_valeurs[INS_CHAMPS_DATE] = date('Y-m-d');
151 
    // ===========  Insertion dans l'annuaire gen_annuaire ===================
 160 
	$autres_valeurs[INS_CHAMPS_MAIL] = $valeur['email'];
152 
 
 161 
	switch (INS_MDP_CRYPTYPE) {
153 
    // Génération du nom wikini à partir du nom et du prénom
 162 
		case 'md5' :
154 
    if (INS_UTILISE_WIKINI) {
 - 
 
155 
        $valeur['nom_wiki'] = genere_nom_wiki ($valeur['nom'], $valeur['prenom']) ;
 163 
			$autres_valeurs[INS_CHAMPS_PASSE] = md5($valeur['mot_de_passe']);
- 
 
 164 
			break;
- 
 
 165 
		default :
- 
 
 166 
		trigger_error('Type d\'encodage du mot de passe inconnu!', E_USER_ERROR);
- 
 
 167 
	}
- 
 
 168
- 
 
 169 
	// Utilisation de AUTH pour ajouter la personne
- 
 
 170 
	//$resultat = $GLOBALS['AUTH']->addUser($valeur['email'], $valeur['mot_de_passe'], $autres_valeurs) ;
156 
        $autres_valeurs[INS_CHAMPS_WIKINI] = $valeur['nom_wiki'] ;
 171 
	$champs = '';
- 
 
 172 
	$vals = '';
- 
 
 173 
	foreach($autres_valeurs as $champ => $val) {
- 
 
 174 
		if ($val != '') {
- 
 
 175 
			$champs .= $champ.', ';
- 
 
 176 
			$vals .= '"'.str_replace('"', '\"', $val).'", ';
- 
 
 177 
		}
157 
        $autres_valeurs['email'] = $valeur['email'] ;
 178 
	}
158 
    }
 179 
	$champs = trim($champs, ', ');
159
180 
	$vals = trim($vals, ', ');
- 
 
 181 
	$requete = 	'INSERT INTO '.INS_ANNUAIRE.' '.
160 
    $autres_valeurs = info_annuaire($valeur) ;
 182 
				' ('.$champs.') '.
- 
 
 183 
				'VALUES ('.$vals.') ';
- 
 
 184 
	$resultat = $GLOBALS['ins_db']->query($requete) ;
161 
    $autres_valeurs['U_DATE'] = date('Y-m-d');
 185 
	if (DB::isError($resultat)) {
162 
    $resultat = $GLOBALS['AUTH']->addUser($valeur['email'], $valeur['mot_de_passe'], $autres_valeurs) ;
 186 
		die ($resultat->getMessage().$resultat->getDebugInfo()) ;
163
187 
	}
164 
    if (DB::isError($resultat)) {
 188 
 
165 
        die ($resultat->getMessage().$resultat->getDebugInfo()) ;
 189 
	// Récupération de l'identifiant de l'inscription
166 
    }
 190 
	$requete = 	'SELECT '.INS_CHAMPS_ID.' '.
167 
    // Récupération de l'identifiant de l'inscription
 191 
				'FROM '.INS_ANNUAIRE.' '.
Line 168... Line 192...
168 
    $requete = 'SELECT '.INS_CHAMPS_ID.' FROM '.INS_ANNUAIRE.' WHERE '.INS_CHAMPS_MAIL.'="'.$valeur['email'].'"' ;
 192 
				'WHERE '.INS_CHAMPS_MAIL.' = "'.$valeur['email'].'"' ;
169 
    $resultat = $GLOBALS['ins_db']->query ($requete) ;
 193 
	$resultat = $GLOBALS['ins_db']->query ($requete) ;
Line 170... Line -...
170 
    if (DB::isError ($resultat)) {
 - 
 
171 
        die ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
 194 
	if (DB::isError ($resultat)) {
- 
 
 195 
		die ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
172 
    }
 196 
	}
173 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
 197 
	$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
174 
    $id = $ligne[INS_CHAMPS_ID] ;
 198 
	$id = $ligne[INS_CHAMPS_ID] ;
175 
 
 199 
 
176 
    // ================ Insertion dans SPIP =========================================
 200 
// ================ Insertion dans SPIP =========================================
- 
 
 201 
    if (INS_UTILISE_SPIP) inscription_spip($id, $valeur) ;
177 
    if (INS_UTILISE_SPIP) inscription_spip($id, $valeur) ;
 202 
 
Line 178... Line 203...
178 
 
 203 
	// Insertion dans les statistiques
179
204 
	if (INS_UTILISE_STAT) {
180 
    // Insertion dans les statistiques
 205 
		$requete = 'INSERT INTO '.INS_TABLE_STATISTIQUE.' SET '.INS_STATS_CHAMPS_DATE.' = NOW(), '.INS_STATS_CHAMPS_ACTION.' = "add" ';
181 
    $requete = 'INSERT INTO '.INS_TABLE_STATISTIQUE.' SET '.INS_STATS_CHAMPS_DATE.'=NOW(), '.INS_STATS_CHAMPS_ACTION.'="add"' ;
 206 
		$resultat = $GLOBALS['ins_db']->query($requete) ;
182 
    $resultat = $GLOBALS['ins_db']->query($requete) ;
 207 
		if (DB::isError ($resultat)) {
183 
    if (DB::isError ($resultat)) {
 208 
			die ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
184 
        die ('Echec de la requete : '.$requete.'<br />'.$resultat->getMessage()) ;
 209 
		}
185 
    }
 - 
 
186 
}
 210 
	}
187 
 
 211 
}
188 
/**
 212 
 
189 
 *  Effectue une mise à jour dans la base de donnée
 213 
/**
190 
 *
 214 
 *  Effectue une mise à jour dans la base de donnée
191 
 * @global  AUTH    un objet PEAR:Auth
 215 
 *
192 
 * @global  ins_db  un objet PEAR::DB
 216 
 * @global  AUTH	un objet PEAR:Auth
193 
 * @return
 217 
 * @global  ins_db  un objet PEAR::DB
194 
 */
 218 
 * @return
195 
 
 219 
 */
- 
 
 220 
function mise_a_jour($valeur) {
- 
 
 221 
	// ====================Mise à jour dans l'annuaire ====================
196 
function mise_a_jour($valeur) {
 222 
	$requete = 	'UPDATE '.INS_ANNUAIRE.' '.
- 
 
 223 
				'SET '.requete_annuaire($valeur).' '.
197 
    // ====================Mise à jour dans l'annuaire ====================
 224 
				'WHERE '.INS_CHAMPS_ID.' = "'.$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID).'"';
198 
    $requete = 'UPDATE '.INS_ANNUAIRE.' SET '.
 225 
	$resultat = $GLOBALS['ins_db']->query($requete) ;
199 
                requete_annuaire ($valeur).
 - 
 
200 
                'WHERE '.INS_CHAMPS_ID.'="'.$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID).'"';
 226 
	if (DB::isError($resultat)) {
201 
    $resultat = $GLOBALS['ins_db']->query($requete) ;
 227 
		die ($resultat->getMessage().$resultat->getDebugInfo()) ;
202 
    if (DB::isError($resultat)) {
 - 
 
203 
        die ($resultat->getMessage().$resultat->getDebugInfo()) ;
 228 
	}
Line 204... Line 229...
204 
    }
 229
205
230 
	if (isset($valeur['lettre'])) {
206 
    if (isset($valeur['lettre'])) $GLOBALS['AUTH']->setAuthData(INS_CHAMPS_LETTRE, $valeur['lettre'], true) ; // On appelle cette fonction pour mettre à jour
 231 
		// On appelle cette fonction pour mettre à jour
207 
                                                                                // la valeur de session (récupéré par getAuthData()
 232 
		$GLOBALS['AUTH']->setAuthData(INS_CHAMPS_LETTRE, $valeur['lettre'], true);
208 
    unset ($resultat) ;
 - 
 
209
233 
	}
210 
    // ========================= Mise à jour dans SPIP ================================
 234 
	// la valeur de session (récupéré par getAuthData()
211 
    if (INS_UTILISE_SPIP) mod_inscription_spip($GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID)) ;
 235 
	unset($resultat);
212 
    if (INS_UTILISE_WIKINI) mod_inscription_interwikini_users($GLOBALS['AUTH']->getAuthData(INS_CHAMPS_WIKINI), $valeur) ;
 236 
	// ========================= Mise à jour dans SPIP ================================
213 
}
 237 
    if (INS_UTILISE_SPIP) mod_inscription_spip($GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID)) ;
214 
 
 238 
}
215 
/** requete_annuaire () - Renvoie une chaine contenant les champs de l'annuaire avec leur valeur suite à le fonction process de QuickForm
 239 
 
216 
*
 240 
/** requete_annuaire () - Renvoie une chaine contenant les champs de l'annuaire avec leur valeur suite à le fonction process de QuickForm
217 
* @return   string  une requete du type champs="valeur",...
 241 
*
218 
*/
 242 
* @return   string  une requete du type champs="valeur",...
219 
 
 243 
*/
220 
function requete_annuaire (&$valeur) {
 244 
function requete_annuaire(&$valeur) {
221 
    if (!isset($valeur['lettre'])) {
 245 
	if (!isset($valeur['lettre'])) {
222 
		$valeur['lettre'] = 0;
 246 
		$valeur['lettre'] = 0;
223 
    }
 247 
	}
224 
    if (preg_match ('/([0-9][0-9])[0-9][0-9][0-9]/', $valeur['cp'], $match)) {
 248 
	if (preg_match ('/([0-9][0-9])[0-9][0-9][0-9]/', $valeur['cp'], $match)) {
225 
        $valeur['dpt'] = $match[1];
 249 
		$valeur['dpt'] = $match[1];
226 
        if (preg_match ('/(97[0-9])[0-9][0-9]/', $valeur['cp'], $match2)) {
 250 
		if (preg_match ('/(97[0-9])[0-9][0-9]/', $valeur['cp'], $match2)) {
227 
            $valeur['dpt'] = $match2[1];
 251 
			$valeur['dpt'] = $match2[1];
Line 247... Line 271...
247 
			'U_NIV="'.$valeur['niveau'].'", '.
 271 
			'U_NIV="'.$valeur['niveau'].'", '.
248 
			'U_ACT="'.$valeur['activite'].'", '.
 272 
			'U_ACT="'.$valeur['activite'].'", '.
249 
			'U_ASS="'.$valeur['asso'].'", '.
 273 
			'U_ASS="'.$valeur['asso'].'", '.
250 
			'U_SPE="'.$valeur['specialite'].'", '.
 274 
			'U_SPE="'.$valeur['specialite'].'", '.
251 
			'U_GEO="'.$valeur['specialite_geo'].'" ';
 275 
			'U_GEO="'.$valeur['specialite_geo'].'" ';
252 
    if (isset($valeur['dpt'])) {
 276 
	if (isset($valeur['dpt'])) {
253 
        $req .= ',U_FRENCH_DPT="'.$valeur['dpt'].'"' ;
 277 
		$req .= ','.INS_CHAMPS_DPT.' = "'.$valeur['dpt'].'"' ;
254 
    }
 278 
	}
255 
    return $req ;
 279 
	return $req ;
256 
}
 280 
}
Line 257... Line 281...
257 
 
 281 
 
258 
/**
 282 
/**
259 
 *  renvoie un tableau avec en clé les champs de la base et en valeur les valeurs saisies dans le formulaire
 283 
 *  renvoie un tableau avec en clé les champs de la base et en valeur les valeurs saisies dans le formulaire
260 
 *
 284 
 *
261 
 * @return  array   renvoie un tableau avec en clé les champs de la base et en valeur les valeurs saisies dans le formulaire
 285 
 * @return  array   renvoie un tableau avec en clé les champs de la base et en valeur les valeurs saisies dans le formulaire
262 
 */
 - 
 
263 
 
 286 
 */
264 
function info_annuaire ($valeur) {
 287 
function info_annuaire($valeur) {
265
288
266 
    // Petit code pour recupere le num de dpt a partir du cp
 289 
	// Petit code pour recupere le num de dpt a partir du cp
267 
    if (preg_match ('/([0-9][0-9])[0-9][0-9][0-9]/', $valeur['cp'], $match)) {
 290 
	if (preg_match ('/([0-9][0-9])[0-9][0-9][0-9]/', $valeur['cp'], $match)) {
268 
        $valeur['dpt'] = $match[1];
 291 
		$valeur['dpt'] = $match[1];
269 
        if (preg_match ('/(97[0-9])[0-9][0-9]/', $valeur['cp'], $match2)) {
 292 
		if (preg_match ('/(97[0-9])[0-9][0-9]/', $valeur['cp'], $match2)) {
270 
            $valeur['dpt'] = $match2[1];
 293 
			$valeur['dpt'] = $match2[1];
271 
        }
 294 
		}
272 
    }
 295 
	}
273 
    $tableau = array (
 296 
	$tableau = array (
274 
                INS_CHAMPS_ID => nextId(INS_ANNUAIRE, INS_CHAMPS_ID, $GLOBALS['ins_db']),
 297 
				INS_CHAMPS_ID => nextId(INS_ANNUAIRE, INS_CHAMPS_ID, $GLOBALS['ins_db']),
275 
                INS_CHAMPS_NOM => addslashes($valeur['nom']),
 298 
				INS_CHAMPS_NOM => addslashes($valeur['nom']),
276 
                INS_CHAMPS_PRENOM => addslashes($valeur['prenom']),
 299 
				INS_CHAMPS_PRENOM => addslashes($valeur['prenom']),
277 
                INS_CHAMPS_PAYS => $valeur['pays'],
 300 
				INS_CHAMPS_PAYS => $valeur['pays'],
278 
                INS_CHAMPS_CODE_POSTAL => $valeur['cp'],
 301 
				INS_CHAMPS_CODE_POSTAL => $valeur['cp'],
279 
                INS_CHAMPS_VILLE => addslashes($valeur['ville']),
 302 
				INS_CHAMPS_VILLE => addslashes($valeur['ville']),
280 
                INS_CHAMPS_ADRESSE_1 => addslashes($valeur['adresse_1']),
 303 
				INS_CHAMPS_ADRESSE_1 => addslashes($valeur['adresse_1']),
281 
                INS_CHAMPS_ADRESSE_2 => addslashes($valeur['adresse_2']),
 304 
				INS_CHAMPS_ADRESSE_2 => addslashes($valeur['adresse_2']),
282 
                INS_CHAMPS_REGION => addslashes($valeur['region']),
 - 
 
283 
                INS_CHAMPS_STRUCTURE => addslashes($valeur['organisme']),
 305 
				INS_CHAMPS_REGION => addslashes($valeur['region']),
284 
                INS_CHAMPS_SITE_WEB => $valeur['site'],
 306 
				INS_CHAMPS_SITE_WEB => $valeur['site'],
285 
                'U_FONCTION' => addslashes($valeur['fonction']),
 307 
                'U_FONCTION' => addslashes($valeur['fonction']),
286 
                'U_NIV' => $valeur['niveau'],
 308 
                'U_NIV' => $valeur['niveau'],
287 
                'U_ACT' => $valeur['activite'],
 309 
                'U_ACT' => $valeur['activite'],
288 
                'U_ASS' => $valeur['asso'],
 310 
                'U_ASS' => $valeur['asso'],
289 
                'U_SPE' => addslashes($valeur['specialite']),
 311 
                'U_SPE' => addslashes($valeur['specialite']),
290 
                'U_GEO' => addslashes($valeur['specialite_geo'])
 312 
                'U_GEO' => addslashes($valeur['specialite_geo'])
- 
 
 313 
                );
291 
                    ) ;
 314 
	if (INS_UTILISE_LISTE){
- 
 
 315 
		$tableau[INS_CHAMPS_LETTRE] = $valeur['lettre'];
292 
	if (isset($valeur['lettre'])) $tableau[INS_CHAMPS_LETTRE] = $valeur['lettre'];
 316 
	}
293 
    return $tableau ;
 317 
	return $tableau ;
Line 294... Line 318...
294 
}
 318 
}
295 
 
 319 
 
296 
/** formulaire_defaults () - Renvoie un tableau avec les valeurs par défaut du formulaire d'inscription
 320 
/** formulaire_defaults () - Renvoie un tableau avec les valeurs par défaut du formulaire d'inscription
297 
*
 321 
*
298 
* @return   array   Valeurs par défaut du formulaire d'inscription
 322 
* @return   array   Valeurs par défaut du formulaire d'inscription
299 
*/
 323 
*/
300 
function formulaire_defaults () {
 324 
function formulaire_defaults () {
301 
    $requete =	'SELECT '.INS_ANNUAIRE.'.* '.
 325 
	$requete =	'SELECT '.INS_ANNUAIRE.'.* '.
302 
                'FROM '.INS_ANNUAIRE.' '.
 326 
				'FROM '.INS_ANNUAIRE.' '.
303 
                'WHERE '.INS_ANNUAIRE.'.'.INS_CHAMPS_ID.'= "'.$GLOBALS['AUTH']->getAuthData (INS_CHAMPS_ID).'"' ;
 327 
				'WHERE '.INS_ANNUAIRE.'.'.INS_CHAMPS_ID.'= "'.$GLOBALS['AUTH']->getAuthData (INS_CHAMPS_ID).'"' ;
304 
    $resultat = $GLOBALS['ins_db']->query ($requete) ;
 328 
	$resultat = $GLOBALS['ins_db']->query ($requete) ;
305 
    if (DB::isError($resultat)) {
 329 
	if (DB::isError($resultat)) {
306 
    	die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
 330 
		die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
307 
    }
 331 
	}
308 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
 332 
	$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
309 
    $valeurs_par_defaut = array() ;
 333 
	$valeurs_par_defaut = array() ;
310 
    $valeurs_par_defaut['email'] = $ligne[INS_CHAMPS_MAIL];
 334 
	$valeurs_par_defaut['email'] = $ligne[INS_CHAMPS_MAIL];
311 
    $valeurs_par_defaut['nom'] = $ligne[INS_CHAMPS_NOM];
 335 
	$valeurs_par_defaut['nom'] = $ligne[INS_CHAMPS_NOM];
312 
    $valeurs_par_defaut['prenom'] = $ligne[INS_CHAMPS_PRENOM] ;
 336 
	$valeurs_par_defaut['prenom'] = $ligne[INS_CHAMPS_PRENOM] ;
313 
    $valeurs_par_defaut['pays'] = $ligne[INS_CHAMPS_PAYS] ;
 337 
	$valeurs_par_defaut['pays'] = $ligne[INS_CHAMPS_PAYS] ;
314 
    $valeurs_par_defaut['nomwiki'] = $ligne[INS_CHAMPS_LOGIN] ;
 338 
	$valeurs_par_defaut['nomwiki'] = $ligne[INS_CHAMPS_LOGIN] ;
315 
    $valeurs_par_defaut['cp'] = $ligne[INS_CHAMPS_CODE_POSTAL] ;
 339 
	$valeurs_par_defaut['cp'] = $ligne[INS_CHAMPS_CODE_POSTAL] ;
316 
    $valeurs_par_defaut['ville'] = $ligne[INS_CHAMPS_VILLE] ;
 340 
	$valeurs_par_defaut['ville'] = $ligne[INS_CHAMPS_VILLE] ;
317 
    $valeurs_par_defaut['adresse_1'] = $ligne[INS_CHAMPS_ADRESSE_1] ;
 341 
	$valeurs_par_defaut['adresse_1'] = $ligne[INS_CHAMPS_ADRESSE_1] ;
318 
    $valeurs_par_defaut['adresse_2'] = $ligne[INS_CHAMPS_ADRESSE_2] ;
 342 
	$valeurs_par_defaut['adresse_2'] = $ligne[INS_CHAMPS_ADRESSE_2] ;
319 
    $valeurs_par_defaut['region'] = $ligne[INS_CHAMPS_REGION] ;
 343 
	$valeurs_par_defaut['region'] = $ligne[INS_CHAMPS_REGION] ;
320 
    $valeurs_par_defaut['structure'] = $ligne[INS_CHAMPS_STRUCTURE] ;
 344 
	$valeurs_par_defaut['structure'] = $ligne[INS_CHAMPS_STRUCTURE] ;
321 
    $valeurs_par_defaut['site'] = $ligne['U_WEB'] ;
 345 
    $valeurs_par_defaut['site'] = $ligne['U_WEB'] ;
322 
    $valeurs_par_defaut['organisme'] = $ligne['U_TITLE'] ;
 346 
    $valeurs_par_defaut['organisme'] = $ligne['U_TITLE'] ;
323 
    $valeurs_par_defaut['fonction'] = $ligne['U_FONCTION'] ;
 347 
    $valeurs_par_defaut['fonction'] = $ligne['U_FONCTION'] ;
324 
    $valeurs_par_defaut['niveau'] = $ligne['U_NIV'] ;
 348 
    $valeurs_par_defaut['niveau'] = $ligne['U_NIV'] ;
325 
    $valeurs_par_defaut['activite'] = $ligne['U_ACT'] ;
 349 
    $valeurs_par_defaut['activite'] = $ligne['U_ACT'] ;
326 
    $valeurs_par_defaut['asso'] = $ligne['U_ASS'] ;
 350 
    $valeurs_par_defaut['asso'] = $ligne['U_ASS'] ;
- 
 
 351 
    $valeurs_par_defaut['specialite'] = $ligne['U_SPE'] ;
327 
    $valeurs_par_defaut['specialite'] = $ligne['U_SPE'] ;
 352 
    $valeurs_par_defaut['specialite_geo'] = $ligne['U_GEO'] ;
- 
 
 353 
	if (INS_UTILISE_LISTE){
328 
    $valeurs_par_defaut['specialite_geo'] = $ligne['U_GEO'] ;
 354 
		$valeurs_par_defaut['lettre'] = $ligne[INS_CHAMPS_LETTRE] ;
329 
    $valeurs_par_defaut['lettre'] = $ligne[INS_CHAMPS_LETTRE] ;
 355 
	}
Line 330... Line -...
330 
    return $valeurs_par_defaut ;
 - 
 
331 
}
 - 
 
332 
 
 356 
	return $valeurs_par_defaut ;
333 
 
 357 
}
334 
 
 358 
 
335 
function info() {
 359 
function info() {
- 
 
 360 
    $requete = 	'SELECT * from '.INS_ANNUAIRE.', '.INS_TABLE_PAYS.', annuaire_LABEL_ACT, annuaire_LABEL_NIV, annuaire_LABEL_ASS '.
336 
    $requete = 	'SELECT * from '.INS_ANNUAIRE.', '.INS_TABLE_PAYS.', annuaire_LABEL_ACT, annuaire_LABEL_NIV, annuaire_LABEL_ASS'.
 361 
                'WHERE '.INS_ANNUAIRE.'.'.INS_CHAMPS_ID.'="'.$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID).'" '.
- 
 
 362 
                'AND '.INS_CHAMPS_PAYS.'='.INS_CHAMPS_ID_PAYS.' '.
Line 337... Line 363...
337 
                ' WHERE '.INS_ANNUAIRE.'.'.INS_CHAMPS_ID.'="'.$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID).'"'.
 363 
                'AND U_ACT=ID_LABEL_ACT '.
338 
                ' AND '.INS_CHAMPS_PAYS.'='.INS_CHAMPS_ID_PAYS.
 364 
                'AND U_NIV=ID_LABEL_NIV '.
339 
                ' AND U_ACT=ID_LABEL_ACT and U_NIV=ID_LABEL_NIV and U_ASS=ID_LABEL_ASS' ;
 365 
                'AND U_ASS=ID_LABEL_ASS ';
340
366
Line 380... Line 406...
380 
/**
 406 
/**
381 
 *
 407 
 *
382 
 *
 408 
 *
383 
 * @return
 409 
 * @return
384 
 */
 410 
 */
385 
 
 - 
 
386 
function ligne_inscription ($label, $valeur) {
 411 
function ligne_inscription ($label, $valeur)
- 
 
 412 
{
387 
    if ($valeur == '') {
 413 
	if ($valeur == '') {
388 
        $valeur = '&nbsp;' ;
 414 
		$valeur = '&nbsp;' ;
389 
    }
 415 
	}
390 
    return '<dt>'.$label.' : </dt><dd>'.$valeur.'</dd>' ;
 416 
	return '<dt>'.$label.' : </dt><dd>'.$valeur.'</dd>' ;
391 
}
 417 
}
Line 392... Line 418...
392 
 
 418 
 
- 
 
 419 
function bouton($url)
393 
function bouton($url) {
 420 
{
394 
    $boutons = new HTML_QuickForm('inscription', 'post', $url) ; ;
 421 
	$boutons = new HTML_QuickForm('inscription', 'post', $url) ; ;
395 
    //confirmation() ;
 422 
	//confirmation() ;
396 
    $buttons[] = &HTML_QuickForm::createElement('submit', 'modifier', INS_MODIFIER_INSCRIPTION);
 423 
	$buttons[] = &HTML_QuickForm::createElement('submit', 'modifier', INS_MODIFIER_INSCRIPTION);
397 
    $buttons[] = &HTML_QuickForm::createElement('submit', 'supprimer', INS_SUPPRIMER_INSCRIPTION,
424 
	$buttons[] = &HTML_QuickForm::createElement('submit', 'supprimer', INS_SUPPRIMER_INSCRIPTION,
398 
                                            array ("onclick" => "javascript:return confirm('".INS_SUPPRIMER_INSCRIPTION." ?');"));
 425 
											array ('onclick' => "javascript:return confirm('".INS_SUPPRIMER_INSCRIPTION." ?');"));
399 
    $boutons->addGroup($buttons, null, null, '&nbsp;');
 426 
	$boutons->addGroup($buttons, null, null, '&nbsp;');
400 
    $boutons->addElement('hidden', 'id_utilisateur', $GLOBALS['AUTH']->getAuthData (INS_CHAMPS_ID)) ;
 427 
	$boutons->addElement('hidden', 'id_utilisateur', $GLOBALS['AUTH']->getAuthData (INS_CHAMPS_ID));
401 
    return $boutons->toHTML() ;
 428 
	return $boutons->toHTML();
Line 402... Line 429...
402 
}
 429 
}
403 
 
 430 
 
404 
/**
 431 
/**
405 
 *  Renvoie un lien pour se déconnex=cter
 432 
 *  Renvoie un lien pour se déconnex=cter
406 
 *
 433 
 *
407 
 * @return  string
- 
 
408 
 */
 434 
 * @return  string
- 
 
 435 
 */
409 
 
 436 
function deconnexion ($url)
410 
function deconnexion ($url) {
 437 
{
411 
    // Un champs logout
 438 
	// Un champs logout
Line 412... Line -...
412 
    return "<div><a href=\"$url&amp;logout=1\">".INS_DECONNEXION."</a></div>" ;
 - 
 
413 
}
 439 
	return '<div><a href="'.$url.'&amp;logout=1">'.INS_DECONNEXION.'</a></div>';
414 
 
 440 
}
415 
 
 441 
 
416 
function verif_doublonMail($mail) {
 442 
function verif_doublonMail($mail)
417
443 
{
418 
    if (isset ($GLOBALS['AUTH']) && $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) != '') {
 444 
	if (isset ($GLOBALS['AUTH']) && $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) != '') {
419 
        $requete_mail = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE." where ".INS_CHAMPS_ID."=".$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) ;
 445 
		$requete_mail = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE." where ".INS_CHAMPS_ID."=".$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) ;
420 
        $resultat_mail = $GLOBALS['ins_db']->query ($requete_mail) ;
 446 
		$resultat_mail = $GLOBALS['ins_db']->query($requete_mail) ;
421 
        if (DB::isError ($resultat_mail)) {
 447 
		if (DB::isError ($resultat_mail)) {
422 
            die ("Echec de la requete : $requete_mail<br />".$resultat_mail->getMessage()) ;
 448 
			die ("Echec de la requete : $requete_mail<br />".$resultat_mail->getMessage()) ;
423 
        }
 449 
		}
424 
        $ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_ASSOC) ;
 450 
		$ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_ASSOC) ;
425 
        if ($mail == $ligne_mail[INS_CHAMPS_MAIL]) {
 451 
		if ($mail == $ligne_mail[INS_CHAMPS_MAIL]) {
426 
            return true ;
 452 
			return true ;
427 
        }
 453 
		}
428 
    }
 454 
	}
429 
    $requete = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE." where ".INS_CHAMPS_MAIL."= \"$mail\"" ;
 455 
	$requete = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE." where ".INS_CHAMPS_MAIL."= \"$mail\"" ;
430 
    $resultat = $GLOBALS['ins_db']->query ($requete) ;
 456 
	$resultat = $GLOBALS['ins_db']->query ($requete) ;
431 
    if (DB::isError ($resultat)) {
 457 
	if (DB::isError ($resultat)) {
432 
    	die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
 458 
		die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
433 
    }
 459 
	}
Line 434... Line -...
434 
    if ($resultat->numRows() == 0) return true ;
 - 
 
435 
    return false ;
 460 
	if ($resultat->numRows() == 0) return true ;
436 
}
 461 
	return false ;
- 
 
 462 
}
- 
 
 463 
 
Line 437... Line -...
437 
 
 - 
 
438 
 
 - 
 
439 
function envoie_passe()
 - 
 
440 
{
 464 
function envoie_passe()
441 
 
 - 
 
442 
    $headers['From']    = INS_MAIL_ADMIN_APRES_INSCRIPTION ;
 - 
 
443 
    $headers['Subject'] = INS_NOUVEAU_MOT_DE_PASSE;
 - 
 
444 
 
 - 
 
445 
    $nouveau_passe = create_new_random(6) ;
 - 
 
446 
 
 - 
 
Line 447... Line 465...
447 
    $body = INS_NOUVEAU_MOT_DE_PASSE_2.$nouveau_passe ;
 465 
{
448 
    $body .= INS_NOUVEAU_MOT_DE_PASSE_LAIUS ;
 - 
 
449 
 
 - 
 
450 
    // modification du mot de passe dans la base
 - 
 
451 
    $requete = "update ".INS_ANNUAIRE." set ".INS_CHAMPS_PASSE."=MD5(\"$nouveau_passe\") where ".INS_CHAMPS_MAIL."=\"".$_POST['nom_d_utilisateur']."\"" ;
 - 
 
452 
 
 466 
	$headers['From']	= INS_MAIL_ADMIN_APRES_INSCRIPTION ;
453 
    $resultat = $GLOBALS['ins_db']->query($requete) ;
 - 
 
454 
    if (DB::isError($resultat)) {
 - 
 
455 
        die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
 - 
 
456 
    }
 - 
 
457 
    // On teste si l'email est présent dans la base
 - 
 
458 
    if ($GLOBALS['ins_db']->affectedRows() == 0) {
 - 
 
459 
        return '<div class="erreur">Il n\'y a pas d\'inscrit avec cet email</div>'."\n" ;
 - 
 
Line -... Line 467...
- 
 
 467 
	$headers['Subject'] = INS_NOUVEAU_MOT_DE_PASSE;
460 
    }
 468 
 
- 
 
 469 
	$nouveau_passe = create_new_random(6) ;
- 
 
 470 
 
- 
 
 471 
	$body = INS_NOUVEAU_MOT_DE_PASSE_2.$nouveau_passe ;
- 
 
 472 
	$body .= INS_NOUVEAU_MOT_DE_PASSE_LAIUS ;
- 
 
 473 
 
- 
 
 474 
	// modification du mot de passe dans la base
- 
 
 475 
	$requete = "update ".INS_ANNUAIRE." set ".INS_CHAMPS_PASSE."=MD5(\"$nouveau_passe\") where ".INS_CHAMPS_MAIL."=\"".$_POST['nom_d_utilisateur']."\"" ;
461 
 
 476 
 
- 
 
 477 
	$resultat = $GLOBALS['ins_db']->query($requete) ;
- 
 
 478 
	if (DB::isError($resultat)) {
- 
 
 479 
		die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
- 
 
 480 
	}
- 
 
 481 
	// On teste si l'email est présent dans la base
- 
 
 482 
	if ($GLOBALS['ins_db']->affectedRows() == 0) {
Line -... Line 483...
- 
 
 483 
		return '<div class="erreur">Il n\'y a pas d\'inscrit avec cet email</div>'."\n" ;
- 
 
 484 
	}
462 
    // création du mail
 485 
 
Line 463... Line 486...
463 
    if (!mail ($_POST['nom_d_utilisateur'], $headers['Subject'], $body)) {
 486 
	// création du mail
464 
        return 'erreur lors de l\'envoie de mail' ;
 487 
	if (!mail ($_POST['nom_d_utilisateur'], $headers['Subject'], $body)) {
465 
    }
 488 
		return 'erreur lors de l\'envoie de mail' ;
466 
 
 489 
	}
467 
    return "<div class=\"titre1_inscription\">".INS_MOT_DE_PASSE_ENVOYE_1." ".$_POST['nom_d_utilisateur']."</div>\n".
 490 
 
468 
            "<div><br>".INS_MOT_DE_PASSE_ENVOYE_2."</div>\n";
 - 
 
469 
 
 491 
	return "<div class=\"titre1_inscription\">".INS_MOT_DE_PASSE_ENVOYE_1." ".$_POST['nom_d_utilisateur']."</div>\n".
470 
}
 492 
			"<div><br>".INS_MOT_DE_PASSE_ENVOYE_2."</div>\n";
471 
 
 - 
 
472 
/**
 - 
 
473 
 *
 - 
 
474 
 * @global  ins_db  Un pointeur vers un objet PEAR::DB connecté
 - 
 
475 
 * @return
 493 
}
476 
 */
 - 
 
477 
 
 - 
 
478 
function envoie_mail()
 - 
 
479 
{
 - 
 
480 
    include_once 'Mail/mime.php' ;
 494 
 
481 
    $crlf="\n";
 495 
/**
482
496 
 *
483 
    $headers ['From'] = INS_MAIL_ADMIN_APRES_INSCRIPTION ;
 497 
 * @global  ins_db  Un pointeur vers un objet PEAR::DB connecté
484 
    $headers ['Subject'] = INS_MAIL_COORD_SUJET ;
 - 
 
- 
 
 498 
 * @return
- 
 
 499 
 */
485 
    $headers ['Reply-To'] = INS_MAIL_ADMIN_APRES_INSCRIPTION ;
 500 
function envoie_mail()
486
501 
{
487 
    $mime = new Mail_mime($crlf);
 502 
	$requete = 	'SELECT *, '.INS_CHAMPS_LABEL_PAYS.' '.
488
503 
				'FROM '.INS_ANNUAIRE.','.INS_TABLE_PAYS.', annuaire_LABEL_ACT, annuaire_LABEL_NIV, annuaire_LABEL_ASS '.
489 
    $requete = 	'SELECT *, '.INS_CHAMPS_LABEL_PAYS.' from '.INS_ANNUAIRE.','.INS_TABLE_PAYS.', annuaire_LABEL_ACT, annuaire_LABEL_NIV, annuaire_LABEL_ASS'.
 504 
				'WHERE '.INS_CHAMPS_MAIL.' = "'.$GLOBALS['AUTH']->getUsername().'" '.
490 
            	' WHERE '.INS_CHAMPS_MAIL.'="'.$GLOBALS['AUTH']->getUsername().'"'.
 - 
 
491 
            	' AND '.INS_CHAMPS_ID_PAYS.'='.INS_CHAMPS_PAYS.
 505 
				'AND '.INS_CHAMPS_ID_PAYS.'='.INS_CHAMPS_PAYS.' '.
- 
 
 506 
            	'AND U_ACT=ID_LABEL_ACT '.
492 
            	' AND U_ACT=ID_LABEL_ACT and U_NIV=ID_LABEL_NIV and U_ASS=ID_LABEL_ASS' ;
 507 
            	'AND U_NIV=ID_LABEL_NIV '.
493 
 
 508 
            	'AND U_ASS=ID_LABEL_ASS ';
494 
    $resultat = $GLOBALS['ins_db']->query($requete) ;
 509 
	$resultat = $GLOBALS['ins_db']->query($requete);
495 
    if (DB::isError ($resultat)) {
 510 
	if (DB::isError ($resultat)) {
496 
        die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
 511 
		die ("Echec de la requete : $requete<br />".$resultat->getMessage());
497 
    }
 512 
	}
498 
    $ligne  = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
 513 
	$ligne  = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
499 
    $body = INS_MAIL_COORD_CORPS."\n" ;
 514
500
515 
	$body = INS_MAIL_COORD_CORPS."\n" ;
501 
    $body .= "------------------------------------------\n";
 516 
	$body .= "------------------------------------------\n";
502 
    $body .= INS_EMAIL.": ".unhtmlentities($ligne[INS_CHAMPS_MAIL])." \n" ;
 517 
	$body .= INS_EMAIL.": ".unhtmlentities($ligne[INS_CHAMPS_MAIL])." \n" ;
503 
    $body .= INS_NOM.": ".unhtmlentities($ligne[INS_CHAMPS_NOM])." \n" ;
 518 
	$body .= INS_NOM.": ".unhtmlentities($ligne[INS_CHAMPS_NOM])." \n" ;
504 
    $body .= unhtmlentities(INS_PRENOM).' : '.unhtmlentities($ligne[INS_CHAMPS_PRENOM])." \n" ;
 519 
	$body .= unhtmlentities(INS_PRENOM).' : '.unhtmlentities($ligne[INS_CHAMPS_PRENOM])." \n" ;
505 
    $body .= INS_PAYS." : ".unhtmlentities($ligne[INS_CHAMPS_LABEL_PAYS])." \n" ;
 520 
	$body .= INS_PAYS." : ".unhtmlentities($ligne[INS_CHAMPS_LABEL_PAYS])." \n" ;
506 
    $body .= INS_ADRESSE_1." : ".unhtmlentities($ligne[INS_CHAMPS_ADRESSE_1])." \n" ;
 521 
	$body .= INS_ADRESSE_1." : ".unhtmlentities($ligne[INS_CHAMPS_ADRESSE_1])." \n" ;
507 
    $body .= INS_ADRESSE_2." : ".unhtmlentities($ligne[INS_CHAMPS_ADRESSE_2])." \n" ;
 522 
	$body .= INS_ADRESSE_2." : ".unhtmlentities($ligne[INS_CHAMPS_ADRESSE_2])." \n" ;
508 
    $body .= unhtmlentities(INS_REGION)." : ".unhtmlentities($ligne[INS_CHAMPS_REGION])." \n" ;
 523 
	$body .= unhtmlentities(INS_REGION)." : ".unhtmlentities($ligne[INS_CHAMPS_REGION])." \n" ;
509 
    $body .= INS_CODE_POSTAL." : ".unhtmlentities($ligne[INS_CHAMPS_CODE_POSTAL])." \n" ;
 524 
	$body .= INS_CODE_POSTAL." : ".unhtmlentities($ligne[INS_CHAMPS_CODE_POSTAL])." \n" ;
510 
    $body .= INS_VILLE." : ".unhtmlentities($ligne[INS_CHAMPS_VILLE])." \n" ;
 525 
	$body .= INS_VILLE." : ".unhtmlentities($ligne[INS_CHAMPS_VILLE])." \n" ;
511 
    $body .= INS_SITE_INTERNET." : ".unhtmlentities($ligne[INS_CHAMPS_SITE_WEB])." \n" ;
 526 
	$body .= INS_SITE_INTERNET." : ".unhtmlentities($ligne[INS_CHAMPS_SITE_WEB])." \n" ;
512 
    $body .= INS_ORGANISME." : ".unhtmlentities($ligne['U_TITLE'])." \n" ;
 527 
    $body .= INS_ORGANISME." : ".unhtmlentities($ligne['U_TITLE'])." \n" ;
513 
    $body .= INS_FONCTION." : ".unhtmlentities($ligne['U_FONCTION'])." \n" ;
 - 
 
514 
    $body .= unhtmlentities(INS_ETES_BOTANISTE)." : ".unhtmlentities($ligne['LABEL_NIV'])." \n" ;
 528 
    $body .= INS_FONCTION." : ".unhtmlentities($ligne['U_FONCTION'])." \n" ;
- 
 
 529 
    $body .= unhtmlentities(INS_ETES_BOTANISTE).unhtmlentities($ligne['LABEL_NIV'])." \n" ;
- 
 
 530 
    $body .= unhtmlentities(INS_ACTIVITE_PROFESSIONNELLE).unhtmlentities($ligne['LABEL_ACT'])." \n" ;
515 
    $body .= unhtmlentities(INS_ACTIVITE_PROFESSIONNELLE)." : ".unhtmlentities($ligne['LABEL_ACT'])." \n" ;
 531 
    $body .= unhtmlentities(INS_MEMBRE_ASSO).unhtmlentities($ligne['LABEL_ASS'])." \n" ;
516 
    $body .= unhtmlentities(INS_MEMBRE_ASSO)." : ".unhtmlentities($ligne['LABEL_ASS'])." \n" ;
 532 
    $body .= unhtmlentities(INS_SPECIALISTE).unhtmlentities($ligne['U_SPE'])." \n" ;
517 
    $body .= unhtmlentities(INS_SPECIALISTE)." : ".unhtmlentities($ligne['U_SPE'])." \n" ;
 533 
    $body .= unhtmlentities(INS_SPE_ZONE).unhtmlentities($ligne['U_GEO'])." \n" ;
518 
    $body .= unhtmlentities(INS_SPE_ZONE)." : ".unhtmlentities($ligne['U_GEO'])." \n" ;
 534 
	$body .= "-------------------------------------------\n" ;
519 
    $body .= "-------------------------------------------\n" ;
 - 
 
520 
 
 - 
 
521 
    $mime->setTXTBody($body);
 - 
 
522 
 
 535 
 
523 
    $body = $mime->get();
 536 
	// Envoi du mail aux administrateur du site
- 
 
 537 
	if ($ligne[INS_CHAMPS_MAIL] != '') {
- 
 
 538 
		$headers ['From'] = INS_MAIL_ADMIN_APRES_INSCRIPTION;
524 
    $headers = $mime->headers($headers);
 539 
		$headers ['Reply-To'] = INS_MAIL_ADMIN_APRES_INSCRIPTION;
525
540 
		$headers ['Subject'] = INS_MAIL_COORD_SUJET;
- 
 
 541
526 
    $mail =& Mail::factory('mail') ;
 542 
		$mail =& Mail::factory('mail') ;
527 
    $mail->send($ligne[INS_CHAMPS_MAIL], $headers, $body) ;
 543 
		$mail->send($ligne[INS_CHAMPS_MAIL], $headers, $body) ;
Line 528... Line 544...
528
544 
		foreach ($GLOBALS['mail_admin'] as $administrateur) {
529 
    // Envoi du mail aux administrateur du site
 545 
			$envoi = $mail->send($administrateur, $headers, $body) ;
530 
    if ($ligne[INS_CHAMPS_MAIL] != '') {
 546 
			if (PEAR::isError($envoi)) {
531 
    	foreach ($GLOBALS['mail_admin'] as $administrateur) {
 547 
				trigger_error($envoi->getMessage(), E_USER_WARNING);
532 
        	$mail->send($administrateur, $headers, $body) ;
 548 
			}
Line 533... Line 549...
533 
    	}
 549 
		}
534 
    }
 550 
	}
535 
    return true ;
 551 
	return true ;
Line 536... Line 552...
536 
}
 552 
}
537 
 
 553 
 
538 
/**
 554 
/**
539 
 *
 555 
 *
540 
 *
 556 
 *
541 
 * @return
 557 
 * @return
542 
 */
 558 
 */
543 
 
 - 
 
544 
function message_inscription () {
 559 
 
545 
    return '<div>'.INS_MESSAGE_INSCRIPTION.'</div>' ;
 560 
function message_inscription () {
546 
}
 - 
 
547 
 
 561 
	return '<p>'.INS_MESSAGE_INSCRIPTION.'</p>' ;
548 
/**
 - 
 
549 
 *  Inscrit un adhérent à la lettre d'actualité par l'envoie d'un email subscribe / unsubscribe
 - 
 
550 
 *  à la liste
 - 
 
551 
 *
 562 
}
552 
 * @global  AUTH    Un objet PEAR::Auth
 563 
 
553 
 * @return  boolean true en cas de succès
 564 
/**
554 
 */
 565 
 *  Inscrit un adhérent à la lettre d'actualité par l'envoie d'un email subscribe / unsubscribe
555 
 
 566 
 *  à la liste
556 
function inscription_lettre ($action, $courriel = '') {
 567 
 *
557 
    $mail = & Mail::factory ('smtp') ;
 568 
 * @global  AUTH	Un objet PEAR::Auth
558 
    if ($courriel == '') {
 569 
 * @return  boolean true en cas de succès
559 
    	$email = $GLOBALS['AUTH']->getUsername() ;
570 
 */
560 
    } else {
 571 
function inscription_lettre ($action) {
561 
    	$email = $courriel ;
 572 
	$mail = & Mail::factory ('smtp') ;
562 
    }
 573 
	$email = $GLOBALS['AUTH']->getUsername() ;
Line 563... Line 574...
563 
    $headers ['Return-Path'] = $email ;
 574 
	$headers ['Return-Path'] = $email ;
564 
    $headers ['From'] = "<".$email.">" ;
 575 
	$headers ['From'] = "<".$email.">" ;
565 
    $headers ['Subject'] = $action ;
 576 
	$headers ['Subject'] = $action ;
566 
    $headers ['Reply-To'] = $email ;
 577 
	$headers ['Reply-To'] = $email ;
567
578
568 
    $mail -> send ($action, $headers, "") ;
 579 
	$mail -> send ($action, $headers, "") ;
569 
    if (PEAR::isError ($mail)) {
 - 
 
570 
        echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;
 580 
	if (PEAR::isError ($mail)) {
571 
        return false ;
 581 
		echo '<p class="erreur">Le mail n\'est pas partie...</p>' ;
572 
    }
 582 
		return false ;
573 
    return true ;
 583 
	}
574 
}
 584 
	return true ;
575 
 
 585 
}
576 
/**
 586 
 
577 
 *  Génère un nom wiki valide à partir des données saisies par l'utilisateur
 587 
/**
578 
 *  fait une requete dans la base
 588 
 *  Génère un nom wiki valide à partir des données saisies par l'utilisateur
579 
 *
 589 
 *  fait une requete dans la base
580 
 * @return  string un nom wiki valide
 590 
 *
581 
 */
 591 
 * @return  string un nom wiki valide
582 
 
 592 
 */
583 
function genere_nom_wiki  ($nom, $prenom) {
 593 
function genere_nom_wiki  ($nom, $prenom) {
584 
    // 1. suppression des espaces
 594 
	// 1. suppression des espaces
585 
    $nom = trim ($nom) ;
 595 
	$nom = trim ($nom) ;
Line 586... Line 596...
586 
    $prenom = trim ($prenom) ;
 596 
	$prenom = trim ($prenom) ;
587
597
588 
    // 2. suppression des caractères non ascii et ajout de la première lettre en majuscule
 598 
	// 2. suppression des caractères non ascii et ajout de la première lettre en majuscule
589 
    $nom = trim_non_ascii ($nom) ;
 599 
	$nom = trim_non_ascii ($nom) ;
590 
    $prenom = trim_non_ascii ($prenom) ;
 600 
	$prenom = trim_non_ascii ($prenom) ;
591
- 
 
592 
    // Vérification
 601
593 
    $nom_wiki = $nom.$prenom ;
 602 
	// Vérification
594 
    if (!preg_match('/^[A-Z][a-z]+[A-Z,0-9][A-Z,a-z,0-9]*$/', $nom_wiki)) {
 603 
	$nom_wiki = $nom.$prenom ;
595 
        $nom_wiki = chr(rand(65, 90)).$nom_wiki.chr(rand(65, 90)) ;
 604 
	if (!preg_match('/^[A-Z][a-z]+[A-Z,0-9][A-Z,a-z,0-9]*$/', $nom_wiki)) {
596 
    }
 605 
		$nom_wiki = chr(rand(65, 90)).$nom_wiki.chr(rand(65, 90)) ;
597 
    return $nom_wiki ;
 606 
	}
598 
}
 607 
	return $nom_wiki ;
599 
 
 608 
}
600 
/**
 609 
 
601 
 *
 610 
/**
602 
 *
 611 
 *
603 
 * @return
 612 
 *
604 
 */
 613 
 * @return
605 
 
 614 
 */
606 
function trim_non_ascii ($nom) {
 615 
function trim_non_ascii ($nom) {
607 
    $premiere_lettre = true ;
 616 
	$premiere_lettre = true ;
608 
    for ($i = 0; $i < strlen ($nom); $i++) {
 617 
	for ($i = 0; $i < strlen ($nom); $i++) {
609 
        if (!preg_match ('/[a-zA-Z0-9]/', $nom[$i])) {
 618 
		if (!preg_match ('/[a-zA-Z0-9]/', $nom[$i])) {
610 
//            str_replace ($nom[$i], '_', $nom, 1) ;
 619 
//			str_replace ($nom[$i], '_', $nom, 1) ;
Line 611... Line 620...
611 
        }
 620 
		}
612 
    // remplacement de la première lettre en majuscule
 621 
	// remplacement de la première lettre en majuscule
613 
        if (preg_match ('/[a-zA-Z]/', $nom[$i]) && $premiere_lettre) {
 622 
		if (preg_match ('/[a-zA-Z]/', $nom[$i]) && $premiere_lettre) {
614 
            $nom[$i] = strtoupper ($nom[$i]) ;
 623 
			$nom[$i] = strtoupper ($nom[$i]) ;
615 
            $premiere_lettre = false ;
 624 
			$premiere_lettre = false ;
616 
        } else {
 625 
		} else {
617 
            if (preg_match ('/[a-zA-Z]/', $nom[$i])) {
 626 
			if (preg_match ('/[a-zA-Z]/', $nom[$i])) {
Line 618... Line 627...
618 
                $nom[$i] = strtolower ($nom[$i]) ;
 627 
				$nom[$i] = strtolower ($nom[$i]) ;
619 
            }
 628 
			}
Line 620... Line 629...
620 
        }
 629 
		}
621 
    }
 630 
	}
622 
    $nom = trim ($nom, '_') ;
 631 
	$nom = trim ($nom, '_') ;
Line 623... Line 632...
623 
    return $nom ;
 632 
	return $nom ;
624 
}
 633 
}
Line 625... Line 634...
625 
 
 634 
 
626 
// For users prior to PHP 4.3.0 you may do this:
 635 
// For users prior to PHP 4.3.0 you may do this:
627 
function unhtmlentities ($string)
 636 
function unhtmlentities ($string)
Line 628... Line 637...
628 
{
 637 
{
629 
    $trans_tbl = get_html_translation_table (HTML_ENTITIES);
 638 
	$trans_tbl = get_html_translation_table (HTML_ENTITIES);
630 
    $trans_tbl = array_flip ($trans_tbl);
 639 
	$trans_tbl = array_flip ($trans_tbl);
631 
    return strtr ($string, $trans_tbl);
 640 
	return strtr ($string, $trans_tbl);
632 
}
 641 
}
633 
 
 642 
 
634 
/* ***********************************
 643 
/* ***********************************
635 
create_new_random($n,$type) permet de générer un nombre de caractères aléatoires.
 644 
create_new_random($n,$type) permet de générer un nombre de caractères aléatoires.
636 
 
 645 
 
637 
ENTREE :
 646 
ENTREE :
638 
- $n : créer un 'mot' de $n caractères
 647 
- $n : créer un 'mot' de $n caractères
639 
- $type : permet de définir la liste des caractères disponibles
 648 
- $type : permet de définir la liste des caractères disponibles
Line 640... Line 649...
640 
 
 649 
 
641 
SORTIE : chaine de $n caractères pris dans une liste $type
 650 
SORTIE : chaine de $n caractères pris dans une liste $type
642 
    *********************************** */
 651 
	*********************************** */
643
652
Line 644... Line 653...
644 
function create_new_random($n,$type="")
 653 
function create_new_random($n,$type="")
645 
{
 654 
{
Line 646... Line 655...
646 
    $str = "";
 655 
	$str = "";
647 
 
 656 
 
648 
    switch ($type){
 657 
	switch ($type){
649 
        //liste des caractères possibles en virant ceux qui se ressemblent (ijl1oO0)
 658 
		//liste des caractères possibles en virant ceux qui se ressemblent (ijl1oO0)
650 
        // case "":
 659 
		// case "":
651 
        //    {
 660 
		//	{
652 
        //    }
 661 
		//	}
653 
        // break;
 662 
		// break;
654
663
Line 655... Line 664...
655 
        default:{
 664 
		default:{
656 
            $chaine = "abcdefghkmnpqrstuvwxyzABCDEFGHKLMNPQRSTUVWXYZ23456789";
 665 
			$chaine = "abcdefghkmnpqrstuvwxyzABCDEFGHKLMNPQRSTUVWXYZ23456789";
657 
        }
 666 
		}
658 
            break;
 667 
			break;
659 
    }
 668 
	}
660
669
661 
    srand((double)microtime()*1000000);
 670 
	srand((double)microtime()*1000000);
662 
    for($i = 0; $i < $n; $i++){
 671 
	for($i = 0; $i < $n; $i++){
663 
        $str .= $chaine[rand()%strlen($chaine)];
 672 
		$str .= $chaine[rand()%strlen($chaine)];
664 
    }
 673 
	}
665
674
666 
    return "$str";
 675 
	return "$str";
667 
}
 676 
}
668 
 
 677 
 
669 
//==============================================================================
 678 
//==============================================================================
670 
/** function nextId () Renvoie le prochain identifiant numérique libre d'une table
 679 
/** function nextId () Renvoie le prochain identifiant numérique libre d'une table