usr.sbin/rpcbind/rpcb_svc.c

   1 /*
   2  * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
   3  * unrestricted use provided that this legend is included on all tape
   4  * media and as a part of the software program in whole or part.  Users
   5  * may copy or modify Sun RPC without charge, but are not authorized
   6  * to license or distribute it to anyone else except as part of a product or
   7  * program developed by the user.
   8  *
   9  * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  10  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  11  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  12  *
  13  * Sun RPC is provided with no support and without any obligation on the
  14  * part of Sun Microsystems, Inc. to assist in its use, correction,
  15  * modification or enhancement.
  16  *
  17  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  18  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
  19  * OR ANY PART THEREOF.
  20  *
  21  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  22  * or profits or other special, indirect and consequential damages, even if
  23  * Sun has been advised of the possibility of such damages.
  24  *
  25  * Sun Microsystems, Inc.
  26  * 2550 Garcia Avenue
  27  * Mountain View, California  94043
  28  *
  29  * @(#)rpcb_svc.c       1.16    93/07/05 SMI"
  30  * $NetBSD: rpcb_svc.c,v 1.1 2000/06/02 23:15:41 fvdl Exp $
  31  * $FreeBSD: src/usr.sbin/rpcbind/rpcb_svc.c,v 1.3 2007/11/07 10:53:39 kevlo Exp $
  32  */
  33 /*
  34  * Copyright (c) 1986 - 1991 by Sun Microsystems, Inc.
  35  */
  36
  37 /*
  38  * rpcb_svc.c
  39  * The server procedure for the version 3 rpcbind (TLI).
  40  *
  41  * It maintains a separate list of all the registered services with the
  42  * version 3 of rpcbind.
  43  */
  44 #include <sys/types.h>
  45 #include <rpc/rpc.h>
  46 #include <rpc/rpcb_prot.h>
  47 #include <netconfig.h>
  48 #include <syslog.h>
  49 #include <stdlib.h>
  50 #include <stdio.h>
  51 #include <string.h>
  52
  53 #include "rpcbind.h"
  54
  55 static void     *rpcbproc_getaddr_3_local(void *, struct svc_req *, SVCXPRT *,
  56                                           rpcvers_t);
  57 static void     *rpcbproc_dump_3_local(void *, struct svc_req *, SVCXPRT *,
  58                                        rpcvers_t);
  59
  60 /*
  61  * Called by svc_getreqset. There is a separate server handle for
  62  * every transport that it waits on.
  63  */
  64 void
  65 rpcb_service_3(struct svc_req *rqstp, SVCXPRT *transp)
  66 {
  67         union {
  68                 RPCB rpcbproc_set_3_arg;
  69                 RPCB rpcbproc_unset_3_arg;
  70                 RPCB rpcbproc_getaddr_3_local_arg;
  71                 struct rpcb_rmtcallargs rpcbproc_callit_3_arg;
  72                 char *rpcbproc_uaddr2taddr_3_arg;
  73                 struct netbuf rpcbproc_taddr2uaddr_3_arg;
  74         } argument;
  75         char *result;
  76         xdrproc_t xdr_argument, xdr_result;
  77         void *(*local)(void *, struct svc_req *, SVCXPRT *, rpcvers_t);
  78
  79         rpcbs_procinfo(RPCBVERS_3_STAT, rqstp->rq_proc);
  80
  81         switch (rqstp->rq_proc) {
  82         case NULLPROC:
  83                 /*
  84                  * Null proc call
  85                  */
  86 #ifdef RPCBIND_DEBUG
  87                 if (debugging)
  88                         fprintf(stderr, "RPCBPROC_NULL\n");
  89 #endif
  90                 /* This call just logs, no actual checks */
  91                 check_access(transp, rqstp->rq_proc, NULL, RPCBVERS);
  92                 svc_sendreply(transp, (xdrproc_t)xdr_void, NULL);
  93                 return;
  94
  95         case RPCBPROC_SET:
  96                 xdr_argument = (xdrproc_t )xdr_rpcb;
  97                 xdr_result = (xdrproc_t )xdr_bool;
  98                 local = rpcbproc_set_com;
  99                 break;
 100
 101         case RPCBPROC_UNSET:
 102                 xdr_argument = (xdrproc_t)xdr_rpcb;
 103                 xdr_result = (xdrproc_t)xdr_bool;
 104                 local = rpcbproc_unset_com;
 105                 break;
 106
 107         case RPCBPROC_GETADDR:
 108                 xdr_argument = (xdrproc_t)xdr_rpcb;
 109                 xdr_result = (xdrproc_t)xdr_wrapstring;
 110                 local = rpcbproc_getaddr_3_local;
 111                 break;
 112
 113         case RPCBPROC_DUMP:
 114 #ifdef RPCBIND_DEBUG
 115                 if (debugging)
 116                         fprintf(stderr, "RPCBPROC_DUMP\n");
 117 #endif
 118                 xdr_argument = (xdrproc_t)xdr_void;
 119                 xdr_result = (xdrproc_t)xdr_rpcblist_ptr;
 120                 local = rpcbproc_dump_3_local;
 121                 break;
 122
 123         case RPCBPROC_CALLIT:
 124                 rpcbproc_callit_com(rqstp, transp, rqstp->rq_proc, RPCBVERS);
 125                 return;
 126
 127         case RPCBPROC_GETTIME:
 128 #ifdef RPCBIND_DEBUG
 129                 if (debugging)
 130                         fprintf(stderr, "RPCBPROC_GETTIME\n");
 131 #endif
 132                 xdr_argument = (xdrproc_t)xdr_void;
 133                 xdr_result = (xdrproc_t)xdr_u_long;
 134                 local = rpcbproc_gettime_com;
 135                 break;
 136
 137         case RPCBPROC_UADDR2TADDR:
 138 #ifdef RPCBIND_DEBUG
 139                 if (debugging)
 140                         fprintf(stderr, "RPCBPROC_UADDR2TADDR\n");
 141 #endif
 142                 xdr_argument = (xdrproc_t)xdr_wrapstring;
 143                 xdr_result = (xdrproc_t)xdr_netbuf;
 144                 local = rpcbproc_uaddr2taddr_com;
 145                 break;
 146
 147         case RPCBPROC_TADDR2UADDR:
 148 #ifdef RPCBIND_DEBUG
 149                 if (debugging)
 150                         fprintf(stderr, "RPCBPROC_TADDR2UADDR\n");
 151 #endif
 152                 xdr_argument = (xdrproc_t)xdr_netbuf;
 153                 xdr_result = (xdrproc_t)xdr_wrapstring;
 154                 local = rpcbproc_taddr2uaddr_com;
 155                 break;
 156
 157         default:
 158                 svcerr_noproc(transp);
 159                 return;
 160         }
 161         memset((char *)&argument, 0, sizeof (argument));
 162         if (!svc_getargs(transp, (xdrproc_t) xdr_argument,
 163                                 (char *) &argument)) {
 164                 svcerr_decode(transp);
 165                 if (debugging)
 166                         fprintf(stderr, "rpcbind: could not decode\n");
 167                 return;
 168         }
 169         if (!check_access(transp, rqstp->rq_proc, &argument, RPCBVERS)) {
 170                 svcerr_weakauth(transp);
 171                 goto done;
 172         }
 173         result = (*local)(&argument, rqstp, transp, RPCBVERS);
 174         if (result != NULL && !svc_sendreply(transp, (xdrproc_t)xdr_result,
 175                                                 result)) {
 176                 svcerr_systemerr(transp);
 177                 if (debugging) {
 178                         fprintf(stderr, "rpcbind: svc_sendreply\n");
 179                         if (doabort) {
 180                                 rpcbind_abort();
 181                         }
 182                 }
 183         }
 184 done:
 185         if (!svc_freeargs(transp, (xdrproc_t)xdr_argument, (char *)
 186                                 &argument)) {
 187                 if (debugging) {
 188                         fprintf(stderr, "unable to free arguments\n");
 189                         if (doabort) {
 190                                 rpcbind_abort();
 191                         }
 192                 }
 193         }
 194 }
 195
 196 /*
 197  * Lookup the mapping for a program, version and return its
 198  * address. Assuming that the caller wants the address of the
 199  * server running on the transport on which the request came.
 200  *
 201  * We also try to resolve the universal address in terms of
 202  * address of the caller.
 203  */
 204 /* ARGSUSED */
 205 static void *
 206 rpcbproc_getaddr_3_local(void *arg, struct svc_req *rqstp __unused,
 207                          SVCXPRT *transp __unused, rpcvers_t versnum __unused)
 208 {
 209         RPCB *regp = (RPCB *)arg;
 210 #ifdef RPCBIND_DEBUG
 211         if (debugging) {
 212                 char *uaddr;
 213
 214                 uaddr = taddr2uaddr(rpcbind_get_conf(transp->xp_netid),
 215                             svc_getrpccaller(transp));
 216                 fprintf(stderr, "RPCB_GETADDR req for (%lu, %lu, %s) from %s: ",
 217                     (unsigned long)regp->r_prog, (unsigned long)regp->r_vers,
 218                     regp->r_netid, uaddr);
 219                 free(uaddr);
 220         }
 221 #endif
 222         return (rpcbproc_getaddr_com(regp, rqstp, transp, RPCBVERS,
 223             RPCB_ALLVERS));
 224 }
 225
 226 /* ARGSUSED */
 227 static void *
 228 rpcbproc_dump_3_local(void *arg __unused, struct svc_req *rqstp __unused,
 229                       SVCXPRT *transp __unused, rpcvers_t versnum __unused)
 230 {
 231         return ((void *)&list_rbl);
 232 }