Perl

Transition from MailMan.MxLookup to Dns.Query

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

use chilkat();

$success = 0;

$mailman = chilkat::CkMailMan->new();

# ...
# ...

$emailAddr = 'joe@example.com';

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

$domain = $mailman->mxLookup($emailAddr);
if ($mailman->get_LastMethodSuccess() == 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

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

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

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

# This gets all MX domains for an email address.  (Typically one domain.)
# The preferred domain will be at index 0 (see below).
$success = $dns->Query("MX",$emailAddr,$json);
if ($success == 0) {
    print $dns->lastErrorText() . "\r\n";
    exit;
}

$i = 0;
$count_i = $json->SizeOfArray("answer.mx");
while ($i < $count_i) {
    $json->put_I($i);
    $domain = $json->stringOf("answer.mx[i].domain");
    print $domain . "\r\n";
    $i = $i + 1;
}