WebSVN – Applications.papyrus – Diff – /trunk/papyrus/bibliotheque/fonctions/pap_identification.fonct.php


<?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.5 2006-12-14 10:31:04 jp_milcent 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.5 $ $Date: 2006-12-14 10:31:04 $
// +------------------------------------------------------------------------------------------------------+
*/
 
// +-------------------------------------------------------------------------+
// |                          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 mise à 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 absente.';
    $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 OLD_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.4  2005/03/03 14:36:09  jpm
* Correction orthographe.
*
* Revision 1.3  2004/10/25 14:49:59  jpm
* Correction orthographe.
*
* Revision 1.2  2004/09/23 14:32:03  jpm
* Correction bogue sur l'annuaire_tela.
*
* 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.
*
* 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 ----------------------------------------------------------------------------------------+
*/
?>

Subversion Repositories Applications.papyrus

(root)/trunk/papyrus/bibliotheque/fonctions/pap_identification.fonct.php – Rev 295 → 1171

Rev 295		Rev 1171
1	`<?php`	1	`<?php`
2	`//vim: set expandtab tabstop=4 shiftwidth=4:`	2	`//vim: set expandtab tabstop=4 shiftwidth=4:`
3	`// +------------------------------------------------------------------------------------------------------+`	3	`// +------------------------------------------------------------------------------------------------------+`
4	`// \| PHP version 4.1 \|`	4	`// \| PHP version 4.1 \|`
5	`// +------------------------------------------------------------------------------------------------------+`	5	`// +------------------------------------------------------------------------------------------------------+`
6	`// \| Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) \|`	6	`// \| Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) \|`
7	`// +------------------------------------------------------------------------------------------------------+`	7	`// +------------------------------------------------------------------------------------------------------+`
8	`// \| \|`	8	`// \| \|`
9	`// \| This library is free software; you can redistribute it and/or \|`	9	`// \| This library is free software; you can redistribute it and/or \|`
10	`// \| modify it under the terms of the GNU Lesser General Public \|`	10	`// \| modify it under the terms of the GNU Lesser General Public \|`
11	`// \| License as published by the Free Software Foundation; either \|`	11	`// \| License as published by the Free Software Foundation; either \|`
12	`// \| version 2.1 of the License, or (at your option) any later version. \|`	12	`// \| version 2.1 of the License, or (at your option) any later version. \|`
13	`// \| \|`	13	`// \| \|`
14	`// \| This library is distributed in the hope that it will be useful, \|`	14	`// \| This library is distributed in the hope that it will be useful, \|`
15	`// \| but WITHOUT ANY WARRANTY; without even the implied warranty of \|`	15	`// \| but WITHOUT ANY WARRANTY; without even the implied warranty of \|`
16	`// \| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU \|`	16	`// \| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU \|`
17	`// \| Lesser General Public License for more details. \|`	17	`// \| Lesser General Public License for more details. \|`
18	`// \| \|`	18	`// \| \|`
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.4 2005-03-03 14:36:09 jpm Exp $`	24	`// CVS : $Id: pap_identification.fonct.php,v 1.5 2006-12-14 10:31:04 jp_milcent 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.`
30	`*`	30	`*`
31	`*@package Papyrus`	31	`*@package Papyrus`
32	`*@subpackage Fonctions`	32	`*@subpackage Fonctions`
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.4 $ $Date: 2005-03-03 14:36:09 $`	38	`*@version $Revision: 1.5 $ $Date: 2006-12-14 10:31:04 $`
39	`// +------------------------------------------------------------------------------------------------------+`	39	`// +------------------------------------------------------------------------------------------------------+`
40	`*/`	40	`*/`
41		41
42	`// +-------------------------------------------------------------------------+`	42	`// +-------------------------------------------------------------------------+`
43	`// \| Liste des fonctions \|`	43	`// \| Liste des fonctions \|`
44	`// +-------------------------------------------------------------------------+`	44	`// +-------------------------------------------------------------------------+`
45		45
46	`/** Fonction GEN_afficherInfoIdentification() - Retourne un message demandant l'identification.`	46	`/** Fonction GEN_afficherInfoIdentification() - Retourne un message demandant l'identification.`
47	`*`	47	`*`
48	`* Cette fonction informe l'utilisateur qu'il doit utiliser le formulaire d'identification`	48	`* Cette fonction informe l'utilisateur qu'il doit utiliser le formulaire d'identification`
49	`* mis à sa dispositon. Ce formulaire peut être placé n'importe où dans le squelette via la`	49	`* mis à sa dispositon. Ce formulaire peut être placé n'importe où dans le squelette via la`
50	`* balise <!-- IDENTIFICATION -->. Un note précise de contacter le webmaster si le formulaire`	50	`* balise <!-- IDENTIFICATION -->. Un note précise de contacter le webmaster si le formulaire`
51	`* d'identification est indisponible.`	51	`* d'identification est indisponible.`
52	`*`	52	`*`
53	`* @return string note précisant la nécessité de s'identifier sur le site.`	53	`* @return string note précisant la nécessité de s'identifier sur le site.`
54	`*/`	54	`*/`
55	`function GEN_afficherInfoIdentification()`	55	`function GEN_afficherInfoIdentification()`
56	`{`	56	`{`
57	`$res = "\n";`	57	`$res = "\n";`
58	`$res .= str_repeat(' ', 12).'<p>';`	58	`$res .= str_repeat(' ', 12).'<p>';`
59	`$res .= 'Veuillez vous identifier dans la zone d\'identification mise à votre disposition sur ce site.';`	59	`$res .= 'Veuillez vous identifier dans la zone d\'identification mise à votre disposition sur ce site.';`
60	`$res .= str_repeat(' ', 12).'</p>'."\n";`	60	`$res .= str_repeat(' ', 12).'</p>'."\n";`
61	`$res .= str_repeat(' ', 12).'<p>';`	61	`$res .= str_repeat(' ', 12).'<p>';`
62	`$res .= '<strong>Note : </strong>Veuillez contacter le webmaster si cette zone d\'identification est absente.';`	62	`$res .= '<strong>Note : </strong>Veuillez contacter le webmaster si cette zone d\'identification est absente.';`
63	`$res .= str_repeat(' ', 12).'</p>'."\n";`	63	`$res .= str_repeat(' ', 12).'</p>'."\n";`
64		64
65	`return $res;`	65	`return $res;`
66	`}`	66	`}`
67		67
68	`/** Fonction verification_mot_de_passe() - Met à jour les mots de passe vers le cryptage MD5.`	68	`/** Fonction verification_mot_de_passe() - Met à jour les mots de passe vers le cryptage MD5.`
69	`*`	69	`*`
70	`* Cette fonction permet de mettre à jour en douceur l'annuaire des inscrits à Tela Botanica.`	70	`* Cette fonction permet de mettre à jour en douceur l'annuaire des inscrits à Tela Botanica.`
71	`* Les mots de passe anciennement crypté avec la fonction password de Mysql sont progressivement`	71	`* Les mots de passe anciennement crypté avec la fonction password de Mysql sont progressivement`
72	`* passé en cryptage MD5.`	72	`* passé en cryptage MD5.`
73	`*`	73	`*`
74	`* @param mixed l'objet de Pear DB permettant la connexion à la base de données.`	74	`* @param mixed l'objet de Pear DB permettant la connexion à la base de données.`
75	`* @param string le mot de passe non crypté de l'utilisateur.`	75	`* @param string le mot de passe non crypté de l'utilisateur.`
76	`* @param string le login de l'utilisateur.`	76	`* @param string le login de l'utilisateur.`
77	`* @return void une requête modifie la base de données.`	77	`* @return void une requête modifie la base de données.`
78	`*/`	78	`*/`
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		87
88	`$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);`	88	`$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);`
89	`$longueur = $ligne->longueur;`	89	`$longueur = $ligne->longueur;`
90	`$mot_de_passe_crypte = $ligne->U_PASSWD;`	90	`$mot_de_passe_crypte = $ligne->U_PASSWD;`
91	`unset($ligne);`	91	`unset($ligne);`
92	`$resultat->free();`	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 OLD_PASSWORD("'.$password.'")';`
97	`$resultat = $objet_pear_db->query($requete);`	97	`$resultat = $objet_pear_db->query($requete);`
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
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)) : '';`
111	`}`	111	`}`
112	`}`	112	`}`
113	`}`	113	`}`
114		114
115	`/* +--Fin du code ---------------------------------------------------------------------------------------+`	115	`/* +--Fin du code ---------------------------------------------------------------------------------------+`
116	`* $Log: not supported by cvs2svn $`	116	`* $Log: not supported by cvs2svn $`
-		117	`* Revision 1.4 2005/03/03 14:36:09 jpm`
-		118	`* Correction orthographe.`
-		119	`*`
117	`* Revision 1.3 2004/10/25 14:49:59 jpm`	120	`* Revision 1.3 2004/10/25 14:49:59 jpm`
118	`* Correction orthographe.`	121	`* Correction orthographe.`
119	`*`	122	`*`
120	`* Revision 1.2 2004/09/23 14:32:03 jpm`	123	`* Revision 1.2 2004/09/23 14:32:03 jpm`
121	`* Correction bogue sur l'annuaire_tela.`	124	`* Correction bogue sur l'annuaire_tela.`
122	`*`	125	`*`
123	`* Revision 1.1 2004/06/15 15:10:15 jpm`	126	`* Revision 1.1 2004/06/15 15:10:15 jpm`
124	`* Changement de nom et d'arborescence de Genesia en Papyrus.`	127	`* Changement de nom et d'arborescence de Genesia en Papyrus.`
125	`*`	128	`*`
126	`* Revision 1.8 2004/05/01 11:42:40 jpm`	129	`* Revision 1.8 2004/05/01 11:42:40 jpm`
127	`* Suppression de la fonction GEN_afficherFormIdentification() transformée en applette.`	130	`* Suppression de la fonction GEN_afficherFormIdentification() transformée en applette.`
128	`*`	131	`*`
129	`* Revision 1.7 2004/04/09 16:23:41 jpm`	132	`* Revision 1.7 2004/04/09 16:23:41 jpm`
130	`* Prise en compte des tables i18n.`	133	`* Prise en compte des tables i18n.`
131	`*`	134	`*`
132	`* Revision 1.6 2004/04/02 16:33:04 jpm`	135	`* Revision 1.6 2004/04/02 16:33:04 jpm`
133	`* Ajout de commentaires aux fonctions.`	136	`* Ajout de commentaires aux fonctions.`
134	`* Modification des formulaires d'identification.`	137	`* Modification des formulaires d'identification.`
135	`*`	138	`*`
136	`* Revision 1.5 2004/04/01 11:24:51 jpm`	139	`* Revision 1.5 2004/04/01 11:24:51 jpm`
137	`* Ajout et modification de commentaires pour PhpDocumentor.`	140	`* Ajout et modification de commentaires pour PhpDocumentor.`
138	`*`	141	`*`
139	`* Revision 1.4 2004/03/26 12:51:24 jpm`	142	`* Revision 1.4 2004/03/26 12:51:24 jpm`
140	`* Modification mineure sur l'indentation.`	143	`* Modification mineure sur l'indentation.`
141	`*`	144	`*`
142	`* Revision 1.3 2004/03/24 17:31:54 jpm`	145	`* Revision 1.3 2004/03/24 17:31:54 jpm`
143	`* Ajout de l'indentation du xhtml de la fonction loginFunction().`	146	`* Ajout de l'indentation du xhtml de la fonction loginFunction().`
144	`* Mise en forme.`	147	`* Mise en forme.`
145	`*`	148	`*`
146	`* Revision 1.2 2004/03/22 18:36:49 jpm`	149	`* Revision 1.2 2004/03/22 18:36:49 jpm`
147	`* 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.`	150	`* 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.`
148	`*`	151	`*`
149	`* Revision 1.1 2004/03/22 11:34:19 jpm`	152	`* Revision 1.1 2004/03/22 11:34:19 jpm`
150	`* Bibliothèque de fonctions gérant l'identification dans Génésia.`	153	`* Bibliothèque de fonctions gérant l'identification dans Génésia.`
151	`*`	154	`*`
152	`*`	155	`*`
153	`* +--Fin du code ----------------------------------------------------------------------------------------+`	156	`* +--Fin du code ----------------------------------------------------------------------------------------+`
154	`*/`	157	`*/`
155	`?>`	158	`?>`