| New file |
|---|
| 0,0 → 1,206 |
|---|
| <?php |
| /*vim: set expandtab tabstop=4 shiftwidth=4: */ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PHP version 4.1 | |
| // +------------------------------------------------------------------------------------------------------+ |
| // | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) | |
| // +------------------------------------------------------------------------------------------------------+ |
| // | This file is part of Papyrus. | |
| // | | |
| // | Foobar is free software; you can redistribute it and/or modify | |
| // | it under the terms of the GNU General Public License as published by | |
| // | the Free Software Foundation; either version 2 of the License, or | |
| // | (at your option) any later version. | |
| // | | |
| // | Foobar is distributed in the hope that it will be useful, | |
| // | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| // | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| // | GNU General Public License for more details. | |
| // | | |
| // | You should have received a copy of the GNU General Public License | |
| // | along with Foobar; if not, write to the Free Software | |
| // | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
| // +------------------------------------------------------------------------------------------------------+ |
| // CVS : $Id: adau_auth.fonct.php,v 1.1 2005-03-09 10:49:52 jpm Exp $ |
| /** |
| * Contient les fonctions de l'appli admin_auth |
| * |
| * |
| * |
| * |
| *@package Admin_auth |
| *@subpackage Fonctions |
| //Auteur original : |
| *@author Alexandre Granier <alexandre@tela-botanica.org> |
| //Autres auteurs : |
| *@author Aucun |
| *@copyright Tela-Botanica 2000-2004 |
| *@version $Revision: 1.1 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| |
| // +------------------------------------------------------------------------------------------------------+ |
| // | LISTE de FONCTIONS | |
| // +------------------------------------------------------------------------------------------------------+ |
| |
| /** |
| * |
| * |
| * @return |
| */ |
| |
| function adau_supprimer_authentification($id_auth, &$db) { |
| |
| // on recherche l'identifiant de gen_site_auth_bdd à partir de gen_site_auth |
| $requete = "select gsa_ce_auth_bdd from gen_site_auth where gsa_id_auth=".$GLOBALS['id_auth'] ; |
| $resultat = $db->query ($requete) ; |
| $ligne = $resultat->fetchRow (DB_FETCHMODE_OBJECT) ; |
| $id_auth_bdd = $ligne->gsa_ce_auth_bdd ; |
| |
| $requete = "delete from gen_site_auth where gsa_id_auth=$id_auth" ; |
| $resultat = $db->query ($requete) ; |
| |
| $requete = "delete from gen_site_auth_bdd where gsab_id_auth_bdd=$id_auth_bdd" ; |
| $resultat = $db->query ($requete) ; |
| } |
| |
| /** |
| * |
| * |
| * @return |
| */ |
| |
| function adau_valeurs_par_defaut ($id_auth, &$db) { |
| // requete sur gen_site_auth |
| |
| $requete = "select * from gen_site_auth where gsa_id_auth=$id_auth" ; |
| $resultat = $db->query ($requete) ; |
| if (DB::isError ($resultat)) { |
| trigger_error("Echec de la requete : $requete<br />".$resultat->getMessage(), E_USER_WARNING) ; |
| return ; |
| } |
| $tableau_retour = array () ; |
| $ligne = $resultat->fetchRow (DB_FETCHMODE_OBJECT) ; |
| $tableau_retour['nom_auth'] = $ligne->gsa_nom ; |
| $tableau_retour['abreviation'] = $ligne->gsa_abreviation ; |
| $tableau_retour['id_auth_bdd'] = $ligne->gsa_ce_auth_bdd ; |
| $tableau_retour['id_auth'] = $ligne->gsa_id_auth ; |
| unset ($requete, $resultat) ; |
| |
| // requete sur gen_site_auth_bdd |
| $requete = "select * from gen_site_auth_bdd where gsab_id_auth_bdd=$ligne->gsa_ce_auth_bdd" ; |
| unset ($ligne) ; |
| $resultat = $db->query ($requete) ; |
| if (DB::isError ($resultat)) { |
| trigger_error("Echec de la requete : $requete<br />".$resultat->getMessage(),E_USER_WARNING) ; |
| return ; |
| } |
| |
| $ligne = $resultat->fetchRow (DB_FETCHMODE_OBJECT) ; |
| $tableau_retour['dsn'] = $ligne->gsab_dsn ; |
| $tableau_retour['nom_table'] = $ligne->gsab_nom_table ; |
| $tableau_retour['champs_login'] = $ligne->gsab_nom_champ_login ; |
| $tableau_retour['champs_passe'] = $ligne->gsab_nom_champ_mdp ; |
| $tableau_retour['cryptage'] = $ligne->gsab_cryptage_mdp ; |
| $tableau_retour['parametres'] = $ligne->gsab_parametres ; |
| |
| return $tableau_retour ; |
| } |
| |
| /** |
| * |
| * |
| * @return |
| */ |
| |
| function insertion ($valeur, &$db) { |
| $id_auth_bdd = SQL_obtenirNouveauId ($db, 'gen_site_auth_bdd', 'gsab_id_auth_bdd') ; |
| $requete = "insert into gen_site_auth set gsa_id_auth=" |
| .SQL_obtenirNouveauId($db, 'gen_site_auth', 'gsa_id_auth')."," |
| .requete_site_auth($valeur) |
| .', gsa_ce_auth_bdd='.$id_auth_bdd ; |
| $resultat = $db->query ($requete) ; |
| if (DB::isError ($resultat)) { |
| trigger_error("Echec de la requete : $requete<br />".$resultat->getMessage(),E_USER_WARNING) ; |
| } |
| $requete = "insert into gen_site_auth_bdd set gsab_id_auth_bdd=$id_auth_bdd, " |
| .requete_site_auth_bdd($valeur) ; |
| $resultat = $db->query ($requete) ; |
| if (DB::isError ($resultat)) { |
| trigger_error("Echec de la requete : $requete<br />".$resultat->getMessage(),E_USER_WARNING) ; |
| } |
| } |
| |
| /** |
| * |
| * |
| * @return |
| */ |
| |
| function mise_a_jour ($valeur, &$db) { |
| $requete = "update gen_site_auth set ".requete_site_auth($valeur) |
| .' where gsa_id_auth='.$GLOBALS['id_auth'] ; |
| $resultat = $db->query ($requete) ; |
| if (DB::isError ($resultat)) { |
| trigger_error("Echec de la requete : $requete<br />".$resultat->getMessage(),E_USER_WARNING) ; |
| } |
| unset ($requete) ; |
| // on recherche l'identifiant de gen_site_auth_bdd à partir de gen_site_auth |
| $requete = "select gsa_ce_auth_bdd from gen_site_auth where gsa_id_auth=".$GLOBALS['id_auth'] ; |
| $resultat = $db->query ($requete) ; |
| $ligne = $resultat->fetchRow (DB_FETCHMODE_OBJECT) ; |
| $id_auth_bdd = $ligne->gsa_ce_auth_bdd ; |
| |
| $requete = "update gen_site_auth_bdd set " |
| .requete_site_auth_bdd($valeur) |
| .' where gsab_id_auth_bdd='.$id_auth_bdd ; |
| $resultat = $db->query ($requete) ; |
| if (DB::isError ($resultat)) { |
| trigger_error("Echec de la requete : $requete<br />".$resultat->getMessage(),E_USER_WARNING) ; |
| } |
| } |
| |
| /** |
| * |
| * |
| * @return string un morceau de code SQL |
| */ |
| |
| function requete_site_auth (&$valeur) { |
| return 'gsa_nom="'.$valeur['nom_auth'].'", ' |
| .'gsa_ce_type_auth=1, ' |
| .'gsa_abreviation="'.$valeur['abreviation'].'"' ; |
| } |
| |
| /** |
| * |
| * |
| * @return |
| */ |
| |
| function requete_site_auth_bdd (&$valeur) { |
| return 'gsab_dsn="'.$valeur['dsn'].'", ' |
| .'gsab_nom_table="'.$valeur['nom_table'].'", ' |
| .'gsab_nom_champ_login="'.$valeur['champs_login'].'", ' |
| .'gsab_nom_champ_mdp="'.$valeur['champs_passe'].'", ' |
| .'gsab_parametres="'.$valeur['parametres'].'", ' |
| .'gsab_cryptage_mdp="'.$valeur['cryptage'].'"'; |
| } |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PIED du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| |
| |
| /* +--Fin du code ----------------------------------------------------------------------------------------+ |
| * |
| * $Log: not supported by cvs2svn $ |
| * Revision 1.2 2004/12/06 12:43:21 alex |
| * ajout du champs paramètre dans ls authentification |
| * |
| * Revision 1.1 2004/12/06 11:31:54 alex |
| * version initiale |
| * |
| * |
| * +-- Fin du code ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |