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

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

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

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

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