(Perl) SOAP Web Service (HTTP POST)

Demonstrates how to call PostXml to call a SOAP web service.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# 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.
# --------------------------------------------------------------------------------

# This example uses a live web service at:
# http://www.webservicex.net/uklocation.asmx
# It gets the UK town,Postcode and County by Postcode(First Section of Post Code)

# The SOAP XML will look like this:
# <?xml version="1.0" encoding="utf-8"?>
# <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
#   <soap:Body>
#     <GetUKLocationByPostCode xmlns="http://www.webserviceX.NET">
#       <PostCode>string</PostCode>
#     </GetUKLocationByPostCode>
#   </soap:Body>
# </soap:Envelope>

# For this example's sake, we'll load the XML from a file.  We'll test using PostCode "E3".  
# The SOAP XML for this example may be downloaded from:
# http://www.chilkatsoft.com/testData/ukPostCodeSoap.xml
$xml = chilkat::CkXml->new();
$success = $xml->LoadXmlFile("ukPostCodeSoap.xml");
if ($success != 1) {
    print $xml->lastErrorText() . "\r\n";
    exit;
}

$strXml = $xml->getXml();

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

# We'll need to add this in the HTTP header:
# SOAPAction: "http://www.webserviceX.NET/GetUKLocationByPostCode"
$http->SetRequestHeader("SOAPAction","http://www.webserviceX.NET/GetUKLocationByPostCode");

# Some services expect the content-type in the HTTP header to be "application/xml" while
# other expect text/xml.  The default sent by Chilkat is "application/xml", but this web service
# expects "text/xml".  Therefore, change the content-type:
$http->SetRequestHeader("Content-Type","text/xml; charset=utf-8");

# The endpoint for this soap service is:
$endPoint = "http://www.webservicex.net/uklocation.asmx";

# Note: This particular web service was live and functioning at the time this example
# was written.  It is possible that as time progresses, this web service will no longer
# be availble...
# resp is a HttpResponse
$resp = $http->PostXml($endPoint,$strXml,"utf-8");
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    print "LastHeader:" . "\r\n";
    print $http->lastHeader() . "\r\n";
    exit;
}

$responseStatusCode = $resp->get_StatusCode();
# You may wish to verify that the responseStatusCode equals 200...
print "Response Status Code: " . $responseStatusCode . "\r\n";

# You may examine the exact HTTP header sent with the POST like this:
print "LastHeader:" . "\r\n";
print $http->lastHeader() . "\r\n";

# Examine the XML returned by the web service:
print "XML Response:" . "\r\n";
$xmlResp = chilkat::CkXml->new();
$xmlResp->LoadXml($resp->bodyStr());
print $xmlResp->getXml() . "\r\n";

# Use this online tool to generate parsing code from response XML: 
# Generate Parsing Code from XML