Perl Requires Chilkat v11.0.0+

HTTP SOAP 1.1 Request and Response using POST

See more HTTP Examples

Demonstrates a working SOAP 1.1 request and response using POST with a live server. You may try running this example with the URLs and data provided. See http://secure.smartbearsoftware.com/samples/testcomplete10/webservices/Service.asmx?WSDL for details Perl

use chilkat();

$success = 0;

#  This example requires the Chilkat API to have been previously unlocked.
#  See Global Unlock Sample for sample code.

#  --------------------------------------------------------------------------------
#  Also see Chilkat's Online WSDL Code Generator
#  to generate code and SOAP Request and Response XML for each operation in a WSDL.
#  --------------------------------------------------------------------------------

$http = chilkat::CkHttp->new();

#  Generate the following XML:

#  <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:smar="http://smartbear.com">
#     <soapenv:Header/>
#     <soapenv:Body>
#        <smar:HelloWorld/>
#     </soapenv:Body>
#  </soapenv:Envelope>

$soapXml = chilkat::CkXml->new();
$soapXml->put_Tag("soapenv:Envelope");
$soapXml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/");
$soapXml->AddAttribute("xmlns:smar","http://smartbear.com");
$soapXml->UpdateChildContent("soapenv:Header","");
$soapXml->UpdateChildContent("soapenv:Body|smar:HelloWorld","");

print $soapXml->getXml() . "\r\n";

$req = chilkat::CkHttpRequest->new();
$req->put_HttpVerb("POST");
$req->put_SendCharset(0);
$req->AddHeader("Content-Type","text/xml; charset=utf-8");
$req->AddHeader("SOAPAction","http://smartbear.com/HelloWorld");
$req->put_Path("/samples/testcomplete10/webservices/Service.asmx");
$success = $req->LoadBodyFromString($soapXml->getXml(),"utf-8");

$http->put_FollowRedirects(1);

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpSReq("secure.smartbearsoftware.com",443,1,$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$xmlResponse = chilkat::CkXml->new();
$success = $xmlResponse->LoadXml($resp->bodyStr());
print $xmlResponse->getXml() . "\r\n";

#  A successful XML response:

#  <?xml version="1.0" encoding="utf-8" ?>
#  <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
#      <soap:Body>
#          <HelloWorldResponse xmlns="http://smartbear.com">
#              <HelloWorldResult>Hello World</HelloWorldResult>
#          </HelloWorldResponse>
#      </soap:Body>
#  </soap:Envelope>