Perl

DNS Query CAA Records

See more DNS Examples

Shows how to perform a DNS query to retrieve CAA records.

Note: This example requires Chilkat v9.5.0.96 or later.

Perl

use chilkat();

$success = 0;

$dns = chilkat::CkDns->new();

$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);

$success = $dns->Query("CAA","zoom.us",$json);
if ($success == 0) {
    print $dns->lastErrorText() . "\r\n";
    exit;
}

print $json->emit() . "\r\n";

# Sample response.
# Parsing code below..

# {
#   "answer": {
#     "caa": [
#       {
#         "name": "zoom.us",
#         "ttl": 300,
#         "flags": 0,
#         "tag": "iodef",
#         "value": "mailto:security@zoom.us"
#       },
#       {
#         "name": "zoom.us",
#         "ttl": 300,
#         "flags": 0,
#         "tag": "issue",
#         "value": "amazon.com"
#       },
#       {
#         "name": "zoom.us",
#         "ttl": 300,
#         "flags": 0,
#         "tag": "issue",
#         "value": "digicert.com"
#       },
#       {
#         "name": "zoom.us",
#         "ttl": 300,
#         "flags": 0,
#         "tag": "issue",
#         "value": "godaddy.com"
#       },
#       {
#         "name": "zoom.us",
#         "ttl": 300,
#         "flags": 0,
#         "tag": "issue",
#         "value": "letsencrypt.org"
#       },
#       {
#         "name": "zoom.us",
#         "ttl": 300,
#         "flags": 0,
#         "tag": "issue",
#         "value": "pki.goog"
#       },
#       {
#         "name": "zoom.us",
#         "ttl": 300,
#         "flags": 0,
#         "tag": "issue",
#         "value": "sectigo.com"
#       }
#     ]
#   }
# }

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

$i = 0;
$count_i = $json->SizeOfArray("answer.caa");
while ($i < $count_i) {
    $json->put_I($i);
    $name = $json->stringOf("answer.caa[i].name");
    $ttl = $json->IntOf("answer.caa[i].ttl");
    $flags = $json->IntOf("answer.caa[i].flags");
    $tag = $json->stringOf("answer.caa[i].tag");
    $value = $json->stringOf("answer.caa[i].value");
    $i = $i + 1;
}