mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

(get_system_name): If the official name of the host is

Browse source 
not a fully qualified domain name, then try to find one in the
list of alternate names.
This commit is contained in:
Richard M. Stallman 1994-01-03 07:21:12 +00:00
parent 151c7da254
commit 4f8804a1e5
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/sysdep.c
View file

@ -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 */