(Perl) SOAP Request to fseservicetest.sanita.finanze.it with Basic Authentication

Demonstrates sending a SOAP request to fseservicetest.sanita.finanze.it with Basic Authentication.

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.

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

$success = 0;

# Create the SOAP envelope...
$xml->put_Tag("soapenv:Envelope");
$xml->AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/");
$xml->AddAttribute("xmlns:stat","http://statoconsensirichiesta.xsd.fse.ini.finanze.it");
$xml->AddAttribute("xmlns:tip","http://tipodatistatoconsensi.xsd.fse.ini.finanze.it");
$xml->UpdateChildContent("soapenv:Header","");
$xml->UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoUtente","XXXXXXAAABBBCCC");
$xml->UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:pinCode","...");
$xml->UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoOrganizzazione","999");
$xml->UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:StrutturaUtente","123456789");
$xml->UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:RuoloUtente","ZZZ");
$xml->UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:ContestoOperativo","");
$xml->UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoAssistitoGenitoreTutore","");
$xml->UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:PresaInCarico","true");
$xml->UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:TipoAttivita","READ");
$xml->UpdateChildContent("soapenv:Body|stat:StatoConsensiRichiesta|stat:IdentificativoAssistitoConsenso","ABCDEFGHIJKLM");
$soapEnvelope = $xml->getXml();

$domain = "fseservicetest.sanita.finanze.it";
$path = "/FseInsServicesWeb/services/fseStatoConsensi";

$req = chilkat::CkHttpRequest->new();
$req->put_HttpVerb("POST");
$req->put_SendCharset(0);
$req->AddHeader("Content-Type","application/soap+xml; charset=utf-8");
$req->put_Path($path);
$success = $req->LoadBodyFromString($soapEnvelope,"utf-8");

# User name and Password for Basic Authentication 
$http->put_Login("XXXXXXAAABBBCCC");
$http->put_Password("MYPASSWORD");

# resp is a HttpResponse
$resp = $http->SynchronousRequest($domain,443,1,$req);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

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