lib/canon-host.c

   1 /* Host name canonicalization
   2
   3    Copyright (C) 1995, 1999 Free Software Foundation, Inc.
   4
   5    Written by Miles Bader <miles@gnu.ai.mit.edu>
   6
   7    This program is free software; you can redistribute it and/or
   8    modify it under the terms of the GNU General Public License as
   9    published by the Free Software Foundation; either version 2, or (at
  10    your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful, but
  13    WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15    General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software Foundation,
  19    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  20
  21 #ifdef HAVE_CONFIG_H
  22 # include <config.h>
  23 #endif
  24
  25 #include <sys/types.h>
  26 #ifdef HAVE_UNISTD_H
  27 # include <unistd.h>
  28 #endif
  29 #ifdef HAVE_STRING_H
  30 # include <string.h>
  31 #endif
  32 #ifdef HAVE_NETDB_H
  33 # include <netdb.h>
  34 #endif
  35 #ifdef HAVE_SYS_SOCKET_H
  36 # include <sys/socket.h>
  37 #endif
  38
  39 #ifdef HAVE_NETINET_IN_H
  40 # include <netinet/in.h>
  41 #endif
  42 #ifdef HAVE_ARPA_INET_H
  43 # include <arpa/inet.h>
  44 #endif
  45
  46 /* Returns the canonical hostname associated with HOST (allocated in a static
  47    buffer), or 0 if it can't be determined.  */
  48 char *
  49 canon_host (const char *host)
  50 {
  51 #ifdef HAVE_GETHOSTBYNAME
  52   struct hostent *he = gethostbyname (host);
  53
  54   if (he)
  55     {
  56 # ifdef HAVE_GETHOSTBYADDR
  57       char *addr = 0;
  58
  59       /* Try and get an ascii version of the numeric host address.  */
  60       switch (he->h_addrtype)
  61         {
  62 #  ifdef HAVE_INET_NTOA
  63         case AF_INET:
  64           addr = inet_ntoa (*(struct in_addr *) he->h_addr);
  65           break;
  66 #  endif /* HAVE_INET_NTOA */
  67         }
  68
  69       if (addr && strcmp (he->h_name, addr) == 0)
  70         /* gethostbyname() cheated!  Lookup the host name via the address
  71            this time to get the actual host name.  */
  72         he = gethostbyaddr (he->h_addr, he->h_length, he->h_addrtype);
  73 # endif /* HAVE_GETHOSTBYADDR */
  74
  75       if (he)
  76         return (char *) (he->h_name);
  77     }
  78 #endif /* HAVE_GETHOSTBYNAME */
  79   return 0;
  80 }