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