Generic __longjmp.c.
[kopensolaris-gnu/glibc.git] / nss / digits_dots.c
1 /* Copyright (C) 1997, 1999, 2000, 2001, 2004 Free Software Foundation, Inc.
2    This file is part of the GNU C Library.
3    Contributed by H.J. Lu <hjl@gnu.ai.mit.edu>, 1997.
4
5    The GNU C Library is free software; you can redistribute it and/or
6    modify it under the terms of the GNU Lesser General Public
7    License as published by the Free Software Foundation; either
8    version 2.1 of the License, or (at your option) any later version.
9
10    The GNU C Library is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    Lesser General Public License for more details.
14
15    You should have received a copy of the GNU Lesser General Public
16    License along with the GNU C Library; if not, write to the Free
17    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
18    02111-1307 USA.  */
19
20 #include <assert.h>
21 #include <errno.h>
22 #include <string.h>
23 #include <stdlib.h>
24 #include <ctype.h>
25 #include <wctype.h>
26 #include <resolv.h>
27 #include <netdb.h>
28 #include <arpa/inet.h>
29 #include "nsswitch.h"
30
31 #ifdef USE_NSCD
32 # define inet_aton __inet_aton
33 # include <nscd/nscd_proto.h>
34 #endif
35
36 int
37 __nss_hostname_digits_dots (const char *name, struct hostent *resbuf,
38                             char **buffer, size_t *buffer_size,
39                             size_t buflen, struct hostent **result,
40                             enum nss_status *status, int af, int *h_errnop)
41 {
42   int save;
43
44   /* We have to test for the use of IPv6 which can only be done by
45      examining `_res'.  */
46   if (__res_maybe_init (&_res, 0) == -1)
47     {
48       if (h_errnop)
49         *h_errnop = NETDB_INTERNAL;
50       *result = NULL;
51       return -1;
52     }
53
54   /*
55    * disallow names consisting only of digits/dots, unless
56    * they end in a dot.
57    */
58   if (isdigit (name[0]) || isxdigit (name[0]) || name[0] == ':')
59     {
60       const char *cp;
61       char *hostname;
62       typedef unsigned char host_addr_t[16];
63       host_addr_t *host_addr;
64       typedef char *host_addr_list_t[2];
65       host_addr_list_t *h_addr_ptrs;
66       char **h_alias_ptr;
67       size_t size_needed;
68       int addr_size;
69
70       switch (af)
71         {
72         case AF_INET:
73           addr_size = INADDRSZ;
74           break;
75
76         case AF_INET6:
77           addr_size = IN6ADDRSZ;
78           break;
79
80         default:
81           af = (_res.options & RES_USE_INET6) ? AF_INET6 : AF_INET;
82           addr_size = af == AF_INET6 ? IN6ADDRSZ : INADDRSZ;
83           break;
84         }
85
86       size_needed = (sizeof (*host_addr)
87                      + sizeof (*h_addr_ptrs) + strlen (name) + 1);
88
89       if (buffer_size == NULL)
90         {
91           if (buflen < size_needed)
92             {
93               if (h_errnop != NULL)
94                 *h_errnop = TRY_AGAIN;
95               __set_errno (ERANGE);
96               goto done;
97             }
98         }
99       else if (buffer_size != NULL && *buffer_size < size_needed)
100         {
101           char *new_buf;
102           *buffer_size = size_needed;
103           new_buf = (char *) realloc (*buffer, *buffer_size);
104
105           if (new_buf == NULL)
106             {
107               save = errno;
108               free (*buffer);
109               *buffer = NULL;
110               *buffer_size = 0;
111               __set_errno (save);
112               if (h_errnop != NULL)
113                 *h_errnop = TRY_AGAIN;
114               *result = NULL;
115               goto done;
116             }
117           *buffer = new_buf;
118         }
119
120       memset (*buffer, '\0', size_needed);
121
122       host_addr = (host_addr_t *) *buffer;
123       h_addr_ptrs = (host_addr_list_t *)
124         ((char *) host_addr + sizeof (*host_addr));
125       h_alias_ptr = (char **) ((char *) h_addr_ptrs + sizeof (*h_addr_ptrs));
126       hostname = (char *) h_alias_ptr + sizeof (*h_alias_ptr);
127
128       if (isdigit (name[0]))
129         {
130           for (cp = name;; ++cp)
131             {
132               if (*cp == '\0')
133                 {
134                   int ok;
135
136                   if (*--cp == '.')
137                     break;
138
139                   /* All-numeric, no dot at the end. Fake up a hostent as if
140                      we'd actually done a lookup.  What if someone types
141                      255.255.255.255?  The test below will succeed
142                      spuriously... ???  */
143                   if (af == AF_INET)
144                     ok = __inet_aton (name, (struct in_addr *) host_addr);
145                   else
146                     {
147                       assert (af == AF_INET6);
148                       ok = inet_pton (af, name, host_addr) > 0;
149                     }
150                   if (! ok)
151                     {
152                       *h_errnop = HOST_NOT_FOUND;
153                       if (buffer_size)
154                         *result = NULL;
155                       goto done;
156                     }
157
158                   resbuf->h_name = strcpy (hostname, name);
159                   h_alias_ptr[0] = NULL;
160                   resbuf->h_aliases = h_alias_ptr;
161                   (*h_addr_ptrs)[0] = (char *) host_addr;
162                   (*h_addr_ptrs)[1] = NULL;
163                   resbuf->h_addr_list = *h_addr_ptrs;
164                   if (af == AF_INET && (_res.options & RES_USE_INET6))
165                     {
166                       /* We need to change the IP v4 address into the
167                          IP v6 address.  */
168                       char tmp[INADDRSZ];
169                       char *p = (char *) host_addr;
170                       int i;
171
172                       /* Save a copy of the IP v4 address. */
173                       memcpy (tmp, host_addr, INADDRSZ);
174                       /* Mark this ipv6 addr as a mapped ipv4. */
175                       for (i = 0; i < 10; i++)
176                         *p++ = 0x00;
177                       *p++ = 0xff;
178                       *p++ = 0xff;
179                       /* Copy the IP v4 address. */
180                       memcpy (p, tmp, INADDRSZ);
181                       resbuf->h_addrtype = AF_INET6;
182                       resbuf->h_length = IN6ADDRSZ;
183                     }
184                   else
185                     {
186                       resbuf->h_addrtype = af;
187                       resbuf->h_length = addr_size;
188                     }
189                   if (h_errnop != NULL)
190                     *h_errnop = NETDB_SUCCESS;
191                   if (buffer_size == NULL)
192                     *status = NSS_STATUS_SUCCESS;
193                   else
194                    *result = resbuf;
195                   goto done;
196                 }
197
198               if (!isdigit (*cp) && *cp != '.')
199                 break;
200             }
201         }
202
203       if ((isxdigit (name[0]) && strchr (name, ':') != NULL) || name[0] == ':')
204         {
205           const char *cp;
206           char *hostname;
207           typedef unsigned char host_addr_t[16];
208           host_addr_t *host_addr;
209           typedef char *host_addr_list_t[2];
210           host_addr_list_t *h_addr_ptrs;
211           size_t size_needed;
212           int addr_size;
213
214           switch (af)
215             {
216             default:
217               af = (_res.options & RES_USE_INET6) ? AF_INET6 : AF_INET;
218               if (af == AF_INET6)
219                 {
220                   addr_size = IN6ADDRSZ;
221                   break;
222                 }
223               /* FALLTHROUGH */
224
225             case AF_INET:
226               /* This is not possible.  We cannot represent an IPv6 address
227                  in an `struct in_addr' variable.  */
228               *h_errnop = HOST_NOT_FOUND;
229               *result = NULL;
230               goto done;
231
232             case AF_INET6:
233               addr_size = IN6ADDRSZ;
234               break;
235             }
236
237           size_needed = (sizeof (*host_addr)
238                          + sizeof (*h_addr_ptrs) + strlen (name) + 1);
239
240           if (buffer_size == NULL && buflen < size_needed)
241             {
242               if (h_errnop != NULL)
243                 *h_errnop = TRY_AGAIN;
244               __set_errno (ERANGE);
245               goto done;
246             }
247           else if (buffer_size != NULL && *buffer_size < size_needed)
248             {
249               char *new_buf;
250               *buffer_size = size_needed;
251               new_buf = realloc (*buffer, *buffer_size);
252
253               if (new_buf == NULL)
254                 {
255                   save = errno;
256                   free (*buffer);
257                   __set_errno (save);
258                   *buffer = NULL;
259                   *buffer_size = 0;
260                   *result = NULL;
261                   goto done;
262                 }
263               *buffer = new_buf;
264             }
265
266           memset (*buffer, '\0', size_needed);
267
268           host_addr = (host_addr_t *) *buffer;
269           h_addr_ptrs = (host_addr_list_t *)
270             ((char *) host_addr + sizeof (*host_addr));
271           hostname = (char *) h_addr_ptrs + sizeof (*h_addr_ptrs);
272
273           for (cp = name;; ++cp)
274             {
275               if (!*cp)
276                 {
277                   if (*--cp == '.')
278                     break;
279
280                   /* All-IPv6-legal, no dot at the end. Fake up a
281                      hostent as if we'd actually done a lookup.  */
282                   if (inet_pton (AF_INET6, name, host_addr) <= 0)
283                     {
284                       *h_errnop = HOST_NOT_FOUND;
285                       if (buffer_size)
286                         *result = NULL;
287                       goto done;
288                     }
289
290                   resbuf->h_name = strcpy (hostname, name);
291                   h_alias_ptr[0] = NULL;
292                   resbuf->h_aliases = h_alias_ptr;
293                   (*h_addr_ptrs)[0] = (char *) host_addr;
294                   (*h_addr_ptrs)[1] = (char *) 0;
295                   resbuf->h_addr_list = *h_addr_ptrs;
296                   resbuf->h_addrtype = AF_INET6;
297                   resbuf->h_length = addr_size;
298                   *h_errnop = NETDB_SUCCESS;
299                   if (buffer_size == NULL)
300                     *status = NSS_STATUS_SUCCESS;
301                   else
302                     *result = resbuf;
303                   goto done;
304                 }
305
306               if (!isxdigit (*cp) && *cp != ':' && *cp != '.')
307                 break;
308             }
309         }
310     }
311
312   return 0;
313
314 done:
315   return 1;
316 }
317 libc_hidden_def (__nss_hostname_digits_dots)