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