| 5 |
jpm |
1 |
<?php
|
|
|
2 |
//vim: set expandtab tabstop=4 shiftwidth=4:
|
|
|
3 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
4 |
// | PHP version 4.1 |
|
|
|
5 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
6 |
// | Copyright (C) 2003 Tela Botanica (accueil@tela-botanica.org) |
|
|
|
7 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
8 |
// | |
|
|
|
9 |
// | This library is free software; you can redistribute it and/or |
|
|
|
10 |
// | modify it under the terms of the GNU Lesser General Public |
|
|
|
11 |
// | License as published by the Free Software Foundation; either |
|
|
|
12 |
// | version 2.1 of the License, or (at your option) any later version. |
|
|
|
13 |
// | |
|
|
|
14 |
// | This library is distributed in the hope that it will be useful, |
|
|
|
15 |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
|
16 |
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
|
|
17 |
// | Lesser General Public License for more details. |
|
|
|
18 |
// | |
|
|
|
19 |
// | You should have received a copy of the GNU Lesser General Public |
|
|
|
20 |
// | License along with this library; if not, write to the Free Software |
|
|
|
21 |
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
|
|
22 |
// | |
|
|
|
23 |
// +------------------------------------------------------------------------------------------------------+
|
| 208 |
alex |
24 |
// CVS : $Id: pap_initialise_auth.inc.php,v 1.6 2004-12-06 12:42:02 alex Exp $
|
| 5 |
jpm |
25 |
/**
|
|
|
26 |
* Initialisation de l'authentification.
|
|
|
27 |
*
|
|
|
28 |
* Suite à la recherche des informations depuis la base de données nous initialisons
|
|
|
29 |
* l'authentification des utilisateurs si le site l'utilise.
|
|
|
30 |
* La page contient le code initialisant l'objet PEAR créé par Net_URL contenant l'url
|
|
|
31 |
* courante demandée par l'utilisateur.
|
|
|
32 |
* Nous initialisons aussi l'identification de l'utilisateur et le démarage de la session.
|
|
|
33 |
*
|
|
|
34 |
*@package Papyrus
|
|
|
35 |
//Auteur original :
|
|
|
36 |
*@author Alexandre GRANIER <alex@tela-botanica.org>
|
|
|
37 |
//Autres auteurs :
|
|
|
38 |
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
|
|
|
39 |
*@copyright Tela-Botanica 2000-2004
|
| 208 |
alex |
40 |
*@version $Revision: 1.6 $ $Date: 2004-12-06 12:42:02 $
|
| 5 |
jpm |
41 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
42 |
*/
|
|
|
43 |
|
|
|
44 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
45 |
// | ENTÊTE du PROGRAMME |
|
|
|
46 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
47 |
|
|
|
48 |
/** <br> Inclusion de l'authentification de PEAR.*/
|
|
|
49 |
include_once 'Auth/Auth.php';
|
|
|
50 |
|
|
|
51 |
/** Inclusion de la bibliothèque de fonctions d'identification.
|
|
|
52 |
* Contient entre autre la fonction founissant le formulaire d'identification pour Auth de Pear.
|
|
|
53 |
* Cette inclusion n'a lieu que si le site utilise l'identification.
|
|
|
54 |
*/
|
|
|
55 |
include_once GEN_CHEMIN_PAP.'bibliotheque/fonctions/pap_identification.fonct.php' ;
|
|
|
56 |
|
|
|
57 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
58 |
// | CORPS du PROGRAMME |
|
|
|
59 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
60 |
|
|
|
61 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
62 |
// Gestion de l'identification des utilisateurs et des sessions
|
| 207 |
jpm |
63 |
|
|
|
64 |
// +------------------------------------------------------------------------------------------------------+
|
|
|
65 |
// Récupération des informations d'identification pour le site courant
|
|
|
66 |
|
|
|
67 |
// Récupération des informations sur le site
|
| 208 |
alex |
68 |
$requete_auth = 'SELECT gen_site_auth.*, gs_id_site '.
|
| 207 |
jpm |
69 |
'FROM gen_site_auth, gen_site '.
|
|
|
70 |
'WHERE gs_ce_auth <> 0 '
|
|
|
71 |
'AND gs_ce_auth = gsa_id_auth';
|
|
|
72 |
|
|
|
73 |
$resultat_auth = $db->query($requete_auth);
|
|
|
74 |
(DB::isError($resultat_auth))
|
|
|
75 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_auth->getMessage(), $requete_auth))
|
|
|
76 |
: '';
|
|
|
77 |
|
|
|
78 |
while ($ligne_auth = $resultat_auth->fetchRow(DB_FETCHMODE_OBJECT)) {
|
|
|
79 |
// Ajout des valeurs communes aux différents type d'auth
|
|
|
80 |
$GLOBALS['_PAPYRUS_']['auth'][$ligne_auth->gsa_id_auth]['gsa_nom'] = $ligne_auth->gsa_nom;
|
|
|
81 |
$GLOBALS['_PAPYRUS_']['auth'][$ligne_auth->gsa_id_auth]['gsa_abreviation'] = $ligne_auth->gsa_abreviation;
|
|
|
82 |
|
|
|
83 |
if ($ligne_auth->gsa_id_auth == $_GEN_commun['info_site']->gs_ce_auth) {
|
|
|
84 |
$_GEN_commun['info_auth'] = $ligne_auth;
|
|
|
85 |
}
|
|
|
86 |
|
|
|
87 |
if ($ligne_auth->gsa_ce_auth_bdd != 0) {
|
|
|
88 |
//Identification via une base de donnée :
|
|
|
89 |
$requete_auth_bdd = 'SELECT * '.
|
|
|
90 |
'FROM gen_site_auth_bdd '.
|
|
|
91 |
'WHERE gsab_id_auth_bdd = '.$ligne_auth->gsa_ce_auth_bdd;
|
|
|
92 |
|
|
|
93 |
$resultat_auth_bdd = $db->query($requete_auth_bdd);
|
|
|
94 |
(DB::isError($resultat_auth_bdd))
|
|
|
95 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_auth_bdd->getMessage(), $requete_auth_bdd))
|
|
|
96 |
: '';
|
|
|
97 |
if ($ligne_auth->gsa_id_auth == $_GEN_commun['info_site']->gs_ce_auth) {
|
|
|
98 |
$_GEN_commun['info_auth_bdd'] = $resultat_auth_bdd->fetchRow(DB_FETCHMODE_OBJECT);
|
|
|
99 |
}
|
|
|
100 |
$GLOBALS['_PAPYRUS_']['auth'][$ligne_auth->gsa_id_auth] = $resultat_auth_bdd->fetchRow(DB_FETCHMODE_ASSOC);
|
|
|
101 |
$resultat_auth_bdd->free();
|
|
|
102 |
|
|
|
103 |
} else if ($ligne_auth->gsa_ce_auth_ldap != 0) {
|
|
|
104 |
//Identification via LDAP :
|
|
|
105 |
$requete_auth_ldap = 'SELECT * '.
|
|
|
106 |
'FROM gen_site_auth_ldap '.
|
|
|
107 |
'WHERE gsal_id_auth_ldap = '.$ligne_auth->gsa_ce_auth_ldap;
|
|
|
108 |
|
|
|
109 |
$resultat_auth_ldap = $db->query($requete_auth_ldap);
|
|
|
110 |
(DB::isError($resultat_auth_ldap))
|
|
|
111 |
? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_auth_ldap->getMessage(), $requete_auth_ldap))
|
|
|
112 |
: '';
|
|
|
113 |
if ($ligne_auth->gsa_id_auth == $_GEN_commun['info_site']->gs_ce_auth) {
|
|
|
114 |
$_GEN_commun['info_auth_ldap'] = $resultat_auth_ldap->fetchRow(DB_FETCHMODE_OBJECT);
|
|
|
115 |
}
|
|
|
116 |
$GLOBALS['_PAPYRUS_']['auth'][$ligne_auth->gsa_id_auth] = $resultat_auth_ldap->fetchRow(DB_FETCHMODE_ASSOC);
|
|
|
117 |
$resultat_auth_ldap->free();
|
|
|
118 |
} else {
|
|
|
119 |
die('ERREUR Papyrus : impossible de trouver les information authentification. <br />'.
|
|
|
120 |
'Identifiant auth : '.$ligne_auth->gs_ce_auth.'<br />'.
|
|
|
121 |
'Ligne n° : '. __LINE__ .'<br />'.
|
|
|
122 |
'Fichier : '. __FILE__ );
|
|
|
123 |
}
|
| 208 |
alex |
124 |
// On teste le type d'authentification
|
|
|
125 |
$requete = "SELECT * FROM gen_site_relation WHERE gsr_id_site_01=$ligne_auth->gs_id_site and gsr_id_site_01=gsr_id_site_02 and gsr_valeur=" ;
|
|
|
126 |
$resultat = $db->query ($requete) ;
|
|
|
127 |
|
| 207 |
jpm |
128 |
}
|
|
|
129 |
$resultat_auth->free();
|
| 112 |
jpm |
130 |
|
| 208 |
alex |
131 |
for ($GLOBALS['_PAPYRUS_']['auth'] as $cle => $auth_courrante) {
|
|
|
132 |
// Nour regardons à quel type d'identification nous avons à faire:
|
|
|
133 |
if ($_GEN_commun['info_auth']->gsa_ce_type_auth == 1) {
|
|
|
134 |
// Authentification via une base de données
|
|
|
135 |
$param_bdd = array ('dsn' => $auth_courrante['gsab_dsn'],
|
|
|
136 |
'table' => $auth_courrante['gsab_nom_table'],
|
|
|
137 |
'usernamecol' => $auth_courrante['gsab_nom_champ_login'],
|
|
|
138 |
'passwordcol' => $auth_courrante['gsab_nom_champ_mdp'],
|
|
|
139 |
'cryptType' => $auth_courrante['gsab_cryptage_mdp'],
|
|
|
140 |
'db_fields' => '*');
|
|
|
141 |
// L'authentification courrante
|
|
|
142 |
if ($ligne_auth->gsa_id_auth == $_GEN_commun['info_site']->gs_ce_auth) {
|
|
|
143 |
$_GEN_commun['pear_auth'] = new Auth('DB', $param_bdd, 'GEN_afficherInfoIdentification', 1);
|
|
|
144 |
}
|
|
|
145 |
} else if ($_GEN_commun['info_auth']->gsa_ce_type_auth == 2) {
|
|
|
146 |
// Authentification via LDAP
|
|
|
147 |
$param_ldap = array ( 'host' => $_GEN_commun['info_auth_ldap']->gsal_serveur,
|
|
|
148 |
'port' => $_GEN_commun['info_auth_ldap']->gsal_port,
|
|
|
149 |
'basedn' => $_GEN_commun['info_auth_ldap']->gsal_base_dn,
|
|
|
150 |
'userattr' => $_GEN_commun['info_auth_ldap']->gsal_uid);
|
|
|
151 |
$_GEN_commun['pear_auth'] = new Auth('LDAP', $param_ldap, 'GEN_afficherInfoIdentification', 1);
|
|
|
152 |
} else {
|
|
|
153 |
die('ERREUR Génésia : type identification introuvable. <br />'.
|
|
|
154 |
'Type identification : '.$_GEN_commun['info_auth']->gsa_ce_type_auth.'<br />'.
|
|
|
155 |
'Ligne n° : '. __LINE__ . '<br />'.
|
|
|
156 |
'Fichier : '. __FILE__ . '<br />');
|
|
|
157 |
}
|
|
|
158 |
|
|
|
159 |
$_GEN_commun['pear_auth']->setSessionname( 'gen_'.$_GEN_commun['info_auth']->gsa_abreviation);
|
|
|
160 |
|
|
|
161 |
$_GEN_commun['pear_auth']->setExpire(3600 * 24 * 30 * 6);// 6 mois
|
|
|
162 |
|
|
|
163 |
$_GEN_commun['pear_auth']->start();
|
|
|
164 |
}
|
| 5 |
jpm |
165 |
|
|
|
166 |
/* +--Fin du code ---------------------------------------------------------------------------------------+
|
|
|
167 |
* $Log: not supported by cvs2svn $
|
| 208 |
alex |
168 |
* Revision 1.5 2004/12/06 12:12:28 jpm
|
|
|
169 |
* Début de gestion des auth multiples.
|
|
|
170 |
*
|
| 207 |
jpm |
171 |
* Revision 1.4 2004/10/25 16:28:47 jpm
|
|
|
172 |
* Ajout de nouvelles balises Papyrus, ajout vérification mise à jour de Papyrus, meilleure gestion des sessions...
|
|
|
173 |
*
|
| 112 |
jpm |
174 |
* Revision 1.3 2004/10/15 18:29:19 jpm
|
|
|
175 |
* Modif pour gérer l'appli installateur de Papyrus.
|
|
|
176 |
*
|
| 67 |
jpm |
177 |
* Revision 1.2 2004/06/30 07:23:36 jpm
|
|
|
178 |
* Ajout d'un commentaire.
|
|
|
179 |
*
|
| 21 |
jpm |
180 |
* Revision 1.1 2004/06/16 08:12:01 jpm
|
|
|
181 |
* Changement de nom de Génésia en Papyrus.
|
|
|
182 |
* Changement de l'arborescence.
|
|
|
183 |
*
|
| 5 |
jpm |
184 |
* Revision 1.6 2004/05/01 11:40:21 jpm
|
|
|
185 |
* Suppression de code intégré dans le fichier de l'applette Identification.
|
|
|
186 |
*
|
|
|
187 |
* Revision 1.5 2004/04/28 12:04:31 jpm
|
|
|
188 |
* Changement du modèle de la base de données.
|
|
|
189 |
*
|
|
|
190 |
* Revision 1.4 2004/04/22 08:29:11 jpm
|
|
|
191 |
* Transformation de $GS_GLOBAL en $_GEN_commun.
|
|
|
192 |
*
|
|
|
193 |
* Revision 1.3 2004/04/09 16:20:33 jpm
|
|
|
194 |
* Gestion de l'authentification uniquement.
|
|
|
195 |
* Gestion des tables i18n.
|
|
|
196 |
*
|
|
|
197 |
* Revision 1.2 2004/04/02 16:29:58 jpm
|
|
|
198 |
* Ajout de la gestion de la déconnexion et reconnexion.
|
|
|
199 |
*
|
|
|
200 |
* Revision 1.1 2004/04/02 08:54:58 jpm
|
|
|
201 |
* Création du fichier qui contient l'initialisation des objets Pear, hormis la base de données.
|
|
|
202 |
*
|
|
|
203 |
* +--Fin du code ----------------------------------------------------------------------------------------+
|
|
|
204 |
*/
|
|
|
205 |
?>
|