src/kadmin/testing/scripts/qualname.plin

   1 #!/afs/athena/contrib/perl/p
   2
   3 if ($#ARGV == -1) {
   4     chop($hostname = `hostname`);
   5 } else {
   6     $hostname = $ARGV[0];
   7 }
   8
   9 if (! (($name,$type,$addr) = (gethostbyname($hostname))[0,2,4])) {
  10     print STDERR "No such host: $hostname\n";
  11     exit(1);
  12 }
  13 if (! ($qualname = (gethostbyaddr($addr,$type))[0])) {
  14     $qualname = $name;
  15 }
  16
  17 $qualname =~ tr/A-Z/a-z/;       # lowercase our name for keytab use.
  18 print "$qualname\n";
  19