Up ! Document Generator

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

Source Composant "Up ! Document Generator" Version 4.0.0; ImporterModule /************/


	UpsDgn(<UpsDgn.upi>,ImporterDefinitions);




Parametre <upsdgn> Section "UpsDgn"

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

Prive :

/*****/

   Action : Nul Ou Caractere;

   Entete : Booleen;

   Detail : Booleen;



Prive :

/*****/

Procedure EnvoyerMessage1(NomFichier : Caractere)

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

Debut

Ecran.Ecrire(NomFichier);

Fin Procedure



Procedure EnvoyerMessage2(? : Caractere, ? : Entier, MessageEnvoye : Caractere)

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

Debut

Ecran.Ecrire(MessageEnvoye);

Fin Procedure



Principal

/*******/

Debut

Si Entete Alors

   Ecran.Ecrire(Message(UpsDgn,"PresentationUpsDgn1")+"\n");

   Ecran.Ecrire(Message(UpsDgn,"PresentationUpsDgn2",Caractere(DateSysteme(),FiltreDate),Caractere(DateSysteme(),FiltreHeure))+"\n");

Fin Si



Selon Action Faire

   Cas Pour Traduire(UpsDgn,SectionDivers,"Indexer") Faire
   
      Si Detail Alors
      
         Ecran.Ecrire(Message(UpsDgn,"IndexationUpsDgnEnCours"));

         Si IndexerPagesHtml(EnvoyerMessage1) Alors
         
            Ecran.Ecrire("\n"+Message(UpsDgn,"IndexationUpsDgnAvecSucces"));

            Retourner 0;
         
         Sinon
         
            Ecran.Ecrire("\n"+Message(UpsDgn,"IndexationUpsDgnEnEchec"));

            Retourner 1;
         
         Fin Si
      
      Sinon
      
         Si IndexerPagesHtml(Nul) Alors
         
            Ecran.Ecrire(Message(UpsDgn,"IndexationUpsDgnAvecSucces"));

            Retourner 0;
         
         Sinon
         
            Ecran.Ecrire(Message(UpsDgn,"IndexationUpsDgnEnEchec"));

            Retourner 1;
         
         Fin Si
      
      Fin Si
   
   Fin Cas

   

   Cas Pour Traduire(UpsDgn,SectionDivers,"Verifier") Faire
   
      Si Detail Alors
      
         Ecran.Ecrire(Message(UpsDgn,"VerificationUpsDgnEnCours"));

         Si VerifierLiensHtml(EnvoyerMessage2) Alors
         
            Ecran.Ecrire("\n"+Message(UpsDgn,"VerificationUpsDgnAvecSucces"));

            Retourner 1;
         
         Sinon
         
            Ecran.Ecrire("\n"+Message(UpsDgn,"VerificationUpsDgnEnEchec"));

            Retourner 0;
         
         Fin Si
      
      Sinon
      
         Si VerifierLiensHtml(Nul) Alors
         
            Ecran.Ecrire(Message(UpsDgn,"VerificationUpsDgnAvecSucces"));

            Retourner 0;
         
         Sinon
         
            Ecran.Ecrire(Message(UpsDgn,"VerificationUpsDgnEnEchec"));

            Retourner 1;
         
         Fin Si
      
      Fin Si
   
   Fin Cas

   

   Cas Pour Traduire(UpsDgn,SectionDivers,"Robot") Faire
   
      Si Detail Alors
      
         Ecran.Ecrire(Message(UpsDgn,"RobotUpsDgnEnCours"));

         Si GenererFichierRobot(EnvoyerMessage1) Alors
         
            Ecran.Ecrire("\n"+Message(UpsDgn,"RobotUpsDgnAvecSucces"));

            Retourner 0;
         
         Sinon
         
            Ecran.Ecrire("\n"+Message(UpsDgn,"RobotUpsDgnEnEchec"));

            Retourner 1;
         
         Fin Si
      
      Sinon
      
         Si GenererFichierRobot(Nul) Alors
         
            Ecran.Ecrire(Message(UpsDgn,"RobotUpsDgnAvecSucces"));

            Retourner 0;
         
         Sinon
         
            Ecran.Ecrire(Message(UpsDgn,"RobotUpsDgnEnEchec"));

            Retourner 0;
         
         Fin Si
      
      Fin Si
   
   Fin Cas
   

   Defaut
   
      Ecran.Ecrire(Message(UpsDgn,"UsageUpsDgn"));

      Retourner 1;
   
   Fin Defaut

Fin Selon

Fin Principal