v5 database..

get_hostname: Needs to set the hostname to all lowercase for entry into the

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

diff --git a/src/tests/dejagnu/config/ChangeLog b/src/tests/dejagnu/config/ChangeLog
index 1f20473e9dd7c31a9ccac6ea632f1cd721422a18..1caa5f1bf40ff47acfb6dfebe65f877f990204fd 100644 (file)
--- a/src/tests/dejagnu/config/ChangeLog
+++ b/src/tests/dejagnu/config/ChangeLog
@@ -1,3 +1,9 @@
+Wed May  3 22:00:48 1995  Ezra Peisach  <epeisach@kangaroo.mit.edu>
+
+       * default.exp: (get_hostname): The FQDN returned by resolve needs
+               to be made lower case as the host name is entered directly
+               into the database.
+
 Mon May  1 21:32:57 1995  Theodore Y. Ts'o  (tytso@dcl)
 
        * default.exp: (get_hostname): Use tests/resolve/resolve to get

diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp
index 8a599523feacb7c33e3b548701a8f29962e02a4d..e28b7fa95330053f9ab0b65c69405025ce1e313f 100644 (file)
--- a/src/tests/dejagnu/config/default.exp
+++ b/src/tests/dejagnu/config/default.exp
@@ -184,6 +184,9 @@ proc get_hostname { } {
     close $file
     catch "exec rm -f tmpdir/hostname" exec_output
     regexp "^\[^.\]*" $hostname localhostname
+
+    set hostname [string tolower $hostname]
+    set localhostname [string tolower $localhostname]
     verbose "hostname: $hostname; localhostname: $localhostname"
 
     return 1