Syntaxe des instructions d'Up ! 5GL pour Up ! Mail Service

Ce document présente la syntaxe d'un annuaire électronique au format Up ! 5GL, ce qui permet de consulter et modifier son contenu. Le fichier obtenu est alors une ressource exploitable à l'exécution.

La spécification du format binaire d'un annuaire électronique n'est pas disponible puisqu'elle est illisible par un module autre qu'Up ! Mail Service.

Syntaxe des instructions d'Up ! 5GL pour Up ! Mail Service

Syntaxe de la définition d'un annuaire électronique

Source :

SignatureDeLAnnuaireElectronique

ModulesImportes

MixerDefinitionsProgramme

AnnuaireElectronique

MixerRappels

SignatureDeLAnnuaireElectronique :

Source AnnuaireElectronique

LibelleDeLAnnuaireElectronique

Version

NumeroDeVersion

.

NumeroDeRevision

.

NumeroDeCorrection

;

DeclarationsAnnuairesElectroniques :

AnnuairesElectroniques

AnnuairesElectroniques :

AnnuairesElectroniques

AnnuaireElectronique

Version

NumeroDeVersion

.

NumeroDeRevision

Faire

AnnuairesElectroniques

AnnuaireElectronique

Fin Version

AnnuaireElectronique :

TypeDAcces

AnnuaireElectronique

NomDeLAnnuaireElectronique

Debut

InstructionsAnnuaireElectronique

Fin AnnuaireElectronique

InstructionsAnnuaireElectronique :

AjouterAdresseElectronique

(

NomUtilisateur

,

AdresseElectronique

) ;

ModifierAdresseElectronique

(

NomUtilisateur

,

AncienneAdresseElectronique

,

NouvelleAdresseElectronique

) ;

SupprimerAdresseElectronique

(

NomUtilisateur

,

AdresseElectronique

) ;

Abonnement :

AjouterAbonnementElectronique

(

NomAbonnement

,

Description

,

AdresseElectronique

) ;

SupprimerAbonnementElectronique

(

NomAbonnement

) ;

Abonne :

AjouterAbonne

(

NomAbonnement

,

AdresseElectronique

) ;

SupprimerAbonne

(

,

) ;

NomDeLUtilisateur

AdresseElectronique :

AdresseElectronique

MixerExpression

AncienneAdresseElectronique :

AncienneAdresseElectronique

MixerExpression

NouvelleAdresseElectronique :

NouvelleAdresseElectronique

NomDeLAbonnement

Description

Syntaxe de la définition d'une expression

NomDUnObjet :

NomDUnAnnuaireElectronique

Référence des mots-clés utilisables dans les instructions d'Up ! 5GL pour Up ! Mail Service

AjouterAbonne AjouterAbonnementElectronique AjouterAdresseElectronique AnnuaireElectronique
Debut
Fin
ImporterDefinitions ImporterModule
Lecture
Protege Prive Public
ModifierAdresseElectronique
Source SupprimerAbonne SupprimerAbonnementElectronique SupprimerAdresseElectronique
Version

Exemple de contenu d'annuaire électronique

Profil de sécurité


Source Securite "Exemple de l'emploi des annuaires electroniques" Version 4.0.0;



ImporterModule

/*************/

	UpsSec(<UpsSec.upi>, ImporterDefinitions);

	UpsMls(<UpsMls.upi>, ImporterDefinitions);



Securite

/******/

Debut

AjouterUtilisateur("scott", "Description de scott", Nul, Nul, Nul, Nul);

AjouterUtilisateur("allen", "Description de allen", Nul, Nul, Nul, Nul);

AjouterUtilisateur("smith", "Description de smith", Nul, Nul, Nul, Nul);

AjouterUtilisateur("clark", "Description de clark", Nul, Nul, Nul, Nul);

AjouterUtilisateur("king", "Description de king", Nul, Nul, Nul, Nul);

Fin Securite

Contenu de l'annuaire électronique

Ressource d'annuaire électronique autonome

Cet annuaire électronique est par exemple conservé dans le fichier ${UPS_HOME}/upsmls/resources/${UPS_LANGUAGE}/mon-annuaire-electronique.upl.

Source AnnuaireElectronique "Exemple de l'emploi des annuaires electroniques" Version 4.0.0; AnnuaireElectronique MonAnnuaire /******************************/ Debut AjouterAdresseElectronique("allen", "allen@mon-domaine.com"); AjouterAdresseElectronique("clark", "clark@mon-domaine.com"); AjouterAdresseElectronique("king", "king@mon-domaine.com"); AjouterAdresseElectronique("scott", "scott@mon-domaine.com"); AjouterAdresseElectronique("scott", "contact@mon-domaine.com"); AjouterAdresseElectronique("smith", "smith@mon-domaine.com"); AjouterAbonnementElectronique("info", "Informations générales", "info@mon-domaine.com"); AjouterAbonne("info", "allen@mon-domaine.com"); AjouterAbonne("info", "clark@mon-domaine.com"); AjouterAbonne("info", "king@mon-domaine.com"); AjouterAbonne("info", "scott@mon-domaine.com"); Fin AnnuaireElectronique

Ressource d'annuaire électronique incluse dans un programme en Up ! 5GL


Source Composant "Exemple de l'emploi des annuaires electroniques" Version 4.0.0;



ImporterModule

/************/

	UpsWww(<UpsWww.upi>, ImporterDefinitions);

	UpsMls(<UpsMls.upi>, ImporterDefinitions);



DefinitionsAnnuaireElectronique

/*****************************/

Source AnnuaireElectronique "Exemple de l'emploi des annuaires electroniques" Version 4.0.0;



AnnuaireElectronique MonAnnuaire

/******************************/

Debut

AjouterAdresseElectronique("allen", "allen@mon-domaine.com");

AjouterAdresseElectronique("clark", "clark@mon-domaine.com");

AjouterAdresseElectronique("king", "king@mon-domaine.com");

AjouterAdresseElectronique("scott", "scott@mon-domaine.com");

AjouterAdresseElectronique("scott", "contact@mon-domaine.com");

AjouterAdresseElectronique("smith", "smith@mon-domaine.com");



AjouterAbonnementElectronique("info", "Informations générales", "info@mon-domaine.com");

AjouterAbonne("info", "allen@mon-domaine.com");

AjouterAbonne("info", "clark@mon-domaine.com");

AjouterAbonne("info", "king@mon-domaine.com");

AjouterAbonne("info", "scott@mon-domaine.com");

Fin AnnuaireElectronique

Fin DefinitionsAnnuaireElectronique



Variable

/******/

	U : Nul Ou Utilisateur;

	B : Nul Ou BoiteAuxLettresElectronique;

   C : Nul Ou CourrierElectronique;

   E : Nul Ou EntiteContenuInternet;



Principal

/*******/

Debut

...

U=Utilisateur.RechercherObjets("NomUtilisateur==\"scott\"").PremierElement();

B=BoiteAuxLettresElectronique(U);

...

C=B.CreerCourrierElectronique("Objet du courrier");

C.AjouterDestinaire("allen");

C.AjouterDestinaire("clark", Vrai);

E=EntiteContenuInternet(ContenuTextPlain, IFlux(FluxCaractere("Ceci est le corps de mon courrier électronique.\nScott.\n", Faux)));

C.ModifierEntitePrimaire(E);

C.ChangerEtat(CourrierAEnvoyer);

...

B.EnvoyerCourriersElectroniques();

...

Fin Principal

Ressource d'annuaire électronique référencée par un programme en Up ! 5GL

Déclaration explicite de la ressource de l'annuaire électronique


Source Composant "Exemple de l'emploi des annuaires electroniques" Version 4.0.0;



ImporterModule

/************/

	UpsWww(<UpsWww.upi>, ImporterDefinitions);

	UpsMls(<UpsMls.upi>, ImporterDefinitions);



DefinitionsAnnuaireElectronique

/*****************************/

Source AnnuaireElectronique "Exemple de l'emploi des annuaires electroniques" Version 4.0.0;



ImporterModule

/************/

	MonAnn(<mon-annuaire-electronique.upl>, ImporterDefinitions);

Fin DefinitionsAnnuaireElectronique



Variable

/******/

	U : Nul Ou Utilisateur;

	B : Nul Ou BoiteAuxLettresElectronique;

   C : Nul Ou CourrierElectronique;

   E : Nul Ou EntiteContenuInternet;



Principal

/*******/

Debut

...

U=Utilisateur.RechercherObjets("NomUtilisateur==\"scott\"").PremierElement();

B=BoiteAuxLettresElectronique(U);

...

C=B.CreerCourrierElectronique("Objet du courrier");

C.AjouterDestinaire("allen");

C.AjouterDestinaire("clark", Vrai);

E=EntiteContenuInternet(ContenuTextPlain, IFlux(FluxCaractere("Ceci est le corps de mon courrier électronique.\nScott.\n", Faux)));

C.ModifierEntitePrimaire(E);

C.ChangerEtat(CourrierAEnvoyer);

...

B.EnvoyerCourriersElectroniques();

...

Fin Principal

Déclaration implicite de la ressource de l'annuaire électronique


Source Composant "Exemple de l'emploi des annuaires electroniques" Version 4.0.0;



ImporterModule

/************/

	UpsWww(<UpsWww.upi>, ImporterDefinitions);

	UpsMls(<UpsMls.upi>, ImporterDefinitions);

	MonAnn(<mon-annuaire-electronique.upl>, ImporterDefinitions);



Variable

/******/

	U : Nul Ou Utilisateur;

	B : Nul Ou BoiteAuxLettresElectronique;

   C : Nul Ou CourrierElectronique;

   E : Nul Ou EntiteContenuInternet;



Principal

/*******/

Debut

...

U=Utilisateur.RechercherObjets("NomUtilisateur==\"scott\"").PremierElement();

B=BoiteAuxLettresElectronique(U);

...

C=B.CreerCourrierElectronique("Objet du courrier");

C.AjouterDestinaire("allen");

C.AjouterDestinaire("clark", Vrai);

E=EntiteContenuInternet(ContenuTextPlain, IFlux(FluxCaractere("Ceci est le corps de mon courrier électronique.\nScott.\n", Faux)));

C.ModifierEntitePrimaire(E);

C.ChangerEtat(CourrierAEnvoyer);

...

B.EnvoyerCourriersElectroniques();

...

Fin Principal