1 /* $NetBSD: rpcb_svc.c,v 1.1 2000/06/02 23:15:41 fvdl Exp $ */ 2 3 /*- 4 * SPDX-License-Identifier: BSD-3-Clause 5 * 6 * Copyright (c) 2009, Sun Microsystems, Inc. 7 * All rights reserved. 8 * 9 * Redistribution and use in source and binary forms, with or without 10 * modification, are permitted provided that the following conditions are met: 11 * - Redistributions of source code must retain the above copyright notice, 12 * this list of conditions and the following disclaimer. 13 * - Redistributions in binary form must reproduce the above copyright notice, 14 * this list of conditions and the following disclaimer in the documentation 15 * and/or other materials provided with the distribution. 16 * - Neither the name of Sun Microsystems, Inc. nor the names of its 17 * contributors may be used to endorse or promote products derived 18 * from this software without specific prior written permission. 19 * 20 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 21 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 23 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE 24 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 25 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 26 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 27 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 28 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 29 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 30 * POSSIBILITY OF SUCH DAMAGE. 31 */ 32 /* 33 * Copyright (c) 1986 - 1991 by Sun Microsystems, Inc. 34 */ 35 36 /* #ident "@(#)rpcb_svc.c 1.16 93/07/05 SMI" */ 37 38 /* 39 * rpcb_svc.c 40 * The server procedure for the version 3 rpcbind (TLI). 41 * 42 * It maintains a separate list of all the registered services with the 43 * version 3 of rpcbind. 44 */ 45 #include <sys/types.h> 46 #include <rpc/rpc.h> 47 #include <rpc/rpcb_prot.h> 48 #include <netconfig.h> 49 #include <stdio.h> 50 #ifdef RPCBIND_DEBUG 51 #include <stdlib.h> 52 #endif 53 #include <string.h> 54 55 #include "rpcbind.h" 56 57 static void *rpcbproc_getaddr_3_local(void *, struct svc_req *, SVCXPRT *, 58 rpcvers_t); 59 static void *rpcbproc_dump_3_local(void *, struct svc_req *, SVCXPRT *, 60 rpcvers_t); 61 62 /* 63 * Called by svc_getreqset. There is a separate server handle for 64 * every transport that it waits on. 65 */ 66 void 67 rpcb_service_3(struct svc_req *rqstp, SVCXPRT *transp) 68 { 69 union { 70 RPCB rpcbproc_set_3_arg; 71 RPCB rpcbproc_unset_3_arg; 72 RPCB rpcbproc_getaddr_3_local_arg; 73 struct rpcb_rmtcallargs rpcbproc_callit_3_arg; 74 char *rpcbproc_uaddr2taddr_3_arg; 75 struct netbuf rpcbproc_taddr2uaddr_3_arg; 76 } argument; 77 char *result; 78 xdrproc_t xdr_argument, xdr_result; 79 void *(*local)(void *, struct svc_req *, SVCXPRT *, rpcvers_t); 80 81 rpcbs_procinfo(RPCBVERS_3_STAT, rqstp->rq_proc); 82 83 switch (rqstp->rq_proc) { 84 case NULLPROC: 85 /* 86 * Null proc call 87 */ 88 #ifdef RPCBIND_DEBUG 89 if (debugging) 90 fprintf(stderr, "RPCBPROC_NULL\n"); 91 #endif 92 /* This call just logs, no actual checks */ 93 check_access(transp, rqstp->rq_proc, NULL, RPCBVERS); 94 (void) svc_sendreply(transp, (xdrproc_t)xdr_void, (char *)NULL); 95 return; 96 97 case RPCBPROC_SET: 98 xdr_argument = (xdrproc_t )xdr_rpcb; 99 xdr_result = (xdrproc_t )xdr_bool; 100 local = rpcbproc_set_com; 101 break; 102 103 case RPCBPROC_UNSET: 104 xdr_argument = (xdrproc_t)xdr_rpcb; 105 xdr_result = (xdrproc_t)xdr_bool; 106 local = rpcbproc_unset_com; 107 break; 108 109 case RPCBPROC_GETADDR: 110 xdr_argument = (xdrproc_t)xdr_rpcb; 111 xdr_result = (xdrproc_t)xdr_wrapstring; 112 local = rpcbproc_getaddr_3_local; 113 break; 114 115 case RPCBPROC_DUMP: 116 #ifdef RPCBIND_DEBUG 117 if (debugging) 118 fprintf(stderr, "RPCBPROC_DUMP\n"); 119 #endif 120 xdr_argument = (xdrproc_t)xdr_void; 121 xdr_result = (xdrproc_t)xdr_rpcblist_ptr; 122 local = rpcbproc_dump_3_local; 123 break; 124 125 case RPCBPROC_CALLIT: 126 rpcbproc_callit_com(rqstp, transp, rqstp->rq_proc, RPCBVERS); 127 return; 128 129 case RPCBPROC_GETTIME: 130 #ifdef RPCBIND_DEBUG 131 if (debugging) 132 fprintf(stderr, "RPCBPROC_GETTIME\n"); 133 #endif 134 xdr_argument = (xdrproc_t)xdr_void; 135 xdr_result = (xdrproc_t)xdr_u_long; 136 local = rpcbproc_gettime_com; 137 break; 138 139 case RPCBPROC_UADDR2TADDR: 140 #ifdef RPCBIND_DEBUG 141 if (debugging) 142 fprintf(stderr, "RPCBPROC_UADDR2TADDR\n"); 143 #endif 144 xdr_argument = (xdrproc_t)xdr_wrapstring; 145 xdr_result = (xdrproc_t)xdr_netbuf; 146 local = rpcbproc_uaddr2taddr_com; 147 break; 148 149 case RPCBPROC_TADDR2UADDR: 150 #ifdef RPCBIND_DEBUG 151 if (debugging) 152 fprintf(stderr, "RPCBPROC_TADDR2UADDR\n"); 153 #endif 154 xdr_argument = (xdrproc_t)xdr_netbuf; 155 xdr_result = (xdrproc_t)xdr_wrapstring; 156 local = rpcbproc_taddr2uaddr_com; 157 break; 158 159 default: 160 svcerr_noproc(transp); 161 return; 162 } 163 (void) memset((char *)&argument, 0, sizeof (argument)); 164 if (!svc_getargs(transp, (xdrproc_t) xdr_argument, 165 (char *) &argument)) { 166 svcerr_decode(transp); 167 if (debugging) 168 (void) fprintf(stderr, "rpcbind: could not decode\n"); 169 return; 170 } 171 if (!check_access(transp, rqstp->rq_proc, &argument, RPCBVERS)) { 172 svcerr_weakauth(transp); 173 goto done; 174 } 175 result = (*local)(&argument, rqstp, transp, RPCBVERS); 176 if (result != NULL && !svc_sendreply(transp, (xdrproc_t)xdr_result, 177 result)) { 178 svcerr_systemerr(transp); 179 if (debugging) { 180 (void) fprintf(stderr, "rpcbind: svc_sendreply\n"); 181 if (doabort) { 182 rpcbind_abort(); 183 } 184 } 185 } 186 done: 187 if (!svc_freeargs(transp, (xdrproc_t)xdr_argument, (char *) 188 &argument)) { 189 if (debugging) { 190 (void) fprintf(stderr, "unable to free arguments\n"); 191 if (doabort) { 192 rpcbind_abort(); 193 } 194 } 195 } 196 } 197 198 /* 199 * Lookup the mapping for a program, version and return its 200 * address. Assuming that the caller wants the address of the 201 * server running on the transport on which the request came. 202 * 203 * We also try to resolve the universal address in terms of 204 * address of the caller. 205 */ 206 /* ARGSUSED */ 207 static void * 208 rpcbproc_getaddr_3_local(void *arg, struct svc_req *rqstp __unused, 209 SVCXPRT *transp __unused, rpcvers_t versnum __unused) 210 { 211 RPCB *regp = (RPCB *)arg; 212 #ifdef RPCBIND_DEBUG 213 if (debugging) { 214 char *uaddr; 215 216 uaddr = taddr2uaddr(rpcbind_get_conf(transp->xp_netid), 217 svc_getrpccaller(transp)); 218 fprintf(stderr, "RPCB_GETADDR req for (%lu, %lu, %s) from %s: ", 219 (unsigned long)regp->r_prog, (unsigned long)regp->r_vers, 220 regp->r_netid, uaddr); 221 free(uaddr); 222 } 223 #endif 224 return (rpcbproc_getaddr_com(regp, rqstp, transp, RPCBVERS, 225 RPCB_ALLVERS)); 226 } 227 228 /* ARGSUSED */ 229 static void * 230 rpcbproc_dump_3_local(void *arg __unused, struct svc_req *rqstp __unused, 231 SVCXPRT *transp __unused, rpcvers_t versnum __unused) 232 { 233 return ((void *)&list_rbl); 234 } 235