1 /*
2  * This part for NCR UNIX with is from Andrew Maffei (arm@aqua.whoi.edu). It
3  * assumes TLI throughout. In order to look up endpoint address information
4  * we must talk to the "timod" streams module. For some reason "timod" wants
5  * to sit directly on top of the device driver. Therefore we pop off all
6  * streams modules except the driver, install the "timod" module so that we
7  * can figure out network addresses, and then restore the original state.
8  */
9
10#ifndef lint
11static char sccsid[] = "@(#) ncr.c 1.1 94/12/28 17:42:34";
12#endif
13
14#include <sys/types.h>
15#include <stdio.h>
16#include <syslog.h>
17#include <sys/tiuser.h>
18#include <stropts.h>
19#include <sys/conf.h>
20
21#include "tcpd.h"
22
23#define MAX_MODULE_COUNT	10	/* XXX */
24
25/* fromhost - tear down the streams stack then rebuild it */
26
27void    fromhost(struct request_info *request)
28{
29    int     i;
30    int     num_mod;
31    struct str_list str_list;
32    struct str_mlist mod_buffer[MAX_MODULE_COUNT];
33    int     fd = request->fd;
34
35    str_list.sl_nmods = MAX_MODULE_COUNT;
36    str_list.sl_modlist = &mod_buffer[0];
37
38    /*
39     * On systems with WIN streams support we have to be careful about what
40     * is on the stream we are passed. This code POPs off all modules above
41     * the pseudo driver, pushes timod, gets the host address information,
42     * pops timod and then pushes all modules back on the stream.
43     *
44     * Some state may be lost in this process. /usr/etc/tlid seems to do special
45     * things to the stream depending on the TCP port being serviced. (not a
46     * very nice thing to do!). It is unclear what to do if this code breaks
47     * - the stream may be left in an unknown condition.
48     */
49    if ((num_mod = ioctl(fd, I_LIST, NULL)) < 0)
50	tcpd_warn("fromhost: LIST failed: %m");
51    if (ioctl(fd, I_LIST, &str_list) < 0)
52	tcpd_warn("fromhost: LIST failed: %m");
53
54    /*
55     * POP stream modules except for the driver.
56     */
57    for (i = 0; i < num_mod - 1; i++)
58	if (ioctl(fd, I_POP, 0) < 0)
59	    tcpd_warn("fromhost: POP %s: %m", mod_buffer[i].l_name);
60
61    /*
62     * PUSH timod so that host address ioctls can be executed.
63     */
64    if (ioctl(fd, I_PUSH, "timod") < 0)
65	tcpd_warn("fromhost: PUSH timod: %m");
66    tli_host(request);
67
68    /*
69     * POP timod, we're done with it now.
70     */
71    if (ioctl(fd, I_POP, 0) < 0)
72	tcpd_warn("fromhost: POP timod: %m");
73
74    /*
75     * Restore stream modules.
76     */
77    for (i = num_mod - 2; i >= 0; i--)
78	if (ioctl(fd, I_PUSH, mod_buffer[i].l_name) < 0)
79	    tcpd_warn("fromhost: PUSH %s: %m", mod_buffer[i].l_name);
80}
81