1<%@Language=PerlScript%>
2<%
3  # -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
4
5  # SOAP server. requires SOAP.Lite COM object (regsvr32 Lite.dll)
6  # Path to Perl modules can be specified as '/PATH/TO/MODULES'
7
8  $Response->{ContentType} = "text/xml";
9  $Response->Write($Server->CreateObject("SOAP.Lite")
10    -> server("SOAP::Server")
11    -> dispatch_to("/Your/Path/To/Deployed/Modules")
12    -> handle($Request->BinaryRead($Request->{TotalBytes}))
13  );
14%>
15