1 files changed, 0 insertions, 18 deletions
diff --git a/src/kadmin/testing/scripts/qualname.pl.in b/src/kadmin/testing/scripts/qualname.pl.in
deleted file mode 100644
index 3d047c550..000000000
--- a/src/kadmin/testing/scripts/qualname.pl.in
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/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";
-