Up ! Security Manager

Ceci est le fichier source du programme exécutable Up ! Security Manager.

Source Composant "Up ! Security Manager" Version 4.0.0;

ImporterModule
/*************/


Parametre <upssec> Section "UpsSec"
/*********************************/
Prive :
/*****/
Prive :
/*****/
Fonction ChercherRole() Retourner Nul Ou Role
/*******************************************/
Variable
/******/
Debut
Si NomDuRole==Nul Alors Fin Si
R=Role.EnumererObjets(Nul);
TantQue R!=Nul Faire Fin TantQue
Fin Fonction

Fonction ChercherUtilisateur() Retourner Nul Ou Utilisateur
/*********************************************************/
Variable
/******/
Debut
Si NomDeLUtilisateur==Nul Alors Fin Si
U=Utilisateur.EnumererObjets(Nul);
TantQue U!=Nul Faire Fin TantQue
Fin Fonction

Fonction ExecuterCreerRole() Retourner Entier
/*******************************************/
Variable
Debut
Si NomDuRole==Nul Alors Fin Si

Si Detail Alors Fin Si
R=Role(NomDuRole, Description);
Ecran.Ecrire(Message(UpsSec,"CreationRoleTerminee",NomDuRole));

Retourner 0;
Fin Fonction

Fonction ExecuterCreerUtilisateur() Retourner Entier
/**************************************************/
Variable
Debut
Si NomDeLUtilisateur==Nul Alors Fin Si

Si Detail Alors Fin Si
U=Utilisateur(NomDeLUtilisateur, Description, MotDePasse);
Ecran.Ecrire(Message(UpsSec,"CreationUtilisateurTerminee",NomDeLUtilisateur));

Retourner 0;
Fin Fonction

Procedure EnvoyerMessage(MessageEnvoye:Caractere, ?:Entier, ?:Entier, ?:Nul Ou Caractere)
/***************************************************************************************/
Debut
Ecran.Ecrire(MessageEnvoye);
Fin Procedure

Fonction ExecuterExporterSecurite() Retourner Entier
/**************************************************/
Debut
Si SourceSecurite==Nul Alors Fin Si

Si Detail Alors Sinon Fin Si
Fin Fonction

Fonction ExecuterImporterSecurite() Retourner Entier
/**************************************************/
Debut
Si SourceSecurite==Nul Alors Fin Si

Si Detail Alors Sinon Fin Si
Fin Fonction

Fonction ExecuterModifierMotDePasse() Retourner Entier
/****************************************************/
Variable
Debut
U=ChercherUtilisateur();
Si U==Nul Alors Fin Si

Si Detail Alors Fin Si U.ModifierMotDePasse(AncienMotDePasse,NouveauMotDePasse);
Ecran.Ecrire(Message(UpsSec,"ModificationMotDePasseTerminee",NomDeLUtilisateur));

Retourner 0;
Fin Fonction

Fonction ExecuterSupprimerRole() Retourner Entier
/***********************************************/
Variable
Debut
R=ChercherRole();
Si R==Nul Alors Fin Si

Si Detail Alors Fin Si
R.Supprimer();
Ecran.Ecrire(Message(UpsSec,"SuppressionRoleTerminee",NomDuRole));

Retourner 0;
Fin Fonction

Fonction ExecuterSupprimerUtilisateur() Retourner Entier
/******************************************************/
Variable
Debut
U=ChercherUtilisateur();
Si U==Nul Alors Fin Si

Si Detail Alors Fin Si
U.Supprimer();
Ecran.Ecrire(Message(UpsSec,"SuppressionUtilisateurTerminee",NomDeLUtilisateur));

Retourner 0;
Fin Fonction

Principal Habilitation
/********************/
Debut
Si Entete Alors Fin Si

Selon Action Faire Fin Selon
Fin Principal