Perl

Simple SOAP Request

See more HTTP Examples

Demonstrates how to send a simple SOAP request. Perl

use chilkat();

$success = 0;

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

# Create the following XML to be sent in the SOAP request body.

# <soapenv:Envelope xmlns:dat="http://www.dataaccess.com/webservicesserver/" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
#     <soapenv:Header/>
#     <soapenv:Body>
#         <dat:NumberToDollars>
#             <dat:dNum>99.0</dat:dNum>
#         </dat:NumberToDollars>
#     </soapenv:Body>
# </soapenv:Envelope>

$xml = chilkat::CkXml->new();
$xml->put_Tag("soapenv:Envelope");
$xml->AddAttribute("xmlns:dat","http://www.dataaccess.com/webservicesserver/");
$xml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/");
$xml->UpdateChildContent("soapenv:Header","");
$xml->UpdateChildContent("soapenv:Body|dat:NumberToDollars|dat:dNum","99.0");

# In a SOAP HTTP request, including the XML declaration (<?xml version="1.0" encoding="UTF-8"?>) in the XML body is generally not required. 
$xml->put_EmitXmlDecl(0);
$soapRequestBody = $xml->getXml();

$endpoint = "https://www.dataaccess.com/webservicesserver/numberconversion.wso";
$soapAction = "";
#  For SOAP requests, the standard Content-Type is usually set to "text/xml" or "application/soap+xml"
$contentType = "text/xml";

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

$http->ClearHeaders();
$http->SetRequestHeader("SOAPAction",$soapAction);

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpStr("POST",$endpoint,$soapRequestBody,"utf-8",$contentType,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Get the XML response body.
$responseXml = chilkat::CkXml->new();
$resp->GetBodyXml($responseXml);

$statusCode = $resp->get_StatusCode();
print "response status code: " . $statusCode . "\r\n";

# If the status code does not indicate succcess, then show the response XML,
# which probably contains error information.
if ($statusCode != 200) {
    print $responseXml->getXml() . "\r\n";
    exit;
}

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

# Parse the successful SOAP response XML.

# This is a sample of the response XML, but the namespace prefixes will be different.
# We can parse the result using "*" for the namespace prefixes (see below).

# <soapenv:Envelope xmlns:dat="http://www.dataaccess.com/webservicesserver/" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
#     <soapenv:Header/>
#     <soapenv:Body>
#         <dat:NumberToDollarsResponse>
#             <dat:NumberToDollarsResult>string</dat:NumberToDollarsResult>
#         </dat:NumberToDollarsResponse>
#     </soapenv:Body>
# </soapenv:Envelope>

$dat_NumberToDollarsResult = $responseXml->getChildContent("*:Body|*:NumberToDollarsResponse|*:NumberToDollarsResult");
print "result: " . $dat_NumberToDollarsResult . "\r\n";