| 21,7 → 21,7 |
|---|
| // | 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 $ |
| // CVS : $Id: pap_identification.fonct.php,v 1.2 2004-09-23 14:32:03 jpm Exp $ |
| /** |
| * Bibliothèque de fonctions d'identification de Papyrus. |
| * |
| 35,7 → 35,7 |
|---|
| //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 $ |
| *@version $Revision: 1.2 $ $Date: 2004-09-23 14:32:03 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| |
| 81,24 → 81,24 |
|---|
| // 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)) : '' ; |
| '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() ; |
| |
| $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)) : '' ; |
| $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() ; |
| $ligne = $resultat->fetchRow(DB_FETCHMODE_ORDERED); |
| $resultat->free(); |
| |
| // Est-ce que le mot de passe est bon ? |
| if ($ligne[0] == $mot_de_passe_crypte) { |
| 105,9 → 105,9 |
|---|
| // 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)) : '' ; |
| 'WHERE U_MAIL = "'.$username.'"'; |
| $resultat = $objet_pear_db->query($requete); |
| (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : ''; |
| } |
| } |
| } |
| 114,6 → 114,9 |
|---|
| |
| /* +--Fin du code ---------------------------------------------------------------------------------------+ |
| * $Log: not supported by cvs2svn $ |
| * Revision 1.1 2004/06/15 15:10:15 jpm |
| * Changement de nom et d'arborescence de Genesia en Papyrus. |
| * |
| * Revision 1.8 2004/05/01 11:42:40 jpm |
| * Suppression de la fonction GEN_afficherFormIdentification() transformée en applette. |
| * |