(Perl) Duo Auth API - Check

See more Duo Auth MFA Examples

The /check endpoint can be called to verify that the Auth API integration and secret keys are valid, and that the signature is being generated properly.

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

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

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

use chilkat();

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

$integrationKey = "DIMS3V5QDVG9J9ABRXC4";
$secretKey = "HWVQ46nubLBxhnRlKddTltWIi3hL0fIQF2qTvLab";

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

$http->put_Accept("application/json");

# Use your own hostname here:
$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.
$http->put_Login($integrationKey);
$http->put_Password($secretKey);

$jsonStr = $http->quickGetStr($url);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "status code = " . $http->get_LastStatus() . "\r\n";
print $jsonStr . "\r\n";

# Sample successful output:

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