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