Unicode C
Unicode C
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 Unicode C Downloads
#include <C_CkDnsW.h>
#include <C_CkJsonObjectW.h>
void ChilkatSample(void)
{
BOOL success;
HCkDnsW dns;
HCkJsonObjectW json;
const wchar_t *name;
int ttl;
int flags;
const wchar_t *tag;
const wchar_t *value;
int i;
int count_i;
success = FALSE;
dns = CkDnsW_Create();
json = CkJsonObjectW_Create();
CkJsonObjectW_putEmitCompact(json,FALSE);
success = CkDnsW_Query(dns,L"CAA",L"zoom.us",json);
if (success == FALSE) {
wprintf(L"%s\n",CkDnsW_lastErrorText(dns));
CkDnsW_Dispose(dns);
CkJsonObjectW_Dispose(json);
return;
}
wprintf(L"%s\n",CkJsonObjectW_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
i = 0;
count_i = CkJsonObjectW_SizeOfArray(json,L"answer.caa");
while (i < count_i) {
CkJsonObjectW_putI(json,i);
name = CkJsonObjectW_stringOf(json,L"answer.caa[i].name");
ttl = CkJsonObjectW_IntOf(json,L"answer.caa[i].ttl");
flags = CkJsonObjectW_IntOf(json,L"answer.caa[i].flags");
tag = CkJsonObjectW_stringOf(json,L"answer.caa[i].tag");
value = CkJsonObjectW_stringOf(json,L"answer.caa[i].value");
i = i + 1;
}
CkDnsW_Dispose(dns);
CkJsonObjectW_Dispose(json);
}