#! /usr/local/bin/perl

# Written by Warren A. Kibbe, 10/5/96
#
# A very simple way to look up IPs passed in the command line

if ($ARGV[0]) {
    $ip=$ARGV[0];
   # if lookup fails, set to "unknown"
    ($a, $b, $c, $d) = split(/\./, $ip);
    $address = pack('C4', $a, $b, $c, $d);

    ($name, $aliases, $adrtype, $length, @serveraddr) = gethostbyaddr($address, 2);
    $name =~ tr/A-Z/a-z/;   # convert dns name to lowercase
    if ( $name eq '') {
      print " ";
    }
    else {
      if ( $aliases eq '' ) {
        print "name = $name \n";
      }
      else {
        print "name = $name,  aliases = $aliases \n";
      }
   }
}

0;

__END__