Subversion Repositories Applications.papyrus

Rev

Details | 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.5.4.1 2007-11-19 12:59:29 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.5.4.1 $ $Date: 2007-11-19 12:59:29 $
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  2006/12/14 10:31:04  jp_milcent
119
* Modification de PASSWORD en OLD_PASSWORD pour Mysql5
120
*
1171 jp_milcent 121
* Revision 1.4  2005/03/03 14:36:09  jpm
122
* Correction orthographe.
123
*
295 jpm 124
* Revision 1.3  2004/10/25 14:49:59  jpm
125
* Correction orthographe.
126
*
104 jpm 127
* Revision 1.2  2004/09/23 14:32:03  jpm
128
* Correction bogue sur l'annuaire_tela.
129
*
53 jpm 130
* Revision 1.1  2004/06/15 15:10:15  jpm
131
* Changement de nom et d'arborescence de Genesia en Papyrus.
132
*
4 jpm 133
* Revision 1.8  2004/05/01 11:42:40  jpm
134
* Suppression de la fonction GEN_afficherFormIdentification() transformée en applette.
135
*
136
* Revision 1.7  2004/04/09 16:23:41  jpm
137
* Prise en compte des tables i18n.
138
*
139
* Revision 1.6  2004/04/02 16:33:04  jpm
140
* Ajout de commentaires aux fonctions.
141
* Modification des formulaires d'identification.
142
*
143
* Revision 1.5  2004/04/01 11:24:51  jpm
144
* Ajout et modification de commentaires pour PhpDocumentor.
145
*
146
* Revision 1.4  2004/03/26 12:51:24  jpm
147
* Modification mineure sur l'indentation.
148
*
149
* Revision 1.3  2004/03/24 17:31:54  jpm
150
* Ajout de l'indentation du xhtml de la fonction loginFunction().
151
* Mise en forme.
152
*
153
* Revision 1.2  2004/03/22 18:36:49  jpm
154
* 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.
155
*
156
* Revision 1.1  2004/03/22 11:34:19  jpm
157
* Bibliothèque de fonctions gérant l'identification dans Génésia.
158
*
159
*
160
* +--Fin du code ----------------------------------------------------------------------------------------+
161
*/
162
?>