Index: zTryout/LLA/DupontTestAuthorisation.cls.xml
===================================================================
diff -u
--- zTryout/LLA/DupontTestAuthorisation.cls.xml	(revision 0)
+++ zTryout/LLA/DupontTestAuthorisation.cls.xml	(revision 60439)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.LLA.DupontTestAuthorisation">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="TestDupontAuthorisation">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Try {
+		#dim HttpMessage As TECH.Http.Message = ##class(TECH.Http.Message).%New()
+		Set HttpMessage.Server = "xml.inmotionsoftware.be"
+	
+		Set HttpMessage.Port = 80
+		Set HttpMessage.Location = "/ping"
+		Set HttpMessage.ContentType = "application/xml"
+		Set HttpMessage.ContextEncoding = "UTF-8"
+				
+		Set HttpMessage.XApiKey = "66e3a60b-0e48-4334-a586-34924ca98d36"
+
+		#dim stValidate As %Status = HttpMessage.%ValidateObject()
+ 		If $$$ISERR(stValidate) {
+	   		Set Exception = ##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"HttpPost to "_Message.Server_" failed",stValidate)
+	  		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	    }
+	    
+	 	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+	 	Set HttpRequest.Server = HttpMessage.Server
+	 	Set HttpRequest.ContentType = HttpMessage.ContentType
+	 	
+	 	If ($$$HasLength(HttpMessage.XApiKey)) {
+		 	Do ##class(Tools.Wlip).%New(43).String("in XApiKey")
+	 		Do HttpRequest.SetHeader("x-api-key",HttpMessage.XApiKey)
+	 	}
+	 	
+	 	Set HttpRequest.ContentEncoding = HttpMessage.ContextEncoding
+	 	If ($$$HasLength(HttpMessage.Port)) {
+		 	Set HttpRequest.Port = HttpMessage.Port
+	 	}
+	 	
+	 	Set:($$$HasLength(HttpMessage.Username)) HttpRequest.Username = HttpMessage.Username
+	 	Set:($$$HasLength(HttpMessage.Password)) HttpRequest.Password = HttpMessage.Password
+	 	
+ 	 	Do HttpRequest.EntityBody.CopyFrom(HttpMessage.Data)
+	 		 		
+	    #dim StatusCode As %Status = HttpRequest.Get(HttpMessage.Location,0)
+	    Do ##class(Tools.Wlip).%New(43).String("response status "_HttpRequest.HttpResponse.StatusCode)
+				
+		
+	} Catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+		w "error"
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>