From 2426eb7b0fd52d3ef7d5f79c3f6284985f49476c Mon Sep 17 00:00:00 2001
From: Ezra Peisach <epeisach@mit.edu>
Date: Thu, 26 Sep 1996 15:47:49 +0000
Subject: 	* qualname.pl.in: Renamed old qualname to here as perl path
 needs 		updating.

	* Makefile.in (GEN_SCRIPTS): Add qualname.pl

	* start_servers_local, env-setup.sh (QUALNAME): Replace with
		qualname.pl.

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@9118 dc483132-0cff-0310-8789-dd5450dbe970
---
 src/kadmin/testing/scripts/qualname.plin | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/kadmin/testing/scripts/qualname.plin

(limited to 'src/kadmin/testing/scripts/qualname.plin')

diff --git a/src/kadmin/testing/scripts/qualname.plin b/src/kadmin/testing/scripts/qualname.plin
new file mode 100644
index 0000000000..3d047c550a
--- /dev/null
+++ b/src/kadmin/testing/scripts/qualname.plin
@@ -0,0 +1,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";
+
-- 
cgit