2 * Warning - this relies heavily on the TLI implementation in PTX 2.X and will
3 * probably not work under PTX 4.
5 * Author: Tim Wright, Sequent Computer Systems Ltd., UK.
7 * Modified slightly to conform to the new internal interfaces - Wietse
11 static char sccsid[] = "@(#) tli-sequent.c 1.1 94/12/28 17:42:51";
16 /* System libraries. */
18 #include <sys/types.h>
19 #include <sys/param.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>
34 extern char *sys_errlist[];
37 extern char *t_errlist[];
43 #include "tli-sequent.h"
45 /* Forward declarations. */
47 static char *tli_error();
48 static void tli_sink();
50 /* tli_host - determine endpoint info */
53 struct request_info *request;
55 static struct sockaddr_in client;
56 static struct sockaddr_in server;
57 struct _ti_user *tli_state_ptr;
58 union T_primitives *TSI_prim_ptr;
63 * Use DNS and socket routines for name and address conversions.
66 sock_methods(request);
69 * Find out the client address using getpeerinaddr(). This call is the
70 * TLI equivalent to getpeername() under Dynix/ptx.
75 if (getpeerinaddr(request->fd, &client, len) < 0) {
76 tcpd_warn("can't get client address: %s", tli_error());
79 request->client->sin = &client;
81 /* Call TLI utility routine to get information on endpoint */
82 if ((tli_state_ptr = _t_checkfd(request->fd)) == NULL)
85 if (tli_state_ptr->ti_servtype == T_CLTS) {
86 /* UDP - may need to get address the hard way */
87 if (client.sin_addr.s_addr == 0) {
88 /* The UDP endpoint is not connected so we didn't get the */
89 /* remote address - get it the hard way ! */
91 /* Look at the control part of the top message on the stream */
92 /* we don't want to remove it from the stream so we use I_PEEK */
93 peek.ctlbuf.maxlen = tli_state_ptr->ti_ctlsize;
95 peek.ctlbuf.buf = tli_state_ptr->ti_ctlbuf;
96 /* Don't even look at the data */
97 peek.databuf.maxlen = -1;
102 switch (ioctl(request->fd, I_PEEK, &peek)) {
104 tcpd_warn("can't peek at endpoint: %s", tli_error());
107 /* No control part - we're hosed */
108 tcpd_warn("can't get UDP info: %s", tli_error());
114 /* Can we even check the PRIM_type ? */
115 if (peek.ctlbuf.len < sizeof(long)) {
116 tcpd_warn("UDP control info garbage");
119 TSI_prim_ptr = (union T_primitives *) peek.ctlbuf.buf;
120 if (TSI_prim_ptr->type != T_UNITDATA_IND) {
121 tcpd_warn("wrong type for UDP control info");
124 /* Validate returned unitdata indication packet */
125 if ((peek.ctlbuf.len < sizeof(struct T_unitdata_ind)) ||
126 ((TSI_prim_ptr->unitdata_ind.OPT_length != 0) &&
128 TSI_prim_ptr->unitdata_ind.OPT_length +
129 TSI_prim_ptr->unitdata_ind.OPT_offset))) {
130 tcpd_warn("UDP control info garbaged");
133 /* Extract the address */
135 peek.ctlbuf.buf + TSI_prim_ptr->unitdata_ind.SRC_offset,
136 TSI_prim_ptr->unitdata_ind.SRC_length);
138 request->sink = tli_sink;
140 if (getmyinaddr(request->fd, &server, len) < 0)
141 tcpd_warn("can't get local address: %s", tli_error());
143 request->server->sin = &server;
146 /* tli_error - convert tli error number to text */
148 static char *tli_error()
152 if (t_errno != TSYSERR) {
153 if (t_errno < 0 || t_errno >= t_nerr) {
154 sprintf(buf, "Unknown TLI error %d", t_errno);
157 return (t_errlist[t_errno]);
160 if (errno < 0 || errno >= sys_nerr) {
161 sprintf(buf, "Unknown UNIX error %d", errno);
164 return (sys_errlist[errno]);
169 /* tli_sink - absorb unreceived datagram */
171 static void tli_sink(fd)
174 struct t_unitdata *unit;
178 * Something went wrong. Absorb the datagram to keep inetd from looping.
179 * Allocate storage for address, control and data. If that fails, sleep
180 * for a couple of seconds in an attempt to keep inetd from looping too
184 if ((unit = (struct t_unitdata *) t_alloc(fd, T_UNITDATA, T_ALL)) == 0) {
185 tcpd_warn("t_alloc: %s", tli_error());
188 (void) t_rcvudata(fd, unit, &flags);
189 t_free((void *) unit, T_UNITDATA);
193 #endif /* TLI_SEQUENT */