/*      $NetBSD: rpcb_svc_4.c,v 1.9 2019/01/03 19:04:21 christos Exp $  */
/* $FreeBSD: head/usr.sbin/rpcbind/rpcb_svc_4.c 258564 2013-11-25 16:44:02Z hrs $ */

/*-
* Copyright (c) 2009, Sun Microsystems, Inc.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions are met:
* - Redistributions of source code must retain the above copyright notice,
*   this list of conditions and the following disclaimer.
* - Redistributions in binary form must reproduce the above copyright notice,
*   this list of conditions and the following disclaimer in the documentation
*   and/or other materials provided with the distribution.
* - Neither the name of Sun Microsystems, Inc. nor the names of its
*   contributors may be used to endorse or promote products derived
*   from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
/*
* Copyright (c) 1986 - 1991 by Sun Microsystems, Inc.
*/

/* #ident       "@(#)rpcb_svc_4.c       1.8     93/07/05 SMI" */

/*
* rpcb_svc_4.c
* The server procedure for the version 4 rpcbind.
*
*/

#include <sys/types.h>
#include <sys/stat.h>
#include <rpc/rpc.h>
#include <stdio.h>
#include <unistd.h>
#include <netconfig.h>
#include <syslog.h>
#include <string.h>
#include <stdlib.h>
#include "rpcbind.h"

static void *rpcbproc_getaddr_4_local(void *, struct svc_req *, SVCXPRT *,
   rpcvers_t);
static void *rpcbproc_getversaddr_4_local(void *, struct svc_req *, SVCXPRT *,
   rpcvers_t);
static void *rpcbproc_getaddrlist_4_local(void *, struct svc_req *, SVCXPRT *,
   rpcvers_t);
static void free_rpcb_entry_list(rpcb_entry_list_ptr *);
static void *rpcbproc_dump_4_local(void *, struct svc_req *, SVCXPRT *,
   rpcvers_t);

/*
* Called by svc_getreqset. There is a separate server handle for
* every transport that it waits on.
*/
void
rpcb_service_4(struct svc_req *rqstp, SVCXPRT *transp)
{
       union {
               rpcb rpcbproc_set_4_arg;
               rpcb rpcbproc_unset_4_arg;
               rpcb rpcbproc_getaddr_4_local_arg;
               char *rpcbproc_uaddr2taddr_4_arg;
               struct netbuf rpcbproc_taddr2uaddr_4_arg;
       } argument;
       char *result;
       xdrproc_t xdr_argument, xdr_result;
       void *(*local)(void *, struct svc_req *, SVCXPRT *, rpcvers_t);

       rpcbs_procinfo(RPCBVERS_4_STAT, rqstp->rq_proc);

       switch (rqstp->rq_proc) {
       case NULLPROC:
               /*
                * Null proc call
                */
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "RPCBPROC_NULL\n");
#endif
               check_access(transp, rqstp->rq_proc, NULL, RPCBVERS4);
               (void) svc_sendreply(transp, (xdrproc_t) xdr_void, NULL);
               return;

       case RPCBPROC_SET:
               /*
                * Check to see whether the message came from
                * loopback transports (for security reasons)
                */
               xdr_argument = (xdrproc_t)xdr_rpcb;
               xdr_result = (xdrproc_t)xdr_bool;
               local = rpcbproc_set_com;
               break;

       case RPCBPROC_UNSET:
               /*
                * Check to see whether the message came from
                * loopback transports (for security reasons)
                */
               xdr_argument = (xdrproc_t)xdr_rpcb;
               xdr_result = (xdrproc_t)xdr_bool;
               local = rpcbproc_unset_com;
               break;

       case RPCBPROC_GETADDR:
               xdr_argument = (xdrproc_t)xdr_rpcb;
               xdr_result = (xdrproc_t)xdr_wrapstring;
               local = rpcbproc_getaddr_4_local;
               break;

       case RPCBPROC_GETVERSADDR:
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "RPCBPROC_GETVERSADDR\n");
#endif
               xdr_argument = (xdrproc_t)xdr_rpcb;
               xdr_result = (xdrproc_t)xdr_wrapstring;
               local = rpcbproc_getversaddr_4_local;
               break;

       case RPCBPROC_DUMP:
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "RPCBPROC_DUMP\n");
#endif
               xdr_argument = (xdrproc_t)xdr_void;
               xdr_result = (xdrproc_t)xdr_rpcblist_ptr;
               local = rpcbproc_dump_4_local;
               break;

       case RPCBPROC_INDIRECT:
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "RPCBPROC_INDIRECT\n");
#endif
               rpcbproc_callit_com(rqstp, transp, rqstp->rq_proc, RPCBVERS4);
               return;

/*      case RPCBPROC_CALLIT: */
       case RPCBPROC_BCAST:
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "RPCBPROC_BCAST\n");
#endif
               rpcbproc_callit_com(rqstp, transp, rqstp->rq_proc, RPCBVERS4);
               return;

       case RPCBPROC_GETTIME:
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "RPCBPROC_GETTIME\n");
#endif
               xdr_argument = (xdrproc_t)xdr_void;
               xdr_result = (xdrproc_t)xdr_u_long;
               local = rpcbproc_gettime_com;
               break;

       case RPCBPROC_UADDR2TADDR:
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "RPCBPROC_UADDR2TADDR\n");
#endif
               xdr_argument = (xdrproc_t)xdr_wrapstring;
               xdr_result = (xdrproc_t)xdr_netbuf;
               local = rpcbproc_uaddr2taddr_com;
               break;

       case RPCBPROC_TADDR2UADDR:
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "RPCBPROC_TADDR2UADDR\n");
#endif
               xdr_argument = (xdrproc_t)xdr_netbuf;
               xdr_result = (xdrproc_t)xdr_wrapstring;
               local = rpcbproc_taddr2uaddr_com;
               break;

       case RPCBPROC_GETADDRLIST:
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "RPCBPROC_GETADDRLIST\n");
#endif
               xdr_argument = (xdrproc_t)xdr_rpcb;
               xdr_result = (xdrproc_t)xdr_rpcb_entry_list_ptr;
               local = rpcbproc_getaddrlist_4_local;
               break;

       case RPCBPROC_GETSTAT:
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "RPCBPROC_GETSTAT\n");
#endif
               xdr_argument = (xdrproc_t)xdr_void;
               xdr_result = (xdrproc_t)xdr_rpcb_stat_byvers;
               local = rpcbproc_getstat;
               break;

       default:
               svcerr_noproc(transp);
               return;
       }
       memset((char *)&argument, 0, sizeof (argument));
       if (!svc_getargs(transp, (xdrproc_t) xdr_argument,
               (char *)&argument)) {
               svcerr_decode(transp);
               if (debugging)
                       (void) fprintf(stderr, "rpcbind: could not decode\n");
               return;
       }
       if (!check_access(transp, rqstp->rq_proc, &argument, RPCBVERS4)) {
               svcerr_weakauth(transp);
               goto done;
       }
       result = (*local)(&argument, rqstp, transp, RPCBVERS4);
       if (result != NULL && !svc_sendreply(transp, (xdrproc_t) xdr_result,
                                               result)) {
               svcerr_systemerr(transp);
               if (debugging) {
                       (void) fprintf(stderr, "rpcbind: svc_sendreply\n");
                       if (doabort) {
                               rpcbind_abort();
                       }
               }
       }
done:
       if (!svc_freeargs(transp, (xdrproc_t) xdr_argument,
                               (char *)&argument)) {
               if (debugging) {
                       (void) fprintf(stderr, "unable to free arguments\n");
                       if (doabort) {
                               rpcbind_abort();
                       }
               }
       }
       return;
}

/*
* Lookup the mapping for a program, version and return its
* address. Assuming that the caller wants the address of the
* server running on the transport on which the request came.
* Even if a service with a different version number is available,
* it will return that address.  The client should check with an
* clnt_call to verify whether the service is the one that is desired.
* We also try to resolve the universal address in terms of
* address of the caller.
*/
/* ARGSUSED */
static void *
rpcbproc_getaddr_4_local(void *arg, struct svc_req *rqstp, SVCXPRT *transp,
                        rpcvers_t rpcbversnum __unused)
{
       RPCB *regp = (RPCB *)arg;
#ifdef RPCBIND_DEBUG
       if (debugging) {
               char *uaddr;

               uaddr = taddr2uaddr(rpcbind_get_conf(transp->xp_netid),
                           svc_getrpccaller(transp));
               fprintf(stderr, "RPCB_GETADDR req for (%lu, %lu, %s) from %s: ",
                   (unsigned long)regp->r_prog, (unsigned long)regp->r_vers,
                   regp->r_netid, uaddr);
               free(uaddr);
       }
#endif
       return (rpcbproc_getaddr_com(regp, rqstp, transp, RPCBVERS4,
                                       RPCB_ALLVERS));
}

/*
* Lookup the mapping for a program, version and return its
* address. Assuming that the caller wants the address of the
* server running on the transport on which the request came.
*
* We also try to resolve the universal address in terms of
* address of the caller.
*/
/* ARGSUSED */
static void *
rpcbproc_getversaddr_4_local(void *arg, struct svc_req *rqstp, SVCXPRT *transp,
                            rpcvers_t versnum __unused)
{
       RPCB *regp = (RPCB *)arg;
#ifdef RPCBIND_DEBUG
       if (debugging) {
               char *uaddr;

               uaddr = taddr2uaddr(rpcbind_get_conf(transp->xp_netid),
                           svc_getrpccaller(transp));
               fprintf(stderr, "RPCB_GETVERSADDR rqst for (%lu, %lu, %s)"
                               " from %s : ",
                   (unsigned long)regp->r_prog, (unsigned long)regp->r_vers,
                   regp->r_netid, uaddr);
               free(uaddr);
       }
#endif
       return (rpcbproc_getaddr_com(regp, rqstp, transp, RPCBVERS4,
                                       RPCB_ONEVERS));
}

/*
* Lookup the mapping for a program, version and return the
* addresses for all transports in the current transport family.
* We return a merged address.
*/
/* ARGSUSED */
static void *
rpcbproc_getaddrlist_4_local(void *arg, struct svc_req *rqstp __unused,
   SVCXPRT *transp, rpcvers_t versnum __unused)
{
       RPCB *regp = (RPCB *)arg;
       static rpcb_entry_list_ptr rlist;
       register rpcblist_ptr rbl;
       rpcb_entry_list_ptr rp, tail;
       rpcprog_t prog;
       rpcvers_t vers;
       rpcb_entry *a;
       struct netconfig *nconf;
       struct netconfig *reg_nconf;
       char *saddr, *maddr = NULL;

       free_rpcb_entry_list(&rlist);
       tail = NULL;
       prog = regp->r_prog;
       vers = regp->r_vers;
       reg_nconf = rpcbind_get_conf(transp->xp_netid);
       if (reg_nconf == NULL)
               return (NULL);
       if (*(regp->r_addr) != '\0') {
               saddr = regp->r_addr;
       } else {
               saddr = NULL;
       }
#ifdef RPCBIND_DEBUG
       if (debugging) {
               fprintf(stderr, "r_addr: %s r_netid: %s nc_protofmly: %s\n",
                   regp->r_addr, regp->r_netid, reg_nconf->nc_protofmly);
       }
#endif
       for (rbl = list_rbl; rbl != NULL; rbl = rbl->rpcb_next) {
           if ((rbl->rpcb_map.r_prog == prog) &&
               (rbl->rpcb_map.r_vers == vers)) {
               nconf = rpcbind_get_conf(rbl->rpcb_map.r_netid);
               if (nconf == NULL)
                       goto fail;
               if (strcmp(nconf->nc_protofmly, reg_nconf->nc_protofmly)
                               != 0) {
                       continue;       /* not same proto family */
               }
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, "\tmerge with: %s\n",
                           rbl->rpcb_map.r_addr);
#endif
               if ((maddr = mergeaddr(transp, rbl->rpcb_map.r_netid,
                               rbl->rpcb_map.r_addr, saddr)) == NULL) {
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, " FAILED\n");
#endif
                       continue;
               } else if (!maddr[0]) {
#ifdef RPCBIND_DEBUG
       if (debugging)
               fprintf(stderr, " SUCCEEDED, but port died -  maddr: nullstring\n");
#endif
                       /* The server died. Unset this combination */
                       delete_prog(regp->r_prog);
                       continue;
               }
#ifdef RPCBIND_DEBUG
               if (debugging)
                       fprintf(stderr, " SUCCEEDED maddr: %s\n", maddr);
#endif
               /*
                * Add it to rlist.
                */
               rp = malloc(sizeof(*rp));
               if (rp == NULL)
                       goto fail;
               a = &rp->rpcb_entry_map;
               a->r_maddr = maddr;
               a->r_nc_netid = nconf->nc_netid;
               a->r_nc_semantics = nconf->nc_semantics;
               a->r_nc_protofmly = nconf->nc_protofmly;
               a->r_nc_proto = nconf->nc_proto;
               rp->rpcb_entry_next = NULL;
               if (rlist == NULL) {
                       rlist = rp;
                       tail = rp;
               } else if (tail) {
                       tail->rpcb_entry_next = rp;
                       tail = rp;
               }
               rp = NULL;
           }
       }
#ifdef RPCBIND_DEBUG
       if (debugging) {
               for (rp = rlist; rp; rp = rp->rpcb_entry_next) {
                       fprintf(stderr, "\t%s %s\n", rp->rpcb_entry_map.r_maddr,
                               rp->rpcb_entry_map.r_nc_proto);
               }
       }
#endif
       /*
        * XXX: getaddrlist info is also being stuffed into getaddr.
        * Perhaps wrong, but better than it not getting counted at all.
        */
       rpcbs_getaddr(RPCBVERS4 - 2, prog, vers, transp->xp_netid, maddr);
       return (void *)&rlist;

fail:   free_rpcb_entry_list(&rlist);
       return (NULL);
}

/*
* Free only the allocated structure, rest is all a pointer to some
* other data somewhere else.
*/
static void
free_rpcb_entry_list(rpcb_entry_list_ptr *rlistp)
{
       register rpcb_entry_list_ptr rbl, tmp;

       for (rbl = *rlistp; rbl != NULL; ) {
               tmp = rbl;
               rbl = rbl->rpcb_entry_next;
               free((char *)tmp->rpcb_entry_map.r_maddr);
               free((char *)tmp);
       }
       *rlistp = NULL;
}

/* ARGSUSED */
static void *
rpcbproc_dump_4_local(void *arg __unused, struct svc_req *req __unused,
   SVCXPRT *xprt __unused, rpcvers_t versnum __unused)
{
       return ((void *)&list_rbl);
}

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.