# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757581672 0
# Node ID a5e2d8c441440e2ee03238ca51535d96a6f9efee
# Parent  a35739cc202604f38155ea605f343ad0bd886571
(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.

diff -r a35739cc2026 -r a5e2d8c44144 src/sysdep.c
--- a/src/sysdep.c	Mon Jan 03 05:14:06 1994 +0000
+++ b/src/sysdep.c	Mon Jan 03 07:21:12 1994 +0000
@@ -1895,6 +1895,16 @@
       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 */