qualname.plin: Downcase FQDN for keytab use. [krb5-libs/116]

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@9193 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/kadmin/testing/scripts/ChangeLog b/src/kadmin/testing/scripts/ChangeLog
index 8006bd36e3a61f264c67227ecc98174e9124fe37..18adbde2f239925f16aa5d4882c3dc88c24c0fbf 100644 (file)
--- a/src/kadmin/testing/scripts/ChangeLog
+++ b/src/kadmin/testing/scripts/ChangeLog
@@ -1,3 +1,7 @@
+Thu Oct 17 18:28:36 1996  Ezra Peisach  <epeisach@kangaroo.mit.edu>
+
+       * qualname.plin: Downcase the FQDN for keytab use. [krb5-libs/116]
+
 Tue Oct 15 18:39:58 1996  Ezra Peisach  <epeisach@kangaroo.mit.edu>
 
        * env-setup.shin: Support for build tree shared library

diff --git a/src/kadmin/testing/scripts/qualname.plin b/src/kadmin/testing/scripts/qualname.plin
index 3d047c550a0badeb8aeda07f8877ac9581e5a490..883b7dfc8c115c8dcc1b4b0f83610b38d0f481c2 100644 (file)
--- a/src/kadmin/testing/scripts/qualname.plin
+++ b/src/kadmin/testing/scripts/qualname.plin
@@ -14,5 +14,7 @@ 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";