Merge branch 'vendor/FILE'
[dragonfly.git] / contrib / tcp_wrappers / workarounds.c
1  /*
2   * Workarounds for known system software bugs. This module provides wrappers
3   * around library functions and system calls that are known to have problems
4   * on some systems. Most of these workarounds won't do any harm on regular
5   * systems.
6   * 
7   * Author: Wietse Venema, Eindhoven University of Technology, The Netherlands.
8   *
9   * $FreeBSD: src/contrib/tcp_wrappers/workarounds.c,v 1.2 2000/02/03 10:27:01 shin Exp $
10   * $DragonFly: src/contrib/tcp_wrappers/workarounds.c,v 1.3 2005/04/29 01:00:27 joerg Exp $
11   */
12
13 #ifndef lint
14 char    sccsid[] = "@(#) workarounds.c 1.6 96/03/19 16:22:25";
15 #endif
16
17 #include <sys/types.h>
18 #include <sys/param.h>
19 #include <sys/socket.h>
20 #include <netinet/in.h>
21 #include <arpa/inet.h>
22 #include <netdb.h>
23 #include <errno.h>
24 #include <stdio.h>
25 #include <syslog.h>
26 #include <string.h>
27
28 #include "tcpd.h"
29
30  /*
31   * Some AIX versions advertise a too small MAXHOSTNAMELEN value (32).
32   * Result: long hostnames would be truncated, and connections would be
33   * dropped because of host name verification failures. Adrian van Bloois
34   * (A.vanBloois@info.nic.surfnet.nl) figured out what was the problem.
35   */
36
37 #if (MAXHOSTNAMELEN < 64)
38 #undef MAXHOSTNAMELEN
39 #endif
40
41 /* In case not defined in <sys/param.h>. */
42
43 #ifndef MAXHOSTNAMELEN
44 #define MAXHOSTNAMELEN  256             /* storage for host name */
45 #endif
46
47  /*
48   * Some DG/UX inet_addr() versions return a struct/union instead of a long.
49   * You have this problem when the compiler complains about illegal lvalues
50   * or something like that. The following code fixes this mutant behaviour.
51   * It should not be enabled on "normal" systems.
52   * 
53   * Bug reported by ben@piglet.cr.usgs.gov (Rev. Ben A. Mesander).
54   */
55
56 #ifdef INET_ADDR_BUG
57
58 #undef inet_addr
59
60 long    fix_inet_addr(string)
61 char   *string;
62 {
63     return (inet_addr(string).s_addr);
64 }
65
66 #endif /* INET_ADDR_BUG */
67
68  /*
69   * With some System-V versions, the fgets() library function does not
70   * account for partial reads from e.g. sockets. The result is that fgets()
71   * gives up too soon, causing username lookups to fail. Problem first
72   * reported for IRIX 4.0.5, by Steve Kotsopoulos <steve@ecf.toronto.edu>.
73   * The following code works around the problem. It does no harm on "normal"
74   * systems.
75   */
76
77 #ifdef BROKEN_FGETS
78
79 #undef fgets
80
81 char   *fix_fgets(buf, len, fp)
82 char   *buf;
83 int     len;
84 FILE   *fp;
85 {
86     char   *cp = buf;
87     int     c;
88
89     /*
90      * Copy until the buffer fills up, until EOF, or until a newline is
91      * found.
92      */
93     while (len > 1 && (c = getc(fp)) != EOF) {
94         len--;
95         *cp++ = c;
96         if (c == '\n')
97             break;
98     }
99
100     /*
101      * Return 0 if nothing was read. This is correct even when a silly buffer
102      * length was specified.
103      */
104     if (cp > buf) {
105         *cp = 0;
106         return (buf);
107     } else {
108         return (0);
109     }
110 }
111
112 #endif /* BROKEN_FGETS */
113
114  /*
115   * With early SunOS 5 versions, recvfrom() does not completely fill in the
116   * source address structure when doing a non-destructive read. The following
117   * code works around the problem. It does no harm on "normal" systems.
118   */
119
120 #ifdef RECVFROM_BUG
121
122 #undef recvfrom
123
124 int     fix_recvfrom(sock, buf, buflen, flags, from, fromlen)
125 int     sock;
126 char   *buf;
127 int     buflen;
128 int     flags;
129 struct sockaddr *from;
130 int    *fromlen;
131 {
132     int     ret;
133
134     /* Assume that both ends of a socket belong to the same address family. */
135
136     if ((ret = recvfrom(sock, buf, buflen, flags, from, fromlen)) >= 0) {
137         if (from->sa_family == 0) {
138             struct sockaddr my_addr;
139             int     my_addr_len = sizeof(my_addr);
140
141             if (getsockname(0, &my_addr, &my_addr_len)) {
142                 tcpd_warn("getsockname: %m");
143             } else {
144                 from->sa_family = my_addr.sa_family;
145             }
146         }
147     }
148     return (ret);
149 }
150
151 #endif /* RECVFROM_BUG */
152
153  /*
154   * The Apollo SR10.3 and some SYSV4 getpeername(2) versions do not return an
155   * error in case of a datagram-oriented socket. Instead, they claim that all
156   * UDP requests come from address 0.0.0.0. The following code works around
157   * the problem. It does no harm on "normal" systems.
158   */
159
160 #ifdef GETPEERNAME_BUG
161
162 #undef getpeername
163
164 int     fix_getpeername(sock, sa, len)
165 int     sock;
166 struct sockaddr *sa;
167 int    *len;
168 {
169     int     ret;
170 #ifdef INET6
171     struct sockaddr *sin = sa;
172 #else
173     struct sockaddr_in *sin = (struct sockaddr_in *) sa;
174 #endif
175
176     if ((ret = getpeername(sock, sa, len)) >= 0
177 #ifdef INET6
178         && ((sin->su_si.si_family == AF_INET6
179              && IN6_IS_ADDR_UNSPECIFIED(&sin->su_sin6.sin6_addr))
180             || (sin->su_si.si_family == AF_INET
181                 && sin->su_sin.sin_addr.s_addr == 0))) {
182 #else
183         && sa->sa_family == AF_INET
184         && sin->sin_addr.s_addr == 0) {
185 #endif
186         errno = ENOTCONN;
187         return (-1);
188     } else {
189         return (ret);
190     }
191 }
192
193 #endif /* GETPEERNAME_BUG */
194
195  /*
196   * According to Karl Vogel (vogelke@c-17igp.wpafb.af.mil) some Pyramid
197   * versions have no yp_default_domain() function. We use getdomainname()
198   * instead.
199   */
200
201 #ifdef USE_GETDOMAIN
202
203 int     yp_get_default_domain(ptr)
204 char  **ptr;
205 {
206     static char mydomain[MAXHOSTNAMELEN];
207
208     *ptr = mydomain;
209     return (getdomainname(mydomain, MAXHOSTNAMELEN));
210 }
211
212 #endif /* USE_GETDOMAIN */
213
214 #ifndef INADDR_NONE
215 #define INADDR_NONE 0xffffffff
216 #endif
217
218  /*
219   * Solaris 2.4 gethostbyname() has problems with multihomed hosts. When
220   * doing DNS through NIS, only one host address ends up in the address list.
221   * All other addresses end up in the hostname alias list, interspersed with
222   * copies of the official host name. This would wreak havoc with tcpd's
223   * hostname double checks. Below is a workaround that should do no harm when
224   * accidentally left in. A side effect of the workaround is that address
225   * list members are no longer properly aligned for structure access.
226   */
227
228 #ifdef SOLARIS_24_GETHOSTBYNAME_BUG
229
230 #undef gethostbyname
231
232 struct hostent *fix_gethostbyname(name)
233 char   *name;
234 {
235     struct hostent *hp;
236     struct in_addr addr;
237     char  **o_addr_list;
238     char  **o_aliases;
239     char  **n_addr_list;
240     int     broken_gethostbyname = 0;
241
242     if ((hp = gethostbyname(name)) && !hp->h_addr_list[1] && hp->h_aliases[1]) {
243         for (o_aliases = n_addr_list = hp->h_aliases; *o_aliases; o_aliases++) {
244             if ((addr.s_addr = inet_addr(*o_aliases)) != INADDR_NONE) {
245                 memcpy(*n_addr_list++, (char *) &addr, hp->h_length);
246                 broken_gethostbyname = 1;
247             }
248         }
249         if (broken_gethostbyname) {
250             o_addr_list = hp->h_addr_list;
251             memcpy(*n_addr_list++, *o_addr_list, hp->h_length);
252             *n_addr_list = 0;
253             hp->h_addr_list = hp->h_aliases;
254             hp->h_aliases = o_addr_list + 1;
255         }
256     }
257     return (hp);
258 }
259
260 #endif /* SOLARIS_24_GETHOSTBYNAME_BUG */
261
262  /*
263   * Horror! Some FreeBSD 2.0 libc routines call strtok(). Since tcpd depends
264   * heavily on strtok(), strange things may happen. Workaround: use our
265   * private strtok(). This has been fixed in the meantime.
266   */
267
268 #ifdef USE_STRSEP
269
270 char   *fix_strtok(buf, sep)
271 char   *buf;
272 char   *sep;
273 {
274     static char *state;
275     char   *result;
276
277     if (buf)
278         state = buf;
279     while ((result = strsep(&state, sep)) && result[0] == 0)
280          /* void */ ;
281     return (result);
282 }
283
284 #endif /* USE_STRSEP */
285
286  /*
287   * IRIX 5.3 (and possibly earlier versions, too) library routines call the
288   * non-reentrant strtok() library routine, causing hosts to slip through
289   * allow/deny filters. Workaround: don't rely on the vendor and use our own
290   * strtok() function. FreeBSD 2.0 has a similar problem (fixed in 2.0.5).
291   */
292
293 #ifdef LIBC_CALLS_STRTOK
294
295 char   *my_strtok(buf, sep)
296 char   *buf;
297 char   *sep;
298 {
299     static char *state;
300     char   *result;
301
302     if (buf)
303         state = buf;
304
305     /*
306      * Skip over separator characters and detect end of string.
307      */
308     if (*(state += strspn(state, sep)) == 0)
309         return (0);
310
311     /*
312      * Skip over non-separator characters and terminate result.
313      */
314     result = state;
315     if (*(state += strcspn(state, sep)) != 0)
316         *state++ = 0;
317     return (result);
318 }
319
320 #endif /* LIBC_CALLS_STRTOK */