(Tcl) Duo Auth API - Ping

See more Duo Auth MFA Examples

For more information, see https://duo.com/docs/authapi#/ping

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

CkHttp_put_Accept $http "application/json"

# Use your own hostname here:
set url "https://api-a03782e1.duosecurity.com/auth/v2/ping"

set jsonStr [CkHttp_quickGetStr $http $url]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    exit
}

puts "status code = [CkHttp_get_LastStatus $http]"
puts "$jsonStr"

# Sample successful output:

# status code = 200
# {"response": {"time": 1632358295}, "stat": "OK"

delete_CkHttp $http