(Tcl) RDAP Domain Lookup using rdap.org

Demonstrates doing an RDAP domain lookup using the rdap.org public RDAP server.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

set http [new_CkHttp]

# Send HTTP requests to https://rdap.org/<type>/<object>, where <type> is the object type (one of domain, ip, autnum, entity etc)
# and <object> is the object identifier (eg example.com, 192.168.0.1, 64496, etc).

# For example, here's a lookup for "oracle.com"
set sbResponse [new_CkStringBuilder]

set success [CkHttp_QuickGetSb $http "https://rdap.org/domain/oracle.com" $sbResponse]
if {$success == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponse
    exit
}

set statusCode [CkHttp_get_LastStatus $http]
if {$statusCode != 200} then {
    puts "Error response:"
    puts [CkStringBuilder_getAsString $sbResponse]
    puts "status code: $statusCode"
    delete_CkHttp $http
    delete_CkStringBuilder $sbResponse
    exit
}

# Load the JSON response and examine..

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

set json [new_CkJsonObject]

CkJsonObject_LoadSb $json $sbResponse
CkJsonObject_put_EmitCompact $json 0
puts [CkJsonObject_emit $json]

# Here's a sample response, and the parsing code generated from the above online tool follows..

# {
#   "objectClassName": "domain",
#   "handle": "607513_DOMAIN_COM-VRSN",
#   "ldhName": "ORACLE.COM",
#   "links": [
#     {
#       "value": "https:\/\/rdap.verisign.com\/com\/v1\/domain\/ORACLE.COM",
#       "rel": "self",
#       "href": "https:\/\/rdap.verisign.com\/com\/v1\/domain\/ORACLE.COM",
#       "type": "application\/rdap+json"
#     },
#     {
#       "value": "https:\/\/rdap.markmonitor.com\/rdap\/domain\/ORACLE.COM",
#       "rel": "related",
#       "href": "https:\/\/rdap.markmonitor.com\/rdap\/domain\/ORACLE.COM",
#       "type": "application\/rdap+json"
#     }
#   ],
#   "status": [
#     "client delete prohibited",
#     "client transfer prohibited",
#     "client update prohibited",
#     "server delete prohibited",
#     "server transfer prohibited",
#     "server update prohibited"
#   ],
#   "entities": [
#     {
#       "objectClassName": "entity",
#       "handle": "292",
#       "roles": [
#         "registrar"
#       ],
#       "publicIds": [
#         {
#           "type": "IANA Registrar ID",
#           "identifier": "292"
#         }
#       ],
#       "vcardArray": [
#         "vcard",
#         [
#           [
#             "version",
#             {},
#             "text",
#             "4.0"
#           ],
#           [
#             "fn",
#             {},
#             "text",
#             "MarkMonitor Inc."
#           ]
#         ]
#       ],
#       "entities": [
#         {
#           "objectClassName": "entity",
#           "roles": [
#             "abuse"
#           ],
#           "vcardArray": [
#             "vcard",
#             [
#               [
#                 "version",
#                 {},
#                 "text",
#                 "4.0"
#               ],
#               [
#                 "fn",
#                 {},
#                 "text",
#                 ""
#               ],
#               [
#                 "tel",
#                 {
#                   "type": "voice"
#                 },
#                 "uri",
#                 "tel:+1.2086851750"
#               ],
#               [
#                 "email",
#                 {},
#                 "text",
#                 "abusecomplaints@markmonitor.com"
#               ]
#             ]
#           ]
#         }
#       ]
#     }
#   ],
#   "events": [
#     {
#       "eventAction": "registration",
#       "eventDate": "1988-12-02T05:00:00Z"
#     },
#     {
#       "eventAction": "expiration",
#       "eventDate": "2025-12-01T05:00:00Z"
#     },
#     {
#       "eventAction": "last changed",
#       "eventDate": "2024-10-30T09:32:52Z"
#     },
#     {
#       "eventAction": "last update of RDAP database",
#       "eventDate": "2024-11-26T14:11:14Z"
#     }
#   ],
#   "secureDNS": {
#     "delegationSigned": false
#   },
#   "nameservers": [
#     {
#       "objectClassName": "nameserver",
#       "ldhName": "A1-160.AKAM.NET"
#     },
#     {
#       "objectClassName": "nameserver",
#       "ldhName": "A11-66.AKAM.NET"
#     },
#     {
#       "objectClassName": "nameserver",
#       "ldhName": "A13-65.AKAM.NET"
#     },
#     {
#       "objectClassName": "nameserver",
#       "ldhName": "A18-67.AKAM.NET"
#     },
#     {
#       "objectClassName": "nameserver",
#       "ldhName": "NS1.P201.DNS.ORACLECLOUD.NET"
#     },
#     {
#       "objectClassName": "nameserver",
#       "ldhName": "NS2.P201.DNS.ORACLECLOUD.NET"
#     },
#     {
#       "objectClassName": "nameserver",
#       "ldhName": "NS3.P201.DNS.ORACLECLOUD.NET"
#     },
#     {
#       "objectClassName": "nameserver",
#       "ldhName": "NS4.P201.DNS.ORACLECLOUD.NET"
#     }
#   ],
#   "rdapConformance": [
#     "rdap_level_0",
#     "icann_rdap_technical_implementation_guide_0",
#     "icann_rdap_response_profile_0"
#   ],
#   "notices": [
#     {
#       "title": "Terms of Use",
#       "description": [
#         "Service subject to Terms of Use."
#       ],
#       "links": [
#         {
#           "href": "https:\/\/www.verisign.com\/domain-names\/registration-data-access-protocol\/terms-service\/index.xhtml",
#           "type": "text\/html"
#         }
#       ]
#     },
#     {
#       "title": "Status Codes",
#       "description": [
#         "For more information on domain status codes, please visit https:\/\/icann.org\/epp"
#       ],
#       "links": [
#         {
#           "href": "https:\/\/icann.org\/epp",
#           "type": "text\/html"
#         }
#       ]
#     },
#     {
#       "title": "RDDS Inaccuracy Complaint Form",
#       "description": [
#         "URL of the ICANN RDDS Inaccuracy Complaint Form: https:\/\/icann.org\/wicf"
#       ],
#       "links": [
#         {
#           "href": "https:\/\/icann.org\/wicf",
#           "type": "text\/html"
#         }
#       ]
#     }
#   ]
# }

# json1 is a CkJsonObject

set objectClassName [CkJsonObject_stringOf $json "objectClassName"]
set handle [CkJsonObject_stringOf $json "handle"]
set ldhName [CkJsonObject_stringOf $json "ldhName"]
set DelegationSigned [CkJsonObject_BoolOf $json "secureDNS.delegationSigned"]
set i 0
set count_i [CkJsonObject_SizeOfArray $json "links"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set value [CkJsonObject_stringOf $json "links[i].value"]
    set rel [CkJsonObject_stringOf $json "links[i].rel"]
    set href [CkJsonObject_stringOf $json "links[i].href"]
    set v_type [CkJsonObject_stringOf $json "links[i].type"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $json "status"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set strVal [CkJsonObject_stringOf $json "status[i]"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $json "entities"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set objectClassName [CkJsonObject_stringOf $json "entities[i].objectClassName"]
    set handle [CkJsonObject_stringOf $json "entities[i].handle"]
    set j 0
    set count_j [CkJsonObject_SizeOfArray $json "entities[i].roles"]
    while {$j < $count_j} {
        CkJsonObject_put_J $json $j
        set strVal [CkJsonObject_stringOf $json "entities[i].roles[j]"]
        set j [expr $j + 1]
    }
    set j 0
    set count_j [CkJsonObject_SizeOfArray $json "entities[i].publicIds"]
    while {$j < $count_j} {
        CkJsonObject_put_J $json $j
        set v_type [CkJsonObject_stringOf $json "entities[i].publicIds[j].type"]
        set identifier [CkJsonObject_stringOf $json "entities[i].publicIds[j].identifier"]
        set j [expr $j + 1]
    }
    set j 0
    set count_j [CkJsonObject_SizeOfArray $json "entities[i].vcardArray"]
    while {$j < $count_j} {
        CkJsonObject_put_J $json $j
        set strVal [CkJsonObject_stringOf $json "entities[i].vcardArray[j]"]
        set k 0
        set count_k [CkJsonObject_SizeOfArray $json "entities[i].vcardArray[j]"]
        while {$k < $count_k} {
            CkJsonObject_put_K $json $k

            set json1 [CkJsonObject_ObjectOf $json "entities[i].vcardArray[j][k]"]
            set i1 0
            set count_i1 [CkJsonObject_SizeOfArray $json1 ""]
            while {$i1 < $count_i1} {
                CkJsonObject_put_I $json1 $i1
                set strVal [CkJsonObject_stringOf $json1 "[i]"]
                set i1 [expr $i1 + 1]
            }
            delete_CkJsonObject $json1

            set k [expr $k + 1]
        }
        set j [expr $j + 1]
    }
    set j 0
    set count_j [CkJsonObject_SizeOfArray $json "entities[i].entities"]
    while {$j < $count_j} {
        CkJsonObject_put_J $json $j
        set objectClassName [CkJsonObject_stringOf $json "entities[i].entities[j].objectClassName"]
        set k 0
        set count_k [CkJsonObject_SizeOfArray $json "entities[i].entities[j].roles"]
        while {$k < $count_k} {
            CkJsonObject_put_K $json $k
            set strVal [CkJsonObject_stringOf $json "entities[i].entities[j].roles[k]"]
            set k [expr $k + 1]
        }
        set k 0
        set count_k [CkJsonObject_SizeOfArray $json "entities[i].entities[j].vcardArray"]
        while {$k < $count_k} {
            CkJsonObject_put_K $json $k
            set strVal [CkJsonObject_stringOf $json "entities[i].entities[j].vcardArray[k]"]

            set json1 [CkJsonObject_ObjectOf $json "entities[i].entities[j].vcardArray[k]"]
            set i1 0
            set count_i1 [CkJsonObject_SizeOfArray $json1 ""]
            while {$i1 < $count_i1} {
                CkJsonObject_put_I $json1 $i1
                set j1 0
                set count_j1 [CkJsonObject_SizeOfArray $json1 "[i]"]
                while {$j1 < $count_j1} {
                    CkJsonObject_put_J $json1 $j1
                    set strVal [CkJsonObject_stringOf $json1 "[i][j]"]
                    set j1 [expr $j1 + 1]
                }
                set i1 [expr $i1 + 1]
            }
            delete_CkJsonObject $json1

            set k [expr $k + 1]
        }
        set j [expr $j + 1]
    }
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $json "events"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set eventAction [CkJsonObject_stringOf $json "events[i].eventAction"]
    set eventDate [CkJsonObject_stringOf $json "events[i].eventDate"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $json "nameservers"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set objectClassName [CkJsonObject_stringOf $json "nameservers[i].objectClassName"]
    set ldhName [CkJsonObject_stringOf $json "nameservers[i].ldhName"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $json "rdapConformance"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set strVal [CkJsonObject_stringOf $json "rdapConformance[i]"]
    set i [expr $i + 1]
}
set i 0
set count_i [CkJsonObject_SizeOfArray $json "notices"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set title [CkJsonObject_stringOf $json "notices[i].title"]
    set j 0
    set count_j [CkJsonObject_SizeOfArray $json "notices[i].description"]
    while {$j < $count_j} {
        CkJsonObject_put_J $json $j
        set strVal [CkJsonObject_stringOf $json "notices[i].description[j]"]
        set j [expr $j + 1]
    }
    set j 0
    set count_j [CkJsonObject_SizeOfArray $json "notices[i].links"]
    while {$j < $count_j} {
        CkJsonObject_put_J $json $j
        set href [CkJsonObject_stringOf $json "notices[i].links[j].href"]
        set v_type [CkJsonObject_stringOf $json "notices[i].links[j].type"]
        set j [expr $j + 1]
    }
    set i [expr $i + 1]
}

delete_CkHttp $http
delete_CkStringBuilder $sbResponse
delete_CkJsonObject $json