(Tcl) Duo Auth API - Check

See more Duo Auth MFA Examples

Note: This example requires Chilkat v9.5.0.89 or greater.

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

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 integrationKey "DIMS3V5QDVG9J9ABRXC4"
set secretKey "HWVQ46nubLBxhnRlKddTltWIi3hL0fIQF2qTvLab"

set http [new_CkHttp]

CkHttp_put_Accept $http "application/json"

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

# This example requires Chilkat v9.5.0.89 or greater because Chilkat will automatically
# generate and send the HMAC signature for the requires based on the integration key and secret key.
CkHttp_put_Login $http $integrationKey
CkHttp_put_Password $http $secretKey

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": 1632358829}, "stat": "OK"}

delete_CkHttp $http