(Tcl) auth.fatturazioneelettronica.aruba.it GetToken

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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)

set http [new_CkHttp]

set req [new_CkHttpRequest]

CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_Path $req "/auth/signin"
CkHttpRequest_put_Charset $req "utf-8"
CkHttpRequest_put_ContentType $req "application/x-www-form-urlencoded"

CkHttpRequest_AddParam $req "grant_type" "password"
CkHttpRequest_AddParam $req "username" "YourUsername"
CkHttpRequest_AddParam $req "password" "YourPassword"

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

# resp is a CkHttpResponse
set resp [CkHttp_PostUrlEncoded $http "https://auth.fatturazioneelettronica.aruba.it/auth/signin" $req]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    exit
}

puts "Response Status: [CkHttpResponse_get_StatusCode $resp]"
puts "Response Body: "
puts [CkHttpResponse_bodyStr $resp]

delete_CkHttpResponse $resp


delete_CkHttp $http
delete_CkHttpRequest $req