Re: DNS Resolution4

[KM]

in reply to DNS Resolution4

I use this little script for checking IPs I get in SPAM headers to make sure I email the correct abuse@* addresses:

#!/usr/bin/perl -w

use strict;
use Socket;
my $ip = $ARGV[0] || undef;

unless ($ip) {
    print "What is the IP?\n";
    $ip = <STDIN>;
    chomp $ip;
}

die "No IP given\n" if !$ip;
print "Finding host for $ip...\n";
my $iaddr = inet_aton($ip);
my $name = gethostbyaddr($iaddr, AF_INET) || "NO DATA";

print "$ip is $name\n";

Cheers,
KM