From 1251c506a83cb2e8cdc6ed99dfb545baa405c19a Mon Sep 17 00:00:00 2001 From: Ezra Peisach Date: Thu, 4 May 1995 02:03:40 +0000 Subject: [PATCH] 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 --- src/tests/dejagnu/config/ChangeLog | 6 ++++++ src/tests/dejagnu/config/default.exp | 3 +++ 2 files changed, 9 insertions(+) diff --git a/src/tests/dejagnu/config/ChangeLog b/src/tests/dejagnu/config/ChangeLog index 1f20473e9..1caa5f1bf 100644 --- 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 + + * 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 8a599523f..e28b7fa95 100644 --- 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 -- 2.26.2