Index: WS/TAPI/SMSTools/SMSClient.cls.xml =================================================================== diff -u -r70123 -r74487 --- WS/TAPI/SMSTools/SMSClient.cls.xml (.../SMSClient.cls.xml) (revision 70123) +++ WS/TAPI/SMSTools/SMSClient.cls.xml (.../SMSClient.cls.xml) (revision 74487) @@ -3,19 +3,40 @@ TECH.RegisteredObject + + + + %String -ax-loadbalancer.vanhoecke.be +proxy-int.vanhoecke.be + + + + String -/smstools/v1/message/send +/p/rewrite/smstools/v1/message/send + + + + String -/smstools/v1/balance +/p/rewrite/smstools/v1/balance @@ -71,10 +92,11 @@ Set HttpRequest.Server = ..#Server Do HttpRequest.SetHeader("X-Client-Id",..#ClientId) - Do HttpRequest.SetHeader("X-Client-Secret",..#ClientSecret) - ;Set HttpRequest.SSLConfiguration = "SMSTools" - ;Set HttpRequest.Https = 1 - ;Set HttpRequest.Port = 443 + Do HttpRequest.SetHeader("X-Client-Secret",..#ClientSecret) + Do HttpRequest.SetHeader("Accept","*/*") + Set HttpRequest.SSLConfiguration = "SMSTools" + Set HttpRequest.Https = 1 + Set HttpRequest.Port = 443 #dim StatusCode As %Status = HttpRequest.Get(..#BalanceLocation) If HttpRequest.HttpResponse.StatusCode = 200 { @@ -83,7 +105,7 @@ Quit Response.credits } else { #dim ErrorInfo as %String = HttpRequest.HttpResponse.Data.Read(HttpRequest.HttpResponse.Data.Size) - Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("HttpGet to "_..#Server_" failed. "_HttpRequest.HttpResponse.ReasonPhrase _ $$$CRLF _ ErrorInfo) + Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("HttpGet to "_..#Server_..#BalanceLocation_" failed. "_HttpRequest.HttpResponse.ReasonPhrase _ $$$CRLF _ ErrorInfo) Do ##class(TECH.ExceptionHandler).Throw(Exception) } ]]> @@ -99,14 +121,15 @@ Set HttpMessage.Server=..#Server Set HttpMessage.Location = ..#Location - ;Set HttpMessage.Port = "443" + + Set HttpMessage.Port = "443" Set HttpMessage.ClientId = "784487677138158563135" Set HttpMessage.ClientSecret = "jTuBQ6JWSWOhckcPHC9Dc" set HttpMessage.ContentType= "text/plain" Set HttpMessage.Data = Stream - ;Do Poster.SetSslConfiguration("SMSTools") + Do Poster.SetSslConfiguration("SMSTools") Do Poster.PostMessage(HttpMessage) ]]> Index: WS/Transsmart/impl/TboxServicePortBase.cls.xml =================================================================== diff -u -r60901 -r74487 --- WS/Transsmart/impl/TboxServicePortBase.cls.xml (.../TboxServicePortBase.cls.xml) (revision 60901) +++ WS/Transsmart/impl/TboxServicePortBase.cls.xml (.../TboxServicePortBase.cls.xml) (revision 74487) @@ -37,9 +37,11 @@ ;TLS 1.2 urlrewrite op ax-loadbalancer ;zie confluence If Omgeving="PROD"{ - set ..Location = "http://ax-loadbalancer.vanhoecke.be/Transsmart/2_0_production" + ;set ..Location = "http://ax-loadbalancer.vanhoecke.be/Transsmart/2_0_production" + set ..Location = "https://proxy-int.vanhoecke.be/p/rewrite/transsmart" } Else { - set ..Location = "http://ax-loadbalancer.vanhoecke.be/Transsmart/2_0_accept" + ;set ..Location = "http://ax-loadbalancer.vanhoecke.be/Transsmart/2_0_accept" + set ..Location = "https://proxy-int.vanhoecke.be/a/rewrite/transsmart" } ]]> Index: WS/GeoDynamics/IntegratorWebserviceSoap.cls.xml =================================================================== diff -u -r70769 -r74487 --- WS/GeoDynamics/IntegratorWebserviceSoap.cls.xml (.../IntegratorWebserviceSoap.cls.xml) (revision 70769) +++ WS/GeoDynamics/IntegratorWebserviceSoap.cls.xml (.../IntegratorWebserviceSoap.cls.xml) (revision 74487) @@ -6,8 +6,9 @@ -This is the URL used to access the web service. -http://ax-loadbalancer/geodynamics/webservices/intellitracer/1.0/IntegratorWebservice.asmx +This is the URL used to access the web service. +"http://ax-loadbalancer/geodynamics/webservices/intellitracer/1.0/IntegratorWebservice.asmx"; +https://proxy-int.vanhoecke.be/p/rewrite/geodynamics/webservices/intellitracer/1.0/IntegratorWebservice.asmx