Index: TECH/Http/Message.cls.xml =================================================================== diff -u -r3563 -r3704 --- TECH/Http/Message.cls.xml (.../Message.cls.xml) (revision 3563) +++ TECH/Http/Message.cls.xml (.../Message.cls.xml) (revision 3704) @@ -25,6 +25,10 @@ %String + +%String + + %String Index: TECH/Http/impl/Poster.cls.xml =================================================================== diff -u -r3563 -r3704 --- TECH/Http/impl/Poster.cls.xml (.../Poster.cls.xml) (revision 3563) +++ TECH/Http/impl/Poster.cls.xml (.../Poster.cls.xml) (revision 3704) @@ -28,6 +28,11 @@ Set ..HttpRequest = ##class(%Net.HttpRequest).%New() Set ..HttpRequest.Server = Message.Server Set ..HttpRequest.ContentType = Message.ContentType + + If ($$$HasLength(Message.XApiKey)) { + Do ..HttpRequest.SetHeader("x-api-key",Message.XApiKey) + } + Set ..HttpRequest.ContentEncoding = Message.ContextEncoding If ($$$HasLength(Message.Port)) { Set ..HttpRequest.Port = Message.Port