Sample code for 30+ languages & platforms
Perl

Duo Auth API - Preauth

See more Duo Auth MFA Examples

The /preauth endpoint determines whether a user is authorized to log in, and (if so) returns the user's available authentication factors.

Chilkat Perl Downloads

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

$http->put_Login($integrationKey);
$http->put_Password($secretKey);

$req = chilkat::CkHttpRequest->new();
$req->AddParam("username","matt");

$req->put_HttpVerb("POST");
$req->put_ContentType("application/x-www-form-urlencoded");

$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpReq($url,$req,$resp);
if ($success == 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": {
#     "devices": [
#       {
#         "capabilities": [
#           "auto",
#           "push",
#           "sms",
#           "mobile_otp"
#         ],
#         "device": "DP6GYVTQ5NK82BMR851F",
#         "display_name": "iOS (XXX-XXX-1871)",
#         "name": "",
#         "number": "XXX-XXX-1871",
#         "type": "phone"
#       }
#     ],
#     "result": "auth",
#     "status_msg": "Account is active"
#   },
#   "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_msg = $json->stringOf("response.status_msg");
$stat = $json->stringOf("stat");
$i = 0;
$count_i = $json->SizeOfArray("response.devices");
while ($i < $count_i) {
    $json->put_I($i);
    $device = $json->stringOf("response.devices[i].device");
    $display_name = $json->stringOf("response.devices[i].display_name");
    $name = $json->stringOf("response.devices[i].name");
    $number = $json->stringOf("response.devices[i].number");
    $v_type = $json->stringOf("response.devices[i].type");
    $j = 0;
    $count_j = $json->SizeOfArray("response.devices[i].capabilities");
    while ($j < $count_j) {
        $json->put_J($j);
        $strVal = $json->stringOf("response.devices[i].capabilities[j]");
        $j = $j + 1;
    }

    $i = $i + 1;
}