(Perl) Duo Auth API - Auth

See more Duo Auth MFA Examples

The /auth endpoint performs second-factor authentication for a user by sending a push notification to the user's smartphone app, verifying a passcode, or placing a phone call. It is also used to send the user a new batch of passcodes via SMS.

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

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

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/auth";

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

$req = chilkat::CkHttpRequest->new();
$req->AddParam("username","matt");
$req->AddParam("factor","push");
# The device ID can be obtained from the preauth response.  See Duo Preauth Example
$req->AddParam("device","DP6GYVTQ5NK82BMR851F");

# resp is a HttpResponse
$resp = $http->PostUrlEncoded($url,$req);
if ($http->get_LastMethodSuccess() == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

print "status code = " . $resp->get_StatusCode() . "\r\n";

$json = chilkat::CkJsonObject->new();
$success = $json->Load($resp->bodyStr());
$json->put_EmitCompact(0);
print $json->emit() . "\r\n";

# Sample successful output:

# status code = 200

# {
#   "response": {
#     "result": "allow",
#     "status": "allow",
#     "status_msg": "Success. Logging you in..."
#   },
#   "stat": "OK"
# }

# Sample code to parse the above JSON response..

# Use this online tool to generate parsing code from sample JSON: 
# Generate Parsing Code from JSON

$responseResult = $json->stringOf("response.result");
$responseStatus = $json->stringOf("response.status");
$responseStatus_msg = $json->stringOf("response.status_msg");
$stat = $json->stringOf("stat");