Perl

SOAP Web Service (HTTP POST)

Demonstrates how to call PostXml to call a SOAP web service. 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.
# --------------------------------------------------------------------------------

# 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 == 0) {
    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");

# 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 = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST",$endPoint,$strXml,"utf-8","text/xml",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\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