372 lines
8.6 KiB
C
372 lines
8.6 KiB
C
/* Copyright (c) 1990, 1991 UNIX System Laboratories, Inc. */
|
|
/* Copyright (c) 1984, 1986, 1987, 1988, 1989, 1990 AT&T */
|
|
/* All Rights Reserved */
|
|
|
|
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF */
|
|
/* UNIX System Laboratories, Inc. */
|
|
/* The copyright notice above does not evidence any */
|
|
/* actual or intended publication of such source code. */
|
|
|
|
|
|
#ident "@(#)rpcbind:check_bound.c 1.7.7.2"
|
|
|
|
/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
|
|
* PROPRIETARY NOTICE (Combined)
|
|
*
|
|
* This source code is unpublished proprietary information
|
|
* constituting, or derived under license from AT&T's UNIX(r) System V.
|
|
* In addition, portions of such source code were derived from Berkeley
|
|
* 4.3 BSD under license from the Regents of the University of
|
|
* California.
|
|
*
|
|
*
|
|
*
|
|
* Copyright Notice
|
|
*
|
|
* Notice of copyright on this source code product does not indicate
|
|
* publication.
|
|
*
|
|
* (c) 1986,1987,1988,1989,1990 Sun Microsystems, Inc
|
|
* (c) 1983,1984,1985,1986,1987,1988,1989,1990 AT&T.
|
|
* (c) 1990,1991 UNIX System Laboratories, Inc.
|
|
* All rights reserved.
|
|
*/
|
|
/*
|
|
* check_bound.c
|
|
* Checks to see whether the program is still bound to the
|
|
* claimed address and returns the univeral merged address
|
|
*
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <rpc/rpc.h>
|
|
#include <netconfig.h>
|
|
#include <netdir.h>
|
|
#ifdef sgi
|
|
#include <sys/xti.h>
|
|
#endif
|
|
|
|
#ifdef SYSLOG
|
|
#include <sys/syslog.h>
|
|
#else
|
|
#define LOG_DAEMON (3<<3)
|
|
#define LOG_CONS 0x02
|
|
#define LOG_ERR 3
|
|
#endif /* SYSLOG */
|
|
|
|
extern int t_errno;
|
|
extern char *t_errlist[];
|
|
|
|
struct fdlist {
|
|
int fd;
|
|
struct netconfig *nconf;
|
|
struct fdlist *next;
|
|
int check_binding;
|
|
};
|
|
|
|
static struct fdlist *fdhead; /* Link list of the check fd's */
|
|
static struct fdlist *fdtail;
|
|
extern char *nullstring;
|
|
|
|
/*
|
|
* Returns 1 if the given address is bound for the given addr & transport
|
|
* For all error cases, we assume that the address is bound
|
|
* Returns 0 for success.
|
|
*/
|
|
static bool_t
|
|
check_bound(fdl, uaddr)
|
|
struct fdlist *fdl; /* My FD list */
|
|
char *uaddr; /* the universal address */
|
|
{
|
|
int fd;
|
|
struct netbuf *na;
|
|
struct t_bind taddr, *baddr;
|
|
int ans;
|
|
|
|
if (fdl->check_binding == FALSE)
|
|
return (TRUE);
|
|
|
|
na = uaddr2taddr(fdl->nconf, uaddr);
|
|
if (!na)
|
|
return (TRUE); /* punt, should never happen */
|
|
|
|
fd = fdl->fd;
|
|
taddr.addr = *na;
|
|
taddr.qlen = 1;
|
|
baddr = (struct t_bind *)t_alloc(fd, T_BIND, T_ADDR);
|
|
if (baddr == NULL) {
|
|
netdir_free((char *)na, ND_ADDR);
|
|
return (TRUE);
|
|
}
|
|
if (t_bind(fd, &taddr, baddr) != 0) {
|
|
netdir_free((char *)na, ND_ADDR);
|
|
(void) t_free((char *)baddr, T_BIND);
|
|
return (TRUE);
|
|
}
|
|
ans = memcmp(taddr.addr.buf, baddr->addr.buf, baddr->addr.len);
|
|
netdir_free((char *)na, ND_ADDR);
|
|
(void) t_free((char *)baddr, T_BIND);
|
|
if (t_unbind(fd) != 0) {
|
|
/* Bad fd. Purge this fd */
|
|
(void) t_close(fd);
|
|
fdl->fd = t_open(fdl->nconf->nc_device, O_RDWR, NULL);
|
|
if (fdl->fd == -1)
|
|
fdl->check_binding = FALSE;
|
|
}
|
|
return (ans == 0 ? FALSE : TRUE);
|
|
}
|
|
|
|
/*
|
|
* Keep open one more file descriptor for this transport, which
|
|
* will be used to determine whether the given service is up
|
|
* or not by trying to bind to the registered address.
|
|
* We are ignoring errors here. It trashes taddr and baddr;
|
|
* but that perhaps should not matter.
|
|
*
|
|
* We check for the following conditions:
|
|
* 1. Is it possible for t_bind to fail in the case where
|
|
* we bind to an already bound address and have any
|
|
* other error number besides TNOADDR.
|
|
* 2. If a address is specified in bind addr, can I bind to
|
|
* the same address.
|
|
* 3. If NULL is specified in bind addr, can I bind to the
|
|
* address to which the fd finally got bound.
|
|
*/
|
|
int
|
|
add_bndlist(nconf, taddr, baddr)
|
|
struct netconfig *nconf;
|
|
struct t_bind *taddr, *baddr;
|
|
{
|
|
int fd;
|
|
struct fdlist *fdl;
|
|
struct netconfig *newnconf;
|
|
struct t_info tinfo;
|
|
struct t_bind tmpaddr;
|
|
char *uaddr;
|
|
|
|
newnconf = getnetconfigent(nconf->nc_netid);
|
|
if (newnconf == NULL)
|
|
return (-1);
|
|
fdl = (struct fdlist *)malloc((u_int)sizeof (struct fdlist));
|
|
if (fdl == NULL) {
|
|
syslog(LOG_ERR, "no memory!");
|
|
return (-1);
|
|
}
|
|
fdl->nconf = newnconf;
|
|
fdl->next = NULL;
|
|
if (fdhead == NULL) {
|
|
fdhead = fdl;
|
|
fdtail = fdl;
|
|
} else {
|
|
fdtail->next = fdl;
|
|
fdtail = fdl;
|
|
}
|
|
fdl->check_binding = FALSE;
|
|
if ((fdl->fd = t_open(nconf->nc_device, O_RDWR, &tinfo)) < 0) {
|
|
syslog(LOG_ERR, "%s: add_bndlist cannot open connection: %s",
|
|
nconf->nc_netid, t_errlist[t_errno]);
|
|
return (-1);
|
|
}
|
|
|
|
/* Set the qlen only for cots transports */
|
|
switch (tinfo.servtype) {
|
|
case T_COTS:
|
|
case T_COTS_ORD:
|
|
taddr->qlen = 1;
|
|
break;
|
|
case T_CLTS:
|
|
taddr->qlen = 0;
|
|
break;
|
|
default:
|
|
goto error;
|
|
}
|
|
|
|
if (t_bind(fdl->fd, taddr, baddr) != 0) {
|
|
if (t_errno == TNOADDR || t_errno == TADDRBUSY) { /* it's ok */
|
|
fdl->check_binding = TRUE;
|
|
return (0);
|
|
}
|
|
/* Perhaps condition #1 */
|
|
syslog(LOG_ERR, "%s: add_bndlist cannot bind: %s",
|
|
nconf->nc_netid, t_errlist[t_errno]);
|
|
/*
|
|
* uaddr = taddr2uaddr(nconf, &(taddr->addr));
|
|
* syslog(LOG_ERR, "%s: add_bndlist cannot bind address %s",
|
|
* nconf->nc_netid, uaddr);
|
|
*/
|
|
goto not_bound;
|
|
}
|
|
|
|
/* Condition #2 */
|
|
if (!memcmp(taddr->addr.buf, baddr->addr.buf,
|
|
(int)baddr->addr.len)) {
|
|
#ifdef BIND_DEBUG
|
|
fprintf(stderr, "Condition #2\n");
|
|
#endif
|
|
goto not_bound;
|
|
}
|
|
|
|
/* Condition #3 */
|
|
t_unbind(fdl->fd);
|
|
/* Set the qlen only for cots transports */
|
|
switch (tinfo.servtype) {
|
|
case T_COTS:
|
|
case T_COTS_ORD:
|
|
tmpaddr.qlen = 1;
|
|
break;
|
|
case T_CLTS:
|
|
tmpaddr.qlen = 0;
|
|
break;
|
|
default:
|
|
goto error;
|
|
}
|
|
tmpaddr.addr.len = tmpaddr.addr.maxlen = 0;
|
|
tmpaddr.addr.buf = NULL;
|
|
if (t_bind(fdl->fd, &tmpaddr, taddr) != 0) {
|
|
syslog(LOG_ERR, "%s: add_bndlist cannot bind: %s",
|
|
nconf->nc_netid, t_errlist[t_errno]);
|
|
goto error;
|
|
}
|
|
/* Now fdl->fd is bound to a transport chosen address */
|
|
if ((fd = t_open(nconf->nc_device, O_RDWR, &tinfo)) < 0) {
|
|
syslog(LOG_ERR, "%s: add_bndlist cannot open connection: %s",
|
|
nconf->nc_netid, t_errlist[t_errno]);
|
|
goto error;
|
|
}
|
|
if (t_bind(fd, taddr, baddr) != 0) {
|
|
syslog(LOG_ERR, "%s: add_bndlist cannot bind: %s",
|
|
nconf->nc_netid, t_errlist[t_errno]);
|
|
t_close(fd);
|
|
goto error;
|
|
}
|
|
t_close(fd);
|
|
if (!memcmp(taddr->addr.buf, baddr->addr.buf,
|
|
(int)baddr->addr.len)) {
|
|
switch (tinfo.servtype) {
|
|
case T_COTS:
|
|
case T_COTS_ORD:
|
|
if (baddr->qlen == 1) {
|
|
#ifdef BIND_DEBUG
|
|
fprintf(stderr, "Condition #3\n");
|
|
#endif
|
|
goto not_bound;
|
|
}
|
|
break;
|
|
case T_CLTS:
|
|
#ifdef BIND_DEBUG
|
|
fprintf(stderr, "Condition #3\n");
|
|
#endif
|
|
goto not_bound;
|
|
default:
|
|
goto error;
|
|
}
|
|
}
|
|
|
|
t_unbind(fdl->fd);
|
|
fdl->check_binding = TRUE;
|
|
return (0);
|
|
|
|
not_bound:
|
|
t_close(fdl->fd);
|
|
fdl->fd = -1;
|
|
return (1);
|
|
|
|
error:
|
|
t_close(fdl->fd);
|
|
fdl->fd = -1;
|
|
return (-1);
|
|
}
|
|
|
|
bool_t
|
|
is_bound(netid, uaddr)
|
|
char *netid;
|
|
char *uaddr;
|
|
{
|
|
struct fdlist *fdl;
|
|
|
|
for (fdl = fdhead; fdl; fdl = fdl->next)
|
|
if (strcmp(fdl->nconf->nc_netid, netid) == 0)
|
|
break;
|
|
if (fdl == NULL)
|
|
return (TRUE);
|
|
return (check_bound(fdl, uaddr));
|
|
}
|
|
|
|
/*
|
|
* Returns NULL if there was some system error.
|
|
* Returns "" if the address was not bound, i.e the server crashed.
|
|
* Returns the merged address otherwise.
|
|
*/
|
|
char *
|
|
mergeaddr(xprt, uaddr)
|
|
SVCXPRT *xprt;
|
|
char *uaddr;
|
|
{
|
|
struct fdlist *fdl;
|
|
char *netid = xprt->xp_netid;
|
|
struct nd_mergearg ma;
|
|
int stat;
|
|
|
|
for (fdl = fdhead; fdl; fdl = fdl->next)
|
|
if (strcmp(fdl->nconf->nc_netid, netid) == 0)
|
|
break;
|
|
if (fdl == NULL)
|
|
return (NULL);
|
|
if (check_bound(fdl, uaddr) == FALSE)
|
|
/* that server died */
|
|
return (nullstring);
|
|
ma.c_uaddr = taddr2uaddr(fdl->nconf, svc_getrpccaller(xprt));
|
|
if (ma.c_uaddr == NULL) {
|
|
syslog(LOG_ERR, "taddr2uaddr failed for %s: %s",
|
|
fdl->nconf->nc_netid, netdir_sperror());
|
|
return (NULL);
|
|
}
|
|
#ifdef ND_DEBUG
|
|
fprintf(stderr, "mergeaddr: client uaddr = %s\n", ma.c_uaddr);
|
|
#endif
|
|
ma.s_uaddr = uaddr;
|
|
stat = netdir_options(fdl->nconf, ND_MERGEADDR, 0, (char *)&ma);
|
|
(void) free(ma.c_uaddr); /* from lib.; assume not static nullstring */
|
|
if (stat) {
|
|
syslog(LOG_ERR, "netdir_merge failed for %s: %s",
|
|
fdl->nconf->nc_netid, netdir_sperror());
|
|
return (NULL);
|
|
}
|
|
#ifdef ND_DEBUG
|
|
fprintf(stderr, "mergeaddr: uaddr = %s, merged uaddr = %s\n",
|
|
uaddr, ma.m_uaddr);
|
|
#endif
|
|
return (ma.m_uaddr);
|
|
}
|
|
|
|
/*
|
|
* Returns a netconf structure from its internal list. This
|
|
* structure should not be freed.
|
|
*/
|
|
struct netconfig *
|
|
rpcbind_get_conf(netid)
|
|
char *netid;
|
|
{
|
|
struct fdlist *fdl;
|
|
|
|
for (fdl = fdhead; fdl; fdl = fdl->next)
|
|
if (strcmp(fdl->nconf->nc_netid, netid) == 0)
|
|
break;
|
|
if (fdl == NULL)
|
|
return (NULL);
|
|
return (fdl->nconf);
|
|
}
|
|
|
|
#ifdef BIND_DEBUG
|
|
syslog(a, msg, b, c, d)
|
|
int a;
|
|
char *msg;
|
|
caddr_t b, c, d;
|
|
{
|
|
char buf[1024];
|
|
|
|
sprintf(buf, msg, b, c, d);
|
|
fprintf(stderr, "Syslog: %s\n", buf);
|
|
}
|
|
#endif
|