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 int errno; 34 extern char *sys_errlist[]; 35 extern int sys_nerr; 36 extern int t_errno; 37 extern char *t_errlist[]; 38 extern int t_nerr; 39 40 /* Local stuff. */ 41 42 #include "tcpd.h" 43 #include "tli-sequent.h" 44 45 /* Forward declarations. */ 46 47 static char *tli_error(); 48 static void tli_sink(); 49 50 /* tli_host - determine endpoint info */ 51 52 int tli_host(request) 53 struct request_info *request; 54 { 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; 59 struct strpeek peek; 60 int len; 61 62 /* 63 * Use DNS and socket routines for name and address conversions. 64 */ 65 66 sock_methods(request); 67 68 /* 69 * Find out the client address using getpeerinaddr(). This call is the 70 * TLI equivalent to getpeername() under Dynix/ptx. 71 */ 72 73 len = sizeof(client); 74 t_sync(request->fd); 75 if (getpeerinaddr(request->fd, &client, len) < 0) { 76 tcpd_warn("can't get client address: %s", tli_error()); 77 return; 78 } 79 request->client->sin = &client; 80 81 /* Call TLI utility routine to get information on endpoint */ 82 if ((tli_state_ptr = _t_checkfd(request->fd)) == NULL) 83 return; 84 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 ! */ 90 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; 94 peek.ctlbuf.len = 0; 95 peek.ctlbuf.buf = tli_state_ptr->ti_ctlbuf; 96 /* Don't even look at the data */ 97 peek.databuf.maxlen = -1; 98 peek.databuf.len = 0; 99 peek.databuf.buf = 0; 100 peek.flags = 0; 101 102 switch (ioctl(request->fd, I_PEEK, &peek)) { 103 case -1: 104 tcpd_warn("can't peek at endpoint: %s", tli_error()); 105 return; 106 case 0: 107 /* No control part - we're hosed */ 108 tcpd_warn("can't get UDP info: %s", tli_error()); 109 return; 110 default: 111 /* FALL THROUGH */ 112 ; 113 } 114 /* Can we even check the PRIM_type ? */ 115 if (peek.ctlbuf.len < sizeof(long)) { 116 tcpd_warn("UDP control info garbage"); 117 return; 118 } 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"); 122 return; 123 } 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) && 127 (peek.ctlbuf.len < 128 TSI_prim_ptr->unitdata_ind.OPT_length + 129 TSI_prim_ptr->unitdata_ind.OPT_offset))) { 130 tcpd_warn("UDP control info garbaged"); 131 return; 132 } 133 /* Extract the address */ 134 memcpy(&client, 135 peek.ctlbuf.buf + TSI_prim_ptr->unitdata_ind.SRC_offset, 136 TSI_prim_ptr->unitdata_ind.SRC_length); 137 } 138 request->sink = tli_sink; 139 } 140 if (getmyinaddr(request->fd, &server, len) < 0) 141 tcpd_warn("can't get local address: %s", tli_error()); 142 else 143 request->server->sin = &server; 144 } 145 146 /* tli_error - convert tli error number to text */ 147 148 static char *tli_error() 149 { 150 static char buf[40]; 151 152 if (t_errno != TSYSERR) { 153 if (t_errno < 0 || t_errno >= t_nerr) { 154 sprintf(buf, "Unknown TLI error %d", t_errno); 155 return (buf); 156 } else { 157 return (t_errlist[t_errno]); 158 } 159 } else { 160 if (errno < 0 || errno >= sys_nerr) { 161 sprintf(buf, "Unknown UNIX error %d", errno); 162 return (buf); 163 } else { 164 return (sys_errlist[errno]); 165 } 166 } 167 } 168 169 /* tli_sink - absorb unreceived datagram */ 170 171 static void tli_sink(fd) 172 int fd; 173 { 174 struct t_unitdata *unit; 175 int flags; 176 177 /* 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 181 * fast. 182 */ 183 184 if ((unit = (struct t_unitdata *) t_alloc(fd, T_UNITDATA, T_ALL)) == 0) { 185 tcpd_warn("t_alloc: %s", tli_error()); 186 sleep(5); 187 } else { 188 (void) t_rcvudata(fd, unit, &flags); 189 t_free((void *) unit, T_UNITDATA); 190 } 191 } 192 193 #endif /* TLI_SEQUENT */ 194