Subversion Repositories Applications.papyrus

Rev

Rev 501 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
448 ddelon 1
<?php
2
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3
// +------------------------------------------------------------------------------------------------------+
4
// | PHP version 4.1                                                                                      |
5
// +------------------------------------------------------------------------------------------------------+
6
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7
// +------------------------------------------------------------------------------------------------------+
8
// | This library is free software; you can redistribute it and/or                                        |
9
// | modify it under the terms of the GNU Lesser General Public                                           |
10
// | License as published by the Free Software Foundation; either                                         |
11
// | version 2.1 of the License, or (at your option) any later version.                                   |
12
// |                                                                                                      |
13
// | This library is distributed in the hope that it will be useful,                                      |
14
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
15
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
16
// | Lesser General Public License for more details.                                                      |
17
// |                                                                                                      |
18
// | 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                                  |
20
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21
// +------------------------------------------------------------------------------------------------------+
603 florian 22
// CVS : $Id: inscription.fonct.php,v 1.4 2005-11-17 18:48:02 florian Exp $
23
// CVS : $Id: inscription.fonct.php,v 1.4 2005-11-17 18:48:02 florian Exp $
448 ddelon 24
/**
25
* Fonctions du module inscription
26
*
27
* Fonctions du module inscription
28
*
29
*@package inscription
30
//Auteur original :
31
*@author        Alexandre Granier <alexandre@tela-botanica.org>
32
//Autres auteurs :
33
*@author        Aucun
34
*@copyright     Tela-Botanica 2000-2004
603 florian 35
*@version       $Revision: 1.4 $ $Date: 2005-11-17 18:48:02 $
36
*@version       $Revision: 1.4 $ $Date: 2005-11-17 18:48:02 $
448 ddelon 37
// +------------------------------------------------------------------------------------------------------+
38
*/
39
 
40
// +------------------------------------------------------------------------------------------------------+
41
// |                                            ENTETE du PROGRAMME                                       |
42
// +------------------------------------------------------------------------------------------------------+
43
 
44
include_once 'inscription.fonct.wiki.php' ;
45
if (INS_UTILISE_SPIP) include_once 'inscription.fonct.spip.php' ;
603 florian 46
require_once PAP_CHEMIN_RACINE.'api/pear/HTML/QuickForm.php' ;
47
require_once PAP_CHEMIN_RACINE.'api/pear/HTML/QuickForm/checkbox.php' ;
48
require_once PAP_CHEMIN_RACINE.'api/pear/HTML/QuickForm/password.php' ;
448 ddelon 49
 
50
// +------------------------------------------------------------------------------------------------------+
51
// |                                           LISTE de FONCTIONS                                         |
52
// +------------------------------------------------------------------------------------------------------+
53
 
54
 
55
/**
56
 *
57
 * @param   array   les valeurs renvoyés par le formulaire
58
 * @return
59
 */
483 alexandre_ 60
 
61
function demande_inscription ($valeurs) {
62
    // On stocke les informations dans un variable de session
63
    // On coupe l'identifiant de session pour ne prendre que les 8 premiers caractères
64
    // afin d'éviter d'obtenir une url trop longue
65
    $chaine = substr (session_id(), 0, 8) ;
66
    $requete_verif = 'select * from inscription_demande where id_identifiant_session="'.$chaine.'"' ;
67
    $resultat_verif = $GLOBALS['ins_db']->query ($requete_verif) ;
68
    if ($resultat_verif->numRows() != 0) {
69
        $requete_suppression = 'delete from inscription_demande where id_identifiant_session="'.$chaine.'"' ;
70
        $GLOBALS['ins_db']->query ($requete_suppression) ;
71
    }
72
    $requete = 'insert into inscription_demande set id_identifiant_session="'.$chaine.'", id_donnees="'.
73
                addslashes(serialize($valeurs)).'", id_date=NOW()' ;
74
    $resultat = $GLOBALS['ins_db']->query ($requete) ;
75
    if (DB::isError ($resultat)) {
76
        echo ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
77
    }
78
    // On envoie un email de confirmation pour l'utilisateur
79
    $GLOBALS['ins_url']->addQueryString ('id', $chaine) ;
80
 
81
    $corps = INS_MESSAGE_DEBUT_MAIL_INSCRIPTION ;
82
    if (INS_UTILISE_REECRITURE_URL) {
83
        $corps .= 'http://'.$GLOBALS['ins_url']->host.'/'.INS_URL_PREFIXE.$chaine ;
84
    } else {
85
        $corps .= str_replace ('&amp;', '&', $GLOBALS['ins_url']->getURL()) ;
86
    }
87
    $corps .= INS_MESSAGE_FIN_MAIL_INSCRIPTION ;
88
    mail ($GLOBALS['email'], 'Inscription', $corps, 'From: '.INS_MAIL_ADMIN_APRES_INSCRIPTION) ;
448 ddelon 89
}
90
 
91
/**
92
 *
93
 * @param   array   les valeurs renvoyés par le formulaire
94
 * @return
95
 */
96
 
97
function inscription_validee($valeurs) {
98
	insertion($valeurs) ;
99
	$GLOBALS['AUTH']->username = $valeurs['email'] ;
100
	$GLOBALS['AUTH']->password = $valeurs['mot_de_passe'] ;
101
	// On loggue l'utilisateur
102
	$GLOBALS['AUTH']->login() ;
103
	// inscription à la lettre d'information
483 alexandre_ 104
	if (INS_CHAMPS_LETTRE != '' && isset ($valeurs['lettre'])) {
448 ddelon 105
		inscription_lettre(INS_MAIL_INSCRIPTION_LISTE) ;
106
	}
107
}
108
 
109
/**
110
*   Réalise l'insertion dans la base de donnée
111
*
112
*   @param  array   un tableau de valeur avec en clé les noms des champs du formulaire
113
*   @return void
114
*/
115
 
116
function AUTH_formulaire_login($msg = '') {
117
    //--------------------------------------------------------------------------
118
    // Le formulaire
119
    //--------------------------------------------------------------------------
120
    $res = '';
121
    if ($msg!='') {$res .= $msg.'<br /><br />';}
603 florian 122
    $res .= '<h2>'.INS_DEJA_INSCRIT.'</h2>'."\n" ;
123
    $res .= '<p class="info">'.INS_TEXTE_PERDU.'</p>'."\n" ;
448 ddelon 124
    $GLOBALS['ins_url']->removeQueryString('action') ;
603 florian 125
    $form = new HTML_QuickForm('inscription_identification', 'post', preg_replace ('/&amp;/', '&', $GLOBALS['ins_url']->getURL())) ;
448 ddelon 126
    $squelette =& $form->defaultRenderer();
603 florian 127
    $squelette->setFormTemplate("\n".'<form {attributes} style="width:300px;">'."\n".'{content}'."\n".'</form>'."\n");
128
    $squelette->setElementTemplate( '<p class="label100">{label}&nbsp;</p>'."\n".'{element}<br />'."\n");
129
    $form->addElement('text', 'username', INS_EMAIL.' : ') ;
130
    $form->addElement('password', 'password', INS_MOT_DE_PASSE.' : ') ;
448 ddelon 131
    $form->addElement('submit', 'valider', INS_VALIDER);
132
    $res .= $form->toHTML()."\n" ;
603 florian 133
    $res .= '<br /><h2 style="width:100%;">'.INS_LAIUS_INSCRIPTION.'</h2>'."\n" ;
134
    $res .= '<ul>'."\n";
135
    $res .= '<li><a href="'.$GLOBALS['ins_url']->getURL().'&amp;action=inscription&amp;form_structure=0">'.INS_INSCRIPTION_PERSONNE.'</a></li>'."\n" ;
448 ddelon 136
    if (INS_FORMULAIRE_STRUCTURE) {
603 florian 137
    	$res .= '<li><a href="'.$GLOBALS['ins_url']->getURL().'&amp;action=inscription&amp;form_structure=1">'.INS_INSCRIPTION_STRUCTURE.'</a></li>'."\n" ;
448 ddelon 138
    }
603 florian 139
    $res .= '</ul>'."\n".'<br />'."\n".'<div>'.INS_LAIUS_INSCRIPTION_2.'</div>'."\n" ;
448 ddelon 140
    return $res;
141
}
142
 
143
/** message_erreur () - Renvoie le code HTML d'un message d'erreur
144
*
145
* @return   string  HTML
146
*/
147
 
148
function message_erreur() {
149
    $res = '';
150
    $url = preg_replace ('/&amp;/', '&', $GLOBALS['ins_url']->getURL()) ;
151
    $res .= "<div class=\"inscription_erreur\">".INS_ERREUR_LOGIN."</div>\n" ;
152
    $res .= "<div>".INS_SI_PASSE_PERDU."</div>\n" ;
153
    $res .= '<div>' ;
154
    $res .= '<form action="'.$url.'&action=sendpasswd" method="post">'."\n" ;
155
    $res .= INS_EMAIL.'&nbsp;' ;
156
    $res .= '<input type="text" value="'.$_POST['username'].'" name="mail" size="32" /></li></ul>'."\n" ;
157
    $res .= "<input type=\"submit\" value=\"".INS_ENVOIE_PASSE."\" />" ;
158
    $res .= "</form></div>\n" ;
159
 
160
    // On remet le formulaire d'inscription mais un peu réduit
161
    $res .= '<br /><h3 class="titre2_inscription">'.INS_DEJA_INSCRIT.'</h3>' ;
162
    $form = new HTML_QuickForm ('inscription', 'post', $url) ;
163
    $form->addElement ('text', 'username', INS_EMAIL) ;
164
    $form->addElement ('password', 'password', INS_MOT_DE_PASSE) ;
165
    $form->addElement('submit', 'valider', INS_VALIDER);
166
    $res .= $form->toHTML() ;
167
 
168
    $res .= '<h3 class="titre2_inscription">'.INS_PAS_INSCRIT.'</h3>' ;
169
    $GLOBALS['ins_url']->addQueryString('action', 'inscription') ;
170
    $form = new HTML_QuickForm('inscription', 'post', preg_replace ('/&amp;/', '&', str_replace ('&amp;', '&', $GLOBALS['ins_url']->getURL()))) ;
171
    $form->addElement('submit', 'Inscription', INS_INSCRIPTION) ;
172
    if (INS_FORMULAIRE_STRUCTURE) $form->addElement('submit', 'form_structure', INS_INSCRIPTION_STRUCTURE) ;
173
    $res .= "<br /><div>".INS_LAIUS_INSCRIPTION_2."</div>\n" ;
174
    $res .= $form->toHTML() ;
175
    return $res;
176
}
177
 
178
function insertion($valeur) {
179
        // ===========  Insertion dans l'annuaire gen_annuaire ===================
483 alexandre_ 180
		// Génération du nom wikini à partir du nom et du prénom
181
	    if (INS_UTILISE_WIKINI) {
182
	        $valeur['nom_wiki'] = genere_nom_wiki ($valeur['nom'], $valeur['prenom']) ;
183
	    }
448 ddelon 184
        $id_utilisateur = nextId(INS_ANNUAIRE, INS_CHAMPS_ID, $GLOBALS['ins_db']) ;
185
        $requete = 'insert into '.INS_ANNUAIRE.' set '.
186
                    INS_CHAMPS_ID.'="'.$id_utilisateur.'",'.
187
                    requete_annuaire($valeur) ;
188
 
189
        $resultat = $GLOBALS['ins_db']->query($requete) ;
190
        if (DB::isError($resultat)) {
191
            die ($resultat->getMessage().$resultat->getDebugInfo()) ;
192
        }
193
 
194
        // ================ Insertion dans SPIP =========================================
195
        if (INS_UTILISE_SPIP) {
196
            inscription_spip($id_utilisateur, $valeur) ;
197
        }
483 alexandre_ 198
	if (INS_UTILISE_WIKINI) inscription_interwikini_users('', $valeur) ;
603 florian 199
	// TODO Créer un fichier bazar/bazar.inscription.inc.php et y mettre le code qui suit
483 alexandre_ 200
	// Vérifier tous les noms des répertoires du répertoire client et s'il existe
201
	// un fichier nom/nom/inscription.inc.php l'inclure
448 ddelon 202
	//inscription dans Bazar
203
	$requete = 'INSERT INTO bazar_droits VALUES ('.$id_utilisateur.',1,1),('.$id_utilisateur.',2,1),('.$id_utilisateur.',3,1),('.$id_utilisateur.',7,1)';
204
	if ($valeur['est_structure']==1) $requete.=',('.$id_utilisateur.',4,1),('.$id_utilisateur.',5,1),('.$id_utilisateur.',6,1)';
205
	$resultat = $GLOBALS['ins_db']->query($requete);
206
	if (DB::isError($resultat)) {
207
		die($resultat->getMessage().$resultat->getDebugInfo()) ;
208
	}
209
	unset($resultat) ;
210
 
211
 
212
}
213
 
214
/**
215
*   Réalise une mise à jour dans la base de donnée
216
*
217
*   @param  array   un tableau de valeur avec en clé les noms des champs du formulaire
218
*   @return void
219
*/
220
function mise_a_jour($valeur) {
221
    // ====================Mise à jour dans l'annuaire gen_annuaire ====================
222
    $requete = 'update '.INS_ANNUAIRE.' set '.
223
                requete_annuaire ($valeur).
224
                'where '.INS_CHAMPS_ID.'="'.$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID).'"';
225
    $resultat = $GLOBALS['ins_db']->query ($requete) ;
226
    if (DB::isError($resultat)) {
227
        die ($resultat->getMessage().$resultat->getDebugInfo()) ;
228
    }
229
    unset ($resultat) ;
230
 
231
    // ========================= Mise à jour dans SPIP ================================
232
    if (INS_UTILISE_SPIP) {
233
        mod_inscription_spip($GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID), $valeur) ;
234
    }
235
}
236
 
237
/** requete_annuaire () - Renvoie une chaine contenant les champs de l'annuaire avec leur valeur suite à le fonction process de QuickForm
238
*
239
* @return   string  une requete du type champs="valeur",...
240
*/
241
 
242
function requete_annuaire($valeur) {
243
    $req = INS_CHAMPS_NOM.'="'.$valeur['nom'].'", ';
244
    if (isset($valeur['prenom'])) {
603 florian 245
    	$req .= INS_CHAMPS_PRENOM.'="'.$valeur['prenom'].'", ';
246
    	if (INS_UTILISE_WIKINI) $req .= INS_CHAMPS_NOM_WIKINI.'="'.ucfirst(strtolower($valeur['prenom'])).ucfirst(strtolower($valeur['nom'])).'", ' ;
247
    } elseif (INS_UTILISE_WIKINI) {
248
    	$req .= INS_CHAMPS_NOM_WIKINI.'="Structure'.ucfirst(strtolower($valeur['nom'])).'", ' ;
448 ddelon 249
    }
250
    $req .=      INS_CHAMPS_MAIL.'="'.$valeur['email'].'", ' ;
251
    $req .= INS_CHAMPS_PASSE.'="'.md5 ($valeur['mot_de_passe']).'", '.
252
                INS_CHAMPS_PAYS.'="'.$valeur['pays'].'", '.
253
                INS_CHAMPS_ADRESSE_1.'="'.$valeur['adresse_1'].'", '.
254
                INS_CHAMPS_ADRESSE_2.'="'.$valeur['adresse_2'].'", '.
255
                INS_CHAMPS_DATE_INSCRIPTION.'=NOW(), '.
256
                INS_CHAMPS_CODE_POSTAL.'="'.$valeur['cp'].'", '.
603 florian 257
				INS_CHAMPS_VILLE.'="'.$valeur['ville'].'", '.
258
				INS_CHAMPS_EST_STRUCTURE.'="'.$valeur['est_structure'].'", '.
259
				INS_CHAMPS_TELEPHONE.'="'.$valeur['telephone'].'", '.
260
				INS_CHAMPS_FAX.'="'.$valeur['fax'].'", '.
261
				INS_CHAMPS_SITE_INTERNET.'="'.$valeur['site'].'" ';
448 ddelon 262
 
483 alexandre_ 263
	if (INS_CHAMPS_LETTRE != '') {
264
		if (isset($valeur['lettre'])) {
265
			$req .= ', '.INS_CHAMPS_LETTRE.'="'.$valeur['lettre'].'"';
266
		}
267
		else 	$req .= ', '.INS_CHAMPS_LETTRE.'=0';
448 ddelon 268
	}
603 florian 269
 
448 ddelon 270
	if (isset($valeur['visible'])) {
271
		$req .= ', '.INS_CHAMPS_VISIBLE.'="'.$valeur['visible'].'"';
603 florian 272
	} else 	$req .= ', '.INS_CHAMPS_VISIBLE.'=0';
448 ddelon 273
    if (isset($valeur['sigle_structure'])) {
274
        $req .= ','.INS_CHAMPS_SIGLE_STRUCTURE.'="'.$valeur['sigle_structure'].'"' ;
275
    }
276
    if (isset($valeur['num_agrement'])) {
277
        $req .= ','.INS_CHAMPS_NUM_AGREMENT.'="'.$valeur['num_agrement'].'"' ;
278
    }
279
    // traitement du numéro de département pour la france
280
    if ($valeur['pays'] == 'FR') {
281
        if (preg_match("/^97|98[0-9]*/", $valeur['cp'])) {
282
            $n_dpt = substr($valeur['cp'], 0, 3) ;
283
        } else {
284
            $n_dpt = substr($valeur['cp'], 0, 2) ;
285
        }
286
        $req .= ",".INS_CHAMPS_DEPARTEMENT."='$n_dpt'";
287
    }
288
    return $req ;
289
}
290
 
291
 
292
 
603 florian 293
/** formulaire_defaults() - Renvoie un tableau avec les valeurs par défaut du formulaire d'inscription
448 ddelon 294
*
295
* @return   array   Valeurs par défaut du formulaire d'inscription
296
*/
297
function formulaire_defaults() {
298
    $requete = 'select '.INS_ANNUAIRE.'.* '.
299
                'from '.INS_ANNUAIRE.' '.
300
                'where '.INS_ANNUAIRE.'.'.INS_CHAMPS_ID.'= "'.$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID).'"' ;
501 alexandre_ 301
    $resultat = $GLOBALS['ins_db']->query ($requete) ;
448 ddelon 302
    if (DB::isError($resultat)) {
303
    	die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
304
    }
305
    $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
306
    $valeurs_par_defaut = array() ;
307
    $valeurs_par_defaut['email'] = $ligne[INS_CHAMPS_MAIL];
308
    $valeurs_par_defaut['nom'] = $ligne[INS_CHAMPS_NOM];
309
    $valeurs_par_defaut['prenom'] = $ligne[INS_CHAMPS_PRENOM] ;
310
    $valeurs_par_defaut['pays'] = $ligne[INS_CHAMPS_PAYS] ;
311
    if (INS_UTILISE_WIKINI) {$valeurs_par_defaut['nomwiki'] = $ligne[INS_CHAMPS_NOM_WIKINI] ;}
312
    $valeurs_par_defaut['cp'] = $ligne[INS_CHAMPS_CODE_POSTAL] ;
313
    $valeurs_par_defaut['ville'] = $ligne[INS_CHAMPS_VILLE] ;
314
    $valeurs_par_defaut['adresse_1'] = $ligne[INS_CHAMPS_ADRESSE_1] ;
315
    $valeurs_par_defaut['adresse_2'] = $ligne[INS_CHAMPS_ADRESSE_2] ;
316
    $valeurs_par_defaut['telephone'] = $ligne[INS_CHAMPS_TELEPHONE] ;
317
    $valeurs_par_defaut['fax'] = $ligne[INS_CHAMPS_FAX] ;
318
    $valeurs_par_defaut['structure'] = $ligne[INS_CHAMPS_STRUCTURE] ;
319
    $valeurs_par_defaut['site'] = $ligne[INS_CHAMPS_SITE_INTERNET] ;
320
    $valeurs_par_defaut['lettre'] = $ligne[INS_CHAMPS_LETTRE] ;
321
    $valeurs_par_defaut['visible'] = $ligne[INS_CHAMPS_VISIBLE] ;
322
    $valeurs_par_defaut['sigle_structure'] = $ligne[INS_CHAMPS_SIGLE_STRUCTURE] ;
323
    $valeurs_par_defaut['num_agrement'] = $ligne[INS_CHAMPS_NUM_AGREMENT] ;
324
    return $valeurs_par_defaut ;
325
}
326
 
327
 
603 florian 328
/** info() - Renvoie une fiche d'information sur la personne ou la structure
329
*
330
* @return   text   Code HTML de la fiche
331
*/
448 ddelon 332
function info() {
603 florian 333
    $requete = 'SELECT * FROM '.INS_ANNUAIRE.' WHERE '.INS_ANNUAIRE.'.'
334
               .INS_CHAMPS_ID.'="'.$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID).'"' ;
448 ddelon 335
    $resultat = $GLOBALS['ins_db'] -> query($requete) ;
336
    if (DB::isError($resultat)) {
337
    	die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
338
    }
339
 
340
    $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
341
    if ($ligne[INS_CHAMPS_EST_STRUCTURE] == 1) {
603 florian 342
    	$res = '<h1>'.INS_FICHE_STRUCTURE.'</h1>'."\n" ;
343
	    $res .= '<h2>'.$ligne[INS_CHAMPS_NOM].'</h2>'."\n";
344
	    $res .= '<dl class="affiche_infos">'."\n";
345
	    $res .= ligne_inscription(INS_SIGLE_DE_LA_STRUCTURE, $ligne[INS_CHAMPS_SIGLE_STRUCTURE]) ;
346
	    $res .= ligne_inscription(INS_NUM_AGREMENT, $ligne[INS_CHAMPS_NUM_AGREMENT]) ;
347
    } else {
348
    	$res = '<h1>'.INS_FICHE_PERSONNELLE.'</h1>'."\n" ;
349
    	$res .= '<h2>'.$ligne[INS_CHAMPS_PRENOM].' '.$ligne[INS_CHAMPS_NOM].'</h2>'."\n";
350
    	$res .= '<dl class="affiche_infos">'."\n";
448 ddelon 351
    }
603 florian 352
    $res .= ligne_inscription(INS_ADRESSE_1, $ligne[INS_CHAMPS_ADRESSE_1]) ;
353
    $res .= ligne_inscription(INS_ADRESSE_2, $ligne[INS_CHAMPS_ADRESSE_2]) ;
354
    $res .= ligne_inscription(INS_CODE_POSTAL, $ligne[INS_CHAMPS_CODE_POSTAL]) ;
355
    $res .= ligne_inscription(INS_VILLE, $ligne[INS_CHAMPS_VILLE]) ;
356
    $res .= ligne_inscription(INS_PAYS, $ligne[INS_CHAMPS_PAYS]) ;
357
    $res .= ligne_inscription('&nbsp;', '&nbsp;') ;
358
    $res .= ligne_inscription(INS_TELEPHONE, $ligne[INS_CHAMPS_TELEPHONE]) ;
359
    $res .= ligne_inscription(INS_FAX, $ligne[INS_CHAMPS_FAX]) ;
360
    $res .= ligne_inscription('&nbsp;', '&nbsp;') ;
361
    if (INS_UTILISE_WIKINI) {
362
		$res .= ligne_inscription (INS_NOM_WIKI, $ligne[INS_CHAMPS_NOM_WIKINI]) ;
483 alexandre_ 363
	}
603 florian 364
    $res .= ligne_inscription(INS_EMAIL, $ligne[INS_CHAMPS_MAIL]);
365
    $res .= ligne_inscription(INS_SITE_INTERNET, '<a href="'.$ligne[INS_CHAMPS_SITE_INTERNET].'" onclick="javascript:window.open(this.href);return false;">'.$ligne[INS_CHAMPS_SITE_INTERNET].'</a>');
366
    $res .= '</dl>'."\n";
367
    $res .= '<br />'."\n";
368
    $res .= '<ul>'."\n";
369
    if ($ligne[INS_CHAMPS_VISIBLE] == 1) {
370
    	$res .= '<li>'.INS_VOUS_APPARAISSEZ.'</li>'."\n";
371
    } else $res .= '<li>'.INS_VOUS_APPARAISSEZ_PAS.'</li>'."\n";
372
    if ($ligne[INS_CHAMPS_LETTRE] == 1) {
373
    	$res .= '<li>'.INS_VOUS_RECEVEZ_LETTRE.'</li>'."\n";
374
    } else $res .= '<li>'.INS_VOUS_RECEVEZ_PAS_LETTRE.'</li>'."\n";
375
    $res .= '</ul>'."\n";
376
    $res .= '<br />'."\n";
377
    $res .= '<ul>'."\n";;
378
    $res .= '<li><a href="'.$GLOBALS['ins_url']->getURL().'&amp;action=modifier&amp;form_structure='.$ligne[INS_CHAMPS_EST_STRUCTURE].'">'.INS_MODIFIER_INSCRIPTION.'</a></li>'."\n" ;
379
    $res .= '<li><a href="'.$GLOBALS['ins_url']->getURL().'&amp;action=supprimer&amp;form_structure='.$ligne[INS_CHAMPS_EST_STRUCTURE].'" onclick="javascript:return confirm(\''.INS_SUPPRIMER_INSCRIPTION.'\' ?);">'.INS_SUPPRIMER_INSCRIPTION.'</a></li>'."\n" ;
380
    $res .= '<li><a href="'.$GLOBALS['ins_url']->getURL().'&amp;action=deconnexion">'.INS_DECONNEXION.'</a></li>'."\n" ;
381
    $res .= '</ul>'."\n";
448 ddelon 382
    return $res ;
383
}
384
 
603 florian 385
 
386
/**	ligne_inscription() - Renvoie une ligne avec label et valeur
483 alexandre_ 387
 *
388
 * @param string label Le label
389
 * @param string valeur
390
 * @return	string HTML
391
 */
603 florian 392
function ligne_inscription($label, $valeur) {
483 alexandre_ 393
    if ($valeur == '') {
603 florian 394
        return;
483 alexandre_ 395
    }
603 florian 396
    return '<dt>'.$label.' : </dt>'."\n".'<dd>'.$valeur.'</dd>'."\n" ;
483 alexandre_ 397
}
398
 
448 ddelon 399
 
400
/** Renvoie vrai si l'email passé en paramètre n'est pas déjà dans l'annuaire
401
*   ou si, en cas de modification d'inscription, l'inscrit ne modifie pas son email
402
*
403
*   @return boolean
404
*/
405
function verif_doublonMail($mail) {
406
    if (isset ($GLOBALS['AUTH']) && $GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) != '') {
407
        $requete_mail = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE." where ".INS_CHAMPS_ID."=".$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID) ;
408
        $resultat_mail = $GLOBALS['ins_db']->query ($requete_mail) ;
409
        if (DB::isError ($resultat_mail)) {
410
            die ("Echec de la requete : $requete_mail<br />".$resultat_mail->getMessage()) ;
411
        }
412
        $ligne_mail = $resultat_mail->fetchRow(DB_FETCHMODE_ASSOC) ;
413
        if ($mail == $ligne_mail[INS_CHAMPS_MAIL]) {
414
            return true ;
415
        }
416
    }
417
    $requete = "select ".INS_CHAMPS_MAIL." from ".INS_ANNUAIRE." where ".INS_CHAMPS_MAIL."= \"$mail\"" ;
418
    $resultat = $GLOBALS['ins_db']->query ($requete) ;
419
    if (DB::isError ($resultat)) {
420
    	die ($resultat->getMessage().'<br />'.$resultat->getDebugInfo()) ;
421
    }
422
    if ($resultat->numRows() == 0) return true ;
423
    return false ;
424
}
425
 
426
 
427
function envoie_passe()
428
{
483 alexandre_ 429
    $headers['From']    = INS_MAIL_ADMIN_APRES_INSCRIPTION ;
448 ddelon 430
    $headers['Subject'] = INS_NOUVEAU_MOT_DE_PASSE;
431
 
432
    $nouveau_passe = create_new_random(6) ;
433
 
434
    $body = INS_NOUVEAU_MOT_DE_PASSE_2.$nouveau_passe ;
435
    $body .= INS_NOUVEAU_MOT_DE_PASSE_LAIUS ;
436
 
437
    // modification du mot de passe dans la base
438
    $requete = "update ".INS_ANNUAIRE." set ".INS_CHAMPS_PASSE."=MD5(\"$nouveau_passe\") where ".INS_CHAMPS_MAIL."=\"".$GLOBALS['username']."\"" ;
439
    $resultat = $GLOBALS['ins_db']->query($requete) ;
440
    if (DB::isError($resultat)) {
441
        die ("Echec de la requete<br />".$resultat->getMessage()."<br />".$resultat->getDebugInfo()) ;
442
    }
443
 
444
    // création du mail
445
    if (!mail ($GLOBALS['username'], $headers['Subject'], $body)) {
446
        return 'erreur lors de l\'envoie de mail' ;
447
    }
448
 
449
    return "<div class=\"titre1_inscription\">".INS_MOT_DE_PASSE_ENVOYE_1.': '.$GLOBALS['mail']."</div>\n".
450
            "<div><br />".INS_MOT_DE_PASSE_ENVOYE_2."</div>\n";
451
 
452
}
453
 
454
/**
455
 *  Inscrit un adhérent à la lettre d'actualité par l'envoie d'un email subscribe / unsubscribe
456
 *  à la liste
457
 *
458
 * @global  AUTH    Un objet PEAR::Auth
459
 * @return  boolean true en cas de succès
460
 */
461
 
462
function inscription_lettre($action) {
603 florian 463
    include_once PAP_CHEMIN_RACINE.'api/pear/Mail.php' ;
448 ddelon 464
    $mail = & Mail::factory ('smtp') ;
465
    $email = $GLOBALS['AUTH']->getUsername() ;
466
    $headers ['Return-Path'] = $email ;
467
    $headers ['From'] = "<".$email.">" ;
468
    $headers ['Subject'] = $action ;
469
    $headers ['Reply-To'] = $email ;
470
 
471
    $mail -> send ($action, $headers, "") ;
472
    if (PEAR::isError ($mail)) {
473
        echo '<div class="erreur">Le mail n\'est pas partie...</div>' ;
474
        return false ;
475
    }
476
    return true ;
477
}
478
 
479
/**
480
 *
481
 * @global  ins_db  Un pointeur vers un objet PEAR::DB connecté
482
 * @return
483
 */
484
 
485
function envoie_mail() //A COMPLETER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
486
{
603 florian 487
    include_once PAP_CHEMIN_RACINE.'api/pear/Mail/mime.php' ;
488
    include_once PAP_CHEMIN_RACINE.'api/pear/Mail.php' ;
448 ddelon 489
    $crlf="\n";
490
 
491
    $headers ['From'] = INS_MAIL_ADMIN_APRES_INSCRIPTION ;
492
    $headers ['Subject'] = INS_MAIL_COORD_SUJET ;
493
    $headers ['Reply-To'] = INS_MAIL_ADMIN_APRES_INSCRIPTION ;
494
 
495
    $mime = new Mail_mime($crlf);
496
 
497
    $requete = "select *, ".INS_CHAMPS_LABEL_PAYS." from ".INS_ANNUAIRE.",".INS_TABLE_PAYS.
498
            " where ".INS_CHAMPS_MAIL."=\"".$GLOBALS['AUTH']->getUsername()."\"".
499
            " and ".INS_CHAMPS_ID_PAYS."=".INS_CHAMPS_PAYS;
500
 
501
    $resultat = $GLOBALS['ins_db']->query($requete) ;
502
    if (DB::isError ($resultat)) {
503
        die ("Echec de la requete : $requete<br />".$resultat->getMessage()) ;
504
    }
505
    $ligne  = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
506
    $body_entete = INS_MAIL_COORD_CORPS."\n" ;
507
    $body = "mail : ".$ligne[INS_CHAMPS_MAIL]."\n" ;
508
    $body .= "------------------------------------------\n";
509
    $body .= INS_NOM.": ".unhtmlentities($ligne[INS_CHAMPS_NOM])." \n" ;
510
    $body .= INS_PRENOM.' : '.unhtmlentities($ligne[INS_CHAMPS_PRENOM])." \n" ;
511
    $body .= INS_PAYS." : ".unhtmlentities($ligne[PROJET_CHAMPS_LABEL_PAYS])." \n" ;
512
    $body .= "-------------------------------------------\n" ;
513
 
514
    $mime->setTXTBody($body);
515
    $mime->setHTMLBody(info()) ;
516
 
517
    $body = $mime->get();
518
    $headers = $mime->headers($headers);
519
 
520
    $mail = & Mail::factory('mail') ;
521
 
522
    $mail -> send ($ligne[INS_CHAMPS_MAIL], $headers, $body) ;
523
 
524
    if (PEAR::isError($mail)) {
525
        echo 'erreur d\'envoi' ;
526
        return false ;
527
    }
528
    return true ;
529
}
530
 
483 alexandre_ 531
 
532
/**
533
 *  Génère un nom wiki valide à partir des données saisies par l'utilisateur
534
 *  fait une requete dans la base
535
 *
536
 * @return  string un nom wiki valide
537
 */
538
 
539
function genere_nom_wiki  ($nom, $prenom) {
540
    // 1. suppression des espaces
541
    $nom = trim ($nom) ;
542
    $prenom = trim ($prenom) ;
543
 
544
    // 2. suppression des caractères non ascii et ajout de la première lettre en majuscule
545
    $nom = trim_non_ascii ($nom) ;
546
    $prenom = trim_non_ascii ($prenom) ;
547
 
548
    // Vérification
549
    $nom_wiki = $nom.$prenom ;
550
    if (!preg_match('/^[A-Z][a-z]+[A-Z,0-9][A-Z,a-z,0-9]*$/', $nom_wiki)) {
551
        $nom_wiki = chr(rand(65, 90)).$nom_wiki.chr(rand(65, 90)) ;
552
    }
553
    return $nom_wiki ;
554
}
555
 
556
/**
557
 *	Cette fonction supprime les caractères autres que asccii et les chiffres
558
 *
559
 * @return	string la chaine épurée
560
 */
561
 
562
function trim_non_ascii ($nom) {
563
    $premiere_lettre = true ;
564
    for ($i = 0; $i < strlen ($nom); $i++) {
565
        if (!preg_match ('/[a-zA-Z0-9]/', $nom[$i])) {
566
            $nom[$i] = '_' ;
567
        }
568
    // remplacement de la première lettre en majuscule
569
        if (preg_match ('/[a-zA-Z]/', $nom[$i]) && $premiere_lettre) {
570
            $nom[$i] = strtoupper ($nom[$i]) ;
571
            $premiere_lettre = false ;
572
        } else {
573
            if (preg_match ('/[a-zA-Z]/', $nom[$i])) {
574
                $nom[$i] = strtolower ($nom[$i]) ;
575
            }
576
        }
577
    }
578
    $nom = preg_replace ('/_/', '', $nom) ;
579
    return $nom ;
580
}
581
 
448 ddelon 582
// For users prior to PHP 4.3.0 you may do this:
583
function unhtmlentities($string)
584
{
585
    $trans_tbl = get_html_translation_table (HTML_ENTITIES);
586
    $trans_tbl = array_flip ($trans_tbl);
587
    return strtr ($string, $trans_tbl);
588
}
589
 
590
//==============================================================================
591
/** function create_new_random($n,$type) permet de générer un nombre de caractères aléatoires.
592
*
593
*
594
*
595
*  ENTREE :
596
*  - $n : créer un 'mot' de $n caractères
597
*  - $type : permet de définir la liste des caractères disponibles
598
*
599
*  SORTIE : chaine de $n caractères pris dans une liste $type
600
*/
601
 
602
function create_new_random($n,$type="")
603
{
604
    $str = "";
605
 
606
    switch ($type){
607
        default:{
608
            $chaine = "abcdefghkmnpqrstuvwxyzABCDEFGHKLMNPQRSTUVWXYZ23456789";
609
        }
610
            break;
611
    }
612
 
613
    srand((double)microtime()*1000000);
614
    for($i = 0; $i < $n; $i++){
615
        $str .= $chaine[rand()%strlen($chaine)];
616
    }
617
 
618
    return "$str";
619
}
620
 
621
//==============================================================================
622
/** function nextId () Renvoie le prochain identifiant numérique libre d'une table
623
*
624
*   On passe en paramètre le nom de la table et l'identifiant de la base selon PEAR DB
625
*
626
*   @param  mixed   handler de connexion
627
*   @param  string  Nom de la table
628
*   return  interger    l'identifiant
629
*/
630
 
631
function nextId($table, $colonne_identifiant)
632
{
633
    $requete = 'select MAX('.$colonne_identifiant.') as maxi from '.$table ;
634
    $resultat = $GLOBALS['ins_db']->query($requete) ;
635
    if (DB::isError($resultat)) {
636
        die (__FILE__ . __LINE__ . $resultat->getMessage() . $requete);
637
        return $GLOBALS['ins_db']->raiseError($resultat) ;
638
    }
639
 
640
    if ($resultat->numRows() > 1) {
641
        return $GLOBALS['ins_db']->raiseError("<br />La table $table a un identifiant non unique<br/>") ;
642
    }
643
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
644
    return $ligne->maxi + 1 ;
645
}
646
 
647
/* +--Fin du code ----------------------------------------------------------------------------------------+
648
*
649
* $Log: not supported by cvs2svn $
603 florian 650
* Revision 1.3  2005/10/03 09:45:21  alexandre_tb
651
* suppression d'un echo
652
*
501 alexandre_ 653
* Revision 1.2  2005/09/29 13:56:48  alexandre_tb
654
* En cours de production. Reste à gérer les news letters et d'autres choses.
655
*
483 alexandre_ 656
* Revision 1.1  2005/09/22 14:02:49  ddelon
657
* nettoyage annuaire et php5
658
*
448 ddelon 659
* Revision 1.4  2005/09/22 13:30:49  florian
660
* modifs pour compatibilité XHTML Strict + corrections de bugs (mais ya encore du boulot!!)
661
*
662
* Revision 1.3  2005/03/21 16:57:30  florian
663
* correction de bug, mise à jour interface
664
*
665
* Revision 1.2  2004/12/17 17:41:51  alex
666
* ajout du numéro de tel, du fax et de la structure
667
*
668
* Revision 1.1  2004/12/15 13:32:25  alex
669
* version initiale
670
*
671
* Revision 1.2  2004/09/01 16:37:52  alex
672
* modification du formulaire
673
*
674
* Revision 1.1  2004/07/06 15:42:17  alex
675
* en cours
676
*
677
* Revision 1.7  2004/07/06 15:28:41  alex
678
* en cours
679
*
680
* Revision 1.5  2004/07/06 15:22:19  alex
681
* en cours
682
*
683
=======
684
* Revision 1.4  2004/06/30 10:00:26  alex
685
* modification de l'envoie de mail
686
*
687
* Revision 1.2  2004/06/23 12:41:51  alex
688
* amélioration de la gestion de la perte de mot de passe
689
*
690
* Revision 1.1  2004/06/18 09:20:47  alex
691
* version initiale
692
*
693
*
694
* +-- Fin du code ----------------------------------------------------------------------------------------+
695
*/
696
 
697
?>