(Perl) HTTP POST with XML Body

Demonstrates sending an HTTP POST with a XML body.

For more information, see https://chilkatsoft.com/http_post_with_xml_body.asp

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

use chilkat();

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

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

# Implements the following CURL command:

# curl -X POST https://example.com/StockQuote \
#   -H "Host: www.example.org" \
#   -H "Content-Type: application/soap+xml; charset=utf-8" \
#   -H "SOAPAction: http://www.example.org/StockPrice" \
#   -d '<?xml version="1.0"?>
# 
# <soap:Envelope
# xmlns:soap="http://www.w3.org/2003/05/soap-envelope/"
# soap:encodingStyle="http://www.w3.org/2003/05/soap-encoding">
# 
# <soap:Body xmlns:m="http://www.example.org/stock">
#   <m:GetStockPrice>
#     <m:StockName>IBM</m:StockName>
#   </m:GetStockPrice>
# </soap:Body>
# 
# </soap:Envelope>'

# Use the following online tool to generate HTTP code from a CURL command
# Convert a cURL Command to HTTP Source Code

# Use this online tool to generate code from sample XML:
# Generate Code to Create XML

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

# The following XML is sent in the request body.

# <?xml version="1.0" encoding="utf-8"?>
# <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope/" soap:encodingStyle="http://www.w3.org/2003/05/soap-encoding">
#     <soap:Body xmlns:m="http://www.example.org/stock">
#         <m:GetStockPrice>
#             <m:StockName>IBM</m:StockName>
#         </m:GetStockPrice>
#     </soap:Body>
# </soap:Envelope>
# 

$xml = chilkat::CkXml->new();
$xml->put_Tag("soap:Envelope");
$xml->AddAttribute("xmlns:soap","http://www.w3.org/2003/05/soap-envelope/");
$xml->AddAttribute("soap:encodingStyle","http://www.w3.org/2003/05/soap-encoding");
$xml->UpdateAttrAt("soap:Body",1,"xmlns:m","http://www.example.org/stock");
$xml->UpdateChildContent("soap:Body|m:GetStockPrice|m:StockName","IBM");

$http->SetRequestHeader("SOAPAction","http://www.example.org/StockPrice");
$http->SetRequestHeader("Host","www.example.org");
$http->SetRequestHeader("Content-Type","application/soap+xml; charset=utf-8");

$sbRequestBody = chilkat::CkStringBuilder->new();
$xml->GetXmlSb($sbRequestBody);

# resp is a HttpResponse
$resp = $http->PTextSb("POST","https://example.com/StockQuote",$sbRequestBody,"utf-8","application/soap+xml; charset=utf-8",0,0);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print $resp->get_StatusCode() . "\r\n";
print $resp->bodyStr() . "\r\n";