(Tcl) 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.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set dns [new_CkDns]

set json [new_CkJsonObject]

CkJsonObject_put_EmitCompact $json 0

set success [CkDns_Query $dns "CAA" "zoom.us" $json]
if {$success == 0} then {
    puts [CkDns_lastErrorText $dns]
    delete_CkDns $dns
    delete_CkJsonObject $json
    exit
}

puts [CkJsonObject_emit $json]

# 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

set i 0
set count_i [CkJsonObject_SizeOfArray $json "answer.caa"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set name [CkJsonObject_stringOf $json "answer.caa[i].name"]
    set ttl [CkJsonObject_IntOf $json "answer.caa[i].ttl"]
    set flags [CkJsonObject_IntOf $json "answer.caa[i].flags"]
    set tag [CkJsonObject_stringOf $json "answer.caa[i].tag"]
    set value [CkJsonObject_stringOf $json "answer.caa[i].value"]
    set i [expr $i + 1]
}

delete_CkDns $dns
delete_CkJsonObject $json