| New file |
|---|
| 0,0 → 1,146 |
|---|
| <?php |
| //vim: set expandtab tabstop=4 shiftwidth=4: |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PHP version 4.1 | |
| // +------------------------------------------------------------------------------------------------------+ |
| // | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) | |
| // +------------------------------------------------------------------------------------------------------+ |
| // | | |
| // | This library is free software; you can redistribute it and/or | |
| // | modify it under the terms of the GNU Lesser General Public | |
| // | License as published by the Free Software Foundation; either | |
| // | version 2.1 of the License, or (at your option) any later version. | |
| // | | |
| // | This library 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 | |
| // | Lesser General Public License for more details. | |
| // | | |
| // | You should have received a copy of the GNU Lesser General Public | |
| // | License along with this library; if not, write to the Free Software | |
| // | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA | |
| // | | |
| // +------------------------------------------------------------------------------------------------------+ |
| // CVS : $Id: pap_identification.fonct.php,v 1.1 2004-06-15 15:10:15 jpm Exp $ |
| /** |
| * Bibliothèque de fonctions d'identification de Papyrus. |
| * |
| * Ce paquetage contient des fonctions d'identifiacation pour différents besoin |
| * de Papyrus. |
| * |
| *@package Papyrus |
| *@subpackage Fonctions |
| //Auteur original : |
| *@author Alexandre GRANIER <alex@tela-botanica.org> |
| //Autres auteurs : |
| *@author Jean-Pascal MILCENT <jpm@tela-botanica.org> |
| *@copyright Tela-Botanica 2000-2004 |
| *@version $Revision: 1.1 $ $Date: 2004-06-15 15:10:15 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| |
| // +-------------------------------------------------------------------------+ |
| // | Liste des fonctions | |
| // +-------------------------------------------------------------------------+ |
| |
| /** Fonction GEN_afficherInfoIdentification() - Retourne un message demandant l'identification. |
| * |
| * Cette fonction informe l'utilisateur qu'il doit utiliser le formulaire d'identification |
| * mis à sa dispositon. Ce formulaire peut être placé n'importe où dans le squelette via la |
| * balise <!-- IDENTIFICATION -->. Un note précise de contacter le webmaster si le formulaire |
| * d'identification est indisponible. |
| * |
| * @return string note précisant la nécessité de s'identifier sur le site. |
| */ |
| function GEN_afficherInfoIdentification() |
| { |
| $res = "\n"; |
| $res .= str_repeat(' ', 12).'<p>'; |
| $res .= 'Veuillez vous identifier dans la zone d\'identification mis à votre disposition sur ce site.'; |
| $res .= str_repeat(' ', 12).'</p>'."\n"; |
| $res .= str_repeat(' ', 12).'<p>'; |
| $res .= '<strong>Note : </strong>Veuillez contacter le webmaster si cette zone d\'identification est abscente.'; |
| $res .= str_repeat(' ', 12).'</p>'."\n"; |
| |
| return $res; |
| } |
| |
| /** Fonction verification_mot_de_passe() - Met à jour les mots de passe vers le cryptage MD5. |
| * |
| * Cette fonction permet de mettre à jour en douceur l'annuaire des inscrits à Tela Botanica. |
| * Les mots de passe anciennement crypté avec la fonction password de Mysql sont progressivement |
| * passé en cryptage MD5. |
| * |
| * @param mixed l'objet de Pear DB permettant la connexion à la base de données. |
| * @param string le mot de passe non crypté de l'utilisateur. |
| * @param string le login de l'utilisateur. |
| * @return void une requête modifie la base de données. |
| */ |
| function verification_mot_de_passe($objet_pear_db, $password, $username) |
| { |
| // Requête pour la taille du champs mot de passe pour l'individu |
| $requete = 'SELECT U_PASSWD, LENGTH(U_PASSWD) AS longueur '. |
| 'FROM annuaire_tela '. |
| 'WHERE U_MAIL = "'.$username.'"' ; |
| $resultat = $objet_pear_db->query($requete) ; |
| (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ; |
| |
| $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ; |
| $longueur = $ligne ->longueur ; |
| $mot_de_passe_crypte = $ligne->U_PASSWD ; |
| unset ($ligne) ; |
| $resultat->free() ; |
| |
| if ($longueur == 16) { |
| // Le couple login / mot de passe est-il bon ? |
| $requete = 'SELECT PASSWORD("'.$password.'")' ; |
| $resultat = $objet_pear_db->query($requete) ; |
| (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ; |
| |
| $ligne = $resultat->fetchRow(DB_FETCHMODE_ORDERED) ; |
| $resultat->free() ; |
| |
| // Est-ce que le mot de passe est bon ? |
| if ($ligne[0] == $mot_de_passe_crypte) { |
| // On met à jour le champs de U_PASSWD pour le mettre en md5 |
| $requete = 'UPDATE annuaire_tela '. |
| 'SET U_PASSWD = "'.md5($password).'" '. |
| 'WHERE U_MAIL = "'.$username.'"' ; |
| $resultat = $objet_pear_db->query($requete) ; |
| (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ; |
| } |
| } |
| } |
| |
| /* +--Fin du code ---------------------------------------------------------------------------------------+ |
| * $Log: not supported by cvs2svn $ |
| * Revision 1.8 2004/05/01 11:42:40 jpm |
| * Suppression de la fonction GEN_afficherFormIdentification() transformée en applette. |
| * |
| * Revision 1.7 2004/04/09 16:23:41 jpm |
| * Prise en compte des tables i18n. |
| * |
| * Revision 1.6 2004/04/02 16:33:04 jpm |
| * Ajout de commentaires aux fonctions. |
| * Modification des formulaires d'identification. |
| * |
| * Revision 1.5 2004/04/01 11:24:51 jpm |
| * Ajout et modification de commentaires pour PhpDocumentor. |
| * |
| * Revision 1.4 2004/03/26 12:51:24 jpm |
| * Modification mineure sur l'indentation. |
| * |
| * Revision 1.3 2004/03/24 17:31:54 jpm |
| * Ajout de l'indentation du xhtml de la fonction loginFunction(). |
| * Mise en forme. |
| * |
| * Revision 1.2 2004/03/22 18:36:49 jpm |
| * Ajout de la fonction de mise à jour des mots de passe de l'annuaire Tela Botanica. Cette fonction devrait à terme intégré l'application Annuaire Tela Botanica. |
| * |
| * Revision 1.1 2004/03/22 11:34:19 jpm |
| * Bibliothèque de fonctions gérant l'identification dans Génésia. |
| * |
| * |
| * +--Fin du code ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |