Index: WS/WebService.cls.xml
===================================================================
diff -u -r2206 -r2882
--- WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 2206)
+++ WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 2882)
@@ -53,5 +53,84 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="OnPage">
+<Description><![CDATA[
+This method is used internally by Cach&eacute;. You should not make direct
+use of it within your applications. There is no guarantee made about either
+the behavior or future operation of this method.		]]></Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If $Data(%request.Data("WSDL"))!$Data(%request.Data("wsdl")) {
+		#; If it's a WSDL Request, just generate the WSDL for the client
+		Do ..GenerateWSDL()
+
+	} Else {
+		#; Create the web service instance
+		Set service=..%New()
+
+		#; Process as SOAP or HTTP page
+		Set tAction=$Get(%request.CgiEnvs("HTTP_SOAPACTION"))
+		If tAction'="" {
+			do ..LogStream(%request.Content,"IN")
+			Do service.ProcessSOAP($$$URLDECODE(tAction),%request.Content)
+		} Else {
+			Do service.ProcessHTTP()
+		}
+	}
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="WriteSOAPMessage">
+<Description><![CDATA[
+Execute the Web Method represented by the descriptor class on
+the server.  If an error is detected, a ztrap "SOAP" will be issued with
+%objlasterror containing the error %Status.  If is the responsibilty of the
+caller of the proxy method to set an error trap and test for $ZE["&lt;ZSOAP&gt;".
+Note that if a SOAP fault is received, then the error is $$$SOAPFaultReceived.
+Write the SOAP message that corresponds to the specified class.]]></Description>
+<FormalSpec>body:%SOAP.Descriptor,tag:%String,isService:%Boolean</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set IO = ##class(TECH.IO).%New()
+	do IO.Redirect()
+	set sc = ##super(body,tag,isService)
+	do IO.Reset()
+	set Stream = IO.GeefStream()
+	while 'Stream.AtEnd {
+		write Stream.Read()
+	}	
+	do ..LogStream(Stream,"OUT")
+	quit sc
+]]></Implementation>
+</Method>
+
+<Method name="LogStream">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Stream:%Stream,Direction:%String</FormalSpec>
+<Implementation><![CDATA[
+	set Path = ##class(TECH.Config.ConfigMgr).Instance().GetString("DefaultExportDirectory")
+	set Timestamp =$tr($zdt($ZU(188),8,,3),":","")
+	
+	set Webmethod = $Get(%request.CgiEnvs("HTTP_SOAPACTION"))
+	set Webmethod = $Piece($Piece(Webmethod,".",$length(Webmethod,".")),"""")
+	
+	set Counter = $increment(^zWS.Logger(..%ClassName(1)_" "_Webmethod))
+	if Counter < 201 {
+		set Filename = ##class(TECH.Files).AppendFile(Path,..%ClassName(1)_"\"_Webmethod_"\"_$job_Direction_Timestamp_$Random(10000)_".log")	
+		set FileWriter = ##class(TECH.File.FileWriter).%New(Filename)
+		
+		Do FileWriter.WriteStream(Stream)
+		Do FileWriter.Close()
+	
+		do Stream.Rewind()
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>