//Récupération du flux HTTP
//gsAdresseFichierXML Contient l`adresse HTTP du flux XML

//Variables
sContenuXML est une chaîne
Res est un booléen
sAdresseEmail est une chaîne

//Récupération du fichier XML
SI HTTPRequête(gsAdresseFichierXML) ALORS
sContenuXML = HTTPDonneRésultat(httpRésultat)
SI EnModeTest ALORS Trace("Fichier XML récupéré")
SINON
RETOUR
FIN

SI sContenuXML <> "" ALORS
// Création du document XML
Res = XMLDocument("DocXML", sContenuXML)
// Le document est créé ?
SI Res = Faux ALORS
RETOUR
FIN
SINON
RETOUR
FIN

//Lecture de l`email du Webmaster
XMLRacine("DocXML")
XMLRecherche("DocXML","webMaster",XMLBalise)
SI XMLTrouve("DocXML") ALORS
sAdresseEmail = XMLDonnée("DocXML")
Trace("XMLDonnée WebMaster : " + sAdresseEmail)
FIN

//Fermeture du document
XMLTermine("DocXML")