Fonction Habilitation Optimiser(NulAbsorbant, Invariant, PasDEffetDeBord) VerifierLiensHtml(EnvoyerMessage : Nul Ou Procedure(NomFichier : Caractere, NumeroLigne : Entier, MessageEnvoye : Caractere)) Retourner Booleen
Le référentiel de la documentation doit être préalablement disponible dans ${UPS_DOCUMENT}.
La vérification a pour principe de lire le corps de la page et détecter les balises comportant une Url réalisant un branchement local.
Pour chaque erreur déctectée, un message est envoyé via le paramètre EnvoyerMessage. Les paramètres NomFichier, NumeroLigne et MessageEnvoye contiennent alors respectivement le nom de la page source, le numéro de la ligne et le message d'erreur.
Le résultat est Vrai en cas de succès.
/****************************************************************/
Procedure EnvoyerMessage(? : Caractere, ? : Entier, MessageEnvoye : Caractere)
/* Objet : Envoie un message. */
/****************************************************************/
Debut
Ecran.Ecrire(MessageEnvoye);
Fin Procedure
Principal
/*******/
Debut
...
Si Non VerifierLiensHtml(EnvoyerMessage) Alors
...
Fin Si
...
Fin Principal
| - | - | - | - | - | - | - | - | - |