xref: /freebsd/contrib/tcp_wrappers/tli-sequent.c (revision 924226fba12cc9a228c73b956e1b7fa24c60b055)
1  /*
2   * Warning - this relies heavily on the TLI implementation in PTX 2.X and will
3   * probably not work under PTX 4.
4   *
5   * Author: Tim Wright, Sequent Computer Systems Ltd., UK.
6   *
7   * Modified slightly to conform to the new internal interfaces - Wietse
8   */
9 
10 #ifndef lint
11 static char sccsid[] = "@(#) tli-sequent.c 1.1 94/12/28 17:42:51";
12 #endif
13 
14 #ifdef TLI_SEQUENT
15 
16 /* System libraries. */
17 
18 #include <sys/types.h>
19 #include <sys/param.h>
20 #include <sys/stat.h>
21 #include <sys/tiuser.h>
22 #include <sys/stream.h>
23 #include <sys/stropts.h>
24 #include <sys/tihdr.h>
25 #include <sys/timod.h>
26 #include <sys/socket.h>
27 #include <netinet/in.h>
28 #include <stdio.h>
29 #include <syslog.h>
30 #include <errno.h>
31 #include <string.h>
32 
33 extern char *sys_errlist[];
34 extern int sys_nerr;
35 extern int t_errno;
36 extern char *t_errlist[];
37 extern int t_nerr;
38 
39 /* Local stuff. */
40 
41 #include "tcpd.h"
42 #include "tli-sequent.h"
43 
44 /* Forward declarations. */
45 
46 static char *tli_error();
47 static void tli_sink();
48 
49 /* tli_host - determine endpoint info */
50 
51 int     tli_host(request)
52 struct request_info *request;
53 {
54     static struct sockaddr_in client;
55     static struct sockaddr_in server;
56     struct _ti_user *tli_state_ptr;
57     union T_primitives *TSI_prim_ptr;
58     struct strpeek peek;
59     int     len;
60 
61     /*
62      * Use DNS and socket routines for name and address conversions.
63      */
64 
65     sock_methods(request);
66 
67     /*
68      * Find out the client address using getpeerinaddr(). This call is the
69      * TLI equivalent to getpeername() under Dynix/ptx.
70      */
71 
72     len = sizeof(client);
73     t_sync(request->fd);
74     if (getpeerinaddr(request->fd, &client, len) < 0) {
75 	tcpd_warn("can't get client address: %s", tli_error());
76 	return;
77     }
78     request->client->sin = &client;
79 
80     /* Call TLI utility routine to get information on endpoint */
81     if ((tli_state_ptr = _t_checkfd(request->fd)) == NULL)
82 	return;
83 
84     if (tli_state_ptr->ti_servtype == T_CLTS) {
85 	/* UDP - may need to get address the hard way */
86 	if (client.sin_addr.s_addr == 0) {
87 	    /* The UDP endpoint is not connected so we didn't get the */
88 	    /* remote address - get it the hard way ! */
89 
90 	    /* Look at the control part of the top message on the stream */
91 	    /* we don't want to remove it from the stream so we use I_PEEK */
92 	    peek.ctlbuf.maxlen = tli_state_ptr->ti_ctlsize;
93 	    peek.ctlbuf.len = 0;
94 	    peek.ctlbuf.buf = tli_state_ptr->ti_ctlbuf;
95 	    /* Don't even look at the data */
96 	    peek.databuf.maxlen = -1;
97 	    peek.databuf.len = 0;
98 	    peek.databuf.buf = 0;
99 	    peek.flags = 0;
100 
101 	    switch (ioctl(request->fd, I_PEEK, &peek)) {
102 	    case -1:
103 		tcpd_warn("can't peek at endpoint: %s", tli_error());
104 		return;
105 	    case 0:
106 		/* No control part - we're hosed */
107 		tcpd_warn("can't get UDP info: %s", tli_error());
108 		return;
109 	    default:
110 		/* FALL THROUGH */
111 		;
112 	    }
113 	    /* Can we even check the PRIM_type ? */
114 	    if (peek.ctlbuf.len < sizeof(long)) {
115 		tcpd_warn("UDP control info garbage");
116 		return;
117 	    }
118 	    TSI_prim_ptr = (union T_primitives *) peek.ctlbuf.buf;
119 	    if (TSI_prim_ptr->type != T_UNITDATA_IND) {
120 		tcpd_warn("wrong type for UDP control info");
121 		return;
122 	    }
123 	    /* Validate returned unitdata indication packet */
124 	    if ((peek.ctlbuf.len < sizeof(struct T_unitdata_ind)) ||
125 		((TSI_prim_ptr->unitdata_ind.OPT_length != 0) &&
126 		 (peek.ctlbuf.len <
127 		  TSI_prim_ptr->unitdata_ind.OPT_length +
128 		  TSI_prim_ptr->unitdata_ind.OPT_offset))) {
129 		tcpd_warn("UDP control info garbaged");
130 		return;
131 	    }
132 	    /* Extract the address */
133 	    memcpy(&client,
134 		   peek.ctlbuf.buf + TSI_prim_ptr->unitdata_ind.SRC_offset,
135 		   TSI_prim_ptr->unitdata_ind.SRC_length);
136 	}
137 	request->sink = tli_sink;
138     }
139     if (getmyinaddr(request->fd, &server, len) < 0)
140 	tcpd_warn("can't get local address: %s", tli_error());
141     else
142 	request->server->sin = &server;
143 }
144 
145 /* tli_error - convert tli error number to text */
146 
147 static char *tli_error()
148 {
149     static char buf[40];
150 
151     if (t_errno != TSYSERR) {
152 	if (t_errno < 0 || t_errno >= t_nerr) {
153 	    sprintf(buf, "Unknown TLI error %d", t_errno);
154 	    return (buf);
155 	} else {
156 	    return (t_errlist[t_errno]);
157 	}
158     } else {
159 	if (errno < 0 || errno >= sys_nerr) {
160 	    sprintf(buf, "Unknown UNIX error %d", errno);
161 	    return (buf);
162 	} else {
163 	    return (sys_errlist[errno]);
164 	}
165     }
166 }
167 
168 /* tli_sink - absorb unreceived datagram */
169 
170 static void tli_sink(fd)
171 int     fd;
172 {
173     struct t_unitdata *unit;
174     int     flags;
175 
176     /*
177      * Something went wrong. Absorb the datagram to keep inetd from looping.
178      * Allocate storage for address, control and data. If that fails, sleep
179      * for a couple of seconds in an attempt to keep inetd from looping too
180      * fast.
181      */
182 
183     if ((unit = (struct t_unitdata *) t_alloc(fd, T_UNITDATA, T_ALL)) == 0) {
184 	tcpd_warn("t_alloc: %s", tli_error());
185 	sleep(5);
186     } else {
187 	(void) t_rcvudata(fd, unit, &flags);
188 	t_free((void *) unit, T_UNITDATA);
189     }
190 }
191 
192 #endif /* TLI_SEQUENT */
193