(Perl) auth.fatturazioneelettronica.aruba.it GetToken

Sample code to duplicate MSXML2.XMLHTTP.6.0 code to send a x-www-form-urlencoded POST.

Note: This example requires Chilkat v11.0.0 or greater.

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

use chilkat();

$success = 0;

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

# This example duplicates the following Microsoft FoxPro (XMLHTTP) code

# Local loHttp As "MSXML2.XMLHTTP.6.0" && creazione oggetto per richieste HTTP
# loHttp = Createobject("MSXML2.XMLHTTP.6.0")
# 
# LOCAL luser, lpassword
# luser = "myuser" 
# lpassword = "mypwd" 
# Local lEsito 
# With loHttp As MSXML2.XMLHTTP.6.0
# 	.Open("POST", 'https://auth.fatturazioneelettronica.aruba.it/auth/signin' ,.F.) && URL del Cloud di Test da sostituire con quello di produzione
# 	.setRequestHeader("Content-Type","application/x-www-form-urlencoded;charset=UTF-8") 
# 	.setRequestHeader("Content-Length","53") 
# 	.Send("grant_type=password&username="+luser+"&password="+lpassword) && faccio la POST con le variabili
# 	Store .responsetext To lEsito && memorizzo la risposta del server
# Endwith
# 
# Public oConnessione_Aruba
# oConnessione_Aruba = nfjsonread(lEsito)

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

$req->put_HttpVerb("POST");
$req->put_Path("/auth/signin");
$req->put_Charset("utf-8");
$req->put_ContentType("application/x-www-form-urlencoded");

$req->AddParam("grant_type","password");
$req->AddParam("username","YourUsername");
$req->AddParam("password","YourPassword");

# No need to set Content-Length because Chilkat always computes the actual content length and adds the header.

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpReq("https://auth.fatturazioneelettronica.aruba.it/auth/signin",$req,$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "Response Status: " . $resp->get_StatusCode() . "\r\n";
print "Response Body: " . "\r\n";
print $resp->bodyStr() . "\r\n";