Index: TECH/Http/Poster.cls.xml
===================================================================
diff -u -r801 -r3503
--- TECH/Http/Poster.cls.xml	(.../Poster.cls.xml)	(revision 801)
+++ TECH/Http/Poster.cls.xml	(.../Poster.cls.xml)	(revision 3503)
@@ -9,6 +9,11 @@
 <FormalSpec>Message:TECH.Http.Message</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="SetSslConfiguration">
+<Abstract>1</Abstract>
+<FormalSpec>SslConfiguration:%String</FormalSpec>
+</Method>
 </Class>
 
 
Index: TECH/Http/impl/Poster.cls.xml
===================================================================
diff -u -r3327 -r3503
--- TECH/Http/impl/Poster.cls.xml	(.../Poster.cls.xml)	(revision 3327)
+++ TECH/Http/impl/Poster.cls.xml	(.../Poster.cls.xml)	(revision 3503)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SslConfiguration">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="PostMessage">
 <FormalSpec>Message:TECH.Http.Message</FormalSpec>
 <Implementation><![CDATA[
@@ -32,6 +37,12 @@
 	 	
 	 	do ..HttpRequest.EntityBody.CopyFrom(Message.Data)
 	 	
+	 	If $$$HasLength(..SslConfiguration) {
+			Set ..HttpRequest.SSLConfiguration = ..SslConfiguration
+			Set ..HttpRequest.Https = 1
+			Set ..HttpRequest.Port = 443
+	 	}
+	 	
 	    #dim StatusCode As %Status = ..HttpRequest.Post(Message.Location,0)
 
 	  	do ..ValidateResponse(StatusCode)
@@ -45,6 +56,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SetSslConfiguration">
+<FormalSpec>SslConfiguration:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..SslConfiguration = SslConfiguration
+]]></Implementation>
+</Method>
+
 <Method name="SetRequestParams">
 <Private>1</Private>
 <Implementation><![CDATA[