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. |
* |