src/kadmin/testing/scripts/qualname.plin


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

#!/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);
}

$qualname =~ tr/A-Z/a-z/;	# lowercase our name for keytab use.
print "$qualname\n";