1/*	$NetBSD: check_bound.c,v 1.2 2000/06/22 08:09:26 fvdl Exp $	*/
2/*	$FreeBSD$ */
3
4/*
5 * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
6 * unrestricted use provided that this legend is included on all tape
7 * media and as a part of the software program in whole or part.  Users
8 * may copy or modify Sun RPC without charge, but are not authorized
9 * to license or distribute it to anyone else except as part of a product or
10 * program developed by the user.
11 *
12 * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
13 * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
14 * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
15 *
16 * Sun RPC is provided with no support and without any obligation on the
17 * part of Sun Microsystems, Inc. to assist in its use, correction,
18 * modification or enhancement.
19 *
20 * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
21 * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
22 * OR ANY PART THEREOF.
23 *
24 * In no event will Sun Microsystems, Inc. be liable for any lost revenue
25 * or profits or other special, indirect and consequential damages, even if
26 * Sun has been advised of the possibility of such damages.
27 *
28 * Sun Microsystems, Inc.
29 * 2550 Garcia Avenue
30 * Mountain View, California  94043
31 */
32/*
33 * Copyright (c) 1986 - 1991 by Sun Microsystems, Inc.
34 */
35
36/* #ident	"@(#)check_bound.c	1.15	93/07/05 SMI" */
37
38#if 0
39#ifndef lint
40static	char sccsid[] = "@(#)check_bound.c 1.11 89/04/21 Copyr 1989 Sun Micro";
41#endif
42#endif
43
44/*
45 * check_bound.c
46 * Checks to see whether the program is still bound to the
47 * claimed address and returns the univeral merged address
48 *
49 */
50
51#include <sys/types.h>
52#include <sys/socket.h>
53#include <rpc/rpc.h>
54#include <stdio.h>
55#include <netconfig.h>
56#include <syslog.h>
57#include <string.h>
58#include <unistd.h>
59#include <stdlib.h>
60
61#include "rpcbind.h"
62
63struct fdlist {
64	int fd;
65	struct netconfig *nconf;
66	struct fdlist *next;
67	int check_binding;
68};
69
70static struct fdlist *fdhead;	/* Link list of the check fd's */
71static struct fdlist *fdtail;
72static char *nullstring = "";
73
74static bool_t check_bound(struct fdlist *, char *uaddr);
75
76/*
77 * Returns 1 if the given address is bound for the given addr & transport
78 * For all error cases, we assume that the address is bound
79 * Returns 0 for success.
80 */
81static bool_t
82check_bound(struct fdlist *fdl, char *uaddr)
83{
84	int fd;
85	struct netbuf *na;
86	int ans;
87
88	if (fdl->check_binding == FALSE)
89		return (TRUE);
90
91	na = uaddr2taddr(fdl->nconf, uaddr);
92	if (!na)
93		return (TRUE); /* punt, should never happen */
94
95	fd = __rpc_nconf2fd(fdl->nconf);
96	if (fd < 0) {
97		free(na->buf);
98		free(na);
99		return (TRUE);
100	}
101
102	ans = bind(fd, (struct sockaddr *)na->buf, na->len);
103
104	close(fd);
105	free(na->buf);
106	free(na);
107
108	return (ans == 0 ? FALSE : TRUE);
109}
110
111int
112add_bndlist(struct netconfig *nconf, struct netbuf *baddr __unused)
113{
114	struct fdlist *fdl;
115	struct netconfig *newnconf;
116
117	newnconf = getnetconfigent(nconf->nc_netid);
118	if (newnconf == NULL)
119		return (-1);
120	fdl = malloc(sizeof (struct fdlist));
121	if (fdl == NULL) {
122		freenetconfigent(newnconf);
123		syslog(LOG_ERR, "no memory!");
124		return (-1);
125	}
126	fdl->nconf = newnconf;
127	fdl->next = NULL;
128	if (fdhead == NULL) {
129		fdhead = fdl;
130		fdtail = fdl;
131	} else {
132		fdtail->next = fdl;
133		fdtail = fdl;
134	}
135	/* XXX no bound checking for now */
136	fdl->check_binding = FALSE;
137
138	return 0;
139}
140
141bool_t
142is_bound(char *netid, char *uaddr)
143{
144	struct fdlist *fdl;
145
146	for (fdl = fdhead; fdl; fdl = fdl->next)
147		if (strcmp(fdl->nconf->nc_netid, netid) == 0)
148			break;
149	if (fdl == NULL)
150		return (TRUE);
151	return (check_bound(fdl, uaddr));
152}
153
154/*
155 * Returns NULL if there was some system error.
156 * Returns "" if the address was not bound, i.e the server crashed.
157 * Returns the merged address otherwise.
158 */
159char *
160mergeaddr(SVCXPRT *xprt, char *netid, char *uaddr, char *saddr)
161{
162	struct fdlist *fdl;
163	char *c_uaddr, *s_uaddr, *m_uaddr, *allocated_uaddr = NULL;
164
165	for (fdl = fdhead; fdl; fdl = fdl->next)
166		if (strcmp(fdl->nconf->nc_netid, netid) == 0)
167			break;
168	if (fdl == NULL)
169		return (NULL);
170	if (check_bound(fdl, uaddr) == FALSE)
171		/* that server died */
172		return (nullstring);
173	/*
174	 * If saddr is not NULL, the remote client may have included the
175	 * address by which it contacted us.  Use that for the "client" uaddr,
176	 * otherwise use the info from the SVCXPRT.
177	 */
178	if (saddr != NULL) {
179		c_uaddr = saddr;
180	} else {
181		c_uaddr = taddr2uaddr(fdl->nconf, svc_getrpccaller(xprt));
182		if (c_uaddr == NULL) {
183			syslog(LOG_ERR, "taddr2uaddr failed for %s",
184				fdl->nconf->nc_netid);
185			return (NULL);
186		}
187		allocated_uaddr = c_uaddr;
188	}
189
190#ifdef ND_DEBUG
191	if (debugging) {
192		if (saddr == NULL) {
193			fprintf(stderr, "mergeaddr: client uaddr = %s\n",
194			    c_uaddr);
195		} else {
196			fprintf(stderr, "mergeaddr: contact uaddr = %s\n",
197			    c_uaddr);
198		}
199	}
200#endif
201	s_uaddr = uaddr;
202	/*
203	 * This is all we should need for IP 4 and 6
204	 */
205	m_uaddr = addrmerge(svc_getrpccaller(xprt), s_uaddr, c_uaddr, netid);
206#ifdef ND_DEBUG
207	if (debugging)
208		fprintf(stderr, "mergeaddr: uaddr = %s, merged uaddr = %s\n",
209				uaddr, m_uaddr);
210#endif
211	if (allocated_uaddr != NULL)
212		free(allocated_uaddr);
213	return (m_uaddr);
214}
215
216/*
217 * Returns a netconf structure from its internal list.  This
218 * structure should not be freed.
219 */
220struct netconfig *
221rpcbind_get_conf(char *netid)
222{
223	struct fdlist *fdl;
224
225	for (fdl = fdhead; fdl; fdl = fdl->next)
226		if (strcmp(fdl->nconf->nc_netid, netid) == 0)
227			break;
228	if (fdl == NULL)
229		return (NULL);
230	return (fdl->nconf);
231}
232