Subversion Repositories Applications.papyrus

Rev

Rev 1171 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
4 jpm 1 
<?php
2 
//vim: set expandtab tabstop=4 shiftwidth=4:
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
8 
// |                                                                                                      |
9 
// | This library is free software; you can redistribute it and/or                                        |
10 
// | modify it under the terms of the GNU Lesser General Public                                           |
11 
// | License as published by the Free Software Foundation; either                                         |
12 
// | version 2.1 of the License, or (at your option) any later version.                                   |
13 
// |                                                                                                      |
14 
// | This library is distributed in the hope that it will be useful,                                      |
15 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
16 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |
17 
// | Lesser General Public License for more details.                                                      |
18 
// |                                                                                                      |
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                                  |
21 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
22 
// |                                                                                                      |
23 
// +------------------------------------------------------------------------------------------------------+
1702 alexandre_ 24 
// CVS : $Id: pap_identification.fonct.php,v 1.6 2007-11-19 13:01:14 alexandre_tb Exp $
4 jpm 25 
/**
26 
* Bibliothèque de fonctions d'identification de Papyrus.
27 
*
28 
* Ce paquetage contient des fonctions d'identifiacation pour différents besoin
29 
* de Papyrus.
30 
*
31 
*@package Papyrus
32 
*@subpackage Fonctions
33 
//Auteur original :
34 
*@author            Alexandre GRANIER <alex@tela-botanica.org>
35 
//Autres auteurs :
36 
*@author            Jean-Pascal MILCENT <jpm@tela-botanica.org>
37 
*@copyright         Tela-Botanica 2000-2004
1702 alexandre_ 38 
*@version           $Revision: 1.6 $ $Date: 2007-11-19 13:01:14 $
4 jpm 39 
// +------------------------------------------------------------------------------------------------------+
40 
*/
41 
 
42 
// +-------------------------------------------------------------------------+
43 
// |                          Liste des fonctions                            |
44 
// +-------------------------------------------------------------------------+
45 
 
46 
/** Fonction GEN_afficherInfoIdentification() - Retourne un message demandant l'identification.
47 
*
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
50 
* balise <!-- IDENTIFICATION -->. Un note précise de contacter le webmaster si le formulaire
51 
* d'identification est indisponible.
52 
*
53 
* @return string note précisant la nécessité de s'identifier sur le site.
54 
*/
55 
function GEN_afficherInfoIdentification()
56 
{
57 
    $res  = "\n";
58 
    $res .= str_repeat(' ', 12).'<p>';
295 jpm 59 
    $res .= 'Veuillez vous identifier dans la zone d\'identification mise à votre disposition sur ce site.';
4 jpm 60 
    $res .= str_repeat(' ', 12).'</p>'."\n";
61 
    $res .= str_repeat(' ', 12).'<p>';
104 jpm 62 
    $res .= '<strong>Note : </strong>Veuillez contacter le webmaster si cette zone d\'identification est absente.';
4 jpm 63 
    $res .= str_repeat(' ', 12).'</p>'."\n";
64 
 
65 
    return $res;
66 
}
67 
 
68 
/** Fonction verification_mot_de_passe() - Met à jour les mots de passe vers le cryptage MD5.
69 
*
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
72 
* passé en cryptage MD5.
73 
*
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.
76 
* @param string le login de l'utilisateur.
77 
* @return void  une requête modifie la base de données.
78 
*/
79 
function verification_mot_de_passe($objet_pear_db, $password, $username)
80 
{
81 
    // Requête pour la taille du champs mot de passe pour l'individu
82 
    $requete =  'SELECT U_PASSWD, LENGTH(U_PASSWD) AS longueur '.
83 
                'FROM annuaire_tela '.
53 jpm 84 
                'WHERE U_MAIL = "'.$username.'"';
85 
    $resultat = $objet_pear_db->query($requete);
86 
    (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
4 jpm 87 
 
53 jpm 88 
    $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
1702 alexandre_ 89 
    if (!is_object ($ligne)) return;
53 jpm 90 
    $longueur = $ligne->longueur;
91 
    $mot_de_passe_crypte = $ligne->U_PASSWD;
92 
    unset($ligne);
93 
    $resultat->free();
94 
 
4 jpm 95 
    if ($longueur == 16) {
96 
        // Le couple login / mot de passe est-il bon ?
1171 jp_milcent 97 
        $requete = 'SELECT OLD_PASSWORD("'.$password.'")';
53 jpm 98 
        $resultat = $objet_pear_db->query($requete);
99 
        (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
4 jpm 100 
 
53 jpm 101 
        $ligne = $resultat->fetchRow(DB_FETCHMODE_ORDERED);
102 
        $resultat->free();
4 jpm 103 
 
104 
        // Est-ce que le mot de passe est bon ?
105 
        if ($ligne[0] == $mot_de_passe_crypte) {
106 
            // On met à jour le champs de U_PASSWD pour le mettre en md5
107 
            $requete =  'UPDATE annuaire_tela '.
108 
                        'SET U_PASSWD = "'.md5($password).'" '.
53 jpm 109 
                        'WHERE U_MAIL = "'.$username.'"';
110 
            $resultat = $objet_pear_db->query($requete);
111 
            (DB::isError($resultat)) ? die (BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
4 jpm 112 
        }
113 
    }
114 
}
115 
 
116 
/* +--Fin du code ---------------------------------------------------------------------------------------+
117 
* $Log: not supported by cvs2svn $
1702 alexandre_ 118 
* Revision 1.5.4.1  2007-11-19 12:59:29  alexandre_tb
119 
* suppression d un warning dans la fonction verification_mot_de_passe
120 
*
121 
* Revision 1.5  2006/12/14 10:31:04  jp_milcent
122 
* Modification de PASSWORD en OLD_PASSWORD pour Mysql5
123 
*
1171 jp_milcent 124 
* Revision 1.4  2005/03/03 14:36:09  jpm
125 
* Correction orthographe.
126 
*
295 jpm 127 
* Revision 1.3  2004/10/25 14:49:59  jpm
128 
* Correction orthographe.
129 
*
104 jpm 130 
* Revision 1.2  2004/09/23 14:32:03  jpm
131 
* Correction bogue sur l'annuaire_tela.
132 
*
53 jpm 133 
* Revision 1.1  2004/06/15 15:10:15  jpm
134 
* Changement de nom et d'arborescence de Genesia en Papyrus.
135 
*
4 jpm 136 
* Revision 1.8  2004/05/01 11:42:40  jpm
137 
* Suppression de la fonction GEN_afficherFormIdentification() transformée en applette.
138 
*
139 
* Revision 1.7  2004/04/09 16:23:41  jpm
140 
* Prise en compte des tables i18n.
141 
*
142 
* Revision 1.6  2004/04/02 16:33:04  jpm
143 
* Ajout de commentaires aux fonctions.
144 
* Modification des formulaires d'identification.
145 
*
146 
* Revision 1.5  2004/04/01 11:24:51  jpm
147 
* Ajout et modification de commentaires pour PhpDocumentor.
148 
*
149 
* Revision 1.4  2004/03/26 12:51:24  jpm
150 
* Modification mineure sur l'indentation.
151 
*
152 
* Revision 1.3  2004/03/24 17:31:54  jpm
153 
* Ajout de l'indentation du xhtml de la fonction loginFunction().
154 
* Mise en forme.
155 
*
156 
* Revision 1.2  2004/03/22 18:36:49  jpm
157 
* 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.
158 
*
159 
* Revision 1.1  2004/03/22 11:34:19  jpm
160 
* Bibliothèque de fonctions gérant l'identification dans Génésia.
161 
*
162 
*
163 
* +--Fin du code ----------------------------------------------------------------------------------------+
164 
*/
165 
?>