Subversion Repositories Applications.papyrus

Rev

Rev 4 | Rev 295 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4 Rev 53
Line 19... Line 19...
19 
// | You should have received a copy of the GNU Lesser General Public                                     |
 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                                  |
 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                            |
 21 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
22 
// |                                                                                                      |
 22 
// |                                                                                                      |
23 
// +------------------------------------------------------------------------------------------------------+
 23 
// +------------------------------------------------------------------------------------------------------+
24 
// CVS : $Id: pap_identification.fonct.php,v 1.1 2004-06-15 15:10:15 jpm Exp $
 24 
// CVS : $Id: pap_identification.fonct.php,v 1.2 2004-09-23 14:32:03 jpm Exp $
25 
/**
 25 
/**
26 
* Bibliothèque de fonctions d'identification de Papyrus.
 26 
* Bibliothèque de fonctions d'identification de Papyrus.
27 
*
 27 
*
28 
* Ce paquetage contient des fonctions d'identifiacation pour différents besoin
 28 
* Ce paquetage contient des fonctions d'identifiacation pour différents besoin
29 
* de Papyrus.
 29 
* de Papyrus.
Line 33... Line 33...
33 
//Auteur original :
 33 
//Auteur original :
34 
*@author            Alexandre GRANIER <alex@tela-botanica.org>
 34 
*@author            Alexandre GRANIER <alex@tela-botanica.org>
35 
//Autres auteurs :
 35 
//Autres auteurs :
36 
*@author            Jean-Pascal MILCENT <jpm@tela-botanica.org>
 36 
*@author            Jean-Pascal MILCENT <jpm@tela-botanica.org>
37 
*@copyright         Tela-Botanica 2000-2004
 37 
*@copyright         Tela-Botanica 2000-2004
38 
*@version           $Revision: 1.1 $ $Date: 2004-06-15 15:10:15 $
 38 
*@version           $Revision: 1.2 $ $Date: 2004-09-23 14:32:03 $
39 
// +------------------------------------------------------------------------------------------------------+
 39 
// +------------------------------------------------------------------------------------------------------+
40 
*/
 40 
*/
Line 41... Line 41...
41 
 
 41 
 
42 
// +-------------------------------------------------------------------------+
 42 
// +-------------------------------------------------------------------------+
Line 79... Line 79...
79 
function verification_mot_de_passe($objet_pear_db, $password, $username)
 79 
function verification_mot_de_passe($objet_pear_db, $password, $username)
80 
{
 80 
{
81 
    // Requête pour la taille du champs mot de passe pour l'individu
 81 
    // Requête pour la taille du champs mot de passe pour l'individu
82 
    $requete =  'SELECT U_PASSWD, LENGTH(U_PASSWD) AS longueur '.
 82 
    $requete =  'SELECT U_PASSWD, LENGTH(U_PASSWD) AS longueur '.
83 
                'FROM annuaire_tela '.
 83 
                'FROM annuaire_tela '.
84 
                'WHERE U_MAIL = "'.$username.'"' ;
 84 
                'WHERE U_MAIL = "'.$username.'"';
85 
    $resultat = $objet_pear_db->query($requete) ;
 85 
    $resultat = $objet_pear_db->query($requete);
86 
    (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
 86 
    (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
- 
 
 87
- 
 
 88 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
- 
 
 89 
    $longueur = $ligne->longueur;
- 
 
 90 
    $mot_de_passe_crypte = $ligne->U_PASSWD;
- 
 
 91 
    unset($ligne);
- 
 
 92 
    $resultat->free();
Line 87... Line -...
87
- 
 
88 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
 - 
 
89 
    $longueur = $ligne ->longueur ;
 - 
 
90 
    $mot_de_passe_crypte = $ligne->U_PASSWD ;
 - 
 
91 
    unset ($ligne) ;
 - 
 
92 
    $resultat->free() ;
 - 
 
93 
 
 93
94 
    if ($longueur == 16) {
 94 
    if ($longueur == 16) {
95 
        // Le couple login / mot de passe est-il bon ?
 95 
        // Le couple login / mot de passe est-il bon ?
96 
        $requete = 'SELECT PASSWORD("'.$password.'")' ;
 96 
        $requete = 'SELECT PASSWORD("'.$password.'")';
97 
        $resultat = $objet_pear_db->query($requete) ;
 97 
        $resultat = $objet_pear_db->query($requete);
Line 98... Line 98...
98 
        (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
 98 
        (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
99
99
Line 100... Line 100...
100 
        $ligne = $resultat->fetchRow(DB_FETCHMODE_ORDERED) ;
 100 
        $ligne = $resultat->fetchRow(DB_FETCHMODE_ORDERED);
101 
        $resultat->free() ;
 101 
        $resultat->free();
102
102
103 
        // Est-ce que le mot de passe est bon ?
 103 
        // Est-ce que le mot de passe est bon ?
104 
        if ($ligne[0] == $mot_de_passe_crypte) {
 104 
        if ($ligne[0] == $mot_de_passe_crypte) {
105 
            // On met à jour le champs de U_PASSWD pour le mettre en md5
 105 
            // On met à jour le champs de U_PASSWD pour le mettre en md5
106 
            $requete =  'UPDATE annuaire_tela '.
 106 
            $requete =  'UPDATE annuaire_tela '.
107 
                        'SET U_PASSWD = "'.md5($password).'" '.
 107 
                        'SET U_PASSWD = "'.md5($password).'" '.
108 
                        'WHERE U_MAIL = "'.$username.'"' ;
 108 
                        'WHERE U_MAIL = "'.$username.'"';
109 
            $resultat = $objet_pear_db->query($requete) ;
 109 
            $resultat = $objet_pear_db->query($requete);
110 
            (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
 110 
            (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
Line 111... Line 111...
111 
        }
 111 
        }
112 
    }
 112 
    }
- 
 
 113 
}
- 
 
 114 
 
- 
 
 115 
/* +--Fin du code ---------------------------------------------------------------------------------------+
113 
}
 116 
* $Log: not supported by cvs2svn $
114 
 
 117 
* Revision 1.1  2004/06/15 15:10:15  jpm
115 
/* +--Fin du code ---------------------------------------------------------------------------------------+
 118 
* Changement de nom et d'arborescence de Genesia en Papyrus.
116 
* $Log: not supported by cvs2svn $
 119 
*
117 
* Revision 1.8  2004/05/01 11:42:40  jpm
 120 
* Revision 1.8  2004/05/01 11:42:40  jpm