Up ! Program Manager

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

Source Composant "Up ! Program Manager" Version 4.0.0; ImporterModule UpsOrb(<UpsOrb.upi>, ImporterDefinitions); Parametre /*******/ Prive : /*****/


   Action "Action" : Nul Ou Caractere;

   Programme "Programme" : Nul Ou Caractere;

   Machine "Machine" : Nul Ou Caractere;

   AdresseNoeud "AdresseNoeud" : Nul Ou Caractere;

   Service "Service" : Nul Ou Caractere;

   NomModule "Module" : Nul Ou Caractere;




Principal

/*******/

Variable

/******/

   LibelleArreter : Caractere;

   LibelleForcer : Caractere;

   L : Nul Ou ListeDe ProcessusListe;

   P : Nul Ou ProcessusListe;




Debut

Si Action==Nul Alors

   Ecran.Ecrire(Message(Global,"UsageUpsPmg"));

   Retourner 1;

Fin Si

LibelleArreter=Traduire(Global,SectionDivers,"arreter");

LibelleForcer=Traduire(Global,SectionDivers,"forcer");

Selon Action Faire

   Cas Dans (LibelleArreter,LibelleForcer) Faire
   
      Si Programme==Nul Alors
      
         Ecran.Ecrire(Message(Global,"UsageUpsPmg"));

         Retourner 1;
      
      Fin Si

      AttraperException
      
         ArreterService(Programme,Action==LibelleForcer);
      
      TraiterException
      
         Cas Pour ServiceInconnu Faire
         
            L=ListerProcessus();

            Pour P=L.ParcoursAuDebut() JusquA L.DernierElement() Faire
            
               Si P.NomProgramme==Programme Alors
               
                  ArreterProgramme(P.Numero,Action==LibelleForcer);

                  Retourner 0;
               
               Fin Si
            
            Fin Pour
         
         Fin Cas
      
      Fin AttraperException
   
   Fin Cas

   

   Cas Pour Traduire(Global,SectionDivers,"Demarrer") Faire
   
      Si Programme==Nul Alors
      
         Ecran.Ecrire(Message(Global,"UsageUpsPmg"));

         Retourner 1;
      
      Fin Si

      DemarrerService(Programme);
   
   Fin Cas

   

   Cas Pour Traduire(Global,SectionDivers,"Statut") Faire
   
      Si Programme==Nul Alors
      
         Ecran.Ecrire(Message(Global,"UsageUpsPmg"));

         Retourner 1;
      
      Fin Si

      Si ChercherService(Programme) Alors
      
         Ecran.Ecrire(Message(Global,"ServiceActif",Programme));
      
      Sinon
      
         Ecran.Ecrire(Message(Global,"ServiceInactif",Programme));
      
      Fin Si
   
   Fin Cas

   

   Cas Pour Traduire(Global,SectionDivers,"AjouterNoeud") Faire
   
      Si Machine==Nul Alors
      
         Ecran.Ecrire(Message(Global,"UsageUpsPmg"));

         Retourner 1;
      
      Fin Si

      AjouterNoeud(Machine,AdresseNoeud);
   
   Fin Cas

   

   Cas Pour Traduire(Global,SectionDivers,"SupprimerNoeud") Faire
   
      Si Machine==Nul Alors
      
         Ecran.Ecrire(Message(Global,"UsageUpsPmg"));

         Retourner 1;
      
      Fin Si

      SupprimerNoeud(Machine);
   
   Fin Cas

   

   Cas Pour Traduire(Global,SectionDivers,"AjouterServeur") Faire
   
      Si Machine==Nul Ou Service==Nul Alors
      
         Ecran.Ecrire(Message(Global,"UsageUpsPmg"));

         Retourner 1;
      
      Fin Si

      AjouterServeur(Machine,AdresseNoeud,Service);
   
   Fin Cas

   

   Cas Pour Traduire(Global,SectionDivers,"SupprimerServeur") Faire
   
      Si Machine==Nul Ou Service==Nul Alors
      
         Ecran.Ecrire(Message(Global,"UsageUpsPmg"));

         Retourner 1;
      
      Fin Si

      SupprimerServeur(Machine,Service);
   
   Fin Cas

   

   Cas Pour Traduire(Global,SectionDivers,"AjouterModule") Faire
   
      Si Machine==Nul Ou Service==Nul Ou NomModule==Nul Alors
      
         Ecran.Ecrire(Message(Global,"UsageUpsPmg"));

         Retourner 1;
      
      Fin Si

      AjouterModule(Machine,Service,NomModule);
   
   Fin Cas

   

   Cas Pour Traduire(Global,SectionDivers,"SupprimerServeur") Faire
   
      Si Machine==Nul Ou Service==Nul Ou NomModule==Nul Alors
      
         Ecran.Ecrire(Message(Global,"UsageUpsPmg"));

         Retourner 1;
      
      Fin Si

      SupprimerModule(Machine,Service,NomModule);
   
   Fin Cas
   
Fin Selon

Fin Principal