From: Daniel Berger <djberg96@...>
Date: 2006-09-29T02:05:15+09:00
Subject: Using resolv to get the mailhost

Hi,

I'm trying to figure out a way to get the mailhost using the 'resolv'
library, but I'm having trouble because it isn't documented.  What's a
good analogue of this Perl script?

use strict;
use Net::DNS;

my $resolv = Net::DNS::Resolver->new();
my $packet = $resolv->search("mailhost");

foreach my $rr ($packet->answer){
   $rr->print;
}

# Prints the following (IP addresses changed to protect the guilty):

mailhost.foo.com.        900     IN      CNAME   mailgate.domain.com.
mailgate.domain.com.    900     IN      A       1.2.3.4
mailgate.domain.com.    900     IN      A       1.2.3.5
mailgate.domain.com.    900     IN      A       1.2.3.6
mailgate.domain.com.    900     IN      A       1.2.3.7
mailgate.domain.com.    900     IN      A       1.2.3.8
mailgate.domain.com.    900     IN      A       1.2.3.9

I'd really just like the first name of the first answer, i.e.
"mailhost.foo.com".

Thanks,

Dan