Up ! Server

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

Source Composant "Up ! Server" Version 4.0.0; ImporterModule /************/


	UpsOrb(<UpsOrb.upi>, ImporterDefinitions);




Principal

/*******/

Variable

/******/

   TableModules : Tableau[1] De Nul Ou Module;

   I : Entier;

   J : Entier;

   K : Entier;

   ModuleACharger : Nul Ou Caractere;

   NomDuModule : Nul Ou Caractere;

   VersionDuModule : Nul Ou Entier;

   RevisionDuModule : Nul Ou Entier;

   CorrectionDuModule : Nul Ou Entier;

   NomDuParametre : Caractere;



Debut
Journal.Ecrire(Message(Global,"DemarrageUpsSrv",Caractere(DateSysteme())));

I=1;

TantQue Vrai Faire

   NomDuParametre=Traduire(Global, SectionDivers, "Module")+Caractere(I,"&&&#");

   Si Non(LireParametre(Global, NomDuParametre, "UpsSrv", ModuleACharger)) Alors
   
      Arreter;
   
   Fin Si

   J=ModuleACharger.Rechercher(" ");

   NomDuModule=ModuleACharger.Gauche(J);

   K=J+1;

   J=ModuleACharger.Rechercher(".",K);

   VersionDuModule=Entier(ModuleACharger.Milieu(K, J-K));

   K=J+1;

   J=ModuleACharger.Rechercher(".",K);

   RevisionDuModule=Entier(ModuleACharger.Milieu(K, J-K));

   K=J+1;

   CorrectionDuModule=Entier(ModuleACharger.Droite(ModuleACharger.Longueur()-K));

   TableModules=TableModules.Retailler(I, Nul);

   TableModules[I-1]=Module(NomDuModule, VersionDuModule, RevisionDuModule, CorrectionDuModule);

   Journal.Ecrire(Message(Global, "ModuleCharge", NomDuModule));

   I++;

Fin TantQue



AttraperException
   TantQue Vrai Faire
   
      Attendre(60.0);
   
   Fin TantQue

TraiterException

   Cas Pour ArretProgramme Faire
   
      Journal.Ecrire(Message(Global,"ArretUpsSrv",Caractere(DateSysteme())));
   
   Fin Cas
   

   Defaut
   
      Journal.Ecrire(Message(Global,"ExceptionRecue",Caractere(DateSysteme())));

      Journal.Ecrire(Exception.MessageErreur);

      Exception.Renvoyer();
   
   Fin Defaut

Fin AttraperException

Fin Principal