Index: WS/WebService.cls.xml
===================================================================
diff -u -r3060 -r3150
--- WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 3060)
+++ WS/WebService.cls.xml	(.../WebService.cls.xml)	(revision 3150)
@@ -53,5 +53,63 @@
 	}
 ]]></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'="" {
+			Set ClassName = ..%ClassName(1)
+			Do ##class(WS.WebserviceLogger).LogStream(%request.Content,"IN",ClassName)
+			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()
+	}	
+	Set ClassName = ..%ClassName(1)
+	Do ##class(WS.WebserviceLogger).LogStream(Stream,"OUT",ClassName)
+	quit sc
+]]></Implementation>
+</Method>
 </Class>
 </Export>