contrib/amd/amd/nfs_prot_svc.c

   1 /*
   2  * Copyright (c) 1997-2006 Erez Zadok
   3  * Copyright (c) 1989 Jan-Simon Pendry
   4  * Copyright (c) 1989 Imperial College of Science, Technology & Medicine
   5  * Copyright (c) 1989 The Regents of the University of California.
   6  * All rights reserved.
   7  *
   8  * This code is derived from software contributed to Berkeley by
   9  * Jan-Simon Pendry at Imperial College, London.
  10  *
  11  * Redistribution and use in source and binary forms, with or without
  12  * modification, are permitted provided that the following conditions
  13  * are met:
  14  * 1. Redistributions of source code must retain the above copyright
  15  *    notice, this list of conditions and the following disclaimer.
  16  * 2. Redistributions in binary form must reproduce the above copyright
  17  *    notice, this list of conditions and the following disclaimer in the
  18  *    documentation and/or other materials provided with the distribution.
  19  * 3. All advertising materials mentioning features or use of this software
  20  *    must display the following acknowledgment:
  21  *      This product includes software developed by the University of
  22  *      California, Berkeley and its contributors.
  23  * 4. Neither the name of the University nor the names of its contributors
  24  *    may be used to endorse or promote products derived from this software
  25  *    without specific prior written permission.
  26  *
  27  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  28  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  29  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  30  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  31  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  32  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  33  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  34  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  35  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  36  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  37  * SUCH DAMAGE.
  38  *
  39  *
  40  * File: am-utils/amd/nfs_prot_svc.c
  41  *
  42  */
  43
  44 #ifdef HAVE_CONFIG_H
  45 # include <config.h>
  46 #endif /* HAVE_CONFIG_H */
  47 #include <am_defs.h>
  48 #include <amd.h>
  49
  50 /* external definitions */
  51 extern voidp nfsproc_null_2_svc(voidp, struct svc_req *);
  52 extern nfsattrstat *nfsproc_getattr_2_svc(am_nfs_fh *, struct svc_req *);
  53 extern nfsattrstat *nfsproc_setattr_2_svc(nfssattrargs *, struct svc_req *);
  54 extern voidp nfsproc_root_2_svc(voidp, struct svc_req *);
  55 extern nfsdiropres *nfsproc_lookup_2_svc(nfsdiropargs *, struct svc_req *);
  56 extern nfsreadlinkres *nfsproc_readlink_2_svc(am_nfs_fh *, struct svc_req *);
  57 extern nfsreadres *nfsproc_read_2_svc(nfsreadargs *, struct svc_req *);
  58 extern voidp nfsproc_writecache_2_svc(voidp, struct svc_req *);
  59 extern nfsattrstat *nfsproc_write_2_svc(nfswriteargs *, struct svc_req *);
  60 extern nfsdiropres *nfsproc_create_2_svc(nfscreateargs *, struct svc_req *);
  61 extern nfsstat *nfsproc_remove_2_svc(nfsdiropargs *, struct svc_req *);
  62 extern nfsstat *nfsproc_rename_2_svc(nfsrenameargs *, struct svc_req *);
  63 extern nfsstat *nfsproc_link_2_svc(nfslinkargs *, struct svc_req *);
  64 extern nfsstat *nfsproc_symlink_2_svc(nfssymlinkargs *, struct svc_req *);
  65 extern nfsdiropres *nfsproc_mkdir_2_svc(nfscreateargs *, struct svc_req *);
  66 extern nfsstat *nfsproc_rmdir_2_svc(nfsdiropargs *, struct svc_req *);
  67 extern nfsreaddirres *nfsproc_readdir_2_svc(nfsreaddirargs *, struct svc_req *);
  68 extern nfsstatfsres *nfsproc_statfs_2_svc(am_nfs_fh *, struct svc_req *);
  69
  70 /* global variables */
  71 SVCXPRT *current_transp;
  72
  73 /* typedefs */
  74 typedef char *(*nfssvcproc_t)(voidp, struct svc_req *);
  75
  76
  77 void
  78 nfs_program_2(struct svc_req *rqstp, SVCXPRT *transp)
  79 {
  80   union {
  81     am_nfs_fh           nfsproc_getattr_2_arg;
  82     nfssattrargs        nfsproc_setattr_2_arg;
  83     nfsdiropargs        nfsproc_lookup_2_arg;
  84     am_nfs_fh           nfsproc_readlink_2_arg;
  85     nfsreadargs         nfsproc_read_2_arg;
  86     nfswriteargs        nfsproc_write_2_arg;
  87     nfscreateargs       nfsproc_create_2_arg;
  88     nfsdiropargs        nfsproc_remove_2_arg;
  89     nfsrenameargs       nfsproc_rename_2_arg;
  90     nfslinkargs         nfsproc_link_2_arg;
  91     nfssymlinkargs      nfsproc_symlink_2_arg;
  92     nfscreateargs       nfsproc_mkdir_2_arg;
  93     nfsdiropargs        fsproc_rmdir_2_arg;
  94     nfsreaddirargs      nfsproc_readdir_2_arg;
  95     am_nfs_fh           nfsproc_statfs_2_arg;
  96   } argument;
  97   char *result;
  98   xdrproc_t xdr_argument, xdr_result;
  99   nfssvcproc_t local;
 100
 101 #ifdef HAVE_TRANSPORT_TYPE_TLI
 102   /*
 103    * On TLI systems we don't use an INET network type, but a "ticlts" (see
 104    * /etc/netconfig and conf/transp_tli.c:create_nfs_service).  This means
 105    * that packets could only come from the loopback interface, and we don't
 106    * need to check them and filter possibly spoofed packets.  Therefore we
 107    * only need to check if the UID caller is correct.
 108    */
 109 # ifdef HAVE___RPC_GET_LOCAL_UID
 110   uid_t u;
 111   /* extern definition for an internal libnsl function */
 112   extern int __rpc_get_local_uid(SVCXPRT *transp, uid_t *uid);
 113   if (__rpc_get_local_uid(transp, &u) >= 0  &&  u != 0) {
 114     plog(XLOG_WARNING, "ignoring request from UID %ld, must be 0", (long) u);
 115     return;
 116   }
 117 # else /* not HAVE___RPC_GET_LOCAL_UID */
 118   dlog("cannot verify local uid for rpc request");
 119 # endif /* HAVE___RPC_GET_LOCAL_UID */
 120 #else /* not HAVE_TRANPORT_TYPE_TLI */
 121   struct sockaddr_in *sinp;
 122   char dq[20], dq2[28];
 123   sinp = amu_svc_getcaller(rqstp->rq_xprt);
 124 # ifdef MNT2_NFS_OPT_RESVPORT
 125   /* Verify that the request comes from a reserved port */
 126   if (sinp &&
 127       ntohs(sinp->sin_port) >= IPPORT_RESERVED &&
 128       !(gopt.flags & CFM_NFS_INSECURE_PORT)) {
 129     plog(XLOG_WARNING, "ignoring request from %s:%u, port not reserved",
 130          inet_dquad(dq, sizeof(dq), sinp->sin_addr.s_addr),
 131          ntohs(sinp->sin_port));
 132     return;
 133   }
 134 # endif /* MNT2_NFS_OPT_RESVPORT */
 135   /* if the address does not match, ignore the request */
 136   if (sinp && (sinp->sin_addr.s_addr != myipaddr.s_addr)) {
 137     if (gopt.flags & CFM_NFS_ANY_INTERFACE) {
 138       if (!is_interface_local(sinp->sin_addr.s_addr)) {
 139         plog(XLOG_WARNING, "ignoring request from %s:%u, not a local interface",
 140              inet_dquad(dq, sizeof(dq), sinp->sin_addr.s_addr),
 141              ntohs(sinp->sin_port));
 142       }
 143     } else {
 144       plog(XLOG_WARNING, "ignoring request from %s:%u, expected %s",
 145            inet_dquad(dq, sizeof(dq), sinp->sin_addr.s_addr),
 146            ntohs(sinp->sin_port),
 147            inet_dquad(dq2, sizeof(dq2), myipaddr.s_addr));
 148       return;
 149     }
 150   }
 151 #endif /* not HAVE_TRANPORT_TYPE_TLI */
 152
 153   current_transp = NULL;
 154
 155   switch (rqstp->rq_proc) {
 156
 157   case NFSPROC_NULL:
 158     xdr_argument = (xdrproc_t) xdr_void;
 159     xdr_result = (xdrproc_t) xdr_void;
 160     local = (nfssvcproc_t) nfsproc_null_2_svc;
 161     break;
 162
 163   case NFSPROC_GETATTR:
 164     xdr_argument = (xdrproc_t) xdr_nfs_fh;
 165     xdr_result = (xdrproc_t) xdr_attrstat;
 166     local = (nfssvcproc_t) nfsproc_getattr_2_svc;
 167     break;
 168
 169   case NFSPROC_SETATTR:
 170     xdr_argument = (xdrproc_t) xdr_sattrargs;
 171     xdr_result = (xdrproc_t) xdr_attrstat;
 172     local = (nfssvcproc_t) nfsproc_setattr_2_svc;
 173     break;
 174
 175   case NFSPROC_ROOT:
 176     xdr_argument = (xdrproc_t) xdr_void;
 177     xdr_result = (xdrproc_t) xdr_void;
 178     local = (nfssvcproc_t) nfsproc_root_2_svc;
 179     break;
 180
 181   case NFSPROC_LOOKUP:
 182     xdr_argument = (xdrproc_t) xdr_diropargs;
 183     xdr_result = (xdrproc_t) xdr_diropres;
 184     local = (nfssvcproc_t) nfsproc_lookup_2_svc;
 185     /*
 186      * Cheap way to pass transp down to amfs_auto_lookuppn so it can
 187      * be stored in the am_node structure and later used for
 188      * quick_reply().
 189      */
 190     current_transp = transp;
 191     break;
 192
 193   case NFSPROC_READLINK:
 194     xdr_argument = (xdrproc_t) xdr_nfs_fh;
 195     xdr_result = (xdrproc_t) xdr_readlinkres;
 196     local = (nfssvcproc_t) nfsproc_readlink_2_svc;
 197     break;
 198
 199   case NFSPROC_READ:
 200     xdr_argument = (xdrproc_t) xdr_readargs;
 201     xdr_result = (xdrproc_t) xdr_readres;
 202     local = (nfssvcproc_t) nfsproc_read_2_svc;
 203     break;
 204
 205   case NFSPROC_WRITECACHE:
 206     xdr_argument = (xdrproc_t) xdr_void;
 207     xdr_result = (xdrproc_t) xdr_void;
 208     local = (nfssvcproc_t) nfsproc_writecache_2_svc;
 209     break;
 210
 211   case NFSPROC_WRITE:
 212     xdr_argument = (xdrproc_t) xdr_writeargs;
 213     xdr_result = (xdrproc_t) xdr_attrstat;
 214     local = (nfssvcproc_t) nfsproc_write_2_svc;
 215     break;
 216
 217   case NFSPROC_CREATE:
 218     xdr_argument = (xdrproc_t) xdr_createargs;
 219     xdr_result = (xdrproc_t) xdr_diropres;
 220     local = (nfssvcproc_t) nfsproc_create_2_svc;
 221     break;
 222
 223   case NFSPROC_REMOVE:
 224     xdr_argument = (xdrproc_t) xdr_diropargs;
 225     xdr_result = (xdrproc_t) xdr_nfsstat;
 226     local = (nfssvcproc_t) nfsproc_remove_2_svc;
 227     break;
 228
 229   case NFSPROC_RENAME:
 230     xdr_argument = (xdrproc_t) xdr_renameargs;
 231     xdr_result = (xdrproc_t) xdr_nfsstat;
 232     local = (nfssvcproc_t) nfsproc_rename_2_svc;
 233     break;
 234
 235   case NFSPROC_LINK:
 236     xdr_argument = (xdrproc_t) xdr_linkargs;
 237     xdr_result = (xdrproc_t) xdr_nfsstat;
 238     local = (nfssvcproc_t) nfsproc_link_2_svc;
 239     break;
 240
 241   case NFSPROC_SYMLINK:
 242     xdr_argument = (xdrproc_t) xdr_symlinkargs;
 243     xdr_result = (xdrproc_t) xdr_nfsstat;
 244     local = (nfssvcproc_t) nfsproc_symlink_2_svc;
 245     break;
 246
 247   case NFSPROC_MKDIR:
 248     xdr_argument = (xdrproc_t) xdr_createargs;
 249     xdr_result = (xdrproc_t) xdr_diropres;
 250     local = (nfssvcproc_t) nfsproc_mkdir_2_svc;
 251     break;
 252
 253   case NFSPROC_RMDIR:
 254     xdr_argument = (xdrproc_t) xdr_diropargs;
 255     xdr_result = (xdrproc_t) xdr_nfsstat;
 256     local = (nfssvcproc_t) nfsproc_rmdir_2_svc;
 257     break;
 258
 259   case NFSPROC_READDIR:
 260     xdr_argument = (xdrproc_t) xdr_readdirargs;
 261     xdr_result = (xdrproc_t) xdr_readdirres;
 262     local = (nfssvcproc_t) nfsproc_readdir_2_svc;
 263     break;
 264
 265   case NFSPROC_STATFS:
 266     xdr_argument = (xdrproc_t) xdr_nfs_fh;
 267     xdr_result = (xdrproc_t) xdr_statfsres;
 268     local = (nfssvcproc_t) nfsproc_statfs_2_svc;
 269     break;
 270
 271   default:
 272     svcerr_noproc(transp);
 273     return;
 274   }
 275
 276   memset((char *) &argument, 0, sizeof(argument));
 277   if (!svc_getargs(transp,
 278                    (XDRPROC_T_TYPE) xdr_argument,
 279                    (SVC_IN_ARG_TYPE) &argument)) {
 280     plog(XLOG_ERROR,
 281          "NFS xdr decode failed for %d %d %d",
 282          (int) rqstp->rq_prog, (int) rqstp->rq_vers, (int) rqstp->rq_proc);
 283     svcerr_decode(transp);
 284     return;
 285   }
 286   result = (*local) (&argument, rqstp);
 287
 288   current_transp = NULL;
 289
 290   if (result != NULL && !svc_sendreply(transp,
 291                                        (XDRPROC_T_TYPE) xdr_result,
 292                                        result)) {
 293     svcerr_systemerr(transp);
 294   }
 295   if (!svc_freeargs(transp,
 296                     (XDRPROC_T_TYPE) xdr_argument,
 297                     (SVC_IN_ARG_TYPE) & argument)) {
 298     plog(XLOG_FATAL, "unable to free rpc arguments in nfs_program_2");
 299     going_down(1);
 300   }
 301 }