Perl
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
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;
}