src/kadmin/testing/scripts/qualname.pl.in


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/afs/athena/contrib/perl/p

if ($#ARGV == -1) {
    chop($hostname = `hostname`);
} else {
    $hostname = $ARGV[0];
}

if (! (($type,$addr) = (gethostbyname($hostname))[2,4])) {
    print STDERR "No such host: $hostname\n";
    exit(1);
}
if (! ($qualname = (gethostbyaddr($addr,$type))[0])) {
    print STDERR "No address information for host $hostname\n";
    exit(1);
}
print "$qualname\n";