(Tcl) Transition from MailMan.MxLookup to Dns.Query

Provides instructions for replacing deprecated MxLookup method calls with the Chilkat Dns class.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set mailman [new_CkMailMan]

# ...
# ...

set emailAddr "joe@example.com"

# ------------------------------------------------------------------------
# The MxLookup method is deprecated:

set domain [CkMailMan_mxLookup $mailman $emailAddr]
if {[CkMailMan_get_LastMethodSuccess $mailman] == 0} then {
    puts [CkMailMan_lastErrorText $mailman]
    delete_CkMailMan $mailman
    exit
}

# ------------------------------------------------------------------------
# Do the equivalent using the Chilkat DNS class

set dns [new_CkDns]

set json [new_CkJsonObject]

# This gets all MX domains for an email address.  (Typically one domain.)
# The preferred domain will be at index 0 (see below).
set success [CkDns_Query $dns "MX" $emailAddr $json]
if {$success == 0} then {
    puts [CkDns_lastErrorText $dns]
    delete_CkMailMan $mailman
    delete_CkDns $dns
    delete_CkJsonObject $json
    exit
}

set i 0
set count_i [CkJsonObject_SizeOfArray $json "answer.mx"]
while {$i < $count_i} {
    CkJsonObject_put_I $json $i
    set domain [CkJsonObject_stringOf $json "answer.mx[i].domain"]
    puts "$domain"
    set i [expr $i + 1]
}

delete_CkMailMan $mailman
delete_CkDns $dns
delete_CkJsonObject $json