note
KM
I use this little script for checking IPs I get in SPAM headers to make sure I email the correct abuse@* addresses:
<P>
<CODE>
#!/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";
</CODE>
<P>
Cheers,<BR>
KM
75300
75300