Well, here's a little perl script my college roommate tossed off for me:

#!/usr/bin/perl

 
use Socket;

 
$host = $ARGV[0];

 
($name,$aliases,$addrtype,$length,@addrs) = gethostbyname($host);

 
foreach $addr (@addrs)

{

    $straddr = inet_ntoa($addr);

    print "$host:  $straddr\n";

}  

Unfortunately, it returns exactly the same thing on both server and client,
forward and reverse.

While $FUNDS <= $DEBT
do
        While $current_time < 1520EDT
        Do
                Work
        Done

$FUNDS++
Cd $HOME
Done

Exit 0

Scott Ripley
DNS/VPN Administrator, HIR-Communications
U.S. House of Representatives
202.226.2833
mailto:scott.ripley AT mail.house DOT gov



> -----Original Message-----
> From: Amanda Admin [mailto:amanda AT denverdata DOT com]
> Sent: Thursday, September 04, 2003 2:01 PM
> To: Ripley, Scott
> Cc: amanda-users AT amanda DOT org
> Subject: RE: service looping/terminating
> 
> > As you can see, there are two networks co-existing on the same wire.
> Host2
> > is a website address; Amanda is supposed to be working via host1.
> Forward
> > and reverse DNS resolve to host1 and 0.1, respectively.
> >
> > FWIW, I think you're on the right track.
> 
> Excellent...
> 
> If I remember the list archives corrrectly, I think the standard test is -
> -
> for the FQDN that you've given amanda in your disklist, do you always get
> the same results from gethostbyname() on both the client and the server.
> 
> I think at one point someone posted a small C program to the list to do
> the
> gethostbyname() test, but you'll have to search for that. A litte Perl
> script would be just as good.
> 
> Happy Hunting,
> Doug
> 
> P.S. One of these days I should change the name on this account ;)