From 4f8804a1e59f29007ccf33fd103ef047bdfcd9b1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 3 Jan 1994 07:21:12 +0000 Subject: [PATCH] (get_system_name): If the official name of the host is not a fully qualified domain name, then try to find one in the list of alternate names. --- src/sysdep.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/sysdep.c b/src/sysdep.c index 55f4d57da1b..bdac188ed64 100644 --- a/src/sysdep.c +++ b/src/sysdep.c @@ -1895,6 +1895,16 @@ get_system_name () hp = gethostbyname (system_name_saved); if (hp && strlen (hp->h_name) < sizeof(system_name_saved)) strcpy (system_name_saved, hp->h_name); + if (hp && !index (system_name_saved, '.')) + { + /* We still don't have a fully qualified domain name. + Try to find one in the list of alternate names */ + char **alias = hp->h_aliases; + while (*alias && !index (*alias, '.')) + alias++; + if (*alias && strlen (*alias) < sizeof (system_name_saved)) + strcpy (system_name_saved, *alias); + } } #endif /* HAVE_SOCKETS */ #endif /* not VMS */ -- 2.39.5