Mercurial > hg > octave-nkf > gnulib-hg

annotate lib/canon-host.c @ 5498:ac6438eb46c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add base64.
author Simon Josefsson <simon@josefsson.org>
date Tue, 30 Nov 2004 20:46:52 +0000
parents 81e1a3092078
children a48fb0e98c8c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
1 /* Host name canonicalization
Jim Meyering <jim@meyering.net>
parents:
diff changeset
2
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
3 Copyright (C) 1995, 1999, 2000, 2002, 2003, 2004 Free Software
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
4 Foundation, Inc.
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
5
Jim Meyering <jim@meyering.net>
parents:
diff changeset
6 Written by Miles Bader <miles@gnu.ai.mit.edu>
Jim Meyering <jim@meyering.net>
parents:
diff changeset
7
Jim Meyering <jim@meyering.net>
parents:
diff changeset
8 This program is free software; you can redistribute it and/or
Jim Meyering <jim@meyering.net>
parents:
diff changeset
9 modify it under the terms of the GNU General Public License as
Jim Meyering <jim@meyering.net>
parents:
diff changeset
10 published by the Free Software Foundation; either version 2, or (at
Jim Meyering <jim@meyering.net>
parents:
diff changeset
11 your option) any later version.
Jim Meyering <jim@meyering.net>
parents:
diff changeset
12
Jim Meyering <jim@meyering.net>
parents:
diff changeset
13 This program is distributed in the hope that it will be useful, but
Jim Meyering <jim@meyering.net>
parents:
diff changeset
14 WITHOUT ANY WARRANTY; without even the implied warranty of
Jim Meyering <jim@meyering.net>
parents:
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Jim Meyering <jim@meyering.net>
parents:
diff changeset
16 General Public License for more details.
Jim Meyering <jim@meyering.net>
parents:
diff changeset
17
Jim Meyering <jim@meyering.net>
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
651
242f0fe39aa7 update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents: 554
diff changeset
19 along with this program; if not, write to the Free Software Foundation,
242f0fe39aa7 update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents: 554
diff changeset
20 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
21
Jim Meyering <jim@meyering.net>
parents:
diff changeset
22 #ifdef HAVE_CONFIG_H
653
b63f146fd963 indent cpp-directives
Jim Meyering <jim@meyering.net>
parents: 651
diff changeset
23 # include <config.h>
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
24 #endif
Jim Meyering <jim@meyering.net>
parents:
diff changeset
25
772
ff648b6bd671 Include sys/types.h for the definitions
Jim Meyering <jim@meyering.net>
parents: 653
diff changeset
26 #include <sys/types.h>
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
27 #ifdef HAVE_UNISTD_H
653
b63f146fd963 indent cpp-directives
Jim Meyering <jim@meyering.net>
parents: 651
diff changeset
28 # include <unistd.h>
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
29 #endif
4635
c74e2d0a05f5 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4086
diff changeset
30 #include <stdlib.h>
c74e2d0a05f5 Remove K&R cruft.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4086
diff changeset
31 #include <string.h>
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32 #ifdef HAVE_NETDB_H
653
b63f146fd963 indent cpp-directives
Jim Meyering <jim@meyering.net>
parents: 651
diff changeset
33 # include <netdb.h>
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
34 #endif
554
d6b4cc9397db [HAVE_SYS_SOCKET_H]: Include <sys/socket.h> for definition of AF_INET
Jim Meyering <jim@meyering.net>
parents: 552
diff changeset
35 #ifdef HAVE_SYS_SOCKET_H
653
b63f146fd963 indent cpp-directives
Jim Meyering <jim@meyering.net>
parents: 651
diff changeset
36 # include <sys/socket.h>
554
d6b4cc9397db [HAVE_SYS_SOCKET_H]: Include <sys/socket.h> for definition of AF_INET
Jim Meyering <jim@meyering.net>
parents: 552
diff changeset
37 #endif
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
38
Jim Meyering <jim@meyering.net>
parents:
diff changeset
39 #ifdef HAVE_NETINET_IN_H
653
b63f146fd963 indent cpp-directives
Jim Meyering <jim@meyering.net>
parents: 651
diff changeset
40 # include <netinet/in.h>
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
41 #endif
Jim Meyering <jim@meyering.net>
parents:
diff changeset
42 #ifdef HAVE_ARPA_INET_H
653
b63f146fd963 indent cpp-directives
Jim Meyering <jim@meyering.net>
parents: 651
diff changeset
43 # include <arpa/inet.h>
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
44 #endif
Jim Meyering <jim@meyering.net>
parents:
diff changeset
45
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
46 #include "strdup.h"
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
47
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
48 /* Returns the canonical hostname associated with HOST (allocated in a static
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
49 buffer), or NULL if it can't be determined. */
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
50 char *
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
51 canon_host (char const *host)
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
52 {
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
53 char *h_addr_copy = NULL;
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
54
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
55 #if HAVE_GETADDRINFO
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
56 {
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
57 struct addrinfo hint = { 0 };
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
58 struct addrinfo *res = NULL;
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
59 hint.ai_flags = AI_CANONNAME;
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
60 if (getaddrinfo (host, NULL, &hint, &res) == 0)
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
61 {
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
62 h_addr_copy = strdup (res->ai_canonname);
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
63 freeaddrinfo (res);
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
64 }
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
65 }
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
66 #elif HAVE_GETHOSTBYNAME
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
67 {
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
68 struct hostent *he = gethostbyname (host);
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
69
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
70 if (he)
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
71 {
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
72 # ifdef HAVE_GETHOSTBYADDR
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
73 char *addr = NULL;
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
74
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
75 /* Try and get an ascii version of the numeric host address. */
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
76 switch (he->h_addrtype)
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
77 {
653
b63f146fd963 indent cpp-directives
Jim Meyering <jim@meyering.net>
parents: 651
diff changeset
78 # ifdef HAVE_INET_NTOA
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
79 case AF_INET:
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
80 addr = inet_ntoa (*(struct in_addr *) he->h_addr);
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
81 break;
653
b63f146fd963 indent cpp-directives
Jim Meyering <jim@meyering.net>
parents: 651
diff changeset
82 # endif /* HAVE_INET_NTOA */
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
83 }
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
84
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
85 if (addr && strcmp (he->h_name, addr) == 0)
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
86 {
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
87 /* gethostbyname has returned a string representation of the IP
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
88 address, for example, "127.0.0.1". So now, look up the host
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
89 name via the address. Although it may seem reasonable to look
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
90 up the host name via the address, we must not pass `he->h_addr'
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
91 directly to gethostbyaddr because on some systems he->h_addr
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
92 is located in a static library buffer that is reused in the
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
93 gethostbyaddr call. Make a copy and use that instead. */
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
94 h_addr_copy = (char *) malloc (he->h_length);
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
95 if (h_addr_copy == NULL)
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
96 he = NULL;
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
97 else
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
98 {
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
99 memcpy (h_addr_copy, he->h_addr, he->h_length);
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
100 he = gethostbyaddr (h_addr_copy, he->h_length, he->h_addrtype);
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
101 free (h_addr_copy);
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
102 }
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
103 }
653
b63f146fd963 indent cpp-directives
Jim Meyering <jim@meyering.net>
parents: 651
diff changeset
104 # endif /* HAVE_GETHOSTBYADDR */
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
105
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
106 if (he)
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
107 h_addr_copy = strdup (he->h_name);
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
108 }
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
109 }
552
5e4f16c3fa39 Be careful to always return something.
Jim Meyering <jim@meyering.net>
parents: 549
diff changeset
110 #endif /* HAVE_GETHOSTBYNAME */
5458
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
111
81e1a3092078 Import from coreutils.
Paul Eggert <eggert@cs.ucla.edu>
parents: 4635
diff changeset
112 return h_addr_copy;
548
Jim Meyering <jim@meyering.net>
parents:
diff changeset
113 }
1631
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
114
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
115 #ifdef TEST_CANON_HOST
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
116 int
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
117 main (int argc, char **argv)
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
118 {
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
119 int i;
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
120 for (i = 1; i < argc; i++)
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
121 {
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
122 char *s = canon_host (argv[i]);
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
123 printf ("%s: %s\n", argv[i], (s ? s : "<undef>"));
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
124 }
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
125 exit (0);
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
126 }
3072de090265 (main) [TEST_CANON_HOST]: Add a simple test driver.
Jim Meyering <jim@meyering.net>
parents: 1622
diff changeset
127 #endif /* TEST_CANON_HOST */