1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67
| FONCTION connection(p_login en chaine, p_password en chaine) en entier
VARIABLE listeParents en TableauObjet<Parent>
VARIABLE listeProfesseurs en TableauObjet<Professeur>
VARIABLE parentCourant en Parent
VARIABLE professeurCourant en Professeur
VARIABLES tailleParent, tailleProfesseur en entier
VARIABLE boolOk, trouve, loginExiste en booléen
VARIABLE maDate en date
DEBUT
trouve <- Faux
listeParents <- base.getListeParents()
listeProfesseurs <- base.getListeProfesseurs()
tailleParent <- listeParents.taille()
tailleProfesseur <- listeProfesseurs.taille()
i <- 0
boolOk <- Vrai
loginExiste <- Faux
TANT QUE boolOk et i < tailleParent
parentCourant -> listeParents.getObjet(i)
SI parentCourant.login == p_login et parentCourant.password == p_password ALORS
boolOk <- Faux
trouve -> Vrai
SI parentCourant.password == "init" ALORS
RETOURNE 4
SINON
utilisateurConnecte <- parentCourant
maDate <- DateUtils.creerDateJour()
dateDernConnexion <- DateUtils.format(maDate)
RETOURNE 1
FIN SI
SINON
SI parentCourant.login == p_login ALORS
loginExiste <- Vrai
FIN SI
i <- i + 1
FIN SI
FIN TANT QUE
SI non trouve ALORS
i <- 0
TANT QUE boolOk et i < tailleProfesseur
professeurCourant -> listeProfesseurs.getObjet(i)
SI professeurCourant.login == p_login et professeurCourant.password == p_password ALORS
boolOk <- Faux
trouve -> Vrai
SI professeurCourant.password == "init" ALORS
RETOURNE 4
SINON
utilisateurConnecte <- professeurCourant
maDate <- DateUtils.creerDateJour()
dateDernConnexion <- DateUtils.format(maDate)
RETOURNE 1
FIN SI
SINON
SI parentCourant.login == p_login ALORS
loginExiste <- Vrai
FIN SI
i <- i + 1
FIN SI
FIN TANT QUE
FIN SI
SI loginExiste ALORS
RETOURNE 3
SINON
RETOURNE 2
FIN SI
FIN |
Partager