cmd/rpcbind/check_bound.c

	check_bound.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 *
 * Copyright 2002 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/* Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T */
/* All Rights Reserved */
/*
 * University Copyright- Copyright (c) 1982, 1986, 1988
 * The Regents of the University of California
 * All Rights Reserved
 *
 * University Acknowledgment- Portions of this document are derived from
 * software developed by the University of California, Berkeley, and its
 * contributors.
 */

#pragma ident   "%Z%%M% %I% %E% SMI"

/*
 * 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>
#include <sys/syslog.h>
#include <stdlib.h>
#include "rpcbind.h"
#include <string.h>
/* the following just to get my address */
#include <errno.h>
#include <sys/socket.h>
#include <netinet/in.h>

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;
static 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;

    newnconf = getnetconfigent(nconf->nc_netid);
    if (newnconf == NULL)
        return (-1);
    fdl = (struct fdlist *)malloc((uint_t)sizeof (struct fdlist));
    if (fdl == NULL) {
        freenetconfigent(newnconf);
        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) {
        /*
         * Note that we haven't dequeued this entry nor have we freed
         * the netconfig structure.
         */
        if (debugging) {
            fprintf(stderr,
                "%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) {
            fdl->check_binding = TRUE;
            return (0); /* All is fine */
        }
        /* Perhaps condition #1 */
        if (debugging) {
            fprintf(stderr, "%s: add_bndlist cannot bind (1): %s",
                nconf->nc_netid, t_errlist[t_errno]);
        }
        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) {
        if (debugging) {
            fprintf(stderr, "%s: add_bndlist cannot bind (2): %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) {
        if (debugging) {
            fprintf(stderr,
                "%s: add_bndlist cannot open connection: %s",
                nconf->nc_netid, t_errlist[t_errno]);
        }
        goto error;
    }
    if (t_bind(fd, taddr, baddr) != 0) {
        if (t_errno == TNOADDR) {
            /*
             * This transport is schizo.  Previously it handled a
             * request to bind to an already bound transport by
             * returning a different bind address, and now it's
             * returning a TNOADDR for essentially the same
             * request.  The spec may allow this behavior, so
             * we'll just assume we can't do bind checking with
             * this transport.
             */
            goto not_bound;
        }
        if (debugging) {
            fprintf(stderr, "%s: add_bndlist cannot bind (3): %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));
}

/* Return pointer to port string in the universal address */
#define UADDR_PRT_INDX(UADDR, PORT) { \
    PORT = strrchr(UADDR, '.'); \
    while (*--PORT != '.'); }
/*
 * 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, netid, uaddr, saddr)
    SVCXPRT *xprt;
    char *netid;
    char *uaddr;
    char *saddr;
{
    struct fdlist *fdl;
    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);
    /*
     * If saddr is not NULL, the remote client may have included the
     * address by which it contacted us.  Use that for the "client" uaddr,
     * otherwise use the info from the SVCXPRT.
     */
    if (saddr != NULL) {
        ma.c_uaddr = saddr;
    } else {

        /* retrieve the client's address */
        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
    if (saddr == NULL) {
        fprintf(stderr, "mergeaddr: client uaddr = %s\n", ma.c_uaddr);
    } else {
        fprintf(stderr, "mergeaddr: contact uaddr = %s\n", ma.c_uaddr);
    }
#endif

    /* Not an  INET adaress? */
    if ((strcmp(fdl->nconf->nc_protofmly, NC_INET) != 0) &&
        (strcmp(fdl->nconf->nc_protofmly, NC_INET6) != 0)) {
        ma.s_uaddr = uaddr;
#ifdef ND_DEBUG
        fprintf(stderr, "mergeaddr: Call to the original"
            " ND_MERGEADDR interface\n");
#endif
        stat = netdir_options(fdl->nconf, ND_MERGEADDR, 0, (char *)&ma);
    }
    /* Inet address, but no xp_ltaddr */
    else if ((ma.s_uaddr = taddr2uaddr(fdl->nconf,
                &(xprt)->xp_ltaddr)) == NULL) {
        ma.s_uaddr = uaddr;
#ifdef ND_DEBUG
        fprintf(stderr, "mergeaddr: Call to the original"
            " ND_MERGEADDR interface\n");
#endif
        stat = netdir_options(fdl->nconf, ND_MERGEADDR, 0, (char *)&ma);
    } else {
        /*
         * (xprt)->xp_ltaddr contains portmap's port address.
         * Overwrite this with actual application's port address
         * before returning to the caller.
         */
        char *s_uport, *uport;

        /* Get the INET/INET6 address part from ma.s_uaddr */
        UADDR_PRT_INDX(ma.s_uaddr, s_uport);
        *s_uport = '\0';

        /* Get the port info from uaddr */
        UADDR_PRT_INDX(uaddr, uport);

        ma.m_uaddr = malloc(strlen(ma.s_uaddr) + strlen(uport) + 1);
        if (ma.m_uaddr == NULL) {
            syslog(LOG_ERR, "mergeaddr: no memory!");
            free(ma.s_uaddr);
            if (saddr == NULL)
                free(ma.c_uaddr);
            return (NULL);
        }

        /* Copy IP address into the Universal address holder */
        strcpy(ma.m_uaddr, ma.s_uaddr);
        /* Append port info to the Universal address holder */
        strcat(ma.m_uaddr, uport);
        free(ma.s_uaddr);
        stat = 0;

#ifdef ND_DEBUG
        fprintf(stderr, "mergeaddr: Just return the address which was"
            " used for contacting us\n");
#endif
    }
    if (saddr == NULL) {
        free(ma.c_uaddr);
    }
    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