b9454f63961f32dd703ccb7b575a73501eb8d745
[kopensolaris-gnu/glibc.git] / inet / getnameinfo.c
1 /* The Inner Net License, Version 2.00
2
3   The author(s) grant permission for redistribution and use in source and
4 binary forms, with or without modification, of the software and documentation
5 provided that the following conditions are met:
6
7 0. If you receive a version of the software that is specifically labelled
8    as not being for redistribution (check the version message and/or README),
9    you are not permitted to redistribute that version of the software in any
10    way or form.
11 1. All terms of the all other applicable copyrights and licenses must be
12    followed.
13 2. Redistributions of source code must retain the authors' copyright
14    notice(s), this list of conditions, and the following disclaimer.
15 3. Redistributions in binary form must reproduce the authors' copyright
16    notice(s), this list of conditions, and the following disclaimer in the
17    documentation and/or other materials provided with the distribution.
18 4. All advertising materials mentioning features or use of this software
19    must display the following acknowledgement with the name(s) of the
20    authors as specified in the copyright notice(s) substituted where
21    indicated:
22
23         This product includes software developed by <name(s)>, The Inner
24         Net, and other contributors.
25
26 5. Neither the name(s) of the author(s) nor the names of its contributors
27    may be used to endorse or promote products derived from this software
28    without specific prior written permission.
29
30 THIS SOFTWARE IS PROVIDED BY ITS AUTHORS AND CONTRIBUTORS ``AS IS'' AND ANY
31 EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
32 WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
33 DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE FOR ANY
34 DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
35 (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
36 LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
37 ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
38 (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
39 SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
40
41   If these license terms cause you a real problem, contact the author.  */
42
43 /* This software is Copyright 1996 by Craig Metz, All Rights Reserved.  */
44
45 #define INET6 1
46 #define LOCAL 1
47 #define HOSTTABLE 0
48
49 #include <sys/types.h>
50 #include <sys/socket.h>
51
52 #include <netinet/in.h>
53 #if LOCAL
54 #include <sys/un.h>
55 #include <sys/utsname.h>
56 #endif /* LOCAL */
57 #include <netdb.h>
58 #include <errno.h>
59 #include <string.h>
60 #include <stdio.h>
61 #include <unistd.h>
62
63 #ifndef AF_LOCAL
64 #define AF_LOCAL AF_UNIX
65 #endif /* AF_LOCAL */
66
67 #if HOSTTABLE
68 struct hostent *_addr2hostname_hosts(const char *, int, int);
69 #endif /* HOSTTABLE */
70
71 #ifndef MAXHOSTNAMELEN
72 #define MAXHOSTNAMELEN 128
73 #endif
74
75 #ifndef min
76 #define min(x,y) (((x) > (y)) ? (y) : (x))
77 #endif /* min */
78
79 static char *domain;
80 static char domainbuffer[MAXHOSTNAMELEN];
81
82
83 static char *
84 nrl_domainname (void)
85 {
86   static int first = 1;
87
88   if (first) {
89     char *c;
90     struct hostent *h;
91
92     first = 0;
93
94     if ((h = gethostbyname("localhost")) && (c = strchr(h->h_name, '.')))
95       return strcpy(domain = domainbuffer, ++c);
96
97     if (!gethostname(domainbuffer, sizeof(domainbuffer))) {
98       if (c = strchr(domainbuffer, '.'))
99         return (domain = ++c);
100
101       if ((h = gethostbyname(domainbuffer)) && (c = strchr(h->h_name, '.')))
102         return strcpy(domain = domainbuffer, ++c);
103     }
104
105     {
106       struct in_addr in_addr;
107
108       in_addr.s_addr = htonl(0x7f000001);
109
110       if ((h = gethostbyaddr((const char *)&in_addr, sizeof(struct in_addr), AF_INET)) && (c = strchr(h->h_name, '.')))
111         return strcpy(domain = domainbuffer, ++c);
112     }
113
114     return NULL;
115   };
116
117   return domain;
118 };
119
120 int getnameinfo(const struct sockaddr *sa, size_t addrlen, char *host, size_t hostlen, char *serv, size_t servlen, int flags)
121 {
122   int serrno = errno;
123
124   if (!sa)
125     return -1;
126
127   if (host && (hostlen > 0))
128     switch(sa->sa_family) {
129       case AF_INET:
130 #if INET6
131       case AF_INET6:
132 #endif /* INET6 */
133         if (!(flags & NI_NUMERICHOST)) {
134           struct hostent *h = NULL;
135 #if HOSTTABLE
136 #if INET6
137           if (sa->sa_family == AF_INET6)
138             h = _addr2hostname_hosts((void *)&(((struct sockaddr_in6 *)sa)->sin6_addr), sizeof(struct in6_addr), AF_INET6);
139           else
140 #endif /* INET6 */
141             h = _addr2hostname_hosts((void *)&(((struct sockaddr_in *)sa)->sin_addr), sizeof(struct in_addr), AF_INET);
142 #endif /* HOSTTABLE */
143
144 #if RESOLVER
145           if (!h) {
146 #if INET6
147             if (sa->sa_family == AF_INET6)
148               h = gethostbyaddr((void *)&(((struct sockaddr_in6 *)sa)->sin6_addr), sizeof(struct in6_addr), AF_INET6);
149             else
150 #endif /* INET6 */
151               h = gethostbyaddr((void *)&(((struct sockaddr_in *)sa)->sin_addr), sizeof(struct in_addr), AF_INET);
152             endhostent();
153           };
154 #endif /* RESOLVER */
155
156           if (h) {
157             if (flags & NI_NOFQDN) {
158               char *c;
159               if ((c = nrl_domainname()) && (c = strstr(h->h_name, c)) && (c != h->h_name) && (*(--c) == '.')) {
160                 strncpy(host, h->h_name, min(hostlen, (c - h->h_name)));
161                 break;
162               };
163             };
164             strncpy(host, h->h_name, hostlen);
165             break;
166           };
167         };
168
169         if (flags & NI_NAMEREQD)
170           goto fail;
171
172         {
173           const char *c;
174 #if INET6
175           if (sa->sa_family == AF_INET6)
176             c = inet_ntop(AF_INET6, (void *)&(((struct sockaddr_in6 *)sa)->sin6_addr), host, hostlen);
177           else
178 #endif /* INET6 */
179             c = inet_ntop(AF_INET, (void *)&(((struct sockaddr_in *)sa)->sin_addr), host, hostlen);
180
181           if (!c)
182             goto fail;
183         };
184         break;
185 #if LOCAL
186       case AF_LOCAL:
187         if (!(flags & NI_NUMERICHOST)) {
188           struct utsname utsname;
189
190           if (!uname(&utsname)) {
191             strncpy(host, utsname.nodename, hostlen);
192             break;
193           };
194         };
195
196         if (flags & NI_NAMEREQD)
197           goto fail;
198
199         strncpy(host, "localhost", hostlen);
200         break;
201 #endif /* LOCAL */
202       default:
203         return -1;
204     };
205
206   if (serv && (servlen > 0))
207     switch(sa->sa_family) {
208       case AF_INET:
209 #if INET6
210       case AF_INET6:
211 #endif /* INET6 */
212         if (!(flags & NI_NUMERICSERV)) {
213           struct servent *s;
214           if (s = getservbyport(((struct sockaddr_in *)sa)->sin_port, (flags & NI_DGRAM) ? "udp" : "tcp")) {
215             strncpy(serv, s->s_name, servlen);
216             break;
217           };
218         };
219         snprintf(serv, servlen, "%d", ntohs(((struct sockaddr_in *)sa)->sin_port));
220         break;
221 #if LOCAL
222       case AF_LOCAL:
223         strncpy(serv, ((struct sockaddr_un *)sa)->sun_path, servlen);
224         break;
225 #endif /* LOCAL */
226     };
227
228   if (host && (hostlen > 0))
229     host[hostlen-1] = 0;
230   if (serv && (servlen > 0))
231     serv[servlen-1] = 0;
232   errno = serrno;
233   return 0;
234
235 fail:
236   errno = serrno;
237   return -1;
238 };