usr.sbin/rpcbind/rpcb_svc.c

   1 /*      $NetBSD: rpcb_svc.c,v 1.1 2000/06/02 23:15:41 fvdl Exp $        */
   2
   3 /*
   4  * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
   5  * unrestricted use provided that this legend is included on all tape
   6  * media and as a part of the software program in whole or part.  Users
   7  * may copy or modify Sun RPC without charge, but are not authorized
   8  * to license or distribute it to anyone else except as part of a product or
   9  * program developed by the user.
  10  *
  11  * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  12  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  13  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  14  *
  15  * Sun RPC is provided with no support and without any obligation on the
  16  * part of Sun Microsystems, Inc. to assist in its use, correction,
  17  * modification or enhancement.
  18  *
  19  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  20  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
  21  * OR ANY PART THEREOF.
  22  *
  23  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  24  * or profits or other special, indirect and consequential damages, even if
  25  * Sun has been advised of the possibility of such damages.
  26  *
  27  * Sun Microsystems, Inc.
  28  * 2550 Garcia Avenue
  29  * Mountain View, California  94043
  30  */
  31 /*
  32  * Copyright (c) 1986 - 1991 by Sun Microsystems, Inc.
  33  */
  34
  35 /* #ident       "@(#)rpcb_svc.c 1.16    93/07/05 SMI" */
  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                 (void) svc_sendreply(transp, (xdrproc_t)xdr_void, (char *)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         (void) 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                         (void) 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                         (void) 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                         (void) 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, SVCXPRT *transp,
 207                          rpcvers_t versnum)
 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, struct svc_req *rqstp, SVCXPRT *transp,
 229                       rpcvers_t versnum)
 230 {
 231         return ((void *)&list_rbl);
 232 }