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. Perl

use chilkat();

$success = 0;

# 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";

$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"}