8a16b7a18f
Mainly focus on files that use BSD 3-Clause license. The Software Package Data Exchange (SPDX) group provides a specification to make it easier for automated tools to detect and summarize well known opensource licenses. We are gradually adopting the specification, noting that the tags are considered only advisory and do not, in any way, superceed or replace the license texts. Special thanks to Wind River for providing access to "The Duke of Highlander" tool: an older (2014) run over FreeBSD tree was useful as a starting point.
457 lines
12 KiB
C
457 lines
12 KiB
C
/*
|
|
* $NetBSD: rpcb_svc_4.c,v 1.1 2000/06/02 23:15:41 fvdl Exp $
|
|
* $FreeBSD$
|
|
*/
|
|
|
|
/*-
|
|
* SPDX-License-Identifier: BSD-3-Clause
|
|
*
|
|
* 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,
|
|
(char *)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 (rpcb_entry_list));
|
|
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 {
|
|
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);
|
|
}
|