sys/fs/nfsserver/nfs_nfsdstate.c

   1 /*-
   2  * SPDX-License-Identifier: BSD-2-Clause-FreeBSD
   3  *
   4  * Copyright (c) 2009 Rick Macklem, University of Guelph
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  *
  28  */
  29
  30 #include <sys/cdefs.h>
  31 __FBSDID("$FreeBSD$");
  32
  33 #include "opt_inet.h"
  34 #include "opt_inet6.h"
  35 #include <sys/extattr.h>
  36 #include <fs/nfs/nfsport.h>
  37
  38 int nfsrv_issuedelegs = 0;
  39 int nfsrv_dolocallocks = 0;
  40 struct nfsv4lock nfsv4rootfs_lock;
  41 time_t nfsdev_time = 0;
  42 int nfsrv_layouthashsize;
  43 volatile int nfsrv_layoutcnt = 0;
  44
  45 NFSD_VNET_DEFINE(struct nfsrv_stablefirst, nfsrv_stablefirst);
  46
  47 NFSD_VNET_DECLARE(int, nfsrv_numnfsd);
  48 NFSD_VNET_DECLARE(struct nfsstatsv1 *, nfsstatsv1_p);
  49
  50 extern uint32_t nfs_srvmaxio;
  51 extern int nfsrv_lease;
  52 extern struct timeval nfsboottime;
  53 extern u_int32_t newnfs_true, newnfs_false;
  54 extern struct mtx nfsrv_dslock_mtx;
  55 extern struct mtx nfsrv_recalllock_mtx;
  56 extern struct mtx nfsrv_dontlistlock_mtx;
  57 extern int nfsd_debuglevel;
  58 extern u_int nfsrv_dsdirsize;
  59 extern struct nfsdevicehead nfsrv_devidhead;
  60 extern int nfsrv_doflexfile;
  61 extern int nfsrv_maxpnfsmirror;
  62 NFSV4ROOTLOCKMUTEX;
  63 NFSSTATESPINLOCK;
  64 extern struct nfsdontlisthead nfsrv_dontlisthead;
  65 extern volatile int nfsrv_devidcnt;
  66 extern struct nfslayouthead nfsrv_recalllisthead;
  67 extern char *nfsrv_zeropnfsdat;
  68
  69 SYSCTL_DECL(_vfs_nfsd);
  70 int     nfsrv_statehashsize = NFSSTATEHASHSIZE;
  71 SYSCTL_INT(_vfs_nfsd, OID_AUTO, statehashsize, CTLFLAG_RDTUN,
  72     &nfsrv_statehashsize, 0,
  73     "Size of state hash table set via loader.conf");
  74
  75 int     nfsrv_clienthashsize = NFSCLIENTHASHSIZE;
  76 SYSCTL_INT(_vfs_nfsd, OID_AUTO, clienthashsize, CTLFLAG_RDTUN,
  77     &nfsrv_clienthashsize, 0,
  78     "Size of client hash table set via loader.conf");
  79
  80 int     nfsrv_lockhashsize = NFSLOCKHASHSIZE;
  81 SYSCTL_INT(_vfs_nfsd, OID_AUTO, fhhashsize, CTLFLAG_RDTUN,
  82     &nfsrv_lockhashsize, 0,
  83     "Size of file handle hash table set via loader.conf");
  84
  85 int     nfsrv_sessionhashsize = NFSSESSIONHASHSIZE;
  86 SYSCTL_INT(_vfs_nfsd, OID_AUTO, sessionhashsize, CTLFLAG_RDTUN,
  87     &nfsrv_sessionhashsize, 0,
  88     "Size of session hash table set via loader.conf");
  89
  90 int     nfsrv_layouthighwater = NFSLAYOUTHIGHWATER;
  91 SYSCTL_INT(_vfs_nfsd, OID_AUTO, layouthighwater, CTLFLAG_RDTUN,
  92     &nfsrv_layouthighwater, 0,
  93     "High water mark for number of layouts set via loader.conf");
  94
  95 static int      nfsrv_v4statelimit = NFSRV_V4STATELIMIT;
  96 SYSCTL_INT(_vfs_nfsd, OID_AUTO, v4statelimit, CTLFLAG_RWTUN,
  97     &nfsrv_v4statelimit, 0,
  98     "High water limit for NFSv4 opens+locks+delegations");
  99
 100 static int      nfsrv_writedelegifpos = 0;
 101 SYSCTL_INT(_vfs_nfsd, OID_AUTO, writedelegifpos, CTLFLAG_RW,
 102     &nfsrv_writedelegifpos, 0,
 103     "Issue a write delegation for read opens if possible");
 104
 105 static int      nfsrv_allowreadforwriteopen = 1;
 106 SYSCTL_INT(_vfs_nfsd, OID_AUTO, allowreadforwriteopen, CTLFLAG_RW,
 107     &nfsrv_allowreadforwriteopen, 0,
 108     "Allow Reads to be done with Write Access StateIDs");
 109
 110 int     nfsrv_pnfsatime = 0;
 111 SYSCTL_INT(_vfs_nfsd, OID_AUTO, pnfsstrictatime, CTLFLAG_RW,
 112     &nfsrv_pnfsatime, 0,
 113     "For pNFS service, do Getattr ops to keep atime up-to-date");
 114
 115 int     nfsrv_flexlinuxhack = 0;
 116 SYSCTL_INT(_vfs_nfsd, OID_AUTO, flexlinuxhack, CTLFLAG_RW,
 117     &nfsrv_flexlinuxhack, 0,
 118     "For Linux clients, hack around Flex File Layout bug");
 119
 120 /*
 121  * Hash lists for nfs V4.
 122  */
 123 NFSD_VNET_DEFINE(struct nfsclienthashhead *, nfsclienthash);
 124 NFSD_VNET_DEFINE(struct nfslockhashhead *, nfslockhash);
 125 NFSD_VNET_DEFINE(struct nfssessionhash *, nfssessionhash);
 126
 127 struct nfslayouthash            *nfslayouthash;
 128 volatile int nfsrv_dontlistlen = 0;
 129
 130 static u_int32_t nfsrv_openpluslock = 0, nfsrv_delegatecnt = 0;
 131 static int nfsrv_returnoldstateid = 0, nfsrv_clients = 0;
 132 static int nfsrv_clienthighwater = NFSRV_CLIENTHIGHWATER;
 133 static int nfsrv_nogsscallback = 0;
 134 static volatile int nfsrv_writedelegcnt = 0;
 135 static int nfsrv_faildscnt;
 136
 137 NFSD_VNET_DEFINE_STATIC(time_t, nfsrvboottime);
 138
 139 /* local functions */
 140 static void nfsrv_dumpaclient(struct nfsclient *clp,
 141     struct nfsd_dumpclients *dumpp);
 142 static void nfsrv_freeopenowner(struct nfsstate *stp, int cansleep,
 143     NFSPROC_T *p);
 144 static int nfsrv_freeopen(struct nfsstate *stp, vnode_t vp, int cansleep,
 145     NFSPROC_T *p);
 146 static void nfsrv_freelockowner(struct nfsstate *stp, vnode_t vp, int cansleep,
 147     NFSPROC_T *p);
 148 static void nfsrv_freeallnfslocks(struct nfsstate *stp, vnode_t vp,
 149     int cansleep, NFSPROC_T *p);
 150 static void nfsrv_freenfslock(struct nfslock *lop);
 151 static void nfsrv_freenfslockfile(struct nfslockfile *lfp);
 152 static void nfsrv_freedeleg(struct nfsstate *);
 153 static int nfsrv_getstate(struct nfsclient *clp, nfsv4stateid_t *stateidp,
 154     u_int32_t flags, struct nfsstate **stpp);
 155 static void nfsrv_getowner(struct nfsstatehead *hp, struct nfsstate *new_stp,
 156     struct nfsstate **stpp);
 157 static int nfsrv_getlockfh(vnode_t vp, u_short flags,
 158     struct nfslockfile *new_lfp, fhandle_t *nfhp, NFSPROC_T *p);
 159 static int nfsrv_getlockfile(u_short flags, struct nfslockfile **new_lfpp,
 160     struct nfslockfile **lfpp, fhandle_t *nfhp, int lockit);
 161 static void nfsrv_insertlock(struct nfslock *new_lop,
 162     struct nfslock *insert_lop, struct nfsstate *stp, struct nfslockfile *lfp);
 163 static void nfsrv_updatelock(struct nfsstate *stp, struct nfslock **new_lopp,
 164     struct nfslock **other_lopp, struct nfslockfile *lfp);
 165 static int nfsrv_getipnumber(u_char *cp);
 166 static int nfsrv_checkrestart(nfsquad_t clientid, u_int32_t flags,
 167     nfsv4stateid_t *stateidp, int specialid);
 168 static int nfsrv_checkgrace(struct nfsrv_descript *nd, struct nfsclient *clp,
 169     u_int32_t flags);
 170 static int nfsrv_docallback(struct nfsclient *clp, int procnum,
 171     nfsv4stateid_t *stateidp, int trunc, fhandle_t *fhp,
 172     struct nfsvattr *nap, nfsattrbit_t *attrbitp, int laytype, NFSPROC_T *p);
 173 static int nfsrv_cbcallargs(struct nfsrv_descript *nd, struct nfsclient *clp,
 174     uint32_t callback, int op, const char *optag, struct nfsdsession **sepp,
 175     int *slotposp);
 176 static u_int32_t nfsrv_nextclientindex(void);
 177 static u_int32_t nfsrv_nextstateindex(struct nfsclient *clp);
 178 static void nfsrv_markstable(struct nfsclient *clp);
 179 static void nfsrv_markreclaim(struct nfsclient *clp);
 180 static int nfsrv_checkstable(struct nfsclient *clp);
 181 static int nfsrv_clientconflict(struct nfsclient *clp, int *haslockp, struct
 182     vnode *vp, NFSPROC_T *p);
 183 static int nfsrv_delegconflict(struct nfsstate *stp, int *haslockp,
 184     NFSPROC_T *p, vnode_t vp);
 185 static int nfsrv_cleandeleg(vnode_t vp, struct nfslockfile *lfp,
 186     struct nfsclient *clp, int *haslockp, NFSPROC_T *p);
 187 static int nfsrv_notsamecredname(struct nfsrv_descript *nd,
 188     struct nfsclient *clp);
 189 static time_t nfsrv_leaseexpiry(void);
 190 static void nfsrv_delaydelegtimeout(struct nfsstate *stp);
 191 static int nfsrv_checkseqid(struct nfsrv_descript *nd, u_int32_t seqid,
 192     struct nfsstate *stp, struct nfsrvcache *op);
 193 static int nfsrv_nootherstate(struct nfsstate *stp);
 194 static int nfsrv_locallock(vnode_t vp, struct nfslockfile *lfp, int flags,
 195     uint64_t first, uint64_t end, struct nfslockconflict *cfp, NFSPROC_T *p);
 196 static void nfsrv_localunlock(vnode_t vp, struct nfslockfile *lfp,
 197     uint64_t init_first, uint64_t init_end, NFSPROC_T *p);
 198 static int nfsrv_dolocal(vnode_t vp, struct nfslockfile *lfp, int flags,
 199     int oldflags, uint64_t first, uint64_t end, struct nfslockconflict *cfp,
 200     NFSPROC_T *p);
 201 static void nfsrv_locallock_rollback(vnode_t vp, struct nfslockfile *lfp,
 202     NFSPROC_T *p);
 203 static void nfsrv_locallock_commit(struct nfslockfile *lfp, int flags,
 204     uint64_t first, uint64_t end);
 205 static void nfsrv_locklf(struct nfslockfile *lfp);
 206 static void nfsrv_unlocklf(struct nfslockfile *lfp);
 207 static struct nfsdsession *nfsrv_findsession(uint8_t *sessionid);
 208 static int nfsrv_freesession(struct nfsdsession *sep, uint8_t *sessionid);
 209 static int nfsv4_setcbsequence(struct nfsrv_descript *nd, struct nfsclient *clp,
 210     int dont_replycache, struct nfsdsession **sepp, int *slotposp);
 211 static int nfsv4_getcbsession(struct nfsclient *clp, struct nfsdsession **sepp);
 212 static int nfsrv_addlayout(struct nfsrv_descript *nd, struct nfslayout **lypp,
 213     nfsv4stateid_t *stateidp, char *layp, int *layoutlenp, NFSPROC_T *p);
 214 static void nfsrv_freelayout(struct nfslayouthead *lhp, struct nfslayout *lyp);
 215 static void nfsrv_freelayoutlist(nfsquad_t clientid);
 216 static void nfsrv_freelayouts(nfsquad_t *clid, fsid_t *fs, int laytype,
 217     int iomode);
 218 static void nfsrv_freealllayouts(void);
 219 static void nfsrv_freedevid(struct nfsdevice *ds);
 220 static int nfsrv_setdsserver(char *dspathp, char *mdspathp, NFSPROC_T *p,
 221     struct nfsdevice **dsp);
 222 static void nfsrv_deleteds(struct nfsdevice *fndds);
 223 static void nfsrv_allocdevid(struct nfsdevice *ds, char *addr, char *dnshost);
 224 static void nfsrv_freealldevids(void);
 225 static void nfsrv_flexlayouterr(struct nfsrv_descript *nd, uint32_t *layp,
 226     int maxcnt, NFSPROC_T *p);
 227 static int nfsrv_recalllayout(nfsquad_t clid, nfsv4stateid_t *stateidp,
 228     fhandle_t *fhp, struct nfslayout *lyp, int changed, int laytype,
 229     NFSPROC_T *p);
 230 static int nfsrv_findlayout(nfsquad_t *clientidp, fhandle_t *fhp, int laytype,
 231     NFSPROC_T *, struct nfslayout **lypp);
 232 static int nfsrv_fndclid(nfsquad_t *clidvec, nfsquad_t clid, int clidcnt);
 233 static struct nfslayout *nfsrv_filelayout(struct nfsrv_descript *nd, int iomode,
 234     fhandle_t *fhp, fhandle_t *dsfhp, char *devid, fsid_t fs);
 235 static struct nfslayout *nfsrv_flexlayout(struct nfsrv_descript *nd, int iomode,
 236     int mirrorcnt, fhandle_t *fhp, fhandle_t *dsfhp, char *devid, fsid_t fs);
 237 static int nfsrv_dontlayout(fhandle_t *fhp);
 238 static int nfsrv_createdsfile(vnode_t vp, fhandle_t *fhp, struct pnfsdsfile *pf,
 239     vnode_t dvp, struct nfsdevice *ds, struct ucred *cred, NFSPROC_T *p,
 240     vnode_t *tvpp);
 241 static struct nfsdevice *nfsrv_findmirroredds(struct nfsmount *nmp);
 242
 243 /*
 244  * Scan the client list for a match and either return the current one,
 245  * create a new entry or return an error.
 246  * If returning a non-error, the clp structure must either be linked into
 247  * the client list or free'd.
 248  */
 249 int
 250 nfsrv_setclient(struct nfsrv_descript *nd, struct nfsclient **new_clpp,
 251     nfsquad_t *clientidp, nfsquad_t *confirmp, NFSPROC_T *p)
 252 {
 253         struct nfsclient *clp = NULL, *new_clp = *new_clpp;
 254         int i, error = 0, ret;
 255         struct nfsstate *stp, *tstp;
 256 #ifdef INET
 257         struct sockaddr_in *sin, *rin;
 258 #endif
 259 #ifdef INET6
 260         struct sockaddr_in6 *sin6, *rin6;
 261 #endif
 262         struct nfsdsession *sep, *nsep;
 263         int zapit = 0, gotit, hasstate = 0, igotlock;
 264         static u_int64_t confirm_index = 0;
 265
 266         /*
 267          * Check for state resource limit exceeded.
 268          */
 269         if (nfsrv_openpluslock > nfsrv_v4statelimit) {
 270                 error = NFSERR_RESOURCE;
 271                 goto out;
 272         }
 273
 274         if (nfsrv_issuedelegs == 0 ||
 275             ((nd->nd_flag & ND_GSS) != 0 && nfsrv_nogsscallback != 0))
 276                 /*
 277                  * Don't do callbacks when delegations are disabled or
 278                  * for AUTH_GSS unless enabled via nfsrv_nogsscallback.
 279                  * If establishing a callback connection is attempted
 280                  * when a firewall is blocking the callback path, the
 281                  * server may wait too long for the connect attempt to
 282                  * succeed during the Open. Some clients, such as Linux,
 283                  * may timeout and give up on the Open before the server
 284                  * replies. Also, since AUTH_GSS callbacks are not
 285                  * yet interoperability tested, they might cause the
 286                  * server to crap out, if they get past the Init call to
 287                  * the client.
 288                  */
 289                 new_clp->lc_program = 0;
 290
 291         /* Lock out other nfsd threads */
 292         NFSLOCKV4ROOTMUTEX();
 293         nfsv4_relref(&nfsv4rootfs_lock);
 294         do {
 295                 igotlock = nfsv4_lock(&nfsv4rootfs_lock, 1, NULL,
 296                     NFSV4ROOTLOCKMUTEXPTR, NULL);
 297         } while (!igotlock);
 298         NFSUNLOCKV4ROOTMUTEX();
 299
 300         /*
 301          * Search for a match in the client list.
 302          */
 303         gotit = i = 0;
 304         while (i < nfsrv_clienthashsize && !gotit) {
 305             LIST_FOREACH(clp, &NFSD_VNET(nfsclienthash)[i], lc_hash) {
 306                 if (new_clp->lc_idlen == clp->lc_idlen &&
 307                     !NFSBCMP(new_clp->lc_id, clp->lc_id, clp->lc_idlen)) {
 308                         gotit = 1;
 309                         break;
 310                 }
 311             }
 312             if (gotit == 0)
 313                 i++;
 314         }
 315         if (!gotit ||
 316             (clp->lc_flags & (LCL_NEEDSCONFIRM | LCL_ADMINREVOKED))) {
 317                 if ((nd->nd_flag & ND_NFSV41) != 0 && confirmp->lval[1] != 0) {
 318                         /*
 319                          * For NFSv4.1, if confirmp->lval[1] is non-zero, the
 320                          * client is trying to update a confirmed clientid.
 321                          */
 322                         NFSLOCKV4ROOTMUTEX();
 323                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
 324                         NFSUNLOCKV4ROOTMUTEX();
 325                         confirmp->lval[1] = 0;
 326                         error = NFSERR_NOENT;
 327                         goto out;
 328                 }
 329                 /*
 330                  * Get rid of the old one.
 331                  */
 332                 if (i != nfsrv_clienthashsize) {
 333                         LIST_REMOVE(clp, lc_hash);
 334                         nfsrv_cleanclient(clp, p);
 335                         nfsrv_freedeleglist(&clp->lc_deleg);
 336                         nfsrv_freedeleglist(&clp->lc_olddeleg);
 337                         zapit = 1;
 338                 }
 339                 /*
 340                  * Add it after assigning a client id to it.
 341                  */
 342                 new_clp->lc_flags |= LCL_NEEDSCONFIRM;
 343                 if ((nd->nd_flag & ND_NFSV41) != 0) {
 344                         confirmp->lval[0] = ++confirm_index;
 345                         new_clp->lc_confirm.lval[0] = confirmp->lval[0] - 1;
 346                 } else
 347                         confirmp->qval = new_clp->lc_confirm.qval =
 348                             ++confirm_index;
 349                 clientidp->lval[0] = new_clp->lc_clientid.lval[0] =
 350                     NFSD_VNET(nfsrvboottime);
 351                 clientidp->lval[1] = new_clp->lc_clientid.lval[1] =
 352                     nfsrv_nextclientindex();
 353                 new_clp->lc_stateindex = 0;
 354                 new_clp->lc_statemaxindex = 0;
 355                 new_clp->lc_prevsess = 0;
 356                 new_clp->lc_cbref = 0;
 357                 new_clp->lc_expiry = nfsrv_leaseexpiry();
 358                 LIST_INIT(&new_clp->lc_open);
 359                 LIST_INIT(&new_clp->lc_deleg);
 360                 LIST_INIT(&new_clp->lc_olddeleg);
 361                 LIST_INIT(&new_clp->lc_session);
 362                 for (i = 0; i < nfsrv_statehashsize; i++)
 363                         LIST_INIT(&new_clp->lc_stateid[i]);
 364                 LIST_INSERT_HEAD(NFSCLIENTHASH(new_clp->lc_clientid), new_clp,
 365                     lc_hash);
 366                 NFSD_VNET(nfsstatsv1_p)->srvclients++;
 367                 nfsrv_openpluslock++;
 368                 nfsrv_clients++;
 369                 NFSLOCKV4ROOTMUTEX();
 370                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
 371                 NFSUNLOCKV4ROOTMUTEX();
 372                 if (zapit)
 373                         nfsrv_zapclient(clp, p);
 374                 *new_clpp = NULL;
 375                 goto out;
 376         }
 377
 378         /*
 379          * Now, handle the cases where the id is already issued.
 380          */
 381         if (nfsrv_notsamecredname(nd, clp)) {
 382             /*
 383              * Check to see if there is expired state that should go away.
 384              */
 385             if (clp->lc_expiry < NFSD_MONOSEC &&
 386                 (!LIST_EMPTY(&clp->lc_open) || !LIST_EMPTY(&clp->lc_deleg))) {
 387                 nfsrv_cleanclient(clp, p);
 388                 nfsrv_freedeleglist(&clp->lc_deleg);
 389             }
 390
 391             /*
 392              * If there is outstanding state, then reply NFSERR_CLIDINUSE per
 393              * RFC3530 Sec. 8.1.2 last para.
 394              */
 395             if (!LIST_EMPTY(&clp->lc_deleg)) {
 396                 hasstate = 1;
 397             } else if (LIST_EMPTY(&clp->lc_open)) {
 398                 hasstate = 0;
 399             } else {
 400                 hasstate = 0;
 401                 /* Look for an Open on the OpenOwner */
 402                 LIST_FOREACH(stp, &clp->lc_open, ls_list) {
 403                     if (!LIST_EMPTY(&stp->ls_open)) {
 404                         hasstate = 1;
 405                         break;
 406                     }
 407                 }
 408             }
 409             if (hasstate) {
 410                 /*
 411                  * If the uid doesn't match, return NFSERR_CLIDINUSE after
 412                  * filling out the correct ipaddr and portnum.
 413                  */
 414                 switch (clp->lc_req.nr_nam->sa_family) {
 415 #ifdef INET
 416                 case AF_INET:
 417                         sin = (struct sockaddr_in *)new_clp->lc_req.nr_nam;
 418                         rin = (struct sockaddr_in *)clp->lc_req.nr_nam;
 419                         sin->sin_addr.s_addr = rin->sin_addr.s_addr;
 420                         sin->sin_port = rin->sin_port;
 421                         break;
 422 #endif
 423 #ifdef INET6
 424                 case AF_INET6:
 425                         sin6 = (struct sockaddr_in6 *)new_clp->lc_req.nr_nam;
 426                         rin6 = (struct sockaddr_in6 *)clp->lc_req.nr_nam;
 427                         sin6->sin6_addr = rin6->sin6_addr;
 428                         sin6->sin6_port = rin6->sin6_port;
 429                         break;
 430 #endif
 431                 }
 432                 NFSLOCKV4ROOTMUTEX();
 433                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
 434                 NFSUNLOCKV4ROOTMUTEX();
 435                 error = NFSERR_CLIDINUSE;
 436                 goto out;
 437             }
 438         }
 439
 440         if (NFSBCMP(new_clp->lc_verf, clp->lc_verf, NFSX_VERF)) {
 441                 /*
 442                  * If the verifier has changed, the client has rebooted
 443                  * and a new client id is issued. The old state info
 444                  * can be thrown away once the SETCLIENTID_CONFIRM occurs.
 445                  */
 446                 LIST_REMOVE(clp, lc_hash);
 447
 448                 /* Get rid of all sessions on this clientid. */
 449                 LIST_FOREACH_SAFE(sep, &clp->lc_session, sess_list, nsep) {
 450                         ret = nfsrv_freesession(sep, NULL);
 451                         if (ret != 0)
 452                                 printf("nfsrv_setclient: verifier changed free"
 453                                     " session failed=%d\n", ret);
 454                 }
 455
 456                 new_clp->lc_flags |= LCL_NEEDSCONFIRM;
 457                 if ((nd->nd_flag & ND_NFSV41) != 0) {
 458                         confirmp->lval[0] = ++confirm_index;
 459                         new_clp->lc_confirm.lval[0] = confirmp->lval[0] - 1;
 460                 } else
 461                         confirmp->qval = new_clp->lc_confirm.qval =
 462                             ++confirm_index;
 463                 clientidp->lval[0] = new_clp->lc_clientid.lval[0] =
 464                     NFSD_VNET(nfsrvboottime);
 465                 clientidp->lval[1] = new_clp->lc_clientid.lval[1] =
 466                     nfsrv_nextclientindex();
 467                 new_clp->lc_stateindex = 0;
 468                 new_clp->lc_statemaxindex = 0;
 469                 new_clp->lc_prevsess = 0;
 470                 new_clp->lc_cbref = 0;
 471                 new_clp->lc_expiry = nfsrv_leaseexpiry();
 472
 473                 /*
 474                  * Save the state until confirmed.
 475                  */
 476                 LIST_NEWHEAD(&new_clp->lc_open, &clp->lc_open, ls_list);
 477                 LIST_FOREACH(tstp, &new_clp->lc_open, ls_list)
 478                         tstp->ls_clp = new_clp;
 479                 LIST_NEWHEAD(&new_clp->lc_deleg, &clp->lc_deleg, ls_list);
 480                 LIST_FOREACH(tstp, &new_clp->lc_deleg, ls_list)
 481                         tstp->ls_clp = new_clp;
 482                 LIST_NEWHEAD(&new_clp->lc_olddeleg, &clp->lc_olddeleg,
 483                     ls_list);
 484                 LIST_FOREACH(tstp, &new_clp->lc_olddeleg, ls_list)
 485                         tstp->ls_clp = new_clp;
 486                 for (i = 0; i < nfsrv_statehashsize; i++) {
 487                         LIST_NEWHEAD(&new_clp->lc_stateid[i],
 488                             &clp->lc_stateid[i], ls_hash);
 489                         LIST_FOREACH(tstp, &new_clp->lc_stateid[i], ls_hash)
 490                                 tstp->ls_clp = new_clp;
 491                 }
 492                 LIST_INIT(&new_clp->lc_session);
 493                 LIST_INSERT_HEAD(NFSCLIENTHASH(new_clp->lc_clientid), new_clp,
 494                     lc_hash);
 495                 NFSD_VNET(nfsstatsv1_p)->srvclients++;
 496                 nfsrv_openpluslock++;
 497                 nfsrv_clients++;
 498                 NFSLOCKV4ROOTMUTEX();
 499                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
 500                 NFSUNLOCKV4ROOTMUTEX();
 501
 502                 /*
 503                  * Must wait until any outstanding callback on the old clp
 504                  * completes.
 505                  */
 506                 NFSLOCKSTATE();
 507                 while (clp->lc_cbref) {
 508                         clp->lc_flags |= LCL_WAKEUPWANTED;
 509                         (void)mtx_sleep(clp, NFSSTATEMUTEXPTR, PZERO - 1,
 510                             "nfsd clp", 10 * hz);
 511                 }
 512                 NFSUNLOCKSTATE();
 513                 nfsrv_zapclient(clp, p);
 514                 *new_clpp = NULL;
 515                 goto out;
 516         }
 517
 518         /* For NFSv4.1, mark that we found a confirmed clientid. */
 519         if ((nd->nd_flag & ND_NFSV41) != 0) {
 520                 clientidp->lval[0] = clp->lc_clientid.lval[0];
 521                 clientidp->lval[1] = clp->lc_clientid.lval[1];
 522                 confirmp->lval[0] = 0;  /* Ignored by client */
 523                 confirmp->lval[1] = 1;
 524         } else {
 525                 /*
 526                  * id and verifier match, so update the net address info
 527                  * and get rid of any existing callback authentication
 528                  * handle, so a new one will be acquired.
 529                  */
 530                 LIST_REMOVE(clp, lc_hash);
 531                 new_clp->lc_flags |= (LCL_NEEDSCONFIRM | LCL_DONTCLEAN);
 532                 new_clp->lc_expiry = nfsrv_leaseexpiry();
 533                 confirmp->qval = new_clp->lc_confirm.qval = ++confirm_index;
 534                 clientidp->lval[0] = new_clp->lc_clientid.lval[0] =
 535                     clp->lc_clientid.lval[0];
 536                 clientidp->lval[1] = new_clp->lc_clientid.lval[1] =
 537                     clp->lc_clientid.lval[1];
 538                 new_clp->lc_delegtime = clp->lc_delegtime;
 539                 new_clp->lc_stateindex = clp->lc_stateindex;
 540                 new_clp->lc_statemaxindex = clp->lc_statemaxindex;
 541                 new_clp->lc_cbref = 0;
 542                 LIST_NEWHEAD(&new_clp->lc_open, &clp->lc_open, ls_list);
 543                 LIST_FOREACH(tstp, &new_clp->lc_open, ls_list)
 544                         tstp->ls_clp = new_clp;
 545                 LIST_NEWHEAD(&new_clp->lc_deleg, &clp->lc_deleg, ls_list);
 546                 LIST_FOREACH(tstp, &new_clp->lc_deleg, ls_list)
 547                         tstp->ls_clp = new_clp;
 548                 LIST_NEWHEAD(&new_clp->lc_olddeleg, &clp->lc_olddeleg, ls_list);
 549                 LIST_FOREACH(tstp, &new_clp->lc_olddeleg, ls_list)
 550                         tstp->ls_clp = new_clp;
 551                 for (i = 0; i < nfsrv_statehashsize; i++) {
 552                         LIST_NEWHEAD(&new_clp->lc_stateid[i],
 553                             &clp->lc_stateid[i], ls_hash);
 554                         LIST_FOREACH(tstp, &new_clp->lc_stateid[i], ls_hash)
 555                                 tstp->ls_clp = new_clp;
 556                 }
 557                 LIST_INIT(&new_clp->lc_session);
 558                 LIST_INSERT_HEAD(NFSCLIENTHASH(new_clp->lc_clientid), new_clp,
 559                     lc_hash);
 560                 NFSD_VNET(nfsstatsv1_p)->srvclients++;
 561                 nfsrv_openpluslock++;
 562                 nfsrv_clients++;
 563         }
 564         NFSLOCKV4ROOTMUTEX();
 565         nfsv4_unlock(&nfsv4rootfs_lock, 1);
 566         NFSUNLOCKV4ROOTMUTEX();
 567
 568         if ((nd->nd_flag & ND_NFSV41) == 0) {
 569                 /*
 570                  * Must wait until any outstanding callback on the old clp
 571                  * completes.
 572                  */
 573                 NFSLOCKSTATE();
 574                 while (clp->lc_cbref) {
 575                         clp->lc_flags |= LCL_WAKEUPWANTED;
 576                         (void)mtx_sleep(clp, NFSSTATEMUTEXPTR, PZERO - 1,
 577                             "nfsdclp", 10 * hz);
 578                 }
 579                 NFSUNLOCKSTATE();
 580                 nfsrv_zapclient(clp, p);
 581                 *new_clpp = NULL;
 582         }
 583
 584 out:
 585         NFSEXITCODE2(error, nd);
 586         return (error);
 587 }
 588
 589 /*
 590  * Check to see if the client id exists and optionally confirm it.
 591  */
 592 int
 593 nfsrv_getclient(nfsquad_t clientid, int opflags, struct nfsclient **clpp,
 594     struct nfsdsession *nsep, nfsquad_t confirm, uint32_t cbprogram,
 595     struct nfsrv_descript *nd, NFSPROC_T *p)
 596 {
 597         struct nfsclient *clp;
 598         struct nfsstate *stp;
 599         int i;
 600         struct nfsclienthashhead *hp;
 601         int error = 0, igotlock, doneok;
 602         struct nfssessionhash *shp;
 603         struct nfsdsession *sep;
 604         uint64_t sessid[2];
 605         bool sess_replay;
 606         static uint64_t next_sess = 0;
 607
 608         if (clpp)
 609                 *clpp = NULL;
 610         if ((nd == NULL || (nd->nd_flag & ND_NFSV41) == 0 ||
 611             opflags != CLOPS_RENEW) && NFSD_VNET(nfsrvboottime) !=
 612             clientid.lval[0]) {
 613                 error = NFSERR_STALECLIENTID;
 614                 goto out;
 615         }
 616
 617         /*
 618          * If called with opflags == CLOPS_RENEW, the State Lock is
 619          * already held. Otherwise, we need to get either that or,
 620          * for the case of Confirm, lock out the nfsd threads.
 621          */
 622         if (opflags & CLOPS_CONFIRM) {
 623                 NFSLOCKV4ROOTMUTEX();
 624                 nfsv4_relref(&nfsv4rootfs_lock);
 625                 do {
 626                         igotlock = nfsv4_lock(&nfsv4rootfs_lock, 1, NULL,
 627                             NFSV4ROOTLOCKMUTEXPTR, NULL);
 628                 } while (!igotlock);
 629                 /*
 630                  * Create a new sessionid here, since we need to do it where
 631                  * there is a mutex held to serialize update of next_sess.
 632                  */
 633                 if ((nd->nd_flag & ND_NFSV41) != 0) {
 634                         sessid[0] = ++next_sess;
 635                         sessid[1] = clientid.qval;
 636                 }
 637                 NFSUNLOCKV4ROOTMUTEX();
 638         } else if (opflags != CLOPS_RENEW) {
 639                 NFSLOCKSTATE();
 640         }
 641
 642         /* For NFSv4.1, the clp is acquired from the associated session. */
 643         if (nd != NULL && (nd->nd_flag & ND_NFSV41) != 0 &&
 644             opflags == CLOPS_RENEW) {
 645                 clp = NULL;
 646                 if ((nd->nd_flag & ND_HASSEQUENCE) != 0) {
 647                         shp = NFSSESSIONHASH(nd->nd_sessionid);
 648                         NFSLOCKSESSION(shp);
 649                         sep = nfsrv_findsession(nd->nd_sessionid);
 650                         if (sep != NULL)
 651                                 clp = sep->sess_clp;
 652                         NFSUNLOCKSESSION(shp);
 653                 }
 654         } else {
 655                 hp = NFSCLIENTHASH(clientid);
 656                 LIST_FOREACH(clp, hp, lc_hash) {
 657                         if (clp->lc_clientid.lval[1] == clientid.lval[1])
 658                                 break;
 659                 }
 660         }
 661         if (clp == NULL) {
 662                 if (opflags & CLOPS_CONFIRM)
 663                         error = NFSERR_STALECLIENTID;
 664                 else
 665                         error = NFSERR_EXPIRED;
 666         } else if (clp->lc_flags & LCL_ADMINREVOKED) {
 667                 /*
 668                  * If marked admin revoked, just return the error.
 669                  */
 670                 error = NFSERR_ADMINREVOKED;
 671         }
 672         if (error) {
 673                 if (opflags & CLOPS_CONFIRM) {
 674                         NFSLOCKV4ROOTMUTEX();
 675                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
 676                         NFSUNLOCKV4ROOTMUTEX();
 677                 } else if (opflags != CLOPS_RENEW) {
 678                         NFSUNLOCKSTATE();
 679                 }
 680                 goto out;
 681         }
 682
 683         /*
 684          * Perform any operations specified by the opflags.
 685          */
 686         if (opflags & CLOPS_CONFIRM) {
 687                 sess_replay = false;
 688                 if ((nd->nd_flag & ND_NFSV41) != 0) {
 689                     /*
 690                      * For the case where lc_confirm.lval[0] == confirm.lval[0],
 691                      * use the new session, but with the previous sessionid.
 692                      * This is not exactly what the RFC describes, but should
 693                      * result in the same reply as the previous CreateSession.
 694                      */
 695                     if (clp->lc_confirm.lval[0] + 1 == confirm.lval[0]) {
 696                         clp->lc_confirm.lval[0] = confirm.lval[0];
 697                         clp->lc_prevsess = sessid[0];
 698                     } else if (clp->lc_confirm.lval[0] == confirm.lval[0]) {
 699                         if (clp->lc_prevsess == 0)
 700                             error = NFSERR_SEQMISORDERED;
 701                         else
 702                             sessid[0] = clp->lc_prevsess;
 703                         sess_replay = true;
 704                     } else
 705                         error = NFSERR_SEQMISORDERED;
 706                 } else if ((nd->nd_flag & ND_NFSV41) == 0 &&
 707                      clp->lc_confirm.qval != confirm.qval)
 708                         error = NFSERR_STALECLIENTID;
 709                 if (error == 0 && nfsrv_notsamecredname(nd, clp))
 710                         error = NFSERR_CLIDINUSE;
 711
 712                 if (!error) {
 713                     if ((clp->lc_flags & (LCL_NEEDSCONFIRM | LCL_DONTCLEAN)) ==
 714                         LCL_NEEDSCONFIRM) {
 715                         /*
 716                          * Hang onto the delegations (as old delegations)
 717                          * for an Open with CLAIM_DELEGATE_PREV unless in
 718                          * grace, but get rid of the rest of the state.
 719                          */
 720                         nfsrv_cleanclient(clp, p);
 721                         nfsrv_freedeleglist(&clp->lc_olddeleg);
 722                         if (nfsrv_checkgrace(nd, clp, 0)) {
 723                             /* In grace, so just delete delegations */
 724                             nfsrv_freedeleglist(&clp->lc_deleg);
 725                         } else {
 726                             LIST_FOREACH(stp, &clp->lc_deleg, ls_list)
 727                                 stp->ls_flags |= NFSLCK_OLDDELEG;
 728                             clp->lc_delegtime = NFSD_MONOSEC +
 729                                 nfsrv_lease + NFSRV_LEASEDELTA;
 730                             LIST_NEWHEAD(&clp->lc_olddeleg, &clp->lc_deleg,
 731                                 ls_list);
 732                         }
 733                         if ((nd->nd_flag & ND_NFSV41) != 0)
 734                             clp->lc_program = cbprogram;
 735                     }
 736                     clp->lc_flags &= ~(LCL_NEEDSCONFIRM | LCL_DONTCLEAN);
 737                     if (clp->lc_program)
 738                         clp->lc_flags |= LCL_NEEDSCBNULL;
 739                     /* For NFSv4.1, link the session onto the client. */
 740                     if (nsep != NULL) {
 741                         /* Hold a reference on the xprt for a backchannel. */
 742                         if ((nsep->sess_crflags & NFSV4CRSESS_CONNBACKCHAN)
 743                             != 0 && !sess_replay) {
 744                             if (clp->lc_req.nr_client == NULL)
 745                                 clp->lc_req.nr_client = (struct __rpc_client *)
 746                                     clnt_bck_create(nd->nd_xprt->xp_socket,
 747                                     cbprogram, NFSV4_CBVERS);
 748                             if (clp->lc_req.nr_client != NULL) {
 749                                 SVC_ACQUIRE(nd->nd_xprt);
 750                                 CLNT_ACQUIRE(clp->lc_req.nr_client);
 751                                 nd->nd_xprt->xp_p2 = clp->lc_req.nr_client;
 752                                 /* Disable idle timeout. */
 753                                 nd->nd_xprt->xp_idletimeout = 0;
 754                                 nsep->sess_cbsess.nfsess_xprt = nd->nd_xprt;
 755                             } else
 756                                 nsep->sess_crflags &= ~NFSV4CRSESS_CONNBACKCHAN;
 757                         }
 758                         NFSBCOPY(sessid, nsep->sess_sessionid,
 759                             NFSX_V4SESSIONID);
 760                         NFSBCOPY(sessid, nsep->sess_cbsess.nfsess_sessionid,
 761                             NFSX_V4SESSIONID);
 762                         if (!sess_replay) {
 763                             shp = NFSSESSIONHASH(nsep->sess_sessionid);
 764                             NFSLOCKSTATE();
 765                             NFSLOCKSESSION(shp);
 766                             LIST_INSERT_HEAD(&shp->list, nsep, sess_hash);
 767                             LIST_INSERT_HEAD(&clp->lc_session, nsep, sess_list);
 768                             nsep->sess_clp = clp;
 769                             NFSUNLOCKSESSION(shp);
 770                             NFSUNLOCKSTATE();
 771                         }
 772                     }
 773                 }
 774         } else if (clp->lc_flags & LCL_NEEDSCONFIRM) {
 775                 error = NFSERR_EXPIRED;
 776         }
 777
 778         /*
 779          * If called by the Renew Op, we must check the principal.
 780          */
 781         if (!error && (opflags & CLOPS_RENEWOP)) {
 782             if (nfsrv_notsamecredname(nd, clp)) {
 783                 doneok = 0;
 784                 for (i = 0; i < nfsrv_statehashsize && doneok == 0; i++) {
 785                     LIST_FOREACH(stp, &clp->lc_stateid[i], ls_hash) {
 786                         if ((stp->ls_flags & NFSLCK_OPEN) &&
 787                             stp->ls_uid == nd->nd_cred->cr_uid) {
 788                                 doneok = 1;
 789                                 break;
 790                         }
 791                     }
 792                 }
 793                 if (!doneok)
 794                         error = NFSERR_ACCES;
 795             }
 796             if (!error && (clp->lc_flags & LCL_CBDOWN))
 797                 error = NFSERR_CBPATHDOWN;
 798         }
 799         if ((!error || error == NFSERR_CBPATHDOWN) &&
 800              (opflags & CLOPS_RENEW)) {
 801                 clp->lc_expiry = nfsrv_leaseexpiry();
 802         }
 803         if (opflags & CLOPS_CONFIRM) {
 804                 NFSLOCKV4ROOTMUTEX();
 805                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
 806                 NFSUNLOCKV4ROOTMUTEX();
 807         } else if (opflags != CLOPS_RENEW) {
 808                 NFSUNLOCKSTATE();
 809         }
 810         if (clpp)
 811                 *clpp = clp;
 812
 813 out:
 814         NFSEXITCODE2(error, nd);
 815         return (error);
 816 }
 817
 818 /*
 819  * Perform the NFSv4.1 destroy clientid.
 820  */
 821 int
 822 nfsrv_destroyclient(nfsquad_t clientid, NFSPROC_T *p)
 823 {
 824         struct nfsclient *clp;
 825         struct nfsclienthashhead *hp;
 826         int error = 0, i, igotlock;
 827
 828         if (NFSD_VNET(nfsrvboottime) != clientid.lval[0]) {
 829                 error = NFSERR_STALECLIENTID;
 830                 goto out;
 831         }
 832
 833         /* Lock out other nfsd threads */
 834         NFSLOCKV4ROOTMUTEX();
 835         nfsv4_relref(&nfsv4rootfs_lock);
 836         do {
 837                 igotlock = nfsv4_lock(&nfsv4rootfs_lock, 1, NULL,
 838                     NFSV4ROOTLOCKMUTEXPTR, NULL);
 839         } while (igotlock == 0);
 840         NFSUNLOCKV4ROOTMUTEX();
 841
 842         hp = NFSCLIENTHASH(clientid);
 843         LIST_FOREACH(clp, hp, lc_hash) {
 844                 if (clp->lc_clientid.lval[1] == clientid.lval[1])
 845                         break;
 846         }
 847         if (clp == NULL) {
 848                 NFSLOCKV4ROOTMUTEX();
 849                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
 850                 NFSUNLOCKV4ROOTMUTEX();
 851                 /* Just return ok, since it is gone. */
 852                 goto out;
 853         }
 854
 855         /*
 856          * Free up all layouts on the clientid.  Should the client return the
 857          * layouts?
 858          */
 859         nfsrv_freelayoutlist(clientid);
 860
 861         /* Scan for state on the clientid. */
 862         for (i = 0; i < nfsrv_statehashsize; i++)
 863                 if (!LIST_EMPTY(&clp->lc_stateid[i])) {
 864                         NFSLOCKV4ROOTMUTEX();
 865                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
 866                         NFSUNLOCKV4ROOTMUTEX();
 867                         error = NFSERR_CLIENTIDBUSY;
 868                         goto out;
 869                 }
 870         if (!LIST_EMPTY(&clp->lc_session) || !LIST_EMPTY(&clp->lc_deleg)) {
 871                 NFSLOCKV4ROOTMUTEX();
 872                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
 873                 NFSUNLOCKV4ROOTMUTEX();
 874                 error = NFSERR_CLIENTIDBUSY;
 875                 goto out;
 876         }
 877
 878         /* Destroy the clientid and return ok. */
 879         nfsrv_cleanclient(clp, p);
 880         nfsrv_freedeleglist(&clp->lc_deleg);
 881         nfsrv_freedeleglist(&clp->lc_olddeleg);
 882         LIST_REMOVE(clp, lc_hash);
 883         NFSLOCKV4ROOTMUTEX();
 884         nfsv4_unlock(&nfsv4rootfs_lock, 1);
 885         NFSUNLOCKV4ROOTMUTEX();
 886         nfsrv_zapclient(clp, p);
 887 out:
 888         NFSEXITCODE2(error, nd);
 889         return (error);
 890 }
 891
 892 /*
 893  * Called from the new nfssvc syscall to admin revoke a clientid.
 894  * Returns 0 for success, error otherwise.
 895  */
 896 int
 897 nfsrv_adminrevoke(struct nfsd_clid *revokep, NFSPROC_T *p)
 898 {
 899         struct nfsclient *clp = NULL;
 900         int i, error = 0;
 901         int gotit, igotlock;
 902
 903         /*
 904          * First, lock out the nfsd so that state won't change while the
 905          * revocation record is being written to the stable storage restart
 906          * file.
 907          */
 908         NFSLOCKV4ROOTMUTEX();
 909         do {
 910                 igotlock = nfsv4_lock(&nfsv4rootfs_lock, 1, NULL,
 911                     NFSV4ROOTLOCKMUTEXPTR, NULL);
 912         } while (!igotlock);
 913         NFSUNLOCKV4ROOTMUTEX();
 914
 915         /*
 916          * Search for a match in the client list.
 917          */
 918         gotit = i = 0;
 919         while (i < nfsrv_clienthashsize && !gotit) {
 920             LIST_FOREACH(clp, &NFSD_VNET(nfsclienthash)[i], lc_hash) {
 921                 if (revokep->nclid_idlen == clp->lc_idlen &&
 922                     !NFSBCMP(revokep->nclid_id, clp->lc_id, clp->lc_idlen)) {
 923                         gotit = 1;
 924                         break;
 925                 }
 926             }
 927             i++;
 928         }
 929         if (!gotit) {
 930                 NFSLOCKV4ROOTMUTEX();
 931                 nfsv4_unlock(&nfsv4rootfs_lock, 0);
 932                 NFSUNLOCKV4ROOTMUTEX();
 933                 error = EPERM;
 934                 goto out;
 935         }
 936
 937         /*
 938          * Now, write out the revocation record
 939          */
 940         nfsrv_writestable(clp->lc_id, clp->lc_idlen, NFSNST_REVOKE, p);
 941         nfsrv_backupstable();
 942
 943         /*
 944          * and clear out the state, marking the clientid revoked.
 945          */
 946         clp->lc_flags &= ~LCL_CALLBACKSON;
 947         clp->lc_flags |= LCL_ADMINREVOKED;
 948         nfsrv_cleanclient(clp, p);
 949         nfsrv_freedeleglist(&clp->lc_deleg);
 950         nfsrv_freedeleglist(&clp->lc_olddeleg);
 951         NFSLOCKV4ROOTMUTEX();
 952         nfsv4_unlock(&nfsv4rootfs_lock, 0);
 953         NFSUNLOCKV4ROOTMUTEX();
 954
 955 out:
 956         NFSEXITCODE(error);
 957         return (error);
 958 }
 959
 960 /*
 961  * Dump out stats for all clients. Called from nfssvc(2), that is used
 962  * nfsstatsv1.
 963  */
 964 void
 965 nfsrv_dumpclients(struct nfsd_dumpclients *dumpp, int maxcnt)
 966 {
 967         struct nfsclient *clp;
 968         int i = 0, cnt = 0;
 969
 970         /*
 971          * First, get a reference on the nfsv4rootfs_lock so that an
 972          * exclusive lock cannot be acquired while dumping the clients.
 973          */
 974         NFSLOCKV4ROOTMUTEX();
 975         nfsv4_getref(&nfsv4rootfs_lock, NULL, NFSV4ROOTLOCKMUTEXPTR, NULL);
 976         NFSUNLOCKV4ROOTMUTEX();
 977         NFSLOCKSTATE();
 978         /*
 979          * Rattle through the client lists until done.
 980          */
 981         while (i < nfsrv_clienthashsize && cnt < maxcnt) {
 982             clp = LIST_FIRST(&NFSD_VNET(nfsclienthash)[i]);
 983             while (clp != LIST_END(&NFSD_VNET(nfsclienthash)[i]) && cnt <
 984                 maxcnt) {
 985                 nfsrv_dumpaclient(clp, &dumpp[cnt]);
 986                 cnt++;
 987                 clp = LIST_NEXT(clp, lc_hash);
 988             }
 989             i++;
 990         }
 991         if (cnt < maxcnt)
 992             dumpp[cnt].ndcl_clid.nclid_idlen = 0;
 993         NFSUNLOCKSTATE();
 994         NFSLOCKV4ROOTMUTEX();
 995         nfsv4_relref(&nfsv4rootfs_lock);
 996         NFSUNLOCKV4ROOTMUTEX();
 997 }
 998
 999 /*
1000  * Dump stats for a client. Must be called with the NFSSTATELOCK and spl'd.
1001  */
1002 static void
1003 nfsrv_dumpaclient(struct nfsclient *clp, struct nfsd_dumpclients *dumpp)
1004 {
1005         struct nfsstate *stp, *openstp, *lckownstp;
1006         struct nfslock *lop;
1007         sa_family_t af;
1008 #ifdef INET
1009         struct sockaddr_in *rin;
1010 #endif
1011 #ifdef INET6
1012         struct sockaddr_in6 *rin6;
1013 #endif
1014
1015         dumpp->ndcl_nopenowners = dumpp->ndcl_nlockowners = 0;
1016         dumpp->ndcl_nopens = dumpp->ndcl_nlocks = 0;
1017         dumpp->ndcl_ndelegs = dumpp->ndcl_nolddelegs = 0;
1018         dumpp->ndcl_flags = clp->lc_flags;
1019         dumpp->ndcl_clid.nclid_idlen = clp->lc_idlen;
1020         NFSBCOPY(clp->lc_id, dumpp->ndcl_clid.nclid_id, clp->lc_idlen);
1021         af = clp->lc_req.nr_nam->sa_family;
1022         dumpp->ndcl_addrfam = af;
1023         switch (af) {
1024 #ifdef INET
1025         case AF_INET:
1026                 rin = (struct sockaddr_in *)clp->lc_req.nr_nam;
1027                 dumpp->ndcl_cbaddr.sin_addr = rin->sin_addr;
1028                 break;
1029 #endif
1030 #ifdef INET6
1031         case AF_INET6:
1032                 rin6 = (struct sockaddr_in6 *)clp->lc_req.nr_nam;
1033                 dumpp->ndcl_cbaddr.sin6_addr = rin6->sin6_addr;
1034                 break;
1035 #endif
1036         }
1037
1038         /*
1039          * Now, scan the state lists and total up the opens and locks.
1040          */
1041         LIST_FOREACH(stp, &clp->lc_open, ls_list) {
1042             dumpp->ndcl_nopenowners++;
1043             LIST_FOREACH(openstp, &stp->ls_open, ls_list) {
1044                 dumpp->ndcl_nopens++;
1045                 LIST_FOREACH(lckownstp, &openstp->ls_open, ls_list) {
1046                     dumpp->ndcl_nlockowners++;
1047                     LIST_FOREACH(lop, &lckownstp->ls_lock, lo_lckowner) {
1048                         dumpp->ndcl_nlocks++;
1049                     }
1050                 }
1051             }
1052         }
1053
1054         /*
1055          * and the delegation lists.
1056          */
1057         LIST_FOREACH(stp, &clp->lc_deleg, ls_list) {
1058             dumpp->ndcl_ndelegs++;
1059         }
1060         LIST_FOREACH(stp, &clp->lc_olddeleg, ls_list) {
1061             dumpp->ndcl_nolddelegs++;
1062         }
1063 }
1064
1065 /*
1066  * Dump out lock stats for a file.
1067  */
1068 void
1069 nfsrv_dumplocks(vnode_t vp, struct nfsd_dumplocks *ldumpp, int maxcnt,
1070     NFSPROC_T *p)
1071 {
1072         struct nfsstate *stp;
1073         struct nfslock *lop;
1074         int cnt = 0;
1075         struct nfslockfile *lfp;
1076         sa_family_t af;
1077 #ifdef INET
1078         struct sockaddr_in *rin;
1079 #endif
1080 #ifdef INET6
1081         struct sockaddr_in6 *rin6;
1082 #endif
1083         int ret;
1084         fhandle_t nfh;
1085
1086         ret = nfsrv_getlockfh(vp, 0, NULL, &nfh, p);
1087         /*
1088          * First, get a reference on the nfsv4rootfs_lock so that an
1089          * exclusive lock on it cannot be acquired while dumping the locks.
1090          */
1091         NFSLOCKV4ROOTMUTEX();
1092         nfsv4_getref(&nfsv4rootfs_lock, NULL, NFSV4ROOTLOCKMUTEXPTR, NULL);
1093         NFSUNLOCKV4ROOTMUTEX();
1094         NFSLOCKSTATE();
1095         if (!ret)
1096                 ret = nfsrv_getlockfile(0, NULL, &lfp, &nfh, 0);
1097         if (ret) {
1098                 ldumpp[0].ndlck_clid.nclid_idlen = 0;
1099                 NFSUNLOCKSTATE();
1100                 NFSLOCKV4ROOTMUTEX();
1101                 nfsv4_relref(&nfsv4rootfs_lock);
1102                 NFSUNLOCKV4ROOTMUTEX();
1103                 return;
1104         }
1105
1106         /*
1107          * For each open share on file, dump it out.
1108          */
1109         stp = LIST_FIRST(&lfp->lf_open);
1110         while (stp != LIST_END(&lfp->lf_open) && cnt < maxcnt) {
1111                 ldumpp[cnt].ndlck_flags = stp->ls_flags;
1112                 ldumpp[cnt].ndlck_stateid.seqid = stp->ls_stateid.seqid;
1113                 ldumpp[cnt].ndlck_stateid.other[0] = stp->ls_stateid.other[0];
1114                 ldumpp[cnt].ndlck_stateid.other[1] = stp->ls_stateid.other[1];
1115                 ldumpp[cnt].ndlck_stateid.other[2] = stp->ls_stateid.other[2];
1116                 ldumpp[cnt].ndlck_owner.nclid_idlen =
1117                     stp->ls_openowner->ls_ownerlen;
1118                 NFSBCOPY(stp->ls_openowner->ls_owner,
1119                     ldumpp[cnt].ndlck_owner.nclid_id,
1120                     stp->ls_openowner->ls_ownerlen);
1121                 ldumpp[cnt].ndlck_clid.nclid_idlen = stp->ls_clp->lc_idlen;
1122                 NFSBCOPY(stp->ls_clp->lc_id, ldumpp[cnt].ndlck_clid.nclid_id,
1123                     stp->ls_clp->lc_idlen);
1124                 af = stp->ls_clp->lc_req.nr_nam->sa_family;
1125                 ldumpp[cnt].ndlck_addrfam = af;
1126                 switch (af) {
1127 #ifdef INET
1128                 case AF_INET:
1129                         rin = (struct sockaddr_in *)stp->ls_clp->lc_req.nr_nam;
1130                         ldumpp[cnt].ndlck_cbaddr.sin_addr = rin->sin_addr;
1131                         break;
1132 #endif
1133 #ifdef INET6
1134                 case AF_INET6:
1135                         rin6 = (struct sockaddr_in6 *)
1136                             stp->ls_clp->lc_req.nr_nam;
1137                         ldumpp[cnt].ndlck_cbaddr.sin6_addr = rin6->sin6_addr;
1138                         break;
1139 #endif
1140                 }
1141                 stp = LIST_NEXT(stp, ls_file);
1142                 cnt++;
1143         }
1144
1145         /*
1146          * and all locks.
1147          */
1148         lop = LIST_FIRST(&lfp->lf_lock);
1149         while (lop != LIST_END(&lfp->lf_lock) && cnt < maxcnt) {
1150                 stp = lop->lo_stp;
1151                 ldumpp[cnt].ndlck_flags = lop->lo_flags;
1152                 ldumpp[cnt].ndlck_first = lop->lo_first;
1153                 ldumpp[cnt].ndlck_end = lop->lo_end;
1154                 ldumpp[cnt].ndlck_stateid.seqid = stp->ls_stateid.seqid;
1155                 ldumpp[cnt].ndlck_stateid.other[0] = stp->ls_stateid.other[0];
1156                 ldumpp[cnt].ndlck_stateid.other[1] = stp->ls_stateid.other[1];
1157                 ldumpp[cnt].ndlck_stateid.other[2] = stp->ls_stateid.other[2];
1158                 ldumpp[cnt].ndlck_owner.nclid_idlen = stp->ls_ownerlen;
1159                 NFSBCOPY(stp->ls_owner, ldumpp[cnt].ndlck_owner.nclid_id,
1160                     stp->ls_ownerlen);
1161                 ldumpp[cnt].ndlck_clid.nclid_idlen = stp->ls_clp->lc_idlen;
1162                 NFSBCOPY(stp->ls_clp->lc_id, ldumpp[cnt].ndlck_clid.nclid_id,
1163                     stp->ls_clp->lc_idlen);
1164                 af = stp->ls_clp->lc_req.nr_nam->sa_family;
1165                 ldumpp[cnt].ndlck_addrfam = af;
1166                 switch (af) {
1167 #ifdef INET
1168                 case AF_INET:
1169                         rin = (struct sockaddr_in *)stp->ls_clp->lc_req.nr_nam;
1170                         ldumpp[cnt].ndlck_cbaddr.sin_addr = rin->sin_addr;
1171                         break;
1172 #endif
1173 #ifdef INET6
1174                 case AF_INET6:
1175                         rin6 = (struct sockaddr_in6 *)
1176                             stp->ls_clp->lc_req.nr_nam;
1177                         ldumpp[cnt].ndlck_cbaddr.sin6_addr = rin6->sin6_addr;
1178                         break;
1179 #endif
1180                 }
1181                 lop = LIST_NEXT(lop, lo_lckfile);
1182                 cnt++;
1183         }
1184
1185         /*
1186          * and the delegations.
1187          */
1188         stp = LIST_FIRST(&lfp->lf_deleg);
1189         while (stp != LIST_END(&lfp->lf_deleg) && cnt < maxcnt) {
1190                 ldumpp[cnt].ndlck_flags = stp->ls_flags;
1191                 ldumpp[cnt].ndlck_stateid.seqid = stp->ls_stateid.seqid;
1192                 ldumpp[cnt].ndlck_stateid.other[0] = stp->ls_stateid.other[0];
1193                 ldumpp[cnt].ndlck_stateid.other[1] = stp->ls_stateid.other[1];
1194                 ldumpp[cnt].ndlck_stateid.other[2] = stp->ls_stateid.other[2];
1195                 ldumpp[cnt].ndlck_owner.nclid_idlen = 0;
1196                 ldumpp[cnt].ndlck_clid.nclid_idlen = stp->ls_clp->lc_idlen;
1197                 NFSBCOPY(stp->ls_clp->lc_id, ldumpp[cnt].ndlck_clid.nclid_id,
1198                     stp->ls_clp->lc_idlen);
1199                 af = stp->ls_clp->lc_req.nr_nam->sa_family;
1200                 ldumpp[cnt].ndlck_addrfam = af;
1201                 switch (af) {
1202 #ifdef INET
1203                 case AF_INET:
1204                         rin = (struct sockaddr_in *)stp->ls_clp->lc_req.nr_nam;
1205                         ldumpp[cnt].ndlck_cbaddr.sin_addr = rin->sin_addr;
1206                         break;
1207 #endif
1208 #ifdef INET6
1209                 case AF_INET6:
1210                         rin6 = (struct sockaddr_in6 *)
1211                             stp->ls_clp->lc_req.nr_nam;
1212                         ldumpp[cnt].ndlck_cbaddr.sin6_addr = rin6->sin6_addr;
1213                         break;
1214 #endif
1215                 }
1216                 stp = LIST_NEXT(stp, ls_file);
1217                 cnt++;
1218         }
1219
1220         /*
1221          * If list isn't full, mark end of list by setting the client name
1222          * to zero length.
1223          */
1224         if (cnt < maxcnt)
1225                 ldumpp[cnt].ndlck_clid.nclid_idlen = 0;
1226         NFSUNLOCKSTATE();
1227         NFSLOCKV4ROOTMUTEX();
1228         nfsv4_relref(&nfsv4rootfs_lock);
1229         NFSUNLOCKV4ROOTMUTEX();
1230 }
1231
1232 /*
1233  * Server timer routine. It can scan any linked list, so long
1234  * as it holds the spin/mutex lock and there is no exclusive lock on
1235  * nfsv4rootfs_lock.
1236  * (For OpenBSD, a kthread is ok. For FreeBSD, I think it is ok
1237  *  to do this from a callout, since the spin locks work. For
1238  *  Darwin, I'm not sure what will work correctly yet.)
1239  * Should be called once per second.
1240  */
1241 void
1242 nfsrv_servertimer(void *arg __unused)
1243 {
1244         struct nfsclient *clp, *nclp;
1245         struct nfsstate *stp, *nstp;
1246         int got_ref, i;
1247
1248         /*
1249          * Make sure nfsboottime is set. This is used by V3 as well
1250          * as V4. Note that nfsboottime is not nfsrvboottime, which is
1251          * only used by the V4 server for leases.
1252          */
1253         if (nfsboottime.tv_sec == 0)
1254                 NFSSETBOOTTIME(nfsboottime);
1255
1256         /*
1257          * If server hasn't started yet, just return.
1258          */
1259         NFSLOCKSTATE();
1260         if (NFSD_VNET(nfsrv_stablefirst).nsf_eograce == 0) {
1261                 NFSUNLOCKSTATE();
1262                 return;
1263         }
1264         if (!(NFSD_VNET(nfsrv_stablefirst).nsf_flags & NFSNSF_UPDATEDONE)) {
1265                 if (!(NFSD_VNET(nfsrv_stablefirst).nsf_flags &
1266                       NFSNSF_GRACEOVER) &&
1267                     NFSD_MONOSEC > NFSD_VNET(nfsrv_stablefirst).nsf_eograce)
1268                         NFSD_VNET(nfsrv_stablefirst).nsf_flags |=
1269                             (NFSNSF_GRACEOVER | NFSNSF_NEEDLOCK);
1270                 NFSUNLOCKSTATE();
1271                 return;
1272         }
1273
1274         /*
1275          * Try and get a reference count on the nfsv4rootfs_lock so that
1276          * no nfsd thread can acquire an exclusive lock on it before this
1277          * call is done. If it is already exclusively locked, just return.
1278          */
1279         NFSLOCKV4ROOTMUTEX();
1280         got_ref = nfsv4_getref_nonblock(&nfsv4rootfs_lock);
1281         NFSUNLOCKV4ROOTMUTEX();
1282         if (got_ref == 0) {
1283                 NFSUNLOCKSTATE();
1284                 return;
1285         }
1286
1287         /*
1288          * For each client...
1289          */
1290         for (i = 0; i < nfsrv_clienthashsize; i++) {
1291             clp = LIST_FIRST(&NFSD_VNET(nfsclienthash)[i]);
1292             while (clp != LIST_END(&NFSD_VNET(nfsclienthash)[i])) {
1293                 nclp = LIST_NEXT(clp, lc_hash);
1294                 if (!(clp->lc_flags & LCL_EXPIREIT)) {
1295                     if (((clp->lc_expiry + NFSRV_STALELEASE) < NFSD_MONOSEC
1296                          && ((LIST_EMPTY(&clp->lc_deleg)
1297                               && LIST_EMPTY(&clp->lc_open)) ||
1298                              nfsrv_clients > nfsrv_clienthighwater)) ||
1299                         (clp->lc_expiry + NFSRV_MOULDYLEASE) < NFSD_MONOSEC ||
1300                         (clp->lc_expiry < NFSD_MONOSEC &&
1301                          (nfsrv_openpluslock * 10 / 9) > nfsrv_v4statelimit)) {
1302                         /*
1303                          * Lease has expired several nfsrv_lease times ago:
1304                          * PLUS
1305                          *    - no state is associated with it
1306                          *    OR
1307                          *    - above high water mark for number of clients
1308                          *      (nfsrv_clienthighwater should be large enough
1309                          *       that this only occurs when clients fail to
1310                          *       use the same nfs_client_id4.id. Maybe somewhat
1311                          *       higher that the maximum number of clients that
1312                          *       will mount this server?)
1313                          * OR
1314                          * Lease has expired a very long time ago
1315                          * OR
1316                          * Lease has expired PLUS the number of opens + locks
1317                          * has exceeded 90% of capacity
1318                          *
1319                          * --> Mark for expiry. The actual expiry will be done
1320                          *     by an nfsd sometime soon.
1321                          */
1322                         clp->lc_flags |= LCL_EXPIREIT;
1323                         NFSD_VNET(nfsrv_stablefirst).nsf_flags |=
1324                             (NFSNSF_NEEDLOCK | NFSNSF_EXPIREDCLIENT);
1325                     } else {
1326                         /*
1327                          * If there are no opens, increment no open tick cnt
1328                          * If time exceeds NFSNOOPEN, mark it to be thrown away
1329                          * otherwise, if there is an open, reset no open time
1330                          * Hopefully, this will avoid excessive re-creation
1331                          * of open owners and subsequent open confirms.
1332                          */
1333                         stp = LIST_FIRST(&clp->lc_open);
1334                         while (stp != LIST_END(&clp->lc_open)) {
1335                                 nstp = LIST_NEXT(stp, ls_list);
1336                                 if (LIST_EMPTY(&stp->ls_open)) {
1337                                         stp->ls_noopens++;
1338                                         if (stp->ls_noopens > NFSNOOPEN ||
1339                                             (nfsrv_openpluslock * 2) >
1340                                             nfsrv_v4statelimit)
1341                                                 NFSD_VNET(nfsrv_stablefirst).nsf_flags |=
1342                                                         NFSNSF_NOOPENS;
1343                                 } else {
1344                                         stp->ls_noopens = 0;
1345                                 }
1346                                 stp = nstp;
1347                         }
1348                     }
1349                 }
1350                 clp = nclp;
1351             }
1352         }
1353         NFSUNLOCKSTATE();
1354         NFSLOCKV4ROOTMUTEX();
1355         nfsv4_relref(&nfsv4rootfs_lock);
1356         NFSUNLOCKV4ROOTMUTEX();
1357 }
1358
1359 /*
1360  * The following set of functions free up the various data structures.
1361  */
1362 /*
1363  * Clear out all open/lock state related to this nfsclient.
1364  * Caller must hold an exclusive lock on nfsv4rootfs_lock, so that
1365  * there are no other active nfsd threads.
1366  */
1367 void
1368 nfsrv_cleanclient(struct nfsclient *clp, NFSPROC_T *p)
1369 {
1370         struct nfsstate *stp, *nstp;
1371         struct nfsdsession *sep, *nsep;
1372
1373         LIST_FOREACH_SAFE(stp, &clp->lc_open, ls_list, nstp)
1374                 nfsrv_freeopenowner(stp, 1, p);
1375         if ((clp->lc_flags & LCL_ADMINREVOKED) == 0)
1376                 LIST_FOREACH_SAFE(sep, &clp->lc_session, sess_list, nsep)
1377                         (void)nfsrv_freesession(sep, NULL);
1378 }
1379
1380 /*
1381  * Free a client that has been cleaned. It should also already have been
1382  * removed from the lists.
1383  * (Just to be safe w.r.t. newnfs_disconnect(), call this function when
1384  *  softclock interrupts are enabled.)
1385  */
1386 void
1387 nfsrv_zapclient(struct nfsclient *clp, NFSPROC_T *p)
1388 {
1389
1390 #ifdef notyet
1391         if ((clp->lc_flags & (LCL_GSS | LCL_CALLBACKSON)) ==
1392              (LCL_GSS | LCL_CALLBACKSON) &&
1393             (clp->lc_hand.nfsh_flag & NFSG_COMPLETE) &&
1394             clp->lc_handlelen > 0) {
1395                 clp->lc_hand.nfsh_flag &= ~NFSG_COMPLETE;
1396                 clp->lc_hand.nfsh_flag |= NFSG_DESTROYED;
1397                 (void) nfsrv_docallback(clp, NFSV4PROC_CBNULL,
1398                         NULL, 0, NULL, NULL, NULL, 0, p);
1399         }
1400 #endif
1401         newnfs_disconnect(NULL, &clp->lc_req);
1402         free(clp->lc_req.nr_nam, M_SONAME);
1403         NFSFREEMUTEX(&clp->lc_req.nr_mtx);
1404         free(clp->lc_stateid, M_NFSDCLIENT);
1405         free(clp, M_NFSDCLIENT);
1406         NFSLOCKSTATE();
1407         NFSD_VNET(nfsstatsv1_p)->srvclients--;
1408         nfsrv_openpluslock--;
1409         nfsrv_clients--;
1410         NFSUNLOCKSTATE();
1411 }
1412
1413 /*
1414  * Free a list of delegation state structures.
1415  * (This function will also free all nfslockfile structures that no
1416  *  longer have associated state.)
1417  */
1418 void
1419 nfsrv_freedeleglist(struct nfsstatehead *sthp)
1420 {
1421         struct nfsstate *stp, *nstp;
1422
1423         LIST_FOREACH_SAFE(stp, sthp, ls_list, nstp) {
1424                 nfsrv_freedeleg(stp);
1425         }
1426         LIST_INIT(sthp);
1427 }
1428
1429 /*
1430  * Free up a delegation.
1431  */
1432 static void
1433 nfsrv_freedeleg(struct nfsstate *stp)
1434 {
1435         struct nfslockfile *lfp;
1436
1437         LIST_REMOVE(stp, ls_hash);
1438         LIST_REMOVE(stp, ls_list);
1439         LIST_REMOVE(stp, ls_file);
1440         if ((stp->ls_flags & NFSLCK_DELEGWRITE) != 0)
1441                 nfsrv_writedelegcnt--;
1442         lfp = stp->ls_lfp;
1443         if (LIST_EMPTY(&lfp->lf_open) &&
1444             LIST_EMPTY(&lfp->lf_lock) && LIST_EMPTY(&lfp->lf_deleg) &&
1445             LIST_EMPTY(&lfp->lf_locallock) && LIST_EMPTY(&lfp->lf_rollback) &&
1446             lfp->lf_usecount == 0 &&
1447             nfsv4_testlock(&lfp->lf_locallock_lck) == 0)
1448                 nfsrv_freenfslockfile(lfp);
1449         free(stp, M_NFSDSTATE);
1450         NFSD_VNET(nfsstatsv1_p)->srvdelegates--;
1451         nfsrv_openpluslock--;
1452         nfsrv_delegatecnt--;
1453 }
1454
1455 /*
1456  * This function frees an open owner and all associated opens.
1457  */
1458 static void
1459 nfsrv_freeopenowner(struct nfsstate *stp, int cansleep, NFSPROC_T *p)
1460 {
1461         struct nfsstate *nstp, *tstp;
1462
1463         LIST_REMOVE(stp, ls_list);
1464         /*
1465          * Now, free all associated opens.
1466          */
1467         nstp = LIST_FIRST(&stp->ls_open);
1468         while (nstp != LIST_END(&stp->ls_open)) {
1469                 tstp = nstp;
1470                 nstp = LIST_NEXT(nstp, ls_list);
1471                 (void) nfsrv_freeopen(tstp, NULL, cansleep, p);
1472         }
1473         if (stp->ls_op)
1474                 nfsrvd_derefcache(stp->ls_op);
1475         free(stp, M_NFSDSTATE);
1476         NFSD_VNET(nfsstatsv1_p)->srvopenowners--;
1477         nfsrv_openpluslock--;
1478 }
1479
1480 /*
1481  * This function frees an open (nfsstate open structure) with all associated
1482  * lock_owners and locks. It also frees the nfslockfile structure iff there
1483  * are no other opens on the file.
1484  * Returns 1 if it free'd the nfslockfile, 0 otherwise.
1485  */
1486 static int
1487 nfsrv_freeopen(struct nfsstate *stp, vnode_t vp, int cansleep, NFSPROC_T *p)
1488 {
1489         struct nfsstate *nstp, *tstp;
1490         struct nfslockfile *lfp;
1491         int ret;
1492
1493         LIST_REMOVE(stp, ls_hash);
1494         LIST_REMOVE(stp, ls_list);
1495         LIST_REMOVE(stp, ls_file);
1496
1497         lfp = stp->ls_lfp;
1498         /*
1499          * Now, free all lockowners associated with this open.
1500          */
1501         LIST_FOREACH_SAFE(tstp, &stp->ls_open, ls_list, nstp)
1502                 nfsrv_freelockowner(tstp, vp, cansleep, p);
1503
1504         /*
1505          * The nfslockfile is freed here if there are no locks
1506          * associated with the open.
1507          * If there are locks associated with the open, the
1508          * nfslockfile structure can be freed via nfsrv_freelockowner().
1509          * Acquire the state mutex to avoid races with calls to
1510          * nfsrv_getlockfile().
1511          */
1512         if (cansleep != 0)
1513                 NFSLOCKSTATE();
1514         if (lfp != NULL && LIST_EMPTY(&lfp->lf_open) &&
1515             LIST_EMPTY(&lfp->lf_deleg) && LIST_EMPTY(&lfp->lf_lock) &&
1516             LIST_EMPTY(&lfp->lf_locallock) && LIST_EMPTY(&lfp->lf_rollback) &&
1517             lfp->lf_usecount == 0 &&
1518             (cansleep != 0 || nfsv4_testlock(&lfp->lf_locallock_lck) == 0)) {
1519                 nfsrv_freenfslockfile(lfp);
1520                 ret = 1;
1521         } else
1522                 ret = 0;
1523         if (cansleep != 0)
1524                 NFSUNLOCKSTATE();
1525         free(stp, M_NFSDSTATE);
1526         NFSD_VNET(nfsstatsv1_p)->srvopens--;
1527         nfsrv_openpluslock--;
1528         return (ret);
1529 }
1530
1531 /*
1532  * Frees a lockowner and all associated locks.
1533  */
1534 static void
1535 nfsrv_freelockowner(struct nfsstate *stp, vnode_t vp, int cansleep,
1536     NFSPROC_T *p)
1537 {
1538
1539         LIST_REMOVE(stp, ls_hash);
1540         LIST_REMOVE(stp, ls_list);
1541         nfsrv_freeallnfslocks(stp, vp, cansleep, p);
1542         if (stp->ls_op)
1543                 nfsrvd_derefcache(stp->ls_op);
1544         free(stp, M_NFSDSTATE);
1545         NFSD_VNET(nfsstatsv1_p)->srvlockowners--;
1546         nfsrv_openpluslock--;
1547 }
1548
1549 /*
1550  * Free all the nfs locks on a lockowner.
1551  */
1552 static void
1553 nfsrv_freeallnfslocks(struct nfsstate *stp, vnode_t vp, int cansleep,
1554     NFSPROC_T *p)
1555 {
1556         struct nfslock *lop, *nlop;
1557         struct nfsrollback *rlp, *nrlp;
1558         struct nfslockfile *lfp = NULL;
1559         int gottvp = 0;
1560         vnode_t tvp = NULL;
1561         uint64_t first, end;
1562
1563         if (vp != NULL)
1564                 ASSERT_VOP_UNLOCKED(vp, "nfsrv_freeallnfslocks: vnode locked");
1565         lop = LIST_FIRST(&stp->ls_lock);
1566         while (lop != LIST_END(&stp->ls_lock)) {
1567                 nlop = LIST_NEXT(lop, lo_lckowner);
1568                 /*
1569                  * Since all locks should be for the same file, lfp should
1570                  * not change.
1571                  */
1572                 if (lfp == NULL)
1573                         lfp = lop->lo_lfp;
1574                 else if (lfp != lop->lo_lfp)
1575                         panic("allnfslocks");
1576                 /*
1577                  * If vp is NULL and cansleep != 0, a vnode must be acquired
1578                  * from the file handle. This only occurs when called from
1579                  * nfsrv_cleanclient().
1580                  */
1581                 if (gottvp == 0) {
1582                         if (nfsrv_dolocallocks == 0)
1583                                 tvp = NULL;
1584                         else if (vp == NULL && cansleep != 0) {
1585                                 tvp = nfsvno_getvp(&lfp->lf_fh);
1586                                 if (tvp != NULL)
1587                                         NFSVOPUNLOCK(tvp);
1588                         } else
1589                                 tvp = vp;
1590                         gottvp = 1;
1591                 }
1592
1593                 if (tvp != NULL) {
1594                         if (cansleep == 0)
1595                                 panic("allnfs2");
1596                         first = lop->lo_first;
1597                         end = lop->lo_end;
1598                         nfsrv_freenfslock(lop);
1599                         nfsrv_localunlock(tvp, lfp, first, end, p);
1600                         LIST_FOREACH_SAFE(rlp, &lfp->lf_rollback, rlck_list,
1601                             nrlp)
1602                                 free(rlp, M_NFSDROLLBACK);
1603                         LIST_INIT(&lfp->lf_rollback);
1604                 } else
1605                         nfsrv_freenfslock(lop);
1606                 lop = nlop;
1607         }
1608         if (vp == NULL && tvp != NULL)
1609                 vrele(tvp);
1610 }
1611
1612 /*
1613  * Free an nfslock structure.
1614  */
1615 static void
1616 nfsrv_freenfslock(struct nfslock *lop)
1617 {
1618
1619         if (lop->lo_lckfile.le_prev != NULL) {
1620                 LIST_REMOVE(lop, lo_lckfile);
1621                 NFSD_VNET(nfsstatsv1_p)->srvlocks--;
1622                 nfsrv_openpluslock--;
1623         }
1624         LIST_REMOVE(lop, lo_lckowner);
1625         free(lop, M_NFSDLOCK);
1626 }
1627
1628 /*
1629  * This function frees an nfslockfile structure.
1630  */
1631 static void
1632 nfsrv_freenfslockfile(struct nfslockfile *lfp)
1633 {
1634
1635         LIST_REMOVE(lfp, lf_hash);
1636         free(lfp, M_NFSDLOCKFILE);
1637 }
1638
1639 /*
1640  * This function looks up an nfsstate structure via stateid.
1641  */
1642 static int
1643 nfsrv_getstate(struct nfsclient *clp, nfsv4stateid_t *stateidp, __unused u_int32_t flags,
1644     struct nfsstate **stpp)
1645 {
1646         struct nfsstate *stp;
1647         struct nfsstatehead *hp;
1648         int error = 0;
1649
1650         *stpp = NULL;
1651         hp = NFSSTATEHASH(clp, *stateidp);
1652         LIST_FOREACH(stp, hp, ls_hash) {
1653                 if (!NFSBCMP(stp->ls_stateid.other, stateidp->other,
1654                         NFSX_STATEIDOTHER))
1655                         break;
1656         }
1657
1658         /*
1659          * If no state id in list, return NFSERR_BADSTATEID.
1660          */
1661         if (stp == LIST_END(hp)) {
1662                 error = NFSERR_BADSTATEID;
1663                 goto out;
1664         }
1665         *stpp = stp;
1666
1667 out:
1668         NFSEXITCODE(error);
1669         return (error);
1670 }
1671
1672 /*
1673  * This function gets an nfsstate structure via owner string.
1674  */
1675 static void
1676 nfsrv_getowner(struct nfsstatehead *hp, struct nfsstate *new_stp,
1677     struct nfsstate **stpp)
1678 {
1679         struct nfsstate *stp;
1680
1681         *stpp = NULL;
1682         LIST_FOREACH(stp, hp, ls_list) {
1683                 if (new_stp->ls_ownerlen == stp->ls_ownerlen &&
1684                   !NFSBCMP(new_stp->ls_owner,stp->ls_owner,stp->ls_ownerlen)) {
1685                         *stpp = stp;
1686                         return;
1687                 }
1688         }
1689 }
1690
1691 /*
1692  * Lock control function called to update lock status.
1693  * Returns 0 upon success, -1 if there is no lock and the flags indicate
1694  * that one isn't to be created and an NFSERR_xxx for other errors.
1695  * The structures new_stp and new_lop are passed in as pointers that should
1696  * be set to NULL if the structure is used and shouldn't be free'd.
1697  * For the NFSLCK_TEST and NFSLCK_CHECK cases, the structures are
1698  * never used and can safely be allocated on the stack. For all other
1699  * cases, *new_stpp and *new_lopp should be malloc'd before the call,
1700  * in case they are used.
1701  */
1702 int
1703 nfsrv_lockctrl(vnode_t vp, struct nfsstate **new_stpp,
1704     struct nfslock **new_lopp, struct nfslockconflict *cfp,
1705     nfsquad_t clientid, nfsv4stateid_t *stateidp,
1706     __unused struct nfsexstuff *exp,
1707     struct nfsrv_descript *nd, NFSPROC_T *p)
1708 {
1709         struct nfslock *lop;
1710         struct nfsstate *new_stp = *new_stpp;
1711         struct nfslock *new_lop = *new_lopp;
1712         struct nfsstate *tstp, *mystp, *nstp;
1713         int specialid = 0;
1714         struct nfslockfile *lfp;
1715         struct nfslock *other_lop = NULL;
1716         struct nfsstate *stp, *lckstp = NULL;
1717         struct nfsclient *clp = NULL;
1718         u_int32_t bits;
1719         int error = 0, haslock = 0, ret, reterr;
1720         int getlckret, delegation = 0, filestruct_locked, vnode_unlocked = 0;
1721         fhandle_t nfh;
1722         uint64_t first, end;
1723         uint32_t lock_flags;
1724
1725         if (new_stp->ls_flags & (NFSLCK_CHECK | NFSLCK_SETATTR)) {
1726                 /*
1727                  * Note the special cases of "all 1s" or "all 0s" stateids and
1728                  * let reads with all 1s go ahead.
1729                  */
1730                 if (new_stp->ls_stateid.seqid == 0x0 &&
1731                     new_stp->ls_stateid.other[0] == 0x0 &&
1732                     new_stp->ls_stateid.other[1] == 0x0 &&
1733                     new_stp->ls_stateid.other[2] == 0x0)
1734                         specialid = 1;
1735                 else if (new_stp->ls_stateid.seqid == 0xffffffff &&
1736                     new_stp->ls_stateid.other[0] == 0xffffffff &&
1737                     new_stp->ls_stateid.other[1] == 0xffffffff &&
1738                     new_stp->ls_stateid.other[2] == 0xffffffff)
1739                         specialid = 2;
1740         }
1741
1742         /*
1743          * Check for restart conditions (client and server).
1744          */
1745         error = nfsrv_checkrestart(clientid, new_stp->ls_flags,
1746             &new_stp->ls_stateid, specialid);
1747         if (error)
1748                 goto out;
1749
1750         /*
1751          * Check for state resource limit exceeded.
1752          */
1753         if ((new_stp->ls_flags & NFSLCK_LOCK) &&
1754             nfsrv_openpluslock > nfsrv_v4statelimit) {
1755                 error = NFSERR_RESOURCE;
1756                 goto out;
1757         }
1758
1759         /*
1760          * For the lock case, get another nfslock structure,
1761          * just in case we need it.
1762          * Malloc now, before we start sifting through the linked lists,
1763          * in case we have to wait for memory.
1764          */
1765 tryagain:
1766         if (new_stp->ls_flags & NFSLCK_LOCK)
1767                 other_lop = malloc(sizeof (struct nfslock),
1768                     M_NFSDLOCK, M_WAITOK);
1769         filestruct_locked = 0;
1770         reterr = 0;
1771         lfp = NULL;
1772
1773         /*
1774          * Get the lockfile structure for CFH now, so we can do a sanity
1775          * check against the stateid, before incrementing the seqid#, since
1776          * we want to return NFSERR_BADSTATEID on failure and the seqid#
1777          * shouldn't be incremented for this case.
1778          * If nfsrv_getlockfile() returns -1, it means "not found", which
1779          * will be handled later.
1780          * If we are doing Lock/LockU and local locking is enabled, sleep
1781          * lock the nfslockfile structure.
1782          */
1783         getlckret = nfsrv_getlockfh(vp, new_stp->ls_flags, NULL, &nfh, p);
1784         NFSLOCKSTATE();
1785         if (getlckret == 0) {
1786                 if ((new_stp->ls_flags & (NFSLCK_LOCK | NFSLCK_UNLOCK)) != 0 &&
1787                     nfsrv_dolocallocks != 0 && nd->nd_repstat == 0) {
1788                         getlckret = nfsrv_getlockfile(new_stp->ls_flags, NULL,
1789                             &lfp, &nfh, 1);
1790                         if (getlckret == 0)
1791                                 filestruct_locked = 1;
1792                 } else
1793                         getlckret = nfsrv_getlockfile(new_stp->ls_flags, NULL,
1794                             &lfp, &nfh, 0);
1795         }
1796         if (getlckret != 0 && getlckret != -1)
1797                 reterr = getlckret;
1798
1799         if (filestruct_locked != 0) {
1800                 LIST_INIT(&lfp->lf_rollback);
1801                 if ((new_stp->ls_flags & NFSLCK_LOCK)) {
1802                         /*
1803                          * For local locking, do the advisory locking now, so
1804                          * that any conflict can be detected. A failure later
1805                          * can be rolled back locally. If an error is returned,
1806                          * struct nfslockfile has been unlocked and any local
1807                          * locking rolled back.
1808                          */
1809                         NFSUNLOCKSTATE();
1810                         if (vnode_unlocked == 0) {
1811                                 ASSERT_VOP_ELOCKED(vp, "nfsrv_lockctrl1");
1812                                 vnode_unlocked = 1;
1813                                 NFSVOPUNLOCK(vp);
1814                         }
1815                         reterr = nfsrv_locallock(vp, lfp,
1816                             (new_lop->lo_flags & (NFSLCK_READ | NFSLCK_WRITE)),
1817                             new_lop->lo_first, new_lop->lo_end, cfp, p);
1818                         NFSLOCKSTATE();
1819                 }
1820         }
1821
1822         if (specialid == 0) {
1823             if (new_stp->ls_flags & NFSLCK_TEST) {
1824                 /*
1825                  * RFC 3530 does not list LockT as an op that renews a
1826                  * lease, but the consensus seems to be that it is ok
1827                  * for a server to do so.
1828                  */
1829                 error = nfsrv_getclient(clientid, CLOPS_RENEW, &clp, NULL,
1830                     (nfsquad_t)((u_quad_t)0), 0, nd, p);
1831
1832                 /*
1833                  * Since NFSERR_EXPIRED, NFSERR_ADMINREVOKED are not valid
1834                  * error returns for LockT, just go ahead and test for a lock,
1835                  * since there are no locks for this client, but other locks
1836                  * can conflict. (ie. same client will always be false)
1837                  */
1838                 if (error == NFSERR_EXPIRED || error == NFSERR_ADMINREVOKED)
1839                     error = 0;
1840                 lckstp = new_stp;
1841             } else {
1842               error = nfsrv_getclient(clientid, CLOPS_RENEW, &clp, NULL,
1843                 (nfsquad_t)((u_quad_t)0), 0, nd, p);
1844               if (error == 0)
1845                 /*
1846                  * Look up the stateid
1847                  */
1848                 error = nfsrv_getstate(clp, &new_stp->ls_stateid,
1849                   new_stp->ls_flags, &stp);
1850               /*
1851                * do some sanity checks for an unconfirmed open or a
1852                * stateid that refers to the wrong file, for an open stateid
1853                */
1854               if (error == 0 && (stp->ls_flags & NFSLCK_OPEN) &&
1855                   ((stp->ls_openowner->ls_flags & NFSLCK_NEEDSCONFIRM) ||
1856                    (getlckret == 0 && stp->ls_lfp != lfp))){
1857                       /*
1858                        * NFSLCK_SETATTR should return OK rather than NFSERR_BADSTATEID
1859                        * The only exception is using SETATTR with SIZE.
1860                        * */
1861                     if ((new_stp->ls_flags &
1862                          (NFSLCK_SETATTR | NFSLCK_CHECK)) != NFSLCK_SETATTR)
1863                              error = NFSERR_BADSTATEID;
1864               }
1865
1866                 if (error == 0 &&
1867                   (stp->ls_flags & (NFSLCK_DELEGREAD | NFSLCK_DELEGWRITE)) &&
1868                   getlckret == 0 && stp->ls_lfp != lfp)
1869                         error = NFSERR_BADSTATEID;
1870
1871               /*
1872                * If the lockowner stateid doesn't refer to the same file,
1873                * I believe that is considered ok, since some clients will
1874                * only create a single lockowner and use that for all locks
1875                * on all files.
1876                * For now, log it as a diagnostic, instead of considering it
1877                * a BadStateid.
1878                */
1879               if (error == 0 && (stp->ls_flags &
1880                   (NFSLCK_OPEN | NFSLCK_DELEGREAD | NFSLCK_DELEGWRITE)) == 0 &&
1881                   getlckret == 0 && stp->ls_lfp != lfp) {
1882 #ifdef DIAGNOSTIC
1883                   printf("Got a lock statid for different file open\n");
1884 #endif
1885                   /*
1886                   error = NFSERR_BADSTATEID;
1887                   */
1888               }
1889
1890               if (error == 0) {
1891                     if (new_stp->ls_flags & NFSLCK_OPENTOLOCK) {
1892                         /*
1893                          * If haslock set, we've already checked the seqid.
1894                          */
1895                         if (!haslock) {
1896                             if (stp->ls_flags & NFSLCK_OPEN)
1897                                 error = nfsrv_checkseqid(nd, new_stp->ls_seq,
1898                                     stp->ls_openowner, new_stp->ls_op);
1899                             else
1900                                 error = NFSERR_BADSTATEID;
1901                         }
1902                         if (!error)
1903                             nfsrv_getowner(&stp->ls_open, new_stp, &lckstp);
1904                         if (lckstp) {
1905                             /*
1906                              * For NFSv4.1 and NFSv4.2 allow an
1907                              * open_to_lock_owner when the lock_owner already
1908                              * exists.  Just clear NFSLCK_OPENTOLOCK so that
1909                              * a new lock_owner will not be created.
1910                              * RFC7530 states that the error for NFSv4.0
1911                              * is NFS4ERR_BAD_SEQID.
1912                              */
1913                             if ((nd->nd_flag & ND_NFSV41) != 0)
1914                                 new_stp->ls_flags &= ~NFSLCK_OPENTOLOCK;
1915                             else
1916                                 error = NFSERR_BADSEQID;
1917                         } else
1918                             lckstp = new_stp;
1919                     } else if (new_stp->ls_flags&(NFSLCK_LOCK|NFSLCK_UNLOCK)) {
1920                         /*
1921                          * If haslock set, ditto above.
1922                          */
1923                         if (!haslock) {
1924                             if (stp->ls_flags & NFSLCK_OPEN)
1925                                 error = NFSERR_BADSTATEID;
1926                             else
1927                                 error = nfsrv_checkseqid(nd, new_stp->ls_seq,
1928                                     stp, new_stp->ls_op);
1929                         }
1930                         lckstp = stp;
1931                     } else {
1932                         lckstp = stp;
1933                     }
1934               }
1935               /*
1936                * If the seqid part of the stateid isn't the same, return
1937                * NFSERR_OLDSTATEID for cases other than I/O Ops.
1938                * For I/O Ops, only return NFSERR_OLDSTATEID if
1939                * nfsrv_returnoldstateid is set. (The consensus on the email
1940                * list was that most clients would prefer to not receive
1941                * NFSERR_OLDSTATEID for I/O Ops, but the RFC suggests that that
1942                * is what will happen, so I use the nfsrv_returnoldstateid to
1943                * allow for either server configuration.)
1944                */
1945               if (!error && stp->ls_stateid.seqid!=new_stp->ls_stateid.seqid &&
1946                   (((nd->nd_flag & ND_NFSV41) == 0 &&
1947                    (!(new_stp->ls_flags & NFSLCK_CHECK) ||
1948                     nfsrv_returnoldstateid)) ||
1949                    ((nd->nd_flag & ND_NFSV41) != 0 &&
1950                     new_stp->ls_stateid.seqid != 0)))
1951                     error = NFSERR_OLDSTATEID;
1952             }
1953         }
1954
1955         /*
1956          * Now we can check for grace.
1957          */
1958         if (!error)
1959                 error = nfsrv_checkgrace(nd, clp, new_stp->ls_flags);
1960         if ((new_stp->ls_flags & NFSLCK_RECLAIM) && !error &&
1961                 nfsrv_checkstable(clp))
1962                 error = NFSERR_NOGRACE;
1963         /*
1964          * If we successfully Reclaimed state, note that.
1965          */
1966         if ((new_stp->ls_flags & NFSLCK_RECLAIM) && !error)
1967                 nfsrv_markstable(clp);
1968
1969         /*
1970          * At this point, either error == NFSERR_BADSTATEID or the
1971          * seqid# has been updated, so we can return any error.
1972          * If error == 0, there may be an error in:
1973          *    nd_repstat - Set by the calling function.
1974          *    reterr - Set above, if getting the nfslockfile structure
1975          *       or acquiring the local lock failed.
1976          *    (If both of these are set, nd_repstat should probably be
1977          *     returned, since that error was detected before this
1978          *     function call.)
1979          */
1980         if (error != 0 || nd->nd_repstat != 0 || reterr != 0) {
1981                 if (error == 0) {
1982                         if (nd->nd_repstat != 0)
1983                                 error = nd->nd_repstat;
1984                         else
1985                                 error = reterr;
1986                 }
1987                 if (filestruct_locked != 0) {
1988                         /* Roll back local locks. */
1989                         NFSUNLOCKSTATE();
1990                         if (vnode_unlocked == 0) {
1991                                 ASSERT_VOP_ELOCKED(vp, "nfsrv_lockctrl2");
1992                                 vnode_unlocked = 1;
1993                                 NFSVOPUNLOCK(vp);
1994                         }
1995                         nfsrv_locallock_rollback(vp, lfp, p);
1996                         NFSLOCKSTATE();
1997                         nfsrv_unlocklf(lfp);
1998                 }
1999                 NFSUNLOCKSTATE();
2000                 goto out;
2001         }
2002
2003         /*
2004          * Check the nfsrv_getlockfile return.
2005          * Returned -1 if no structure found.
2006          */
2007         if (getlckret == -1) {
2008                 error = NFSERR_EXPIRED;
2009                 /*
2010                  * Called from lockt, so no lock is OK.
2011                  */
2012                 if (new_stp->ls_flags & NFSLCK_TEST) {
2013                         error = 0;
2014                 } else if (new_stp->ls_flags &
2015                     (NFSLCK_CHECK | NFSLCK_SETATTR)) {
2016                         /*
2017                          * Called to check for a lock, OK if the stateid is all
2018                          * 1s or all 0s, but there should be an nfsstate
2019                          * otherwise.
2020                          * (ie. If there is no open, I'll assume no share
2021                          *  deny bits.)
2022                          */
2023                         if (specialid)
2024                                 error = 0;
2025                         else
2026                                 error = NFSERR_BADSTATEID;
2027                 }
2028                 NFSUNLOCKSTATE();
2029                 goto out;
2030         }
2031
2032         /*
2033          * For NFSLCK_CHECK and NFSLCK_LOCK, test for a share conflict.
2034          * For NFSLCK_CHECK, allow a read if write access is granted,
2035          * but check for a deny. For NFSLCK_LOCK, require correct access,
2036          * which implies a conflicting deny can't exist.
2037          */
2038         if (new_stp->ls_flags & (NFSLCK_CHECK | NFSLCK_LOCK)) {
2039             /*
2040              * Four kinds of state id:
2041              * - specialid (all 0s or all 1s), only for NFSLCK_CHECK
2042              * - stateid for an open
2043              * - stateid for a delegation
2044              * - stateid for a lock owner
2045              */
2046             if (!specialid) {
2047                 if (stp->ls_flags & (NFSLCK_DELEGREAD | NFSLCK_DELEGWRITE)) {
2048                     delegation = 1;
2049                     mystp = stp;
2050                     nfsrv_delaydelegtimeout(stp);
2051                 } else if (stp->ls_flags & NFSLCK_OPEN) {
2052                     mystp = stp;
2053                 } else {
2054                     mystp = stp->ls_openstp;
2055                 }
2056                 /*
2057                  * If locking or checking, require correct access
2058                  * bit set.
2059                  */
2060                 if (((new_stp->ls_flags & NFSLCK_LOCK) &&
2061                      !((new_lop->lo_flags >> NFSLCK_LOCKSHIFT) &
2062                        mystp->ls_flags & NFSLCK_ACCESSBITS)) ||
2063                     ((new_stp->ls_flags & (NFSLCK_CHECK|NFSLCK_READACCESS)) ==
2064                       (NFSLCK_CHECK | NFSLCK_READACCESS) &&
2065                      !(mystp->ls_flags & NFSLCK_READACCESS) &&
2066                      nfsrv_allowreadforwriteopen == 0) ||
2067                     ((new_stp->ls_flags & (NFSLCK_CHECK|NFSLCK_WRITEACCESS)) ==
2068                       (NFSLCK_CHECK | NFSLCK_WRITEACCESS) &&
2069                      !(mystp->ls_flags & NFSLCK_WRITEACCESS))) {
2070                         if (filestruct_locked != 0) {
2071                                 /* Roll back local locks. */
2072                                 NFSUNLOCKSTATE();
2073                                 if (vnode_unlocked == 0) {
2074                                         ASSERT_VOP_ELOCKED(vp,
2075                                             "nfsrv_lockctrl3");
2076                                         vnode_unlocked = 1;
2077                                         NFSVOPUNLOCK(vp);
2078                                 }
2079                                 nfsrv_locallock_rollback(vp, lfp, p);
2080                                 NFSLOCKSTATE();
2081                                 nfsrv_unlocklf(lfp);
2082                         }
2083                         NFSUNLOCKSTATE();
2084                         error = NFSERR_OPENMODE;
2085                         goto out;
2086                 }
2087             } else
2088                 mystp = NULL;
2089             if ((new_stp->ls_flags & NFSLCK_CHECK) && !delegation) {
2090                 /*
2091                  * Check for a conflicting deny bit.
2092                  */
2093                 LIST_FOREACH(tstp, &lfp->lf_open, ls_file) {
2094                     if (tstp != mystp) {
2095                         bits = tstp->ls_flags;
2096                         bits >>= NFSLCK_SHIFT;
2097                         if (new_stp->ls_flags & bits & NFSLCK_ACCESSBITS) {
2098                             KASSERT(vnode_unlocked == 0,
2099                                 ("nfsrv_lockctrl: vnode unlocked1"));
2100                             ret = nfsrv_clientconflict(tstp->ls_clp, &haslock,
2101                                 vp, p);
2102                             if (ret == 1) {
2103                                 /*
2104                                 * nfsrv_clientconflict unlocks state
2105                                  * when it returns non-zero.
2106                                  */
2107                                 lckstp = NULL;
2108                                 goto tryagain;
2109                             }
2110                             if (ret == 0)
2111                                 NFSUNLOCKSTATE();
2112                             if (ret == 2)
2113                                 error = NFSERR_PERM;
2114                             else
2115                                 error = NFSERR_OPENMODE;
2116                             goto out;
2117                         }
2118                     }
2119                 }
2120
2121                 /* We're outta here */
2122                 NFSUNLOCKSTATE();
2123                 goto out;
2124             }
2125         }
2126
2127         /*
2128          * For setattr, just get rid of all the Delegations for other clients.
2129          */
2130         if (new_stp->ls_flags & NFSLCK_SETATTR) {
2131                 KASSERT(vnode_unlocked == 0,
2132                     ("nfsrv_lockctrl: vnode unlocked2"));
2133                 ret = nfsrv_cleandeleg(vp, lfp, clp, &haslock, p);
2134                 if (ret) {
2135                         /*
2136                          * nfsrv_cleandeleg() unlocks state when it
2137                          * returns non-zero.
2138                          */
2139                         if (ret == -1) {
2140                                 lckstp = NULL;
2141                                 goto tryagain;
2142                         }
2143                         error = ret;
2144                         goto out;
2145                 }
2146                 if (!(new_stp->ls_flags & NFSLCK_CHECK) ||
2147                     (LIST_EMPTY(&lfp->lf_open) && LIST_EMPTY(&lfp->lf_lock) &&
2148                      LIST_EMPTY(&lfp->lf_deleg))) {
2149                         NFSUNLOCKSTATE();
2150                         goto out;
2151                 }
2152         }
2153
2154         /*
2155          * Check for a conflicting delegation. If one is found, call
2156          * nfsrv_delegconflict() to handle it. If the v4root lock hasn't
2157          * been set yet, it will get the lock. Otherwise, it will recall
2158          * the delegation. Then, we try try again...
2159          * I currently believe the conflict algorithm to be:
2160          * For Lock Ops (Lock/LockT/LockU)
2161          * - there is a conflict iff a different client has a write delegation
2162          * For Reading (Read Op)
2163          * - there is a conflict iff a different client has a write delegation
2164          *   (the specialids are always a different client)
2165          * For Writing (Write/Setattr of size)
2166          * - there is a conflict if a different client has any delegation
2167          * - there is a conflict if the same client has a read delegation
2168          *   (I don't understand why this isn't allowed, but that seems to be
2169          *    the current consensus?)
2170          */
2171         tstp = LIST_FIRST(&lfp->lf_deleg);
2172         while (tstp != LIST_END(&lfp->lf_deleg)) {
2173             nstp = LIST_NEXT(tstp, ls_file);
2174             if ((((new_stp->ls_flags&(NFSLCK_LOCK|NFSLCK_UNLOCK|NFSLCK_TEST))||
2175                  ((new_stp->ls_flags & NFSLCK_CHECK) &&
2176                   (new_lop->lo_flags & NFSLCK_READ))) &&
2177                   clp != tstp->ls_clp &&
2178                  (tstp->ls_flags & NFSLCK_DELEGWRITE)) ||
2179                  ((new_stp->ls_flags & NFSLCK_CHECK) &&
2180                    (new_lop->lo_flags & NFSLCK_WRITE) &&
2181                   (clp != tstp->ls_clp ||
2182                    (tstp->ls_flags & NFSLCK_DELEGREAD)))) {
2183                 ret = 0;
2184                 if (filestruct_locked != 0) {
2185                         /* Roll back local locks. */
2186                         NFSUNLOCKSTATE();
2187                         if (vnode_unlocked == 0) {
2188                                 ASSERT_VOP_ELOCKED(vp, "nfsrv_lockctrl4");
2189                                 NFSVOPUNLOCK(vp);
2190                         }
2191                         nfsrv_locallock_rollback(vp, lfp, p);
2192                         NFSLOCKSTATE();
2193                         nfsrv_unlocklf(lfp);
2194                         NFSUNLOCKSTATE();
2195                         NFSVOPLOCK(vp, LK_EXCLUSIVE | LK_RETRY);
2196                         vnode_unlocked = 0;
2197                         if (VN_IS_DOOMED(vp))
2198                                 ret = NFSERR_SERVERFAULT;
2199                         NFSLOCKSTATE();
2200                 }
2201                 if (ret == 0)
2202                         ret = nfsrv_delegconflict(tstp, &haslock, p, vp);
2203                 if (ret) {
2204                     /*
2205                      * nfsrv_delegconflict unlocks state when it
2206                      * returns non-zero, which it always does.
2207                      */
2208                     if (other_lop) {
2209                         free(other_lop, M_NFSDLOCK);
2210                         other_lop = NULL;
2211                     }
2212                     if (ret == -1) {
2213                         lckstp = NULL;
2214                         goto tryagain;
2215                     }
2216                     error = ret;
2217                     goto out;
2218                 }
2219                 /* Never gets here. */
2220             }
2221             tstp = nstp;
2222         }
2223
2224         /*
2225          * Handle the unlock case by calling nfsrv_updatelock().
2226          * (Should I have done some access checking above for unlock? For now,
2227          *  just let it happen.)
2228          */
2229         if (new_stp->ls_flags & NFSLCK_UNLOCK) {
2230                 first = new_lop->lo_first;
2231                 end = new_lop->lo_end;
2232                 nfsrv_updatelock(stp, new_lopp, &other_lop, lfp);
2233                 stateidp->seqid = ++(stp->ls_stateid.seqid);
2234                 if ((nd->nd_flag & ND_NFSV41) != 0 && stateidp->seqid == 0)
2235                         stateidp->seqid = stp->ls_stateid.seqid = 1;
2236                 stateidp->other[0] = stp->ls_stateid.other[0];
2237                 stateidp->other[1] = stp->ls_stateid.other[1];
2238                 stateidp->other[2] = stp->ls_stateid.other[2];
2239                 if (filestruct_locked != 0) {
2240                         NFSUNLOCKSTATE();
2241                         if (vnode_unlocked == 0) {
2242                                 ASSERT_VOP_ELOCKED(vp, "nfsrv_lockctrl5");
2243                                 vnode_unlocked = 1;
2244                                 NFSVOPUNLOCK(vp);
2245                         }
2246                         /* Update the local locks. */
2247                         nfsrv_localunlock(vp, lfp, first, end, p);
2248                         NFSLOCKSTATE();
2249                         nfsrv_unlocklf(lfp);
2250                 }
2251                 NFSUNLOCKSTATE();
2252                 goto out;
2253         }
2254
2255         /*
2256          * Search for a conflicting lock. A lock conflicts if:
2257          * - the lock range overlaps and
2258          * - at least one lock is a write lock and
2259          * - it is not owned by the same lock owner
2260          */
2261         if (!delegation) {
2262           LIST_FOREACH(lop, &lfp->lf_lock, lo_lckfile) {
2263             if (new_lop->lo_end > lop->lo_first &&
2264                 new_lop->lo_first < lop->lo_end &&
2265                 (new_lop->lo_flags == NFSLCK_WRITE ||
2266                  lop->lo_flags == NFSLCK_WRITE) &&
2267                 lckstp != lop->lo_stp &&
2268                 (clp != lop->lo_stp->ls_clp ||
2269                  lckstp->ls_ownerlen != lop->lo_stp->ls_ownerlen ||
2270                  NFSBCMP(lckstp->ls_owner, lop->lo_stp->ls_owner,
2271                     lckstp->ls_ownerlen))) {
2272                 if (other_lop) {
2273                     free(other_lop, M_NFSDLOCK);
2274                     other_lop = NULL;
2275                 }
2276                 if (vnode_unlocked != 0)
2277                     ret = nfsrv_clientconflict(lop->lo_stp->ls_clp, &haslock,
2278                         NULL, p);
2279                 else
2280                     ret = nfsrv_clientconflict(lop->lo_stp->ls_clp, &haslock,
2281                         vp, p);
2282                 if (ret == 1) {
2283                     if (filestruct_locked != 0) {
2284                         if (vnode_unlocked == 0) {
2285                                 ASSERT_VOP_ELOCKED(vp, "nfsrv_lockctrl6");
2286                                 NFSVOPUNLOCK(vp);
2287                         }
2288                         /* Roll back local locks. */
2289                         nfsrv_locallock_rollback(vp, lfp, p);
2290                         NFSLOCKSTATE();
2291                         nfsrv_unlocklf(lfp);
2292                         NFSUNLOCKSTATE();
2293                         NFSVOPLOCK(vp, LK_EXCLUSIVE | LK_RETRY);
2294                         vnode_unlocked = 0;
2295                         if (VN_IS_DOOMED(vp)) {
2296                                 error = NFSERR_SERVERFAULT;
2297                                 goto out;
2298                         }
2299                     }
2300                     /*
2301                      * nfsrv_clientconflict() unlocks state when it
2302                      * returns non-zero.
2303                      */
2304                     lckstp = NULL;
2305                     goto tryagain;
2306                 }
2307                 /*
2308                  * Found a conflicting lock, so record the conflict and
2309                  * return the error.
2310                  */
2311                 if (cfp != NULL && ret == 0) {
2312                     cfp->cl_clientid.lval[0]=lop->lo_stp->ls_stateid.other[0];
2313                     cfp->cl_clientid.lval[1]=lop->lo_stp->ls_stateid.other[1];
2314                     cfp->cl_first = lop->lo_first;
2315                     cfp->cl_end = lop->lo_end;
2316                     cfp->cl_flags = lop->lo_flags;
2317                     cfp->cl_ownerlen = lop->lo_stp->ls_ownerlen;
2318                     NFSBCOPY(lop->lo_stp->ls_owner, cfp->cl_owner,
2319                         cfp->cl_ownerlen);
2320                 }
2321                 if (ret == 2)
2322                     error = NFSERR_PERM;
2323                 else if (new_stp->ls_flags & NFSLCK_RECLAIM)
2324                     error = NFSERR_RECLAIMCONFLICT;
2325                 else if (new_stp->ls_flags & NFSLCK_CHECK)
2326                     error = NFSERR_LOCKED;
2327                 else
2328                     error = NFSERR_DENIED;
2329                 if (filestruct_locked != 0 && ret == 0) {
2330                         /* Roll back local locks. */
2331                         NFSUNLOCKSTATE();
2332                         if (vnode_unlocked == 0) {
2333                                 ASSERT_VOP_ELOCKED(vp, "nfsrv_lockctrl7");
2334                                 vnode_unlocked = 1;
2335                                 NFSVOPUNLOCK(vp);
2336                         }
2337                         nfsrv_locallock_rollback(vp, lfp, p);
2338                         NFSLOCKSTATE();
2339                         nfsrv_unlocklf(lfp);
2340                 }
2341                 if (ret == 0)
2342                         NFSUNLOCKSTATE();
2343                 goto out;
2344             }
2345           }
2346         }
2347
2348         /*
2349          * We only get here if there was no lock that conflicted.
2350          */
2351         if (new_stp->ls_flags & (NFSLCK_TEST | NFSLCK_CHECK)) {
2352                 NFSUNLOCKSTATE();
2353                 goto out;
2354         }
2355
2356         /*
2357          * We only get here when we are creating or modifying a lock.
2358          * There are two variants:
2359          * - exist_lock_owner where lock_owner exists
2360          * - open_to_lock_owner with new lock_owner
2361          */
2362         first = new_lop->lo_first;
2363         end = new_lop->lo_end;
2364         lock_flags = new_lop->lo_flags;
2365         if (!(new_stp->ls_flags & NFSLCK_OPENTOLOCK)) {
2366                 nfsrv_updatelock(lckstp, new_lopp, &other_lop, lfp);
2367                 stateidp->seqid = ++(lckstp->ls_stateid.seqid);
2368                 if ((nd->nd_flag & ND_NFSV41) != 0 && stateidp->seqid == 0)
2369                         stateidp->seqid = lckstp->ls_stateid.seqid = 1;
2370                 stateidp->other[0] = lckstp->ls_stateid.other[0];
2371                 stateidp->other[1] = lckstp->ls_stateid.other[1];
2372                 stateidp->other[2] = lckstp->ls_stateid.other[2];
2373         } else {
2374                 /*
2375                  * The new open_to_lock_owner case.
2376                  * Link the new nfsstate into the lists.
2377                  */
2378                 new_stp->ls_seq = new_stp->ls_opentolockseq;
2379                 nfsrvd_refcache(new_stp->ls_op);
2380                 stateidp->seqid = new_stp->ls_stateid.seqid = 1;
2381                 stateidp->other[0] = new_stp->ls_stateid.other[0] =
2382                     clp->lc_clientid.lval[0];
2383                 stateidp->other[1] = new_stp->ls_stateid.other[1] =
2384                     clp->lc_clientid.lval[1];
2385                 stateidp->other[2] = new_stp->ls_stateid.other[2] =
2386                     nfsrv_nextstateindex(clp);
2387                 new_stp->ls_clp = clp;
2388                 LIST_INIT(&new_stp->ls_lock);
2389                 new_stp->ls_openstp = stp;
2390                 new_stp->ls_lfp = lfp;
2391                 nfsrv_insertlock(new_lop, (struct nfslock *)new_stp, new_stp,
2392                     lfp);
2393                 LIST_INSERT_HEAD(NFSSTATEHASH(clp, new_stp->ls_stateid),
2394                     new_stp, ls_hash);
2395                 LIST_INSERT_HEAD(&stp->ls_open, new_stp, ls_list);
2396                 *new_lopp = NULL;
2397                 *new_stpp = NULL;
2398                 NFSD_VNET(nfsstatsv1_p)->srvlockowners++;
2399                 nfsrv_openpluslock++;
2400         }
2401         if (filestruct_locked != 0) {
2402                 NFSUNLOCKSTATE();
2403                 nfsrv_locallock_commit(lfp, lock_flags, first, end);
2404                 NFSLOCKSTATE();
2405                 nfsrv_unlocklf(lfp);
2406         }
2407         NFSUNLOCKSTATE();
2408
2409 out:
2410         if (haslock) {
2411                 NFSLOCKV4ROOTMUTEX();
2412                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
2413                 NFSUNLOCKV4ROOTMUTEX();
2414         }
2415         if (vnode_unlocked != 0) {
2416                 NFSVOPLOCK(vp, LK_EXCLUSIVE | LK_RETRY);
2417                 if (error == 0 && VN_IS_DOOMED(vp))
2418                         error = NFSERR_SERVERFAULT;
2419         }
2420         if (other_lop)
2421                 free(other_lop, M_NFSDLOCK);
2422         NFSEXITCODE2(error, nd);
2423         return (error);
2424 }
2425
2426 /*
2427  * Check for state errors for Open.
2428  * repstat is passed back out as an error if more critical errors
2429  * are not detected.
2430  */
2431 int
2432 nfsrv_opencheck(nfsquad_t clientid, nfsv4stateid_t *stateidp,
2433     struct nfsstate *new_stp, vnode_t vp, struct nfsrv_descript *nd,
2434     NFSPROC_T *p, int repstat)
2435 {
2436         struct nfsstate *stp, *nstp;
2437         struct nfsclient *clp;
2438         struct nfsstate *ownerstp;
2439         struct nfslockfile *lfp, *new_lfp;
2440         int error = 0, haslock = 0, ret, readonly = 0, getfhret = 0;
2441
2442         if ((new_stp->ls_flags & NFSLCK_SHAREBITS) == NFSLCK_READACCESS)
2443                 readonly = 1;
2444         /*
2445          * Check for restart conditions (client and server).
2446          */
2447         error = nfsrv_checkrestart(clientid, new_stp->ls_flags,
2448                 &new_stp->ls_stateid, 0);
2449         if (error)
2450                 goto out;
2451
2452         /*
2453          * Check for state resource limit exceeded.
2454          * Technically this should be SMP protected, but the worst
2455          * case error is "out by one or two" on the count when it
2456          * returns NFSERR_RESOURCE and the limit is just a rather
2457          * arbitrary high water mark, so no harm is done.
2458          */
2459         if (nfsrv_openpluslock > nfsrv_v4statelimit) {
2460                 error = NFSERR_RESOURCE;
2461                 goto out;
2462         }
2463
2464 tryagain:
2465         new_lfp = malloc(sizeof (struct nfslockfile),
2466             M_NFSDLOCKFILE, M_WAITOK);
2467         if (vp)
2468                 getfhret = nfsrv_getlockfh(vp, new_stp->ls_flags, new_lfp,
2469                     NULL, p);
2470         NFSLOCKSTATE();
2471         /*
2472          * Get the nfsclient structure.
2473          */
2474         error = nfsrv_getclient(clientid, CLOPS_RENEW, &clp, NULL,
2475             (nfsquad_t)((u_quad_t)0), 0, nd, p);
2476
2477         /*
2478          * Look up the open owner. See if it needs confirmation and
2479          * check the seq#, as required.
2480          */
2481         if (!error)
2482                 nfsrv_getowner(&clp->lc_open, new_stp, &ownerstp);
2483
2484         if (!error && ownerstp) {
2485                 error = nfsrv_checkseqid(nd, new_stp->ls_seq, ownerstp,
2486                     new_stp->ls_op);
2487                 /*
2488                  * If the OpenOwner hasn't been confirmed, assume the
2489                  * old one was a replay and this one is ok.
2490                  * See: RFC3530 Sec. 14.2.18.
2491                  */
2492                 if (error == NFSERR_BADSEQID &&
2493                     (ownerstp->ls_flags & NFSLCK_NEEDSCONFIRM))
2494                         error = 0;
2495         }
2496
2497         /*
2498          * Check for grace.
2499          */
2500         if (!error)
2501                 error = nfsrv_checkgrace(nd, clp, new_stp->ls_flags);
2502         if ((new_stp->ls_flags & NFSLCK_RECLAIM) && !error &&
2503                 nfsrv_checkstable(clp))
2504                 error = NFSERR_NOGRACE;
2505
2506         /*
2507          * If none of the above errors occurred, let repstat be
2508          * returned.
2509          */
2510         if (repstat && !error)
2511                 error = repstat;
2512         if (error) {
2513                 NFSUNLOCKSTATE();
2514                 if (haslock) {
2515                         NFSLOCKV4ROOTMUTEX();
2516                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
2517                         NFSUNLOCKV4ROOTMUTEX();
2518                 }
2519                 free(new_lfp, M_NFSDLOCKFILE);
2520                 goto out;
2521         }
2522
2523         /*
2524          * If vp == NULL, the file doesn't exist yet, so return ok.
2525          * (This always happens on the first pass, so haslock must be 0.)
2526          */
2527         if (vp == NULL) {
2528                 NFSUNLOCKSTATE();
2529                 free(new_lfp, M_NFSDLOCKFILE);
2530                 goto out;
2531         }
2532
2533         /*
2534          * Get the structure for the underlying file.
2535          */
2536         if (getfhret)
2537                 error = getfhret;
2538         else
2539                 error = nfsrv_getlockfile(new_stp->ls_flags, &new_lfp, &lfp,
2540                     NULL, 0);
2541         if (new_lfp)
2542                 free(new_lfp, M_NFSDLOCKFILE);
2543         if (error) {
2544                 NFSUNLOCKSTATE();
2545                 if (haslock) {
2546                         NFSLOCKV4ROOTMUTEX();
2547                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
2548                         NFSUNLOCKV4ROOTMUTEX();
2549                 }
2550                 goto out;
2551         }
2552
2553         /*
2554          * Search for a conflicting open/share.
2555          */
2556         if (new_stp->ls_flags & NFSLCK_DELEGCUR) {
2557             /*
2558              * For Delegate_Cur, search for the matching Delegation,
2559              * which indicates no conflict.
2560              * An old delegation should have been recovered by the
2561              * client doing a Claim_DELEGATE_Prev, so I won't let
2562              * it match and return NFSERR_EXPIRED. Should I let it
2563              * match?
2564              */
2565             LIST_FOREACH(stp, &lfp->lf_deleg, ls_file) {
2566                 if (!(stp->ls_flags & NFSLCK_OLDDELEG) &&
2567                     (((nd->nd_flag & ND_NFSV41) != 0 &&
2568                     stateidp->seqid == 0) ||
2569                     stateidp->seqid == stp->ls_stateid.seqid) &&
2570                     !NFSBCMP(stateidp->other, stp->ls_stateid.other,
2571                           NFSX_STATEIDOTHER))
2572                         break;
2573             }
2574             if (stp == LIST_END(&lfp->lf_deleg) ||
2575                 ((new_stp->ls_flags & NFSLCK_WRITEACCESS) &&
2576                  (stp->ls_flags & NFSLCK_DELEGREAD))) {
2577                 NFSUNLOCKSTATE();
2578                 if (haslock) {
2579                         NFSLOCKV4ROOTMUTEX();
2580                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
2581                         NFSUNLOCKV4ROOTMUTEX();
2582                 }
2583                 error = NFSERR_EXPIRED;
2584                 goto out;
2585             }
2586         }
2587
2588         /*
2589          * Check for access/deny bit conflicts. I check for the same
2590          * owner as well, in case the client didn't bother.
2591          */
2592         LIST_FOREACH(stp, &lfp->lf_open, ls_file) {
2593                 if (!(new_stp->ls_flags & NFSLCK_DELEGCUR) &&
2594                     (((new_stp->ls_flags & NFSLCK_ACCESSBITS) &
2595                       ((stp->ls_flags>>NFSLCK_SHIFT) & NFSLCK_ACCESSBITS))||
2596                      ((stp->ls_flags & NFSLCK_ACCESSBITS) &
2597                       ((new_stp->ls_flags>>NFSLCK_SHIFT)&NFSLCK_ACCESSBITS)))){
2598                         ret = nfsrv_clientconflict(stp->ls_clp,&haslock,vp,p);
2599                         if (ret == 1) {
2600                                 /*
2601                                  * nfsrv_clientconflict() unlocks
2602                                  * state when it returns non-zero.
2603                                  */
2604                                 goto tryagain;
2605                         }
2606                         if (ret == 2)
2607                                 error = NFSERR_PERM;
2608                         else if (new_stp->ls_flags & NFSLCK_RECLAIM)
2609                                 error = NFSERR_RECLAIMCONFLICT;
2610                         else
2611                                 error = NFSERR_SHAREDENIED;
2612                         if (ret == 0)
2613                                 NFSUNLOCKSTATE();
2614                         if (haslock) {
2615                                 NFSLOCKV4ROOTMUTEX();
2616                                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
2617                                 NFSUNLOCKV4ROOTMUTEX();
2618                         }
2619                         goto out;
2620                 }
2621         }
2622
2623         /*
2624          * Check for a conflicting delegation. If one is found, call
2625          * nfsrv_delegconflict() to handle it. If the v4root lock hasn't
2626          * been set yet, it will get the lock. Otherwise, it will recall
2627          * the delegation. Then, we try try again...
2628          * (If NFSLCK_DELEGCUR is set, it has a delegation, so there
2629          *  isn't a conflict.)
2630          * I currently believe the conflict algorithm to be:
2631          * For Open with Read Access and Deny None
2632          * - there is a conflict iff a different client has a write delegation
2633          * For Open with other Write Access or any Deny except None
2634          * - there is a conflict if a different client has any delegation
2635          * - there is a conflict if the same client has a read delegation
2636          *   (The current consensus is that this last case should be
2637          *    considered a conflict since the client with a read delegation
2638          *    could have done an Open with ReadAccess and WriteDeny
2639          *    locally and then not have checked for the WriteDeny.)
2640          * Don't check for a Reclaim, since that will be dealt with
2641          * by nfsrv_openctrl().
2642          */
2643         if (!(new_stp->ls_flags &
2644                 (NFSLCK_DELEGPREV | NFSLCK_DELEGCUR | NFSLCK_RECLAIM))) {
2645             stp = LIST_FIRST(&lfp->lf_deleg);
2646             while (stp != LIST_END(&lfp->lf_deleg)) {
2647                 nstp = LIST_NEXT(stp, ls_file);
2648                 if ((readonly && stp->ls_clp != clp &&
2649                        (stp->ls_flags & NFSLCK_DELEGWRITE)) ||
2650                     (!readonly && (stp->ls_clp != clp ||
2651                          (stp->ls_flags & NFSLCK_DELEGREAD)))) {
2652                         ret = nfsrv_delegconflict(stp, &haslock, p, vp);
2653                         if (ret) {
2654                             /*
2655                              * nfsrv_delegconflict() unlocks state
2656                              * when it returns non-zero.
2657                              */
2658                             if (ret == -1)
2659                                 goto tryagain;
2660                             error = ret;
2661                             goto out;
2662                         }
2663                 }
2664                 stp = nstp;
2665             }
2666         }
2667         NFSUNLOCKSTATE();
2668         if (haslock) {
2669                 NFSLOCKV4ROOTMUTEX();
2670                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
2671                 NFSUNLOCKV4ROOTMUTEX();
2672         }
2673
2674 out:
2675         NFSEXITCODE2(error, nd);
2676         return (error);
2677 }
2678
2679 /*
2680  * Open control function to create/update open state for an open.
2681  */
2682 int
2683 nfsrv_openctrl(struct nfsrv_descript *nd, vnode_t vp,
2684     struct nfsstate **new_stpp, nfsquad_t clientid, nfsv4stateid_t *stateidp,
2685     nfsv4stateid_t *delegstateidp, u_int32_t *rflagsp, struct nfsexstuff *exp,
2686     NFSPROC_T *p, u_quad_t filerev)
2687 {
2688         struct nfsstate *new_stp = *new_stpp;
2689         struct nfsstate *stp, *nstp;
2690         struct nfsstate *openstp = NULL, *new_open, *ownerstp, *new_deleg;
2691         struct nfslockfile *lfp, *new_lfp;
2692         struct nfsclient *clp;
2693         int error = 0, haslock = 0, ret, delegate = 1, writedeleg = 1;
2694         int readonly = 0, cbret = 1, getfhret = 0;
2695         int gotstate = 0, len = 0;
2696         u_char *clidp = NULL;
2697
2698         if ((new_stp->ls_flags & NFSLCK_SHAREBITS) == NFSLCK_READACCESS)
2699                 readonly = 1;
2700         /*
2701          * Check for restart conditions (client and server).
2702          * (Paranoia, should have been detected by nfsrv_opencheck().)
2703          * If an error does show up, return NFSERR_EXPIRED, since the
2704          * the seqid# has already been incremented.
2705          */
2706         error = nfsrv_checkrestart(clientid, new_stp->ls_flags,
2707             &new_stp->ls_stateid, 0);
2708         if (error) {
2709                 printf("Nfsd: openctrl unexpected restart err=%d\n",
2710                     error);
2711                 error = NFSERR_EXPIRED;
2712                 goto out;
2713         }
2714
2715         clidp = malloc(NFSV4_OPAQUELIMIT, M_TEMP, M_WAITOK);
2716 tryagain:
2717         new_lfp = malloc(sizeof (struct nfslockfile),
2718             M_NFSDLOCKFILE, M_WAITOK);
2719         new_open = malloc(sizeof (struct nfsstate),
2720             M_NFSDSTATE, M_WAITOK);
2721         new_deleg = malloc(sizeof (struct nfsstate),
2722             M_NFSDSTATE, M_WAITOK);
2723         getfhret = nfsrv_getlockfh(vp, new_stp->ls_flags, new_lfp,
2724             NULL, p);
2725         NFSLOCKSTATE();
2726         /*
2727          * Get the client structure. Since the linked lists could be changed
2728          * by other nfsd processes if this process does a tsleep(), one of
2729          * two things must be done.
2730          * 1 - don't tsleep()
2731          * or
2732          * 2 - get the nfsv4_lock() { indicated by haslock == 1 }
2733          *     before using the lists, since this lock stops the other
2734          *     nfsd. This should only be used for rare cases, since it
2735          *     essentially single threads the nfsd.
2736          *     At this time, it is only done for cases where the stable
2737          *     storage file must be written prior to completion of state
2738          *     expiration.
2739          */
2740         error = nfsrv_getclient(clientid, CLOPS_RENEW, &clp, NULL,
2741             (nfsquad_t)((u_quad_t)0), 0, nd, p);
2742         if (!error && (clp->lc_flags & LCL_NEEDSCBNULL) &&
2743             clp->lc_program) {
2744                 /*
2745                  * This happens on the first open for a client
2746                  * that supports callbacks.
2747                  */
2748                 NFSUNLOCKSTATE();
2749                 /*
2750                  * Although nfsrv_docallback() will sleep, clp won't
2751                  * go away, since they are only removed when the
2752                  * nfsv4_lock() has blocked the nfsd threads. The
2753                  * fields in clp can change, but having multiple
2754                  * threads do this Null callback RPC should be
2755                  * harmless.
2756                  */
2757                 cbret = nfsrv_docallback(clp, NFSV4PROC_CBNULL,
2758                     NULL, 0, NULL, NULL, NULL, 0, p);
2759                 NFSLOCKSTATE();
2760                 clp->lc_flags &= ~LCL_NEEDSCBNULL;
2761                 if (!cbret)
2762                         clp->lc_flags |= LCL_CALLBACKSON;
2763         }
2764
2765         /*
2766          * Look up the open owner. See if it needs confirmation and
2767          * check the seq#, as required.
2768          */
2769         if (!error)
2770                 nfsrv_getowner(&clp->lc_open, new_stp, &ownerstp);
2771
2772         if (error) {
2773                 NFSUNLOCKSTATE();
2774                 printf("Nfsd: openctrl unexpected state err=%d\n",
2775                         error);
2776                 free(new_lfp, M_NFSDLOCKFILE);
2777                 free(new_open, M_NFSDSTATE);
2778                 free(new_deleg, M_NFSDSTATE);
2779                 if (haslock) {
2780                         NFSLOCKV4ROOTMUTEX();
2781                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
2782                         NFSUNLOCKV4ROOTMUTEX();
2783                 }
2784                 error = NFSERR_EXPIRED;
2785                 goto out;
2786         }
2787
2788         if (new_stp->ls_flags & NFSLCK_RECLAIM)
2789                 nfsrv_markstable(clp);
2790
2791         /*
2792          * Get the structure for the underlying file.
2793          */
2794         if (getfhret)
2795                 error = getfhret;
2796         else
2797                 error = nfsrv_getlockfile(new_stp->ls_flags, &new_lfp, &lfp,
2798                     NULL, 0);
2799         if (new_lfp)
2800                 free(new_lfp, M_NFSDLOCKFILE);
2801         if (error) {
2802                 NFSUNLOCKSTATE();
2803                 printf("Nfsd openctrl unexpected getlockfile err=%d\n",
2804                     error);
2805                 free(new_open, M_NFSDSTATE);
2806                 free(new_deleg, M_NFSDSTATE);
2807                 if (haslock) {
2808                         NFSLOCKV4ROOTMUTEX();
2809                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
2810                         NFSUNLOCKV4ROOTMUTEX();
2811                 }
2812                 goto out;
2813         }
2814
2815         /*
2816          * Search for a conflicting open/share.
2817          */
2818         if (new_stp->ls_flags & NFSLCK_DELEGCUR) {
2819             /*
2820              * For Delegate_Cur, search for the matching Delegation,
2821              * which indicates no conflict.
2822              * An old delegation should have been recovered by the
2823              * client doing a Claim_DELEGATE_Prev, so I won't let
2824              * it match and return NFSERR_EXPIRED. Should I let it
2825              * match?
2826              */
2827             LIST_FOREACH(stp, &lfp->lf_deleg, ls_file) {
2828                 if (!(stp->ls_flags & NFSLCK_OLDDELEG) &&
2829                     (((nd->nd_flag & ND_NFSV41) != 0 &&
2830                     stateidp->seqid == 0) ||
2831                     stateidp->seqid == stp->ls_stateid.seqid) &&
2832                     !NFSBCMP(stateidp->other, stp->ls_stateid.other,
2833                         NFSX_STATEIDOTHER))
2834                         break;
2835             }
2836             if (stp == LIST_END(&lfp->lf_deleg) ||
2837                 ((new_stp->ls_flags & NFSLCK_WRITEACCESS) &&
2838                  (stp->ls_flags & NFSLCK_DELEGREAD))) {
2839                 NFSUNLOCKSTATE();
2840                 printf("Nfsd openctrl unexpected expiry\n");
2841                 free(new_open, M_NFSDSTATE);
2842                 free(new_deleg, M_NFSDSTATE);
2843                 if (haslock) {
2844                         NFSLOCKV4ROOTMUTEX();
2845                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
2846                         NFSUNLOCKV4ROOTMUTEX();
2847                 }
2848                 error = NFSERR_EXPIRED;
2849                 goto out;
2850             }
2851
2852             /*
2853              * Don't issue a Delegation, since one already exists and
2854              * delay delegation timeout, as required.
2855              */
2856             delegate = 0;
2857             nfsrv_delaydelegtimeout(stp);
2858         }
2859
2860         /*
2861          * Check for access/deny bit conflicts. I also check for the
2862          * same owner, since the client might not have bothered to check.
2863          * Also, note an open for the same file and owner, if found,
2864          * which is all we do here for Delegate_Cur, since conflict
2865          * checking is already done.
2866          */
2867         LIST_FOREACH(stp, &lfp->lf_open, ls_file) {
2868                 if (ownerstp && stp->ls_openowner == ownerstp)
2869                         openstp = stp;
2870                 if (!(new_stp->ls_flags & NFSLCK_DELEGCUR)) {
2871                     /*
2872                      * If another client has the file open, the only
2873                      * delegation that can be issued is a Read delegation
2874                      * and only if it is a Read open with Deny none.
2875                      */
2876                     if (clp != stp->ls_clp) {
2877                         if ((stp->ls_flags & NFSLCK_SHAREBITS) ==
2878                             NFSLCK_READACCESS)
2879                             writedeleg = 0;
2880                         else
2881                             delegate = 0;
2882                     }
2883                     if(((new_stp->ls_flags & NFSLCK_ACCESSBITS) &
2884                         ((stp->ls_flags>>NFSLCK_SHIFT) & NFSLCK_ACCESSBITS))||
2885                        ((stp->ls_flags & NFSLCK_ACCESSBITS) &
2886                         ((new_stp->ls_flags>>NFSLCK_SHIFT)&NFSLCK_ACCESSBITS))){
2887                         ret = nfsrv_clientconflict(stp->ls_clp,&haslock,vp,p);
2888                         if (ret == 1) {
2889                                 /*
2890                                  * nfsrv_clientconflict() unlocks state
2891                                  * when it returns non-zero.
2892                                  */
2893                                 free(new_open, M_NFSDSTATE);
2894                                 free(new_deleg, M_NFSDSTATE);
2895                                 openstp = NULL;
2896                                 goto tryagain;
2897                         }
2898                         if (ret == 2)
2899                                 error = NFSERR_PERM;
2900                         else if (new_stp->ls_flags & NFSLCK_RECLAIM)
2901                                 error = NFSERR_RECLAIMCONFLICT;
2902                         else
2903                                 error = NFSERR_SHAREDENIED;
2904                         if (ret == 0)
2905                                 NFSUNLOCKSTATE();
2906                         if (haslock) {
2907                                 NFSLOCKV4ROOTMUTEX();
2908                                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
2909                                 NFSUNLOCKV4ROOTMUTEX();
2910                         }
2911                         free(new_open, M_NFSDSTATE);
2912                         free(new_deleg, M_NFSDSTATE);
2913                         printf("nfsd openctrl unexpected client cnfl\n");
2914                         goto out;
2915                     }
2916                 }
2917         }
2918
2919         /*
2920          * Check for a conflicting delegation. If one is found, call
2921          * nfsrv_delegconflict() to handle it. If the v4root lock hasn't
2922          * been set yet, it will get the lock. Otherwise, it will recall
2923          * the delegation. Then, we try try again...
2924          * (If NFSLCK_DELEGCUR is set, it has a delegation, so there
2925          *  isn't a conflict.)
2926          * I currently believe the conflict algorithm to be:
2927          * For Open with Read Access and Deny None
2928          * - there is a conflict iff a different client has a write delegation
2929          * For Open with other Write Access or any Deny except None
2930          * - there is a conflict if a different client has any delegation
2931          * - there is a conflict if the same client has a read delegation
2932          *   (The current consensus is that this last case should be
2933          *    considered a conflict since the client with a read delegation
2934          *    could have done an Open with ReadAccess and WriteDeny
2935          *    locally and then not have checked for the WriteDeny.)
2936          */
2937         if (!(new_stp->ls_flags & (NFSLCK_DELEGPREV | NFSLCK_DELEGCUR))) {
2938             stp = LIST_FIRST(&lfp->lf_deleg);
2939             while (stp != LIST_END(&lfp->lf_deleg)) {
2940                 nstp = LIST_NEXT(stp, ls_file);
2941                 if (stp->ls_clp != clp && (stp->ls_flags & NFSLCK_DELEGREAD))
2942                         writedeleg = 0;
2943                 else
2944                         delegate = 0;
2945                 if ((readonly && stp->ls_clp != clp &&
2946                        (stp->ls_flags & NFSLCK_DELEGWRITE)) ||
2947                     (!readonly && (stp->ls_clp != clp ||
2948                          (stp->ls_flags & NFSLCK_DELEGREAD)))) {
2949                     if (new_stp->ls_flags & NFSLCK_RECLAIM) {
2950                         delegate = 2;
2951                     } else {
2952                         ret = nfsrv_delegconflict(stp, &haslock, p, vp);
2953                         if (ret) {
2954                             /*
2955                              * nfsrv_delegconflict() unlocks state
2956                              * when it returns non-zero.
2957                              */
2958                             printf("Nfsd openctrl unexpected deleg cnfl\n");
2959                             free(new_open, M_NFSDSTATE);
2960                             free(new_deleg, M_NFSDSTATE);
2961                             if (ret == -1) {
2962                                 openstp = NULL;
2963                                 goto tryagain;
2964                             }
2965                             error = ret;
2966                             goto out;
2967                         }
2968                     }
2969                 }
2970                 stp = nstp;
2971             }
2972         }
2973
2974         /*
2975          * We only get here if there was no open that conflicted.
2976          * If an open for the owner exists, or in the access/deny bits.
2977          * Otherwise it is a new open. If the open_owner hasn't been
2978          * confirmed, replace the open with the new one needing confirmation,
2979          * otherwise add the open.
2980          */
2981         if (new_stp->ls_flags & NFSLCK_DELEGPREV) {
2982             /*
2983              * Handle NFSLCK_DELEGPREV by searching the old delegations for
2984              * a match. If found, just move the old delegation to the current
2985              * delegation list and issue open. If not found, return
2986              * NFSERR_EXPIRED.
2987              */
2988             LIST_FOREACH(stp, &clp->lc_olddeleg, ls_list) {
2989                 if (stp->ls_lfp == lfp) {
2990                     /* Found it */
2991                     if (stp->ls_clp != clp)
2992                         panic("olddeleg clp");
2993                     LIST_REMOVE(stp, ls_list);
2994                     LIST_REMOVE(stp, ls_hash);
2995                     stp->ls_flags &= ~NFSLCK_OLDDELEG;
2996                     stp->ls_stateid.seqid = delegstateidp->seqid = 1;
2997                     stp->ls_stateid.other[0] = delegstateidp->other[0] =
2998                         clp->lc_clientid.lval[0];
2999                     stp->ls_stateid.other[1] = delegstateidp->other[1] =
3000                         clp->lc_clientid.lval[1];
3001                     stp->ls_stateid.other[2] = delegstateidp->other[2] =
3002                         nfsrv_nextstateindex(clp);
3003                     stp->ls_compref = nd->nd_compref;
3004                     LIST_INSERT_HEAD(&clp->lc_deleg, stp, ls_list);
3005                     LIST_INSERT_HEAD(NFSSTATEHASH(clp,
3006                         stp->ls_stateid), stp, ls_hash);
3007                     if (stp->ls_flags & NFSLCK_DELEGWRITE)
3008                         *rflagsp |= NFSV4OPEN_WRITEDELEGATE;
3009                     else
3010                         *rflagsp |= NFSV4OPEN_READDELEGATE;
3011                     clp->lc_delegtime = NFSD_MONOSEC +
3012                         nfsrv_lease + NFSRV_LEASEDELTA;
3013
3014                     /*
3015                      * Now, do the associated open.
3016                      */
3017                     new_open->ls_stateid.seqid = 1;
3018                     new_open->ls_stateid.other[0] = clp->lc_clientid.lval[0];
3019                     new_open->ls_stateid.other[1] = clp->lc_clientid.lval[1];
3020                     new_open->ls_stateid.other[2] = nfsrv_nextstateindex(clp);
3021                     new_open->ls_flags = (new_stp->ls_flags&NFSLCK_DENYBITS)|
3022                         NFSLCK_OPEN;
3023                     if (stp->ls_flags & NFSLCK_DELEGWRITE)
3024                         new_open->ls_flags |= (NFSLCK_READACCESS |
3025                             NFSLCK_WRITEACCESS);
3026                     else
3027                         new_open->ls_flags |= NFSLCK_READACCESS;
3028                     new_open->ls_uid = new_stp->ls_uid;
3029                     new_open->ls_lfp = lfp;
3030                     new_open->ls_clp = clp;
3031                     LIST_INIT(&new_open->ls_open);
3032                     LIST_INSERT_HEAD(&lfp->lf_open, new_open, ls_file);
3033                     LIST_INSERT_HEAD(NFSSTATEHASH(clp, new_open->ls_stateid),
3034                         new_open, ls_hash);
3035                     /*
3036                      * and handle the open owner
3037                      */
3038                     if (ownerstp) {
3039                         new_open->ls_openowner = ownerstp;
3040                         LIST_INSERT_HEAD(&ownerstp->ls_open,new_open,ls_list);
3041                     } else {
3042                         new_open->ls_openowner = new_stp;
3043                         new_stp->ls_flags = 0;
3044                         nfsrvd_refcache(new_stp->ls_op);
3045                         new_stp->ls_noopens = 0;
3046                         LIST_INIT(&new_stp->ls_open);
3047                         LIST_INSERT_HEAD(&new_stp->ls_open, new_open, ls_list);
3048                         LIST_INSERT_HEAD(&clp->lc_open, new_stp, ls_list);
3049                         *new_stpp = NULL;
3050                         NFSD_VNET(nfsstatsv1_p)->srvopenowners++;
3051                         nfsrv_openpluslock++;
3052                     }
3053                     openstp = new_open;
3054                     new_open = NULL;
3055                     NFSD_VNET(nfsstatsv1_p)->srvopens++;
3056                     nfsrv_openpluslock++;
3057                     break;
3058                 }
3059             }
3060             if (stp == LIST_END(&clp->lc_olddeleg))
3061                 error = NFSERR_EXPIRED;
3062         } else if (new_stp->ls_flags & (NFSLCK_DELEGREAD | NFSLCK_DELEGWRITE)) {
3063             /*
3064              * Scan to see that no delegation for this client and file
3065              * doesn't already exist.
3066              * There also shouldn't yet be an Open for this file and
3067              * openowner.
3068              */
3069             LIST_FOREACH(stp, &lfp->lf_deleg, ls_file) {
3070                 if (stp->ls_clp == clp)
3071                     break;
3072             }
3073             if (stp == LIST_END(&lfp->lf_deleg) && openstp == NULL) {
3074                 /*
3075                  * This is the Claim_Previous case with a delegation
3076                  * type != Delegate_None.
3077                  */
3078                 /*
3079                  * First, add the delegation. (Although we must issue the
3080                  * delegation, we can also ask for an immediate return.)
3081                  */
3082                 new_deleg->ls_stateid.seqid = delegstateidp->seqid = 1;
3083                 new_deleg->ls_stateid.other[0] = delegstateidp->other[0] =
3084                     clp->lc_clientid.lval[0];
3085                 new_deleg->ls_stateid.other[1] = delegstateidp->other[1] =
3086                     clp->lc_clientid.lval[1];
3087                 new_deleg->ls_stateid.other[2] = delegstateidp->other[2] =
3088                     nfsrv_nextstateindex(clp);
3089                 if (new_stp->ls_flags & NFSLCK_DELEGWRITE) {
3090                     new_deleg->ls_flags = (NFSLCK_DELEGWRITE |
3091                         NFSLCK_READACCESS | NFSLCK_WRITEACCESS);
3092                     *rflagsp |= NFSV4OPEN_WRITEDELEGATE;
3093                     nfsrv_writedelegcnt++;
3094                 } else {
3095                     new_deleg->ls_flags = (NFSLCK_DELEGREAD |
3096                         NFSLCK_READACCESS);
3097                     *rflagsp |= NFSV4OPEN_READDELEGATE;
3098                 }
3099                 new_deleg->ls_uid = new_stp->ls_uid;
3100                 new_deleg->ls_lfp = lfp;
3101                 new_deleg->ls_clp = clp;
3102                 new_deleg->ls_filerev = filerev;
3103                 new_deleg->ls_compref = nd->nd_compref;
3104                 new_deleg->ls_lastrecall = 0;
3105                 LIST_INSERT_HEAD(&lfp->lf_deleg, new_deleg, ls_file);
3106                 LIST_INSERT_HEAD(NFSSTATEHASH(clp,
3107                     new_deleg->ls_stateid), new_deleg, ls_hash);
3108                 LIST_INSERT_HEAD(&clp->lc_deleg, new_deleg, ls_list);
3109                 new_deleg = NULL;
3110                 if (delegate == 2 || nfsrv_issuedelegs == 0 ||
3111                     (clp->lc_flags & (LCL_CALLBACKSON | LCL_CBDOWN)) !=
3112                      LCL_CALLBACKSON ||
3113                     NFSRV_V4DELEGLIMIT(nfsrv_delegatecnt) ||
3114                     !NFSVNO_DELEGOK(vp))
3115                     *rflagsp |= NFSV4OPEN_RECALL;
3116                 NFSD_VNET(nfsstatsv1_p)->srvdelegates++;
3117                 nfsrv_openpluslock++;
3118                 nfsrv_delegatecnt++;
3119
3120                 /*
3121                  * Now, do the associated open.
3122                  */
3123                 new_open->ls_stateid.seqid = 1;
3124                 new_open->ls_stateid.other[0] = clp->lc_clientid.lval[0];
3125                 new_open->ls_stateid.other[1] = clp->lc_clientid.lval[1];
3126                 new_open->ls_stateid.other[2] = nfsrv_nextstateindex(clp);
3127                 new_open->ls_flags = (new_stp->ls_flags & NFSLCK_DENYBITS) |
3128                     NFSLCK_OPEN;
3129                 if (new_stp->ls_flags & NFSLCK_DELEGWRITE)
3130                         new_open->ls_flags |= (NFSLCK_READACCESS |
3131                             NFSLCK_WRITEACCESS);
3132                 else
3133                         new_open->ls_flags |= NFSLCK_READACCESS;
3134                 new_open->ls_uid = new_stp->ls_uid;
3135                 new_open->ls_lfp = lfp;
3136                 new_open->ls_clp = clp;
3137                 LIST_INIT(&new_open->ls_open);
3138                 LIST_INSERT_HEAD(&lfp->lf_open, new_open, ls_file);
3139                 LIST_INSERT_HEAD(NFSSTATEHASH(clp, new_open->ls_stateid),
3140                    new_open, ls_hash);
3141                 /*
3142                  * and handle the open owner
3143                  */
3144                 if (ownerstp) {
3145                     new_open->ls_openowner = ownerstp;
3146                     LIST_INSERT_HEAD(&ownerstp->ls_open, new_open, ls_list);
3147                 } else {
3148                     new_open->ls_openowner = new_stp;
3149                     new_stp->ls_flags = 0;
3150                     nfsrvd_refcache(new_stp->ls_op);
3151                     new_stp->ls_noopens = 0;
3152                     LIST_INIT(&new_stp->ls_open);
3153                     LIST_INSERT_HEAD(&new_stp->ls_open, new_open, ls_list);
3154                     LIST_INSERT_HEAD(&clp->lc_open, new_stp, ls_list);
3155                     *new_stpp = NULL;
3156                     NFSD_VNET(nfsstatsv1_p)->srvopenowners++;
3157                     nfsrv_openpluslock++;
3158                 }
3159                 openstp = new_open;
3160                 new_open = NULL;
3161                 NFSD_VNET(nfsstatsv1_p)->srvopens++;
3162                 nfsrv_openpluslock++;
3163             } else {
3164                 error = NFSERR_RECLAIMCONFLICT;
3165             }
3166         } else if (ownerstp) {
3167                 if (ownerstp->ls_flags & NFSLCK_NEEDSCONFIRM) {
3168                     /* Replace the open */
3169                     if (ownerstp->ls_op)
3170                         nfsrvd_derefcache(ownerstp->ls_op);
3171                     ownerstp->ls_op = new_stp->ls_op;
3172                     nfsrvd_refcache(ownerstp->ls_op);
3173                     ownerstp->ls_seq = new_stp->ls_seq;
3174                     *rflagsp |= NFSV4OPEN_RESULTCONFIRM;
3175                     stp = LIST_FIRST(&ownerstp->ls_open);
3176                     stp->ls_flags = (new_stp->ls_flags & NFSLCK_SHAREBITS) |
3177                         NFSLCK_OPEN;
3178                     stp->ls_stateid.seqid = 1;
3179                     stp->ls_uid = new_stp->ls_uid;
3180                     if (lfp != stp->ls_lfp) {
3181                         LIST_REMOVE(stp, ls_file);
3182                         LIST_INSERT_HEAD(&lfp->lf_open, stp, ls_file);
3183                         stp->ls_lfp = lfp;
3184                     }
3185                     openstp = stp;
3186                 } else if (openstp) {
3187                     openstp->ls_flags |= (new_stp->ls_flags & NFSLCK_SHAREBITS);
3188                     openstp->ls_stateid.seqid++;
3189                     if ((nd->nd_flag & ND_NFSV41) != 0 &&
3190                         openstp->ls_stateid.seqid == 0)
3191                         openstp->ls_stateid.seqid = 1;
3192
3193                     /*
3194                      * This is where we can choose to issue a delegation.
3195                      */
3196                     if ((new_stp->ls_flags & NFSLCK_WANTNODELEG) != 0)
3197                         *rflagsp |= NFSV4OPEN_WDNOTWANTED;
3198                     else if (nfsrv_issuedelegs == 0)
3199                         *rflagsp |= NFSV4OPEN_WDSUPPFTYPE;
3200                     else if (NFSRV_V4DELEGLIMIT(nfsrv_delegatecnt))
3201                         *rflagsp |= NFSV4OPEN_WDRESOURCE;
3202                     else if (delegate == 0 || writedeleg == 0 ||
3203                         NFSVNO_EXRDONLY(exp) || (readonly != 0 &&
3204                         nfsrv_writedelegifpos == 0) ||
3205                         !NFSVNO_DELEGOK(vp) ||
3206                         (new_stp->ls_flags & NFSLCK_WANTRDELEG) != 0 ||
3207                         (clp->lc_flags & (LCL_CALLBACKSON | LCL_CBDOWN)) !=
3208                          LCL_CALLBACKSON)
3209                         *rflagsp |= NFSV4OPEN_WDCONTENTION;
3210                     else {
3211                         new_deleg->ls_stateid.seqid = delegstateidp->seqid = 1;
3212                         new_deleg->ls_stateid.other[0] = delegstateidp->other[0]
3213                             = clp->lc_clientid.lval[0];
3214                         new_deleg->ls_stateid.other[1] = delegstateidp->other[1]
3215                             = clp->lc_clientid.lval[1];
3216                         new_deleg->ls_stateid.other[2] = delegstateidp->other[2]
3217                             = nfsrv_nextstateindex(clp);
3218                         new_deleg->ls_flags = (NFSLCK_DELEGWRITE |
3219                             NFSLCK_READACCESS | NFSLCK_WRITEACCESS);
3220                         *rflagsp |= NFSV4OPEN_WRITEDELEGATE;
3221                         new_deleg->ls_uid = new_stp->ls_uid;
3222                         new_deleg->ls_lfp = lfp;
3223                         new_deleg->ls_clp = clp;
3224                         new_deleg->ls_filerev = filerev;
3225                         new_deleg->ls_compref = nd->nd_compref;
3226                         new_deleg->ls_lastrecall = 0;
3227                         nfsrv_writedelegcnt++;
3228                         LIST_INSERT_HEAD(&lfp->lf_deleg, new_deleg, ls_file);
3229                         LIST_INSERT_HEAD(NFSSTATEHASH(clp,
3230                             new_deleg->ls_stateid), new_deleg, ls_hash);
3231                         LIST_INSERT_HEAD(&clp->lc_deleg, new_deleg, ls_list);
3232                         new_deleg = NULL;
3233                         NFSD_VNET(nfsstatsv1_p)->srvdelegates++;
3234                         nfsrv_openpluslock++;
3235                         nfsrv_delegatecnt++;
3236                     }
3237                 } else {
3238                     new_open->ls_stateid.seqid = 1;
3239                     new_open->ls_stateid.other[0] = clp->lc_clientid.lval[0];
3240                     new_open->ls_stateid.other[1] = clp->lc_clientid.lval[1];
3241                     new_open->ls_stateid.other[2] = nfsrv_nextstateindex(clp);
3242                     new_open->ls_flags = (new_stp->ls_flags & NFSLCK_SHAREBITS)|
3243                         NFSLCK_OPEN;
3244                     new_open->ls_uid = new_stp->ls_uid;
3245                     new_open->ls_openowner = ownerstp;
3246                     new_open->ls_lfp = lfp;
3247                     new_open->ls_clp = clp;
3248                     LIST_INIT(&new_open->ls_open);
3249                     LIST_INSERT_HEAD(&lfp->lf_open, new_open, ls_file);
3250                     LIST_INSERT_HEAD(&ownerstp->ls_open, new_open, ls_list);
3251                     LIST_INSERT_HEAD(NFSSTATEHASH(clp, new_open->ls_stateid),
3252                         new_open, ls_hash);
3253                     openstp = new_open;
3254                     new_open = NULL;
3255                     NFSD_VNET(nfsstatsv1_p)->srvopens++;
3256                     nfsrv_openpluslock++;
3257
3258                     /*
3259                      * This is where we can choose to issue a delegation.
3260                      */
3261                     if ((new_stp->ls_flags & NFSLCK_WANTNODELEG) != 0)
3262                         *rflagsp |= NFSV4OPEN_WDNOTWANTED;
3263                     else if (nfsrv_issuedelegs == 0)
3264                         *rflagsp |= NFSV4OPEN_WDSUPPFTYPE;
3265                     else if (NFSRV_V4DELEGLIMIT(nfsrv_delegatecnt))
3266                         *rflagsp |= NFSV4OPEN_WDRESOURCE;
3267                     else if (delegate == 0 || (writedeleg == 0 &&
3268                         readonly == 0) || !NFSVNO_DELEGOK(vp) ||
3269                         (clp->lc_flags & (LCL_CALLBACKSON | LCL_CBDOWN)) !=
3270                          LCL_CALLBACKSON)
3271                         *rflagsp |= NFSV4OPEN_WDCONTENTION;
3272                     else {
3273                         new_deleg->ls_stateid.seqid = delegstateidp->seqid = 1;
3274                         new_deleg->ls_stateid.other[0] = delegstateidp->other[0]
3275                             = clp->lc_clientid.lval[0];
3276                         new_deleg->ls_stateid.other[1] = delegstateidp->other[1]
3277                             = clp->lc_clientid.lval[1];
3278                         new_deleg->ls_stateid.other[2] = delegstateidp->other[2]
3279                             = nfsrv_nextstateindex(clp);
3280                         if (writedeleg && !NFSVNO_EXRDONLY(exp) &&
3281                             (nfsrv_writedelegifpos || !readonly) &&
3282                             (new_stp->ls_flags & NFSLCK_WANTRDELEG) == 0) {
3283                             new_deleg->ls_flags = (NFSLCK_DELEGWRITE |
3284                                 NFSLCK_READACCESS | NFSLCK_WRITEACCESS);
3285                             *rflagsp |= NFSV4OPEN_WRITEDELEGATE;
3286                             nfsrv_writedelegcnt++;
3287                         } else {
3288                             new_deleg->ls_flags = (NFSLCK_DELEGREAD |
3289                                 NFSLCK_READACCESS);
3290                             *rflagsp |= NFSV4OPEN_READDELEGATE;
3291                         }
3292                         new_deleg->ls_uid = new_stp->ls_uid;
3293                         new_deleg->ls_lfp = lfp;
3294                         new_deleg->ls_clp = clp;
3295                         new_deleg->ls_filerev = filerev;
3296                         new_deleg->ls_compref = nd->nd_compref;
3297                         new_deleg->ls_lastrecall = 0;
3298                         LIST_INSERT_HEAD(&lfp->lf_deleg, new_deleg, ls_file);
3299                         LIST_INSERT_HEAD(NFSSTATEHASH(clp,
3300                             new_deleg->ls_stateid), new_deleg, ls_hash);
3301                         LIST_INSERT_HEAD(&clp->lc_deleg, new_deleg, ls_list);
3302                         new_deleg = NULL;
3303                         NFSD_VNET(nfsstatsv1_p)->srvdelegates++;
3304                         nfsrv_openpluslock++;
3305                         nfsrv_delegatecnt++;
3306                     }
3307                 }
3308         } else {
3309                 /*
3310                  * New owner case. Start the open_owner sequence with a
3311                  * Needs confirmation (unless a reclaim) and hang the
3312                  * new open off it.
3313                  */
3314                 new_open->ls_stateid.seqid = 1;
3315                 new_open->ls_stateid.other[0] = clp->lc_clientid.lval[0];
3316                 new_open->ls_stateid.other[1] = clp->lc_clientid.lval[1];
3317                 new_open->ls_stateid.other[2] = nfsrv_nextstateindex(clp);
3318                 new_open->ls_flags = (new_stp->ls_flags & NFSLCK_SHAREBITS) |
3319                     NFSLCK_OPEN;
3320                 new_open->ls_uid = new_stp->ls_uid;
3321                 LIST_INIT(&new_open->ls_open);
3322                 new_open->ls_openowner = new_stp;
3323                 new_open->ls_lfp = lfp;
3324                 new_open->ls_clp = clp;
3325                 LIST_INSERT_HEAD(&lfp->lf_open, new_open, ls_file);
3326                 if (new_stp->ls_flags & NFSLCK_RECLAIM) {
3327                         new_stp->ls_flags = 0;
3328                 } else if ((nd->nd_flag & ND_NFSV41) != 0) {
3329                         /* NFSv4.1 never needs confirmation. */
3330                         new_stp->ls_flags = 0;
3331
3332                         /*
3333                          * This is where we can choose to issue a delegation.
3334                          */
3335                         if (delegate && nfsrv_issuedelegs &&
3336                             (writedeleg || readonly) &&
3337                             (clp->lc_flags & (LCL_CALLBACKSON | LCL_CBDOWN)) ==
3338                              LCL_CALLBACKSON &&
3339                             !NFSRV_V4DELEGLIMIT(nfsrv_delegatecnt) &&
3340                             NFSVNO_DELEGOK(vp) &&
3341                             ((nd->nd_flag & ND_NFSV41) == 0 ||
3342                              (new_stp->ls_flags & NFSLCK_WANTNODELEG) == 0)) {
3343                                 new_deleg->ls_stateid.seqid =
3344                                     delegstateidp->seqid = 1;
3345                                 new_deleg->ls_stateid.other[0] =
3346                                     delegstateidp->other[0]
3347                                     = clp->lc_clientid.lval[0];
3348                                 new_deleg->ls_stateid.other[1] =
3349                                     delegstateidp->other[1]
3350                                     = clp->lc_clientid.lval[1];
3351                                 new_deleg->ls_stateid.other[2] =
3352                                     delegstateidp->other[2]
3353                                     = nfsrv_nextstateindex(clp);
3354                                 if (writedeleg && !NFSVNO_EXRDONLY(exp) &&
3355                                     (nfsrv_writedelegifpos || !readonly) &&
3356                                     ((nd->nd_flag & ND_NFSV41) == 0 ||
3357                                      (new_stp->ls_flags & NFSLCK_WANTRDELEG) ==
3358                                      0)) {
3359                                         new_deleg->ls_flags =
3360                                             (NFSLCK_DELEGWRITE |
3361                                              NFSLCK_READACCESS |
3362                                              NFSLCK_WRITEACCESS);
3363                                         *rflagsp |= NFSV4OPEN_WRITEDELEGATE;
3364                                         nfsrv_writedelegcnt++;
3365                                 } else {
3366                                         new_deleg->ls_flags =
3367                                             (NFSLCK_DELEGREAD |
3368                                              NFSLCK_READACCESS);
3369                                         *rflagsp |= NFSV4OPEN_READDELEGATE;
3370                                 }
3371                                 new_deleg->ls_uid = new_stp->ls_uid;
3372                                 new_deleg->ls_lfp = lfp;
3373                                 new_deleg->ls_clp = clp;
3374                                 new_deleg->ls_filerev = filerev;
3375                                 new_deleg->ls_compref = nd->nd_compref;
3376                                 new_deleg->ls_lastrecall = 0;
3377                                 LIST_INSERT_HEAD(&lfp->lf_deleg, new_deleg,
3378                                     ls_file);
3379                                 LIST_INSERT_HEAD(NFSSTATEHASH(clp,
3380                                     new_deleg->ls_stateid), new_deleg, ls_hash);
3381                                 LIST_INSERT_HEAD(&clp->lc_deleg, new_deleg,
3382                                     ls_list);
3383                                 new_deleg = NULL;
3384                                 NFSD_VNET(nfsstatsv1_p)->srvdelegates++;
3385                                 nfsrv_openpluslock++;
3386                                 nfsrv_delegatecnt++;
3387                         }
3388                         /*
3389                          * Since NFSv4.1 never does an OpenConfirm, the first
3390                          * open state will be acquired here.
3391                          */
3392                         if (!(clp->lc_flags & LCL_STAMPEDSTABLE)) {
3393                                 clp->lc_flags |= LCL_STAMPEDSTABLE;
3394                                 len = clp->lc_idlen;
3395                                 NFSBCOPY(clp->lc_id, clidp, len);
3396                                 gotstate = 1;
3397                         }
3398                 } else {
3399                         *rflagsp |= NFSV4OPEN_RESULTCONFIRM;
3400                         new_stp->ls_flags = NFSLCK_NEEDSCONFIRM;
3401                 }
3402                 nfsrvd_refcache(new_stp->ls_op);
3403                 new_stp->ls_noopens = 0;
3404                 LIST_INIT(&new_stp->ls_open);
3405                 LIST_INSERT_HEAD(&new_stp->ls_open, new_open, ls_list);
3406                 LIST_INSERT_HEAD(&clp->lc_open, new_stp, ls_list);
3407                 LIST_INSERT_HEAD(NFSSTATEHASH(clp, new_open->ls_stateid),
3408                     new_open, ls_hash);
3409                 openstp = new_open;
3410                 new_open = NULL;
3411                 *new_stpp = NULL;
3412                 NFSD_VNET(nfsstatsv1_p)->srvopens++;
3413                 nfsrv_openpluslock++;
3414                 NFSD_VNET(nfsstatsv1_p)->srvopenowners++;
3415                 nfsrv_openpluslock++;
3416         }
3417         if (!error) {
3418                 stateidp->seqid = openstp->ls_stateid.seqid;
3419                 stateidp->other[0] = openstp->ls_stateid.other[0];
3420                 stateidp->other[1] = openstp->ls_stateid.other[1];
3421                 stateidp->other[2] = openstp->ls_stateid.other[2];
3422         }
3423         NFSUNLOCKSTATE();
3424         if (haslock) {
3425                 NFSLOCKV4ROOTMUTEX();
3426                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
3427                 NFSUNLOCKV4ROOTMUTEX();
3428         }
3429         if (new_open)
3430                 free(new_open, M_NFSDSTATE);
3431         if (new_deleg)
3432                 free(new_deleg, M_NFSDSTATE);
3433
3434         /*
3435          * If the NFSv4.1 client just acquired its first open, write a timestamp
3436          * to the stable storage file.
3437          */
3438         if (gotstate != 0) {
3439                 nfsrv_writestable(clidp, len, NFSNST_NEWSTATE, p);
3440                 nfsrv_backupstable();
3441         }
3442
3443 out:
3444         free(clidp, M_TEMP);
3445         NFSEXITCODE2(error, nd);
3446         return (error);
3447 }
3448
3449 /*
3450  * Open update. Does the confirm, downgrade and close.
3451  */
3452 int
3453 nfsrv_openupdate(vnode_t vp, struct nfsstate *new_stp, nfsquad_t clientid,
3454     nfsv4stateid_t *stateidp, struct nfsrv_descript *nd, NFSPROC_T *p,
3455     int *retwriteaccessp)
3456 {
3457         struct nfsstate *stp;
3458         struct nfsclient *clp;
3459         struct nfslockfile *lfp;
3460         u_int32_t bits;
3461         int error = 0, gotstate = 0, len = 0;
3462         u_char *clidp = NULL;
3463
3464         /*
3465          * Check for restart conditions (client and server).
3466          */
3467         error = nfsrv_checkrestart(clientid, new_stp->ls_flags,
3468             &new_stp->ls_stateid, 0);
3469         if (error)
3470                 goto out;
3471
3472         clidp = malloc(NFSV4_OPAQUELIMIT, M_TEMP, M_WAITOK);
3473         NFSLOCKSTATE();
3474         /*
3475          * Get the open structure via clientid and stateid.
3476          */
3477         error = nfsrv_getclient(clientid, CLOPS_RENEW, &clp, NULL,
3478             (nfsquad_t)((u_quad_t)0), 0, nd, p);
3479         if (!error)
3480                 error = nfsrv_getstate(clp, &new_stp->ls_stateid,
3481                     new_stp->ls_flags, &stp);
3482
3483         /*
3484          * Sanity check the open.
3485          */
3486         if (!error && (!(stp->ls_flags & NFSLCK_OPEN) ||
3487                 (!(new_stp->ls_flags & NFSLCK_CONFIRM) &&
3488                  (stp->ls_openowner->ls_flags & NFSLCK_NEEDSCONFIRM)) ||
3489                 ((new_stp->ls_flags & NFSLCK_CONFIRM) &&
3490                  (!(stp->ls_openowner->ls_flags & NFSLCK_NEEDSCONFIRM)))))
3491                 error = NFSERR_BADSTATEID;
3492
3493         if (!error)
3494                 error = nfsrv_checkseqid(nd, new_stp->ls_seq,
3495                     stp->ls_openowner, new_stp->ls_op);
3496         if (!error && stp->ls_stateid.seqid != new_stp->ls_stateid.seqid &&
3497             (((nd->nd_flag & ND_NFSV41) == 0 &&
3498               !(new_stp->ls_flags & NFSLCK_CONFIRM)) ||
3499              ((nd->nd_flag & ND_NFSV41) != 0 &&
3500               new_stp->ls_stateid.seqid != 0)))
3501                 error = NFSERR_OLDSTATEID;
3502         if (!error && vp->v_type != VREG) {
3503                 if (vp->v_type == VDIR)
3504                         error = NFSERR_ISDIR;
3505                 else
3506                         error = NFSERR_INVAL;
3507         }
3508
3509         if (error) {
3510                 /*
3511                  * If a client tries to confirm an Open with a bad
3512                  * seqid# and there are no byte range locks or other Opens
3513                  * on the openowner, just throw it away, so the next use of the
3514                  * openowner will start a fresh seq#.
3515                  */
3516                 if (error == NFSERR_BADSEQID &&
3517                     (new_stp->ls_flags & NFSLCK_CONFIRM) &&
3518                     nfsrv_nootherstate(stp))
3519                         nfsrv_freeopenowner(stp->ls_openowner, 0, p);
3520                 NFSUNLOCKSTATE();
3521                 goto out;
3522         }
3523
3524         /*
3525          * Set the return stateid.
3526          */
3527         stateidp->seqid = stp->ls_stateid.seqid + 1;
3528         if ((nd->nd_flag & ND_NFSV41) != 0 && stateidp->seqid == 0)
3529                 stateidp->seqid = 1;
3530         stateidp->other[0] = stp->ls_stateid.other[0];
3531         stateidp->other[1] = stp->ls_stateid.other[1];
3532         stateidp->other[2] = stp->ls_stateid.other[2];
3533         /*
3534          * Now, handle the three cases.
3535          */
3536         if (new_stp->ls_flags & NFSLCK_CONFIRM) {
3537                 /*
3538                  * If the open doesn't need confirmation, it seems to me that
3539                  * there is a client error, but I'll just log it and keep going?
3540                  */
3541                 if (!(stp->ls_openowner->ls_flags & NFSLCK_NEEDSCONFIRM))
3542                         printf("Nfsv4d: stray open confirm\n");
3543                 stp->ls_openowner->ls_flags = 0;
3544                 stp->ls_stateid.seqid++;
3545                 if ((nd->nd_flag & ND_NFSV41) != 0 &&
3546                     stp->ls_stateid.seqid == 0)
3547                         stp->ls_stateid.seqid = 1;
3548                 if (!(clp->lc_flags & LCL_STAMPEDSTABLE)) {
3549                         clp->lc_flags |= LCL_STAMPEDSTABLE;
3550                         len = clp->lc_idlen;
3551                         NFSBCOPY(clp->lc_id, clidp, len);
3552                         gotstate = 1;
3553                 }
3554                 NFSUNLOCKSTATE();
3555         } else if (new_stp->ls_flags & NFSLCK_CLOSE) {
3556                 lfp = stp->ls_lfp;
3557                 if (retwriteaccessp != NULL) {
3558                         if ((stp->ls_flags & NFSLCK_WRITEACCESS) != 0)
3559                                 *retwriteaccessp = 1;
3560                         else
3561                                 *retwriteaccessp = 0;
3562                 }
3563                 if (nfsrv_dolocallocks != 0 && !LIST_EMPTY(&stp->ls_open)) {
3564                         /* Get the lf lock */
3565                         nfsrv_locklf(lfp);
3566                         NFSUNLOCKSTATE();
3567                         ASSERT_VOP_ELOCKED(vp, "nfsrv_openupdate");
3568                         NFSVOPUNLOCK(vp);
3569                         if (nfsrv_freeopen(stp, vp, 1, p) == 0) {
3570                                 NFSLOCKSTATE();
3571                                 nfsrv_unlocklf(lfp);
3572                                 NFSUNLOCKSTATE();
3573                         }
3574                         NFSVOPLOCK(vp, LK_EXCLUSIVE | LK_RETRY);
3575                 } else {
3576                         (void) nfsrv_freeopen(stp, NULL, 0, p);
3577                         NFSUNLOCKSTATE();
3578                 }
3579         } else {
3580                 /*
3581                  * Update the share bits, making sure that the new set are a
3582                  * subset of the old ones.
3583                  */
3584                 bits = (new_stp->ls_flags & NFSLCK_SHAREBITS);
3585                 if (~(stp->ls_flags) & bits) {
3586                         NFSUNLOCKSTATE();
3587                         error = NFSERR_INVAL;
3588                         goto out;
3589                 }
3590                 stp->ls_flags = (bits | NFSLCK_OPEN);
3591                 stp->ls_stateid.seqid++;
3592                 if ((nd->nd_flag & ND_NFSV41) != 0 &&
3593                     stp->ls_stateid.seqid == 0)
3594                         stp->ls_stateid.seqid = 1;
3595                 NFSUNLOCKSTATE();
3596         }
3597
3598         /*
3599          * If the client just confirmed its first open, write a timestamp
3600          * to the stable storage file.
3601          */
3602         if (gotstate != 0) {
3603                 nfsrv_writestable(clidp, len, NFSNST_NEWSTATE, p);
3604                 nfsrv_backupstable();
3605         }
3606
3607 out:
3608         free(clidp, M_TEMP);
3609         NFSEXITCODE2(error, nd);
3610         return (error);
3611 }
3612
3613 /*
3614  * Delegation update. Does the purge and return.
3615  */
3616 int
3617 nfsrv_delegupdate(struct nfsrv_descript *nd, nfsquad_t clientid,
3618     nfsv4stateid_t *stateidp, vnode_t vp, int op, struct ucred *cred,
3619     NFSPROC_T *p, int *retwriteaccessp)
3620 {
3621         struct nfsstate *stp;
3622         struct nfsclient *clp;
3623         int error = 0;
3624         fhandle_t fh;
3625
3626         /*
3627          * Do a sanity check against the file handle for DelegReturn.
3628          */
3629         if (vp) {
3630                 error = nfsvno_getfh(vp, &fh, p);
3631                 if (error)
3632                         goto out;
3633         }
3634         /*
3635          * Check for restart conditions (client and server).
3636          */
3637         if (op == NFSV4OP_DELEGRETURN)
3638                 error = nfsrv_checkrestart(clientid, NFSLCK_DELEGRETURN,
3639                         stateidp, 0);
3640         else
3641                 error = nfsrv_checkrestart(clientid, NFSLCK_DELEGPURGE,
3642                         stateidp, 0);
3643
3644         NFSLOCKSTATE();
3645         /*
3646          * Get the open structure via clientid and stateid.
3647          */
3648         if (!error)
3649             error = nfsrv_getclient(clientid, CLOPS_RENEW, &clp, NULL,
3650                 (nfsquad_t)((u_quad_t)0), 0, nd, p);
3651         if (error) {
3652                 if (error == NFSERR_CBPATHDOWN)
3653                         error = 0;
3654                 if (error == NFSERR_STALECLIENTID && op == NFSV4OP_DELEGRETURN)
3655                         error = NFSERR_STALESTATEID;
3656         }
3657         if (!error && op == NFSV4OP_DELEGRETURN) {
3658             error = nfsrv_getstate(clp, stateidp, NFSLCK_DELEGRETURN, &stp);
3659             if (!error && stp->ls_stateid.seqid != stateidp->seqid &&
3660                 ((nd->nd_flag & ND_NFSV41) == 0 || stateidp->seqid != 0))
3661                 error = NFSERR_OLDSTATEID;
3662         }
3663         /*
3664          * NFSERR_EXPIRED means that the state has gone away,
3665          * so Delegations have been purged. Just return ok.
3666          */
3667         if (error == NFSERR_EXPIRED && op == NFSV4OP_DELEGPURGE) {
3668                 NFSUNLOCKSTATE();
3669                 error = 0;
3670                 goto out;
3671         }
3672         if (error) {
3673                 NFSUNLOCKSTATE();
3674                 goto out;
3675         }
3676
3677         if (op == NFSV4OP_DELEGRETURN) {
3678                 if (NFSBCMP((caddr_t)&fh, (caddr_t)&stp->ls_lfp->lf_fh,
3679                     sizeof (fhandle_t))) {
3680                         NFSUNLOCKSTATE();
3681                         error = NFSERR_BADSTATEID;
3682                         goto out;
3683                 }
3684                 if (retwriteaccessp != NULL) {
3685                         if ((stp->ls_flags & NFSLCK_DELEGWRITE) != 0)
3686                                 *retwriteaccessp = 1;
3687                         else
3688                                 *retwriteaccessp = 0;
3689                 }
3690                 nfsrv_freedeleg(stp);
3691         } else {
3692                 nfsrv_freedeleglist(&clp->lc_olddeleg);
3693         }
3694         NFSUNLOCKSTATE();
3695         error = 0;
3696
3697 out:
3698         NFSEXITCODE(error);
3699         return (error);
3700 }
3701
3702 /*
3703  * Release lock owner.
3704  */
3705 int
3706 nfsrv_releaselckown(struct nfsstate *new_stp, nfsquad_t clientid,
3707     NFSPROC_T *p)
3708 {
3709         struct nfsstate *stp, *nstp, *openstp, *ownstp;
3710         struct nfsclient *clp;
3711         int error = 0;
3712
3713         /*
3714          * Check for restart conditions (client and server).
3715          */
3716         error = nfsrv_checkrestart(clientid, new_stp->ls_flags,
3717             &new_stp->ls_stateid, 0);
3718         if (error)
3719                 goto out;
3720
3721         NFSLOCKSTATE();
3722         /*
3723          * Get the lock owner by name.
3724          */
3725         error = nfsrv_getclient(clientid, CLOPS_RENEW, &clp, NULL,
3726             (nfsquad_t)((u_quad_t)0), 0, NULL, p);
3727         if (error) {
3728                 NFSUNLOCKSTATE();
3729                 goto out;
3730         }
3731         LIST_FOREACH(ownstp, &clp->lc_open, ls_list) {
3732             LIST_FOREACH(openstp, &ownstp->ls_open, ls_list) {
3733                 stp = LIST_FIRST(&openstp->ls_open);
3734                 while (stp != LIST_END(&openstp->ls_open)) {
3735                     nstp = LIST_NEXT(stp, ls_list);
3736                     /*
3737                      * If the owner matches, check for locks and
3738                      * then free or return an error.
3739                      */
3740                     if (stp->ls_ownerlen == new_stp->ls_ownerlen &&
3741                         !NFSBCMP(stp->ls_owner, new_stp->ls_owner,
3742                          stp->ls_ownerlen)){
3743                         if (LIST_EMPTY(&stp->ls_lock)) {
3744                             nfsrv_freelockowner(stp, NULL, 0, p);
3745                         } else {
3746                             NFSUNLOCKSTATE();
3747                             error = NFSERR_LOCKSHELD;
3748                             goto out;
3749                         }
3750                     }
3751                     stp = nstp;
3752                 }
3753             }
3754         }
3755         NFSUNLOCKSTATE();
3756
3757 out:
3758         NFSEXITCODE(error);
3759         return (error);
3760 }
3761
3762 /*
3763  * Get the file handle for a lock structure.
3764  */
3765 static int
3766 nfsrv_getlockfh(vnode_t vp, u_short flags, struct nfslockfile *new_lfp,
3767     fhandle_t *nfhp, NFSPROC_T *p)
3768 {
3769         fhandle_t *fhp = NULL;
3770         int error;
3771
3772         /*
3773          * For lock, use the new nfslock structure, otherwise just
3774          * a fhandle_t on the stack.
3775          */
3776         if (flags & NFSLCK_OPEN) {
3777                 KASSERT(new_lfp != NULL, ("nfsrv_getlockfh: new_lfp NULL"));
3778                 fhp = &new_lfp->lf_fh;
3779         } else if (nfhp) {
3780                 fhp = nfhp;
3781         } else {
3782                 panic("nfsrv_getlockfh");
3783         }
3784         error = nfsvno_getfh(vp, fhp, p);
3785         NFSEXITCODE(error);
3786         return (error);
3787 }
3788
3789 /*
3790  * Get an nfs lock structure. Allocate one, as required, and return a
3791  * pointer to it.
3792  * Returns an NFSERR_xxx upon failure or -1 to indicate no current lock.
3793  */
3794 static int
3795 nfsrv_getlockfile(u_short flags, struct nfslockfile **new_lfpp,
3796     struct nfslockfile **lfpp, fhandle_t *nfhp, int lockit)
3797 {
3798         struct nfslockfile *lfp;
3799         fhandle_t *fhp = NULL, *tfhp;
3800         struct nfslockhashhead *hp;
3801         struct nfslockfile *new_lfp = NULL;
3802
3803         /*
3804          * For lock, use the new nfslock structure, otherwise just
3805          * a fhandle_t on the stack.
3806          */
3807         if (flags & NFSLCK_OPEN) {
3808                 new_lfp = *new_lfpp;
3809                 fhp = &new_lfp->lf_fh;
3810         } else if (nfhp) {
3811                 fhp = nfhp;
3812         } else {
3813                 panic("nfsrv_getlockfile");
3814         }
3815
3816         hp = NFSLOCKHASH(fhp);
3817         LIST_FOREACH(lfp, hp, lf_hash) {
3818                 tfhp = &lfp->lf_fh;
3819                 if (NFSVNO_CMPFH(fhp, tfhp)) {
3820                         if (lockit)
3821                                 nfsrv_locklf(lfp);
3822                         *lfpp = lfp;
3823                         return (0);
3824                 }
3825         }
3826         if (!(flags & NFSLCK_OPEN))
3827                 return (-1);
3828
3829         /*
3830          * No match, so chain the new one into the list.
3831          */
3832         LIST_INIT(&new_lfp->lf_open);
3833         LIST_INIT(&new_lfp->lf_lock);
3834         LIST_INIT(&new_lfp->lf_deleg);
3835         LIST_INIT(&new_lfp->lf_locallock);
3836         LIST_INIT(&new_lfp->lf_rollback);
3837         new_lfp->lf_locallock_lck.nfslock_usecnt = 0;
3838         new_lfp->lf_locallock_lck.nfslock_lock = 0;
3839         new_lfp->lf_usecount = 0;
3840         LIST_INSERT_HEAD(hp, new_lfp, lf_hash);
3841         *lfpp = new_lfp;
3842         *new_lfpp = NULL;
3843         return (0);
3844 }
3845
3846 /*
3847  * This function adds a nfslock lock structure to the list for the associated
3848  * nfsstate and nfslockfile structures. It will be inserted after the
3849  * entry pointed at by insert_lop.
3850  */
3851 static void
3852 nfsrv_insertlock(struct nfslock *new_lop, struct nfslock *insert_lop,
3853     struct nfsstate *stp, struct nfslockfile *lfp)
3854 {
3855         struct nfslock *lop, *nlop;
3856
3857         new_lop->lo_stp = stp;
3858         new_lop->lo_lfp = lfp;
3859
3860         if (stp != NULL) {
3861                 /* Insert in increasing lo_first order */
3862                 lop = LIST_FIRST(&lfp->lf_lock);
3863                 if (lop == LIST_END(&lfp->lf_lock) ||
3864                     new_lop->lo_first <= lop->lo_first) {
3865                         LIST_INSERT_HEAD(&lfp->lf_lock, new_lop, lo_lckfile);
3866                 } else {
3867                         nlop = LIST_NEXT(lop, lo_lckfile);
3868                         while (nlop != LIST_END(&lfp->lf_lock) &&
3869                                nlop->lo_first < new_lop->lo_first) {
3870                                 lop = nlop;
3871                                 nlop = LIST_NEXT(lop, lo_lckfile);
3872                         }
3873                         LIST_INSERT_AFTER(lop, new_lop, lo_lckfile);
3874                 }
3875         } else {
3876                 new_lop->lo_lckfile.le_prev = NULL;     /* list not used */
3877         }
3878
3879         /*
3880          * Insert after insert_lop, which is overloaded as stp or lfp for
3881          * an empty list.
3882          */
3883         if (stp == NULL && (struct nfslockfile *)insert_lop == lfp)
3884                 LIST_INSERT_HEAD(&lfp->lf_locallock, new_lop, lo_lckowner);
3885         else if ((struct nfsstate *)insert_lop == stp)
3886                 LIST_INSERT_HEAD(&stp->ls_lock, new_lop, lo_lckowner);
3887         else
3888                 LIST_INSERT_AFTER(insert_lop, new_lop, lo_lckowner);
3889         if (stp != NULL) {
3890                 NFSD_VNET(nfsstatsv1_p)->srvlocks++;
3891                 nfsrv_openpluslock++;
3892         }
3893 }
3894
3895 /*
3896  * This function updates the locking for a lock owner and given file. It
3897  * maintains a list of lock ranges ordered on increasing file offset that
3898  * are NFSLCK_READ or NFSLCK_WRITE and non-overlapping (aka POSIX style).
3899  * It always adds new_lop to the list and sometimes uses the one pointed
3900  * at by other_lopp.
3901  */
3902 static void
3903 nfsrv_updatelock(struct nfsstate *stp, struct nfslock **new_lopp,
3904     struct nfslock **other_lopp, struct nfslockfile *lfp)
3905 {
3906         struct nfslock *new_lop = *new_lopp;
3907         struct nfslock *lop, *tlop, *ilop;
3908         struct nfslock *other_lop = *other_lopp;
3909         int unlock = 0, myfile = 0;
3910         u_int64_t tmp;
3911
3912         /*
3913          * Work down the list until the lock is merged.
3914          */
3915         if (new_lop->lo_flags & NFSLCK_UNLOCK)
3916                 unlock = 1;
3917         if (stp != NULL) {
3918                 ilop = (struct nfslock *)stp;
3919                 lop = LIST_FIRST(&stp->ls_lock);
3920         } else {
3921                 ilop = (struct nfslock *)lfp;
3922                 lop = LIST_FIRST(&lfp->lf_locallock);
3923         }
3924         while (lop != NULL) {
3925             /*
3926              * Only check locks for this file that aren't before the start of
3927              * new lock's range.
3928              */
3929             if (lop->lo_lfp == lfp) {
3930               myfile = 1;
3931               if (lop->lo_end >= new_lop->lo_first) {
3932                 if (new_lop->lo_end < lop->lo_first) {
3933                         /*
3934                          * If the new lock ends before the start of the
3935                          * current lock's range, no merge, just insert
3936                          * the new lock.
3937                          */
3938                         break;
3939                 }
3940                 if (new_lop->lo_flags == lop->lo_flags ||
3941                     (new_lop->lo_first <= lop->lo_first &&
3942                      new_lop->lo_end >= lop->lo_end)) {
3943                         /*
3944                          * This lock can be absorbed by the new lock/unlock.
3945                          * This happens when it covers the entire range
3946                          * of the old lock or is contiguous
3947                          * with the old lock and is of the same type or an
3948                          * unlock.
3949                          */
3950                         if (lop->lo_first < new_lop->lo_first)
3951                                 new_lop->lo_first = lop->lo_first;
3952                         if (lop->lo_end > new_lop->lo_end)
3953                                 new_lop->lo_end = lop->lo_end;
3954                         tlop = lop;
3955                         lop = LIST_NEXT(lop, lo_lckowner);
3956                         nfsrv_freenfslock(tlop);
3957                         continue;
3958                 }
3959
3960                 /*
3961                  * All these cases are for contiguous locks that are not the
3962                  * same type, so they can't be merged.
3963                  */
3964                 if (new_lop->lo_first <= lop->lo_first) {
3965                         /*
3966                          * This case is where the new lock overlaps with the
3967                          * first part of the old lock. Move the start of the
3968                          * old lock to just past the end of the new lock. The
3969                          * new lock will be inserted in front of the old, since
3970                          * ilop hasn't been updated. (We are done now.)
3971                          */
3972                         lop->lo_first = new_lop->lo_end;
3973                         break;
3974                 }
3975                 if (new_lop->lo_end >= lop->lo_end) {
3976                         /*
3977                          * This case is where the new lock overlaps with the
3978                          * end of the old lock's range. Move the old lock's
3979                          * end to just before the new lock's first and insert
3980                          * the new lock after the old lock.
3981                          * Might not be done yet, since the new lock could
3982                          * overlap further locks with higher ranges.
3983                          */
3984                         lop->lo_end = new_lop->lo_first;
3985                         ilop = lop;
3986                         lop = LIST_NEXT(lop, lo_lckowner);
3987                         continue;
3988                 }
3989                 /*
3990                  * The final case is where the new lock's range is in the
3991                  * middle of the current lock's and splits the current lock
3992                  * up. Use *other_lopp to handle the second part of the
3993                  * split old lock range. (We are done now.)
3994                  * For unlock, we use new_lop as other_lop and tmp, since
3995                  * other_lop and new_lop are the same for this case.
3996                  * We noted the unlock case above, so we don't need
3997                  * new_lop->lo_flags any longer.
3998                  */
3999                 tmp = new_lop->lo_first;
4000                 if (other_lop == NULL) {
4001                         if (!unlock)
4002                                 panic("nfsd srv update unlock");
4003                         other_lop = new_lop;
4004                         *new_lopp = NULL;
4005                 }
4006                 other_lop->lo_first = new_lop->lo_end;
4007                 other_lop->lo_end = lop->lo_end;
4008                 other_lop->lo_flags = lop->lo_flags;
4009                 other_lop->lo_stp = stp;
4010                 other_lop->lo_lfp = lfp;
4011                 lop->lo_end = tmp;
4012                 nfsrv_insertlock(other_lop, lop, stp, lfp);
4013                 *other_lopp = NULL;
4014                 ilop = lop;
4015                 break;
4016               }
4017             }
4018             ilop = lop;
4019             lop = LIST_NEXT(lop, lo_lckowner);
4020             if (myfile && (lop == NULL || lop->lo_lfp != lfp))
4021                 break;
4022         }
4023
4024         /*
4025          * Insert the new lock in the list at the appropriate place.
4026          */
4027         if (!unlock) {
4028                 nfsrv_insertlock(new_lop, ilop, stp, lfp);
4029                 *new_lopp = NULL;
4030         }
4031 }
4032
4033 /*
4034  * This function handles sequencing of locks, etc.
4035  * It returns an error that indicates what the caller should do.
4036  */
4037 static int
4038 nfsrv_checkseqid(struct nfsrv_descript *nd, u_int32_t seqid,
4039     struct nfsstate *stp, struct nfsrvcache *op)
4040 {
4041         int error = 0;
4042
4043         if ((nd->nd_flag & ND_NFSV41) != 0)
4044                 /* NFSv4.1 ignores the open_seqid and lock_seqid. */
4045                 goto out;
4046         if (op != nd->nd_rp)
4047                 panic("nfsrvstate checkseqid");
4048         if (!(op->rc_flag & RC_INPROG))
4049                 panic("nfsrvstate not inprog");
4050         if (stp->ls_op && stp->ls_op->rc_refcnt <= 0) {
4051                 printf("refcnt=%d\n", stp->ls_op->rc_refcnt);
4052                 panic("nfsrvstate op refcnt");
4053         }
4054
4055         /* If ND_ERELOOKUP is set, the seqid has already been handled. */
4056         if ((nd->nd_flag & ND_ERELOOKUP) != 0)
4057                 goto out;
4058
4059         if ((stp->ls_seq + 1) == seqid) {
4060                 if (stp->ls_op)
4061                         nfsrvd_derefcache(stp->ls_op);
4062                 stp->ls_op = op;
4063                 nfsrvd_refcache(op);
4064                 stp->ls_seq = seqid;
4065                 goto out;
4066         } else if (stp->ls_seq == seqid && stp->ls_op &&
4067                 op->rc_xid == stp->ls_op->rc_xid &&
4068                 op->rc_refcnt == 0 &&
4069                 op->rc_reqlen == stp->ls_op->rc_reqlen &&
4070                 op->rc_cksum == stp->ls_op->rc_cksum) {
4071                 if (stp->ls_op->rc_flag & RC_INPROG) {
4072                         error = NFSERR_DONTREPLY;
4073                         goto out;
4074                 }
4075                 nd->nd_rp = stp->ls_op;
4076                 nd->nd_rp->rc_flag |= RC_INPROG;
4077                 nfsrvd_delcache(op);
4078                 error = NFSERR_REPLYFROMCACHE;
4079                 goto out;
4080         }
4081         error = NFSERR_BADSEQID;
4082
4083 out:
4084         NFSEXITCODE2(error, nd);
4085         return (error);
4086 }
4087
4088 /*
4089  * Get the client ip address for callbacks. If the strings can't be parsed,
4090  * just set lc_program to 0 to indicate no callbacks are possible.
4091  * (For cases where the address can't be parsed or is 0.0.0.0.0.0, set
4092  *  the address to the client's transport address. This won't be used
4093  *  for callbacks, but can be printed out by nfsstats for info.)
4094  * Return error if the xdr can't be parsed, 0 otherwise.
4095  */
4096 int
4097 nfsrv_getclientipaddr(struct nfsrv_descript *nd, struct nfsclient *clp)
4098 {
4099         u_int32_t *tl;
4100         u_char *cp, *cp2;
4101         int i, j, maxalen = 0, minalen = 0;
4102         sa_family_t af;
4103 #ifdef INET
4104         struct sockaddr_in *rin = NULL, *sin;
4105 #endif
4106 #ifdef INET6
4107         struct sockaddr_in6 *rin6 = NULL, *sin6;
4108 #endif
4109         u_char *addr;
4110         int error = 0, cantparse = 0;
4111         union {
4112                 in_addr_t ival;
4113                 u_char cval[4];
4114         } ip;
4115         union {
4116                 in_port_t sval;
4117                 u_char cval[2];
4118         } port;
4119
4120         /* 8 is the maximum length of the port# string. */
4121         addr = malloc(INET6_ADDRSTRLEN + 8, M_TEMP, M_WAITOK);
4122         clp->lc_req.nr_client = NULL;
4123         clp->lc_req.nr_lock = 0;
4124         af = AF_UNSPEC;
4125         NFSM_DISSECT(tl, u_int32_t *, NFSX_UNSIGNED);
4126         i = fxdr_unsigned(int, *tl);
4127         if (i >= 3 && i <= 4) {
4128                 error = nfsrv_mtostr(nd, addr, i);
4129                 if (error)
4130                         goto nfsmout;
4131 #ifdef INET
4132                 if (!strcmp(addr, "tcp")) {
4133                         clp->lc_flags |= LCL_TCPCALLBACK;
4134                         clp->lc_req.nr_sotype = SOCK_STREAM;
4135                         clp->lc_req.nr_soproto = IPPROTO_TCP;
4136                         af = AF_INET;
4137                 } else if (!strcmp(addr, "udp")) {
4138                         clp->lc_req.nr_sotype = SOCK_DGRAM;
4139                         clp->lc_req.nr_soproto = IPPROTO_UDP;
4140                         af = AF_INET;
4141                 }
4142 #endif
4143 #ifdef INET6
4144                 if (af == AF_UNSPEC) {
4145                         if (!strcmp(addr, "tcp6")) {
4146                                 clp->lc_flags |= LCL_TCPCALLBACK;
4147                                 clp->lc_req.nr_sotype = SOCK_STREAM;
4148                                 clp->lc_req.nr_soproto = IPPROTO_TCP;
4149                                 af = AF_INET6;
4150                         } else if (!strcmp(addr, "udp6")) {
4151                                 clp->lc_req.nr_sotype = SOCK_DGRAM;
4152                                 clp->lc_req.nr_soproto = IPPROTO_UDP;
4153                                 af = AF_INET6;
4154                         }
4155                 }
4156 #endif
4157                 if (af == AF_UNSPEC) {
4158                         cantparse = 1;
4159                 }
4160         } else {
4161                 cantparse = 1;
4162                 if (i > 0) {
4163                         error = nfsm_advance(nd, NFSM_RNDUP(i), -1);
4164                         if (error)
4165                                 goto nfsmout;
4166                 }
4167         }
4168         /*
4169          * The caller has allocated clp->lc_req.nr_nam to be large enough
4170          * for either AF_INET or AF_INET6 and zeroed out the contents.
4171          * maxalen is set to the maximum length of the host IP address string
4172          * plus 8 for the maximum length of the port#.
4173          * minalen is set to the minimum length of the host IP address string
4174          * plus 4 for the minimum length of the port#.
4175          * These lengths do not include NULL termination,
4176          * so INET[6]_ADDRSTRLEN - 1 is used in the calculations.
4177          */
4178         switch (af) {
4179 #ifdef INET
4180         case AF_INET:
4181                 rin = (struct sockaddr_in *)clp->lc_req.nr_nam;
4182                 rin->sin_family = AF_INET;
4183                 rin->sin_len = sizeof(struct sockaddr_in);
4184                 maxalen = INET_ADDRSTRLEN - 1 + 8;
4185                 minalen = 7 + 4;
4186                 break;
4187 #endif
4188 #ifdef INET6
4189         case AF_INET6:
4190                 rin6 = (struct sockaddr_in6 *)clp->lc_req.nr_nam;
4191                 rin6->sin6_family = AF_INET6;
4192                 rin6->sin6_len = sizeof(struct sockaddr_in6);
4193                 maxalen = INET6_ADDRSTRLEN - 1 + 8;
4194                 minalen = 3 + 4;
4195                 break;
4196 #endif
4197         }
4198         NFSM_DISSECT(tl, u_int32_t *, NFSX_UNSIGNED);
4199         i = fxdr_unsigned(int, *tl);
4200         if (i < 0) {
4201                 error = NFSERR_BADXDR;
4202                 goto nfsmout;
4203         } else if (i == 0) {
4204                 cantparse = 1;
4205         } else if (!cantparse && i <= maxalen && i >= minalen) {
4206                 error = nfsrv_mtostr(nd, addr, i);
4207                 if (error)
4208                         goto nfsmout;
4209
4210                 /*
4211                  * Parse out the address fields. We expect 6 decimal numbers
4212                  * separated by '.'s for AF_INET and two decimal numbers
4213                  * preceeded by '.'s for AF_INET6.
4214                  */
4215                 cp = NULL;
4216                 switch (af) {
4217 #ifdef INET6
4218                 /*
4219                  * For AF_INET6, first parse the host address.
4220                  */
4221                 case AF_INET6:
4222                         cp = strchr(addr, '.');
4223                         if (cp != NULL) {
4224                                 *cp++ = '\0';
4225                                 if (inet_pton(af, addr, &rin6->sin6_addr) == 1)
4226                                         i = 4;
4227                                 else {
4228                                         cp = NULL;
4229                                         cantparse = 1;
4230                                 }
4231                         }
4232                         break;
4233 #endif
4234 #ifdef INET
4235                 case AF_INET:
4236                         cp = addr;
4237                         i = 0;
4238                         break;
4239 #endif
4240                 }
4241                 while (cp != NULL && *cp && i < 6) {
4242                         cp2 = cp;
4243                         while (*cp2 && *cp2 != '.')
4244                                 cp2++;
4245                         if (*cp2)
4246                                 *cp2++ = '\0';
4247                         else if (i != 5) {
4248                                 cantparse = 1;
4249                                 break;
4250                         }
4251                         j = nfsrv_getipnumber(cp);
4252                         if (j >= 0) {
4253                                 if (i < 4)
4254                                         ip.cval[3 - i] = j;
4255                                 else
4256                                         port.cval[5 - i] = j;
4257                         } else {
4258                                 cantparse = 1;
4259                                 break;
4260                         }
4261                         cp = cp2;
4262                         i++;
4263                 }
4264                 if (!cantparse) {
4265                         /*
4266                          * The host address INADDR_ANY is (mis)used to indicate
4267                          * "there is no valid callback address".
4268                          */
4269                         switch (af) {
4270 #ifdef INET6
4271                         case AF_INET6:
4272                                 if (!IN6_ARE_ADDR_EQUAL(&rin6->sin6_addr,
4273                                     &in6addr_any))
4274                                         rin6->sin6_port = htons(port.sval);
4275                                 else
4276                                         cantparse = 1;
4277                                 break;
4278 #endif
4279 #ifdef INET
4280                         case AF_INET:
4281                                 if (ip.ival != INADDR_ANY) {
4282                                         rin->sin_addr.s_addr = htonl(ip.ival);
4283                                         rin->sin_port = htons(port.sval);
4284                                 } else {
4285                                         cantparse = 1;
4286                                 }
4287                                 break;
4288 #endif
4289                         }
4290                 }
4291         } else {
4292                 cantparse = 1;
4293                 if (i > 0) {
4294                         error = nfsm_advance(nd, NFSM_RNDUP(i), -1);
4295                         if (error)
4296                                 goto nfsmout;
4297                 }
4298         }
4299         if (cantparse) {
4300                 switch (nd->nd_nam->sa_family) {
4301 #ifdef INET
4302                 case AF_INET:
4303                         sin = (struct sockaddr_in *)nd->nd_nam;
4304                         rin = (struct sockaddr_in *)clp->lc_req.nr_nam;
4305                         rin->sin_family = AF_INET;
4306                         rin->sin_len = sizeof(struct sockaddr_in);
4307                         rin->sin_addr.s_addr = sin->sin_addr.s_addr;
4308                         rin->sin_port = 0x0;
4309                         break;
4310 #endif
4311 #ifdef INET6
4312                 case AF_INET6:
4313                         sin6 = (struct sockaddr_in6 *)nd->nd_nam;
4314                         rin6 = (struct sockaddr_in6 *)clp->lc_req.nr_nam;
4315                         rin6->sin6_family = AF_INET6;
4316                         rin6->sin6_len = sizeof(struct sockaddr_in6);
4317                         rin6->sin6_addr = sin6->sin6_addr;
4318                         rin6->sin6_port = 0x0;
4319                         break;
4320 #endif
4321                 }
4322                 clp->lc_program = 0;
4323         }
4324 nfsmout:
4325         free(addr, M_TEMP);
4326         NFSEXITCODE2(error, nd);
4327         return (error);
4328 }
4329
4330 /*
4331  * Turn a string of up to three decimal digits into a number. Return -1 upon
4332  * error.
4333  */
4334 static int
4335 nfsrv_getipnumber(u_char *cp)
4336 {
4337         int i = 0, j = 0;
4338
4339         while (*cp) {
4340                 if (j > 2 || *cp < '0' || *cp > '9')
4341                         return (-1);
4342                 i *= 10;
4343                 i += (*cp - '0');
4344                 cp++;
4345                 j++;
4346         }
4347         if (i < 256)
4348                 return (i);
4349         return (-1);
4350 }
4351
4352 /*
4353  * This function checks for restart conditions.
4354  */
4355 static int
4356 nfsrv_checkrestart(nfsquad_t clientid, u_int32_t flags,
4357     nfsv4stateid_t *stateidp, int specialid)
4358 {
4359         int ret = 0;
4360
4361         /*
4362          * First check for a server restart. Open, LockT, ReleaseLockOwner
4363          * and DelegPurge have a clientid, the rest a stateid.
4364          */
4365         if (flags &
4366             (NFSLCK_OPEN | NFSLCK_TEST | NFSLCK_RELEASE | NFSLCK_DELEGPURGE)) {
4367                 if (clientid.lval[0] != NFSD_VNET(nfsrvboottime)) {
4368                         ret = NFSERR_STALECLIENTID;
4369                         goto out;
4370                 }
4371         } else if (stateidp->other[0] != NFSD_VNET(nfsrvboottime) &&
4372                 specialid == 0) {
4373                 ret = NFSERR_STALESTATEID;
4374                 goto out;
4375         }
4376
4377         /*
4378          * Read, Write, Setattr and LockT can return NFSERR_GRACE and do
4379          * not use a lock/open owner seqid#, so the check can be done now.
4380          * (The others will be checked, as required, later.)
4381          */
4382         if (!(flags & (NFSLCK_CHECK | NFSLCK_TEST)))
4383                 goto out;
4384
4385         NFSLOCKSTATE();
4386         ret = nfsrv_checkgrace(NULL, NULL, flags);
4387         NFSUNLOCKSTATE();
4388
4389 out:
4390         NFSEXITCODE(ret);
4391         return (ret);
4392 }
4393
4394 /*
4395  * Check for grace.
4396  */
4397 static int
4398 nfsrv_checkgrace(struct nfsrv_descript *nd, struct nfsclient *clp,
4399     u_int32_t flags)
4400 {
4401         int error = 0, notreclaimed;
4402         struct nfsrv_stable *sp;
4403
4404         if ((NFSD_VNET(nfsrv_stablefirst).nsf_flags & (NFSNSF_UPDATEDONE |
4405              NFSNSF_GRACEOVER)) == 0) {
4406                 /*
4407                  * First, check to see if all of the clients have done a
4408                  * ReclaimComplete.  If so, grace can end now.
4409                  */
4410                 notreclaimed = 0;
4411                 LIST_FOREACH(sp, &NFSD_VNET(nfsrv_stablefirst).nsf_head,
4412                     nst_list) {
4413                         if ((sp->nst_flag & NFSNST_RECLAIMED) == 0) {
4414                                 notreclaimed = 1;
4415                                 break;
4416                         }
4417                 }
4418                 if (notreclaimed == 0)
4419                         NFSD_VNET(nfsrv_stablefirst).nsf_flags |=
4420                             (NFSNSF_GRACEOVER | NFSNSF_NEEDLOCK);
4421         }
4422
4423         if ((NFSD_VNET(nfsrv_stablefirst).nsf_flags & NFSNSF_GRACEOVER) != 0) {
4424                 if (flags & NFSLCK_RECLAIM) {
4425                         error = NFSERR_NOGRACE;
4426                         goto out;
4427                 }
4428         } else {
4429                 if (!(flags & NFSLCK_RECLAIM)) {
4430                         error = NFSERR_GRACE;
4431                         goto out;
4432                 }
4433                 if (nd != NULL && clp != NULL &&
4434                     (nd->nd_flag & ND_NFSV41) != 0 &&
4435                     (clp->lc_flags & LCL_RECLAIMCOMPLETE) != 0) {
4436                         error = NFSERR_NOGRACE;
4437                         goto out;
4438                 }
4439
4440                 /*
4441                  * If grace is almost over and we are still getting Reclaims,
4442                  * extend grace a bit.
4443                  */
4444                 if ((NFSD_MONOSEC + NFSRV_LEASEDELTA) >
4445                     NFSD_VNET(nfsrv_stablefirst).nsf_eograce)
4446                         NFSD_VNET(nfsrv_stablefirst).nsf_eograce =
4447                                 NFSD_MONOSEC + NFSRV_LEASEDELTA;
4448         }
4449
4450 out:
4451         NFSEXITCODE(error);
4452         return (error);
4453 }
4454
4455 /*
4456  * Do a server callback.
4457  * The "trunc" argument is slightly overloaded and refers to different
4458  * boolean arguments for CBRECALL and CBLAYOUTRECALL.
4459  */
4460 static int
4461 nfsrv_docallback(struct nfsclient *clp, int procnum, nfsv4stateid_t *stateidp,
4462     int trunc, fhandle_t *fhp, struct nfsvattr *nap, nfsattrbit_t *attrbitp,
4463     int laytype, NFSPROC_T *p)
4464 {
4465         struct mbuf *m;
4466         u_int32_t *tl;
4467         struct nfsrv_descript *nd;
4468         struct ucred *cred;
4469         int error = 0, slotpos;
4470         u_int32_t callback;
4471         struct nfsdsession *sep = NULL;
4472         uint64_t tval;
4473         bool dotls;
4474
4475         nd = malloc(sizeof(*nd), M_TEMP, M_WAITOK | M_ZERO);
4476         cred = newnfs_getcred();
4477         NFSLOCKSTATE(); /* mostly for lc_cbref++ */
4478         if (clp->lc_flags & LCL_NEEDSCONFIRM) {
4479                 NFSUNLOCKSTATE();
4480                 panic("docallb");
4481         }
4482         clp->lc_cbref++;
4483
4484         /*
4485          * Fill the callback program# and version into the request
4486          * structure for newnfs_connect() to use.
4487          */
4488         clp->lc_req.nr_prog = clp->lc_program;
4489 #ifdef notnow
4490         if ((clp->lc_flags & LCL_NFSV41) != 0)
4491                 clp->lc_req.nr_vers = NFSV41_CBVERS;
4492         else
4493 #endif
4494                 clp->lc_req.nr_vers = NFSV4_CBVERS;
4495
4496         /*
4497          * First, fill in some of the fields of nd and cr.
4498          */
4499         nd->nd_flag = ND_NFSV4;
4500         if (clp->lc_flags & LCL_GSS)
4501                 nd->nd_flag |= ND_KERBV;
4502         if ((clp->lc_flags & LCL_NFSV41) != 0)
4503                 nd->nd_flag |= ND_NFSV41;
4504         if ((clp->lc_flags & LCL_NFSV42) != 0)
4505                 nd->nd_flag |= ND_NFSV42;
4506         nd->nd_repstat = 0;
4507         cred->cr_uid = clp->lc_uid;
4508         cred->cr_gid = clp->lc_gid;
4509         callback = clp->lc_callback;
4510         NFSUNLOCKSTATE();
4511         cred->cr_ngroups = 1;
4512
4513         /*
4514          * Get the first mbuf for the request.
4515          */
4516         MGET(m, M_WAITOK, MT_DATA);
4517         m->m_len = 0;
4518         nd->nd_mreq = nd->nd_mb = m;
4519         nd->nd_bpos = mtod(m, caddr_t);
4520
4521         /*
4522          * and build the callback request.
4523          */
4524         if (procnum == NFSV4OP_CBGETATTR) {
4525                 nd->nd_procnum = NFSV4PROC_CBCOMPOUND;
4526                 error = nfsrv_cbcallargs(nd, clp, callback, NFSV4OP_CBGETATTR,
4527                     "CB Getattr", &sep, &slotpos);
4528                 if (error != 0) {
4529                         m_freem(nd->nd_mreq);
4530                         goto errout;
4531                 }
4532                 (void)nfsm_fhtom(NULL, nd, (u_int8_t *)fhp, NFSX_MYFH, 0);
4533                 (void)nfsrv_putattrbit(nd, attrbitp);
4534         } else if (procnum == NFSV4OP_CBRECALL) {
4535                 nd->nd_procnum = NFSV4PROC_CBCOMPOUND;
4536                 error = nfsrv_cbcallargs(nd, clp, callback, NFSV4OP_CBRECALL,
4537                     "CB Recall", &sep, &slotpos);
4538                 if (error != 0) {
4539                         m_freem(nd->nd_mreq);
4540                         goto errout;
4541                 }
4542                 NFSM_BUILD(tl, u_int32_t *, NFSX_UNSIGNED + NFSX_STATEID);
4543                 *tl++ = txdr_unsigned(stateidp->seqid);
4544                 NFSBCOPY((caddr_t)stateidp->other, (caddr_t)tl,
4545                     NFSX_STATEIDOTHER);
4546                 tl += (NFSX_STATEIDOTHER / NFSX_UNSIGNED);
4547                 if (trunc)
4548                         *tl = newnfs_true;
4549                 else
4550                         *tl = newnfs_false;
4551                 (void)nfsm_fhtom(NULL, nd, (u_int8_t *)fhp, NFSX_MYFH, 0);
4552         } else if (procnum == NFSV4OP_CBLAYOUTRECALL) {
4553                 NFSD_DEBUG(4, "docallback layout recall\n");
4554                 nd->nd_procnum = NFSV4PROC_CBCOMPOUND;
4555                 error = nfsrv_cbcallargs(nd, clp, callback,
4556                     NFSV4OP_CBLAYOUTRECALL, "CB Reclayout", &sep, &slotpos);
4557                 NFSD_DEBUG(4, "aft cbcallargs=%d\n", error);
4558                 if (error != 0) {
4559                         m_freem(nd->nd_mreq);
4560                         goto errout;
4561                 }
4562                 NFSM_BUILD(tl, u_int32_t *, 4 * NFSX_UNSIGNED);
4563                 *tl++ = txdr_unsigned(laytype);
4564                 *tl++ = txdr_unsigned(NFSLAYOUTIOMODE_ANY);
4565                 if (trunc)
4566                         *tl++ = newnfs_true;
4567                 else
4568                         *tl++ = newnfs_false;
4569                 *tl = txdr_unsigned(NFSV4LAYOUTRET_FILE);
4570                 (void)nfsm_fhtom(NULL, nd, (uint8_t *)fhp, NFSX_MYFH, 0);
4571                 NFSM_BUILD(tl, u_int32_t *, 2 * NFSX_HYPER + NFSX_STATEID);
4572                 tval = 0;
4573                 txdr_hyper(tval, tl); tl += 2;
4574                 tval = UINT64_MAX;
4575                 txdr_hyper(tval, tl); tl += 2;
4576                 *tl++ = txdr_unsigned(stateidp->seqid);
4577                 NFSBCOPY(stateidp->other, tl, NFSX_STATEIDOTHER);
4578                 tl += (NFSX_STATEIDOTHER / NFSX_UNSIGNED);
4579                 NFSD_DEBUG(4, "aft args\n");
4580         } else if (procnum == NFSV4PROC_CBNULL) {
4581                 nd->nd_procnum = NFSV4PROC_CBNULL;
4582                 if ((clp->lc_flags & LCL_NFSV41) != 0) {
4583                         error = nfsv4_getcbsession(clp, &sep);
4584                         if (error != 0) {
4585                                 m_freem(nd->nd_mreq);
4586                                 goto errout;
4587                         }
4588                 }
4589         } else {
4590                 error = NFSERR_SERVERFAULT;
4591                 m_freem(nd->nd_mreq);
4592                 goto errout;
4593         }
4594
4595         /*
4596          * Call newnfs_connect(), as required, and then newnfs_request().
4597          */
4598         dotls = false;
4599         if ((clp->lc_flags & LCL_TLSCB) != 0)
4600                 dotls = true;
4601         (void) newnfs_sndlock(&clp->lc_req.nr_lock);
4602         if (clp->lc_req.nr_client == NULL) {
4603                 if ((clp->lc_flags & LCL_NFSV41) != 0) {
4604                         error = ECONNREFUSED;
4605                         if (procnum != NFSV4PROC_CBNULL)
4606                                 nfsv4_freeslot(&sep->sess_cbsess, slotpos,
4607                                     true);
4608                         nfsrv_freesession(sep, NULL);
4609                 } else if (nd->nd_procnum == NFSV4PROC_CBNULL)
4610                         error = newnfs_connect(NULL, &clp->lc_req, cred,
4611                             NULL, 1, dotls, &clp->lc_req.nr_client);
4612                 else
4613                         error = newnfs_connect(NULL, &clp->lc_req, cred,
4614                             NULL, 3, dotls, &clp->lc_req.nr_client);
4615         }
4616         newnfs_sndunlock(&clp->lc_req.nr_lock);
4617         NFSD_DEBUG(4, "aft sndunlock=%d\n", error);
4618         if (!error) {
4619                 if ((nd->nd_flag & ND_NFSV41) != 0) {
4620                         KASSERT(sep != NULL, ("sep NULL"));
4621                         if (sep->sess_cbsess.nfsess_xprt != NULL)
4622                                 error = newnfs_request(nd, NULL, clp,
4623                                     &clp->lc_req, NULL, NULL, cred,
4624                                     clp->lc_program, clp->lc_req.nr_vers, NULL,
4625                                     1, NULL, &sep->sess_cbsess);
4626                         else {
4627                                 /*
4628                                  * This should probably never occur, but if a
4629                                  * client somehow does an RPC without a
4630                                  * SequenceID Op that causes a callback just
4631                                  * after the nfsd threads have been terminated
4632                                  * and restared we could conceivably get here
4633                                  * without a backchannel xprt.
4634                                  */
4635                                 printf("nfsrv_docallback: no xprt\n");
4636                                 error = ECONNREFUSED;
4637                         }
4638                         NFSD_DEBUG(4, "aft newnfs_request=%d\n", error);
4639                         if (error != 0 && procnum != NFSV4PROC_CBNULL) {
4640                                 /*
4641                                  * It is likely that the callback was never
4642                                  * processed by the client and, as such,
4643                                  * the sequence# for the session slot needs
4644                                  * to be backed up by one to avoid a
4645                                  * NFSERR_SEQMISORDERED error reply.
4646                                  * For the unlikely case where the callback
4647                                  * was processed by the client, this will
4648                                  * make the next callback on the slot
4649                                  * appear to be a retry.
4650                                  * Since callbacks never specify that the
4651                                  * reply be cached, this "apparent retry"
4652                                  * should not be a problem.
4653                                  */
4654                                 nfsv4_freeslot(&sep->sess_cbsess, slotpos,
4655                                     true);
4656                         }
4657                         nfsrv_freesession(sep, NULL);
4658                 } else
4659                         error = newnfs_request(nd, NULL, clp, &clp->lc_req,
4660                             NULL, NULL, cred, clp->lc_program,
4661                             clp->lc_req.nr_vers, NULL, 1, NULL, NULL);
4662         }
4663 errout:
4664         NFSFREECRED(cred);
4665
4666         /*
4667          * If error is set here, the Callback path isn't working
4668          * properly, so twiddle the appropriate LCL_ flags.
4669          * (nd_repstat != 0 indicates the Callback path is working,
4670          *  but the callback failed on the client.)
4671          */
4672         if (error) {
4673                 /*
4674                  * Mark the callback pathway down, which disabled issuing
4675                  * of delegations and gets Renew to return NFSERR_CBPATHDOWN.
4676                  */
4677                 NFSLOCKSTATE();
4678                 clp->lc_flags |= LCL_CBDOWN;
4679                 NFSUNLOCKSTATE();
4680         } else {
4681                 /*
4682                  * Callback worked. If the callback path was down, disable
4683                  * callbacks, so no more delegations will be issued. (This
4684                  * is done on the assumption that the callback pathway is
4685                  * flakey.)
4686                  */
4687                 NFSLOCKSTATE();
4688                 if (clp->lc_flags & LCL_CBDOWN)
4689                         clp->lc_flags &= ~(LCL_CBDOWN | LCL_CALLBACKSON);
4690                 NFSUNLOCKSTATE();
4691                 if (nd->nd_repstat) {
4692                         error = nd->nd_repstat;
4693                         NFSD_DEBUG(1, "nfsrv_docallback op=%d err=%d\n",
4694                             procnum, error);
4695                 } else if (error == 0 && procnum == NFSV4OP_CBGETATTR)
4696                         error = nfsv4_loadattr(nd, NULL, nap, NULL, NULL, 0,
4697                             NULL, NULL, NULL, NULL, NULL, 0, NULL, NULL, NULL,
4698                             p, NULL);
4699                 m_freem(nd->nd_mrep);
4700         }
4701         NFSLOCKSTATE();
4702         clp->lc_cbref--;
4703         if ((clp->lc_flags & LCL_WAKEUPWANTED) && clp->lc_cbref == 0) {
4704                 clp->lc_flags &= ~LCL_WAKEUPWANTED;
4705                 wakeup(clp);
4706         }
4707         NFSUNLOCKSTATE();
4708
4709         free(nd, M_TEMP);
4710         NFSEXITCODE(error);
4711         return (error);
4712 }
4713
4714 /*
4715  * Set up the compound RPC for the callback.
4716  */
4717 static int
4718 nfsrv_cbcallargs(struct nfsrv_descript *nd, struct nfsclient *clp,
4719     uint32_t callback, int op, const char *optag, struct nfsdsession **sepp,
4720     int *slotposp)
4721 {
4722         uint32_t *tl;
4723         int error, len;
4724
4725         len = strlen(optag);
4726         (void)nfsm_strtom(nd, optag, len);
4727         NFSM_BUILD(tl, uint32_t *, 4 * NFSX_UNSIGNED);
4728         if ((nd->nd_flag & ND_NFSV41) != 0) {
4729                 if ((nd->nd_flag & ND_NFSV42) != 0)
4730                         *tl++ = txdr_unsigned(NFSV42_MINORVERSION);
4731                 else
4732                         *tl++ = txdr_unsigned(NFSV41_MINORVERSION);
4733                 *tl++ = txdr_unsigned(callback);
4734                 *tl++ = txdr_unsigned(2);
4735                 *tl = txdr_unsigned(NFSV4OP_CBSEQUENCE);
4736                 error = nfsv4_setcbsequence(nd, clp, 1, sepp, slotposp);
4737                 if (error != 0)
4738                         return (error);
4739                 NFSM_BUILD(tl, u_int32_t *, NFSX_UNSIGNED);
4740                 *tl = txdr_unsigned(op);
4741         } else {
4742                 *tl++ = txdr_unsigned(NFSV4_MINORVERSION);
4743                 *tl++ = txdr_unsigned(callback);
4744                 *tl++ = txdr_unsigned(1);
4745                 *tl = txdr_unsigned(op);
4746         }
4747         return (0);
4748 }
4749
4750 /*
4751  * Return the next index# for a clientid. Mostly just increment and return
4752  * the next one, but... if the 32bit unsigned does actually wrap around,
4753  * it should be rebooted.
4754  * At an average rate of one new client per second, it will wrap around in
4755  * approximately 136 years. (I think the server will have been shut
4756  * down or rebooted before then.)
4757  */
4758 static u_int32_t
4759 nfsrv_nextclientindex(void)
4760 {
4761         static u_int32_t client_index = 0;
4762
4763         client_index++;
4764         if (client_index != 0)
4765                 return (client_index);
4766
4767         printf("%s: out of clientids\n", __func__);
4768         return (client_index);
4769 }
4770
4771 /*
4772  * Return the next index# for a stateid. Mostly just increment and return
4773  * the next one, but... if the 32bit unsigned does actually wrap around
4774  * (will a BSD server stay up that long?), find
4775  * new start and end values.
4776  */
4777 static u_int32_t
4778 nfsrv_nextstateindex(struct nfsclient *clp)
4779 {
4780         struct nfsstate *stp;
4781         int i;
4782         u_int32_t canuse, min_index, max_index;
4783
4784         if (!(clp->lc_flags & LCL_INDEXNOTOK)) {
4785                 clp->lc_stateindex++;
4786                 if (clp->lc_stateindex != clp->lc_statemaxindex)
4787                         return (clp->lc_stateindex);
4788         }
4789
4790         /*
4791          * Yuck, we've hit the end.
4792          * Look for a new min and max.
4793          */
4794         min_index = 0;
4795         max_index = 0xffffffff;
4796         for (i = 0; i < nfsrv_statehashsize; i++) {
4797             LIST_FOREACH(stp, &clp->lc_stateid[i], ls_hash) {
4798                 if (stp->ls_stateid.other[2] > 0x80000000) {
4799                     if (stp->ls_stateid.other[2] < max_index)
4800                         max_index = stp->ls_stateid.other[2];
4801                 } else {
4802                     if (stp->ls_stateid.other[2] > min_index)
4803                         min_index = stp->ls_stateid.other[2];
4804                 }
4805             }
4806         }
4807
4808         /*
4809          * Yikes, highly unlikely, but I'll handle it anyhow.
4810          */
4811         if (min_index == 0x80000000 && max_index == 0x80000001) {
4812             canuse = 0;
4813             /*
4814              * Loop around until we find an unused entry. Return that
4815              * and set LCL_INDEXNOTOK, so the search will continue next time.
4816              * (This is one of those rare cases where a goto is the
4817              *  cleanest way to code the loop.)
4818              */
4819 tryagain:
4820             for (i = 0; i < nfsrv_statehashsize; i++) {
4821                 LIST_FOREACH(stp, &clp->lc_stateid[i], ls_hash) {
4822                     if (stp->ls_stateid.other[2] == canuse) {
4823                         canuse++;
4824                         goto tryagain;
4825                     }
4826                 }
4827             }
4828             clp->lc_flags |= LCL_INDEXNOTOK;
4829             return (canuse);
4830         }
4831
4832         /*
4833          * Ok to start again from min + 1.
4834          */
4835         clp->lc_stateindex = min_index + 1;
4836         clp->lc_statemaxindex = max_index;
4837         clp->lc_flags &= ~LCL_INDEXNOTOK;
4838         return (clp->lc_stateindex);
4839 }
4840
4841 /*
4842  * The following functions handle the stable storage file that deals with
4843  * the edge conditions described in RFC3530 Sec. 8.6.3.
4844  * The file is as follows:
4845  * - a single record at the beginning that has the lease time of the
4846  *   previous server instance (before the last reboot) and the nfsrvboottime
4847  *   values for the previous server boots.
4848  *   These previous boot times are used to ensure that the current
4849  *   nfsrvboottime does not, somehow, get set to a previous one.
4850  *   (This is important so that Stale ClientIDs and StateIDs can
4851  *    be recognized.)
4852  *   The number of previous nfsvrboottime values precedes the list.
4853  * - followed by some number of appended records with:
4854  *   - client id string
4855  *   - flag that indicates it is a record revoking state via lease
4856  *     expiration or similar
4857  *     OR has successfully acquired state.
4858  * These structures vary in length, with the client string at the end, up
4859  * to NFSV4_OPAQUELIMIT in size.
4860  *
4861  * At the end of the grace period, the file is truncated, the first
4862  * record is rewritten with updated information and any acquired state
4863  * records for successful reclaims of state are written.
4864  *
4865  * Subsequent records are appended when the first state is issued to
4866  * a client and when state is revoked for a client.
4867  *
4868  * When reading the file in, state issued records that come later in
4869  * the file override older ones, since the append log is in cronological order.
4870  * If, for some reason, the file can't be read, the grace period is
4871  * immediately terminated and all reclaims get NFSERR_NOGRACE.
4872  */
4873
4874 /*
4875  * Read in the stable storage file. Called by nfssvc() before the nfsd
4876  * processes start servicing requests.
4877  */
4878 void
4879 nfsrv_setupstable(NFSPROC_T *p)
4880 {
4881         struct nfsrv_stablefirst *sf = &NFSD_VNET(nfsrv_stablefirst);
4882         struct nfsrv_stable *sp, *nsp;
4883         struct nfst_rec *tsp;
4884         int error, i, tryagain;
4885         off_t off = 0;
4886         ssize_t aresid, len;
4887
4888         /*
4889          * If NFSNSF_UPDATEDONE is set, this is a restart of the nfsds without
4890          * a reboot, so state has not been lost.
4891          */
4892         if (sf->nsf_flags & NFSNSF_UPDATEDONE)
4893                 return;
4894         /*
4895          * Set Grace over just until the file reads successfully.
4896          */
4897         NFSD_VNET(nfsrvboottime) = time_second;
4898         LIST_INIT(&sf->nsf_head);
4899         sf->nsf_flags = (NFSNSF_GRACEOVER | NFSNSF_NEEDLOCK);
4900         sf->nsf_eograce = NFSD_MONOSEC + NFSRV_LEASEDELTA;
4901         if (sf->nsf_fp == NULL)
4902                 return;
4903         error = NFSD_RDWR(UIO_READ, NFSFPVNODE(sf->nsf_fp),
4904             (caddr_t)&sf->nsf_rec, sizeof (struct nfsf_rec), off, UIO_SYSSPACE,
4905             0, NFSFPCRED(sf->nsf_fp), &aresid, p);
4906         if (error || aresid || sf->nsf_numboots == 0 ||
4907                 sf->nsf_numboots > NFSNSF_MAXNUMBOOTS)
4908                 return;
4909
4910         /*
4911          * Now, read in the boottimes.
4912          */
4913         sf->nsf_bootvals = (time_t *)malloc((sf->nsf_numboots + 1) *
4914                 sizeof(time_t), M_TEMP, M_WAITOK);
4915         off = sizeof (struct nfsf_rec);
4916         error = NFSD_RDWR(UIO_READ, NFSFPVNODE(sf->nsf_fp),
4917             (caddr_t)sf->nsf_bootvals, sf->nsf_numboots * sizeof (time_t), off,
4918             UIO_SYSSPACE, 0, NFSFPCRED(sf->nsf_fp), &aresid, p);
4919         if (error || aresid) {
4920                 free(sf->nsf_bootvals, M_TEMP);
4921                 sf->nsf_bootvals = NULL;
4922                 return;
4923         }
4924
4925         /*
4926          * Make sure this nfsrvboottime is different from all recorded
4927          * previous ones.
4928          */
4929         do {
4930                 tryagain = 0;
4931                 for (i = 0; i < sf->nsf_numboots; i++) {
4932                         if (NFSD_VNET(nfsrvboottime) == sf->nsf_bootvals[i]) {
4933                                 NFSD_VNET(nfsrvboottime)++;
4934                                 tryagain = 1;
4935                                 break;
4936                         }
4937                 }
4938         } while (tryagain);
4939
4940         sf->nsf_flags |= NFSNSF_OK;
4941         off += (sf->nsf_numboots * sizeof (time_t));
4942
4943         /*
4944          * Read through the file, building a list of records for grace
4945          * checking.
4946          * Each record is between sizeof (struct nfst_rec) and
4947          * sizeof (struct nfst_rec) + NFSV4_OPAQUELIMIT - 1
4948          * and is actually sizeof (struct nfst_rec) + nst_len - 1.
4949          */
4950         tsp = (struct nfst_rec *)malloc(sizeof (struct nfst_rec) +
4951                 NFSV4_OPAQUELIMIT - 1, M_TEMP, M_WAITOK);
4952         do {
4953             error = NFSD_RDWR(UIO_READ, NFSFPVNODE(sf->nsf_fp),
4954                 (caddr_t)tsp, sizeof (struct nfst_rec) + NFSV4_OPAQUELIMIT - 1,
4955                 off, UIO_SYSSPACE, 0, NFSFPCRED(sf->nsf_fp), &aresid, p);
4956             len = (sizeof (struct nfst_rec) + NFSV4_OPAQUELIMIT - 1) - aresid;
4957             if (error || (len > 0 && (len < sizeof (struct nfst_rec) ||
4958                 len < (sizeof (struct nfst_rec) + tsp->len - 1)))) {
4959                 /*
4960                  * Yuck, the file has been corrupted, so just return
4961                  * after clearing out any restart state, so the grace period
4962                  * is over.
4963                  */
4964                 LIST_FOREACH_SAFE(sp, &sf->nsf_head, nst_list, nsp) {
4965                         LIST_REMOVE(sp, nst_list);
4966                         free(sp, M_TEMP);
4967                 }
4968                 free(tsp, M_TEMP);
4969                 sf->nsf_flags &= ~NFSNSF_OK;
4970                 free(sf->nsf_bootvals, M_TEMP);
4971                 sf->nsf_bootvals = NULL;
4972                 return;
4973             }
4974             if (len > 0) {
4975                 off += sizeof (struct nfst_rec) + tsp->len - 1;
4976                 /*
4977                  * Search the list for a matching client.
4978                  */
4979                 LIST_FOREACH(sp, &sf->nsf_head, nst_list) {
4980                         if (tsp->len == sp->nst_len &&
4981                             !NFSBCMP(tsp->client, sp->nst_client, tsp->len))
4982                                 break;
4983                 }
4984                 if (sp == LIST_END(&sf->nsf_head)) {
4985                         sp = (struct nfsrv_stable *)malloc(tsp->len +
4986                                 sizeof (struct nfsrv_stable) - 1, M_TEMP,
4987                                 M_WAITOK);
4988                         NFSBCOPY((caddr_t)tsp, (caddr_t)&sp->nst_rec,
4989                                 sizeof (struct nfst_rec) + tsp->len - 1);
4990                         LIST_INSERT_HEAD(&sf->nsf_head, sp, nst_list);
4991                 } else {
4992                         if (tsp->flag == NFSNST_REVOKE)
4993                                 sp->nst_flag |= NFSNST_REVOKE;
4994                         else
4995                                 /*
4996                                  * A subsequent timestamp indicates the client
4997                                  * did a setclientid/confirm and any previous
4998                                  * revoke is no longer relevant.
4999                                  */
5000                                 sp->nst_flag &= ~NFSNST_REVOKE;
5001                 }
5002             }
5003         } while (len > 0);
5004         free(tsp, M_TEMP);
5005         sf->nsf_flags = NFSNSF_OK;
5006         sf->nsf_eograce = NFSD_MONOSEC + sf->nsf_lease +
5007                 NFSRV_LEASEDELTA;
5008 }
5009
5010 /*
5011  * Update the stable storage file, now that the grace period is over.
5012  */
5013 void
5014 nfsrv_updatestable(NFSPROC_T *p)
5015 {
5016         struct nfsrv_stablefirst *sf = &NFSD_VNET(nfsrv_stablefirst);
5017         struct nfsrv_stable *sp, *nsp;
5018         int i;
5019         struct nfsvattr nva;
5020         vnode_t vp;
5021 #if defined(__FreeBSD_version) && (__FreeBSD_version >= 500000)
5022         mount_t mp = NULL;
5023 #endif
5024         int error;
5025
5026         if (sf->nsf_fp == NULL || (sf->nsf_flags & NFSNSF_UPDATEDONE))
5027                 return;
5028         sf->nsf_flags |= NFSNSF_UPDATEDONE;
5029         /*
5030          * Ok, we need to rewrite the stable storage file.
5031          * - truncate to 0 length
5032          * - write the new first structure
5033          * - loop through the data structures, writing out any that
5034          *   have timestamps older than the old boot
5035          */
5036         if (sf->nsf_bootvals) {
5037                 sf->nsf_numboots++;
5038                 for (i = sf->nsf_numboots - 2; i >= 0; i--)
5039                         sf->nsf_bootvals[i + 1] = sf->nsf_bootvals[i];
5040         } else {
5041                 sf->nsf_numboots = 1;
5042                 sf->nsf_bootvals = (time_t *)malloc(sizeof(time_t),
5043                         M_TEMP, M_WAITOK);
5044         }
5045         sf->nsf_bootvals[0] = NFSD_VNET(nfsrvboottime);
5046         sf->nsf_lease = nfsrv_lease;
5047         NFSVNO_ATTRINIT(&nva);
5048         NFSVNO_SETATTRVAL(&nva, size, 0);
5049         vp = NFSFPVNODE(sf->nsf_fp);
5050         vn_start_write(vp, &mp, V_WAIT);
5051         if (NFSVOPLOCK(vp, LK_EXCLUSIVE) == 0) {
5052                 error = nfsvno_setattr(vp, &nva, NFSFPCRED(sf->nsf_fp), p,
5053                     NULL);
5054                 NFSVOPUNLOCK(vp);
5055         } else
5056                 error = EPERM;
5057         vn_finished_write(mp);
5058         if (!error)
5059             error = NFSD_RDWR(UIO_WRITE, vp,
5060                 (caddr_t)&sf->nsf_rec, sizeof (struct nfsf_rec), (off_t)0,
5061                 UIO_SYSSPACE, IO_SYNC, NFSFPCRED(sf->nsf_fp), NULL, p);
5062         if (!error)
5063             error = NFSD_RDWR(UIO_WRITE, vp,
5064                 (caddr_t)sf->nsf_bootvals,
5065                 sf->nsf_numboots * sizeof (time_t),
5066                 (off_t)(sizeof (struct nfsf_rec)),
5067                 UIO_SYSSPACE, IO_SYNC, NFSFPCRED(sf->nsf_fp), NULL, p);
5068         free(sf->nsf_bootvals, M_TEMP);
5069         sf->nsf_bootvals = NULL;
5070         if (error) {
5071                 sf->nsf_flags &= ~NFSNSF_OK;
5072                 printf("EEK! Can't write NfsV4 stable storage file\n");
5073                 return;
5074         }
5075         sf->nsf_flags |= NFSNSF_OK;
5076
5077         /*
5078          * Loop through the list and write out timestamp records for
5079          * any clients that successfully reclaimed state.
5080          */
5081         LIST_FOREACH_SAFE(sp, &sf->nsf_head, nst_list, nsp) {
5082                 if (sp->nst_flag & NFSNST_GOTSTATE) {
5083                         nfsrv_writestable(sp->nst_client, sp->nst_len,
5084                                 NFSNST_NEWSTATE, p);
5085                         sp->nst_clp->lc_flags |= LCL_STAMPEDSTABLE;
5086                 }
5087                 LIST_REMOVE(sp, nst_list);
5088                 free(sp, M_TEMP);
5089         }
5090         nfsrv_backupstable();
5091 }
5092
5093 /*
5094  * Append a record to the stable storage file.
5095  */
5096 void
5097 nfsrv_writestable(u_char *client, int len, int flag, NFSPROC_T *p)
5098 {
5099         struct nfsrv_stablefirst *sf = &NFSD_VNET(nfsrv_stablefirst);
5100         struct nfst_rec *sp;
5101         int error;
5102
5103         if (!(sf->nsf_flags & NFSNSF_OK) || sf->nsf_fp == NULL)
5104                 return;
5105         sp = (struct nfst_rec *)malloc(sizeof (struct nfst_rec) +
5106                 len - 1, M_TEMP, M_WAITOK);
5107         sp->len = len;
5108         NFSBCOPY(client, sp->client, len);
5109         sp->flag = flag;
5110         error = NFSD_RDWR(UIO_WRITE, NFSFPVNODE(sf->nsf_fp),
5111             (caddr_t)sp, sizeof (struct nfst_rec) + len - 1, (off_t)0,
5112             UIO_SYSSPACE, (IO_SYNC | IO_APPEND), NFSFPCRED(sf->nsf_fp), NULL, p);
5113         free(sp, M_TEMP);
5114         if (error) {
5115                 sf->nsf_flags &= ~NFSNSF_OK;
5116                 printf("EEK! Can't write NfsV4 stable storage file\n");
5117         }
5118 }
5119
5120 /*
5121  * This function is called during the grace period to mark a client
5122  * that successfully reclaimed state.
5123  */
5124 static void
5125 nfsrv_markstable(struct nfsclient *clp)
5126 {
5127         struct nfsrv_stable *sp;
5128
5129         /*
5130          * First find the client structure.
5131          */
5132         LIST_FOREACH(sp, &NFSD_VNET(nfsrv_stablefirst).nsf_head, nst_list) {
5133                 if (sp->nst_len == clp->lc_idlen &&
5134                     !NFSBCMP(sp->nst_client, clp->lc_id, sp->nst_len))
5135                         break;
5136         }
5137         if (sp == LIST_END(&NFSD_VNET(nfsrv_stablefirst).nsf_head))
5138                 return;
5139
5140         /*
5141          * Now, just mark it and set the nfsclient back pointer.
5142          */
5143         sp->nst_flag |= NFSNST_GOTSTATE;
5144         sp->nst_clp = clp;
5145 }
5146
5147 /*
5148  * This function is called when a NFSv4.1 client does a ReclaimComplete.
5149  * Very similar to nfsrv_markstable(), except for the flag being set.
5150  */
5151 static void
5152 nfsrv_markreclaim(struct nfsclient *clp)
5153 {
5154         struct nfsrv_stable *sp;
5155
5156         /*
5157          * First find the client structure.
5158          */
5159         LIST_FOREACH(sp, &NFSD_VNET(nfsrv_stablefirst).nsf_head, nst_list) {
5160                 if (sp->nst_len == clp->lc_idlen &&
5161                     !NFSBCMP(sp->nst_client, clp->lc_id, sp->nst_len))
5162                         break;
5163         }
5164         if (sp == LIST_END(&NFSD_VNET(nfsrv_stablefirst).nsf_head))
5165                 return;
5166
5167         /*
5168          * Now, just set the flag.
5169          */
5170         sp->nst_flag |= NFSNST_RECLAIMED;
5171 }
5172
5173 /*
5174  * This function is called for a reclaim, to see if it gets grace.
5175  * It returns 0 if a reclaim is allowed, 1 otherwise.
5176  */
5177 static int
5178 nfsrv_checkstable(struct nfsclient *clp)
5179 {
5180         struct nfsrv_stable *sp;
5181
5182         /*
5183          * First, find the entry for the client.
5184          */
5185         LIST_FOREACH(sp, &NFSD_VNET(nfsrv_stablefirst).nsf_head, nst_list) {
5186                 if (sp->nst_len == clp->lc_idlen &&
5187                     !NFSBCMP(sp->nst_client, clp->lc_id, sp->nst_len))
5188                         break;
5189         }
5190
5191         /*
5192          * If not in the list, state was revoked or no state was issued
5193          * since the previous reboot, a reclaim is denied.
5194          */
5195         if (sp == LIST_END(&NFSD_VNET(nfsrv_stablefirst).nsf_head) ||
5196             (sp->nst_flag & NFSNST_REVOKE) ||
5197             !(NFSD_VNET(nfsrv_stablefirst).nsf_flags & NFSNSF_OK))
5198                 return (1);
5199         return (0);
5200 }
5201
5202 /*
5203  * Test for and try to clear out a conflicting client. This is called by
5204  * nfsrv_lockctrl() and nfsrv_openctrl() when conflicts with other clients
5205  * a found.
5206  * The trick here is that it can't revoke a conflicting client with an
5207  * expired lease unless it holds the v4root lock, so...
5208  * If no v4root lock, get the lock and return 1 to indicate "try again".
5209  * Return 0 to indicate the conflict can't be revoked and 1 to indicate
5210  * the revocation worked and the conflicting client is "bye, bye", so it
5211  * can be tried again.
5212  * Return 2 to indicate that the vnode is VIRF_DOOMED after NFSVOPLOCK().
5213  * Unlocks State before a non-zero value is returned.
5214  */
5215 static int
5216 nfsrv_clientconflict(struct nfsclient *clp, int *haslockp, vnode_t vp,
5217     NFSPROC_T *p)
5218 {
5219         int gotlock, lktype = 0;
5220
5221         /*
5222          * If lease hasn't expired, we can't fix it.
5223          */
5224         if (clp->lc_expiry >= NFSD_MONOSEC ||
5225             !(NFSD_VNET(nfsrv_stablefirst).nsf_flags & NFSNSF_UPDATEDONE))
5226                 return (0);
5227         if (*haslockp == 0) {
5228                 NFSUNLOCKSTATE();
5229                 if (vp != NULL) {
5230                         lktype = NFSVOPISLOCKED(vp);
5231                         NFSVOPUNLOCK(vp);
5232                 }
5233                 NFSLOCKV4ROOTMUTEX();
5234                 nfsv4_relref(&nfsv4rootfs_lock);
5235                 do {
5236                         gotlock = nfsv4_lock(&nfsv4rootfs_lock, 1, NULL,
5237                             NFSV4ROOTLOCKMUTEXPTR, NULL);
5238                 } while (!gotlock);
5239                 NFSUNLOCKV4ROOTMUTEX();
5240                 *haslockp = 1;
5241                 if (vp != NULL) {
5242                         NFSVOPLOCK(vp, lktype | LK_RETRY);
5243                         if (VN_IS_DOOMED(vp))
5244                                 return (2);
5245                 }
5246                 return (1);
5247         }
5248         NFSUNLOCKSTATE();
5249
5250         /*
5251          * Ok, we can expire the conflicting client.
5252          */
5253         nfsrv_writestable(clp->lc_id, clp->lc_idlen, NFSNST_REVOKE, p);
5254         nfsrv_backupstable();
5255         nfsrv_cleanclient(clp, p);
5256         nfsrv_freedeleglist(&clp->lc_deleg);
5257         nfsrv_freedeleglist(&clp->lc_olddeleg);
5258         LIST_REMOVE(clp, lc_hash);
5259         nfsrv_zapclient(clp, p);
5260         return (1);
5261 }
5262
5263 /*
5264  * Resolve a delegation conflict.
5265  * Returns 0 to indicate the conflict was resolved without sleeping.
5266  * Return -1 to indicate that the caller should check for conflicts again.
5267  * Return > 0 for an error that should be returned, normally NFSERR_DELAY.
5268  *
5269  * Also, manipulate the nfsv4root_lock, as required. It isn't changed
5270  * for a return of 0, since there was no sleep and it could be required
5271  * later. It is released for a return of NFSERR_DELAY, since the caller
5272  * will return that error. It is released when a sleep was done waiting
5273  * for the delegation to be returned or expire (so that other nfsds can
5274  * handle ops). Then, it must be acquired for the write to stable storage.
5275  * (This function is somewhat similar to nfsrv_clientconflict(), but
5276  *  the semantics differ in a couple of subtle ways. The return of 0
5277  *  indicates the conflict was resolved without sleeping here, not
5278  *  that the conflict can't be resolved and the handling of nfsv4root_lock
5279  *  differs, as noted above.)
5280  * Unlocks State before returning a non-zero value.
5281  */
5282 static int
5283 nfsrv_delegconflict(struct nfsstate *stp, int *haslockp, NFSPROC_T *p,
5284     vnode_t vp)
5285 {
5286         struct nfsclient *clp = stp->ls_clp;
5287         int gotlock, error, lktype = 0, retrycnt, zapped_clp;
5288         nfsv4stateid_t tstateid;
5289         fhandle_t tfh;
5290
5291         /*
5292          * If the conflict is with an old delegation...
5293          */
5294         if (stp->ls_flags & NFSLCK_OLDDELEG) {
5295                 /*
5296                  * You can delete it, if it has expired.
5297                  */
5298                 if (clp->lc_delegtime < NFSD_MONOSEC) {
5299                         nfsrv_freedeleg(stp);
5300                         NFSUNLOCKSTATE();
5301                         error = -1;
5302                         goto out;
5303                 }
5304                 NFSUNLOCKSTATE();
5305                 /*
5306                  * During this delay, the old delegation could expire or it
5307                  * could be recovered by the client via an Open with
5308                  * CLAIM_DELEGATE_PREV.
5309                  * Release the nfsv4root_lock, if held.
5310                  */
5311                 if (*haslockp) {
5312                         *haslockp = 0;
5313                         NFSLOCKV4ROOTMUTEX();
5314                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
5315                         NFSUNLOCKV4ROOTMUTEX();
5316                 }
5317                 error = NFSERR_DELAY;
5318                 goto out;
5319         }
5320
5321         /*
5322          * It's a current delegation, so:
5323          * - check to see if the delegation has expired
5324          *   - if so, get the v4root lock and then expire it
5325          */
5326         if ((stp->ls_flags & NFSLCK_DELEGRECALL) == 0 || (stp->ls_lastrecall <
5327             NFSD_MONOSEC && clp->lc_expiry >= NFSD_MONOSEC &&
5328             stp->ls_delegtime >= NFSD_MONOSEC)) {
5329                 /*
5330                  * - do a recall callback, since not yet done
5331                  * For now, never allow truncate to be set. To use
5332                  * truncate safely, it must be guaranteed that the
5333                  * Remove, Rename or Setattr with size of 0 will
5334                  * succeed and that would require major changes to
5335                  * the VFS/Vnode OPs.
5336                  * Set the expiry time large enough so that it won't expire
5337                  * until after the callback, then set it correctly, once
5338                  * the callback is done. (The delegation will now time
5339                  * out whether or not the Recall worked ok. The timeout
5340                  * will be extended when ops are done on the delegation
5341                  * stateid, up to the timelimit.)
5342                  */
5343                 if ((stp->ls_flags & NFSLCK_DELEGRECALL) == 0) {
5344                         stp->ls_delegtime = NFSD_MONOSEC + (2 * nfsrv_lease) +
5345                             NFSRV_LEASEDELTA;
5346                         stp->ls_delegtimelimit = NFSD_MONOSEC + (6 *
5347                             nfsrv_lease) + NFSRV_LEASEDELTA;
5348                         stp->ls_flags |= NFSLCK_DELEGRECALL;
5349                 }
5350                 stp->ls_lastrecall = time_uptime + 1;
5351
5352                 /*
5353                  * Loop NFSRV_CBRETRYCNT times while the CBRecall replies
5354                  * NFSERR_BADSTATEID or NFSERR_BADHANDLE. This is done
5355                  * in order to try and avoid a race that could happen
5356                  * when a CBRecall request passed the Open reply with
5357                  * the delegation in it when transitting the network.
5358                  * Since nfsrv_docallback will sleep, don't use stp after
5359                  * the call.
5360                  */
5361                 NFSBCOPY((caddr_t)&stp->ls_stateid, (caddr_t)&tstateid,
5362                     sizeof (tstateid));
5363                 NFSBCOPY((caddr_t)&stp->ls_lfp->lf_fh, (caddr_t)&tfh,
5364                     sizeof (tfh));
5365                 NFSUNLOCKSTATE();
5366                 if (*haslockp) {
5367                         *haslockp = 0;
5368                         NFSLOCKV4ROOTMUTEX();
5369                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
5370                         NFSUNLOCKV4ROOTMUTEX();
5371                 }
5372                 retrycnt = 0;
5373                 do {
5374                     error = nfsrv_docallback(clp, NFSV4OP_CBRECALL,
5375                         &tstateid, 0, &tfh, NULL, NULL, 0, p);
5376                     retrycnt++;
5377                 } while ((error == NFSERR_BADSTATEID ||
5378                     error == NFSERR_BADHANDLE) && retrycnt < NFSV4_CBRETRYCNT);
5379                 error = NFSERR_DELAY;
5380                 goto out;
5381         }
5382
5383         if (clp->lc_expiry >= NFSD_MONOSEC &&
5384             stp->ls_delegtime >= NFSD_MONOSEC) {
5385                 NFSUNLOCKSTATE();
5386                 /*
5387                  * A recall has been done, but it has not yet expired.
5388                  * So, RETURN_DELAY.
5389                  */
5390                 if (*haslockp) {
5391                         *haslockp = 0;
5392                         NFSLOCKV4ROOTMUTEX();
5393                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
5394                         NFSUNLOCKV4ROOTMUTEX();
5395                 }
5396                 error = NFSERR_DELAY;
5397                 goto out;
5398         }
5399
5400         /*
5401          * If we don't yet have the lock, just get it and then return,
5402          * since we need that before deleting expired state, such as
5403          * this delegation.
5404          * When getting the lock, unlock the vnode, so other nfsds that
5405          * are in progress, won't get stuck waiting for the vnode lock.
5406          */
5407         if (*haslockp == 0) {
5408                 NFSUNLOCKSTATE();
5409                 if (vp != NULL) {
5410                         lktype = NFSVOPISLOCKED(vp);
5411                         NFSVOPUNLOCK(vp);
5412                 }
5413                 NFSLOCKV4ROOTMUTEX();
5414                 nfsv4_relref(&nfsv4rootfs_lock);
5415                 do {
5416                         gotlock = nfsv4_lock(&nfsv4rootfs_lock, 1, NULL,
5417                             NFSV4ROOTLOCKMUTEXPTR, NULL);
5418                 } while (!gotlock);
5419                 NFSUNLOCKV4ROOTMUTEX();
5420                 *haslockp = 1;
5421                 if (vp != NULL) {
5422                         NFSVOPLOCK(vp, lktype | LK_RETRY);
5423                         if (VN_IS_DOOMED(vp)) {
5424                                 *haslockp = 0;
5425                                 NFSLOCKV4ROOTMUTEX();
5426                                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
5427                                 NFSUNLOCKV4ROOTMUTEX();
5428                                 error = NFSERR_PERM;
5429                                 goto out;
5430                         }
5431                 }
5432                 error = -1;
5433                 goto out;
5434         }
5435
5436         NFSUNLOCKSTATE();
5437         /*
5438          * Ok, we can delete the expired delegation.
5439          * First, write the Revoke record to stable storage and then
5440          * clear out the conflict.
5441          * Since all other nfsd threads are now blocked, we can safely
5442          * sleep without the state changing.
5443          */
5444         nfsrv_writestable(clp->lc_id, clp->lc_idlen, NFSNST_REVOKE, p);
5445         nfsrv_backupstable();
5446         if (clp->lc_expiry < NFSD_MONOSEC) {
5447                 nfsrv_cleanclient(clp, p);
5448                 nfsrv_freedeleglist(&clp->lc_deleg);
5449                 nfsrv_freedeleglist(&clp->lc_olddeleg);
5450                 LIST_REMOVE(clp, lc_hash);
5451                 zapped_clp = 1;
5452         } else {
5453                 nfsrv_freedeleg(stp);
5454                 zapped_clp = 0;
5455         }
5456         if (zapped_clp)
5457                 nfsrv_zapclient(clp, p);
5458         error = -1;
5459
5460 out:
5461         NFSEXITCODE(error);
5462         return (error);
5463 }
5464
5465 /*
5466  * Check for a remove allowed, if remove is set to 1 and get rid of
5467  * delegations.
5468  */
5469 int
5470 nfsrv_checkremove(vnode_t vp, int remove, struct nfsrv_descript *nd,
5471     nfsquad_t clientid, NFSPROC_T *p)
5472 {
5473         struct nfsclient *clp;
5474         struct nfsstate *stp;
5475         struct nfslockfile *lfp;
5476         int error, haslock = 0;
5477         fhandle_t nfh;
5478
5479         clp = NULL;
5480         /*
5481          * First, get the lock file structure.
5482          * (A return of -1 means no associated state, so remove ok.)
5483          */
5484         error = nfsrv_getlockfh(vp, NFSLCK_CHECK, NULL, &nfh, p);
5485 tryagain:
5486         NFSLOCKSTATE();
5487         if (error == 0 && clientid.qval != 0)
5488                 error = nfsrv_getclient(clientid, CLOPS_RENEW, &clp, NULL,
5489                     (nfsquad_t)((u_quad_t)0), 0, nd, p);
5490         if (!error)
5491                 error = nfsrv_getlockfile(NFSLCK_CHECK, NULL, &lfp, &nfh, 0);
5492         if (error) {
5493                 NFSUNLOCKSTATE();
5494                 if (haslock) {
5495                         NFSLOCKV4ROOTMUTEX();
5496                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
5497                         NFSUNLOCKV4ROOTMUTEX();
5498                 }
5499                 if (error == -1)
5500                         error = 0;
5501                 goto out;
5502         }
5503
5504         /*
5505          * Now, we must Recall any delegations.
5506          */
5507         error = nfsrv_cleandeleg(vp, lfp, clp, &haslock, p);
5508         if (error) {
5509                 /*
5510                  * nfsrv_cleandeleg() unlocks state for non-zero
5511                  * return.
5512                  */
5513                 if (error == -1)
5514                         goto tryagain;
5515                 if (haslock) {
5516                         NFSLOCKV4ROOTMUTEX();
5517                         nfsv4_unlock(&nfsv4rootfs_lock, 1);
5518                         NFSUNLOCKV4ROOTMUTEX();
5519                 }
5520                 goto out;
5521         }
5522
5523         /*
5524          * Now, look for a conflicting open share.
5525          */
5526         if (remove) {
5527                 /*
5528                  * If the entry in the directory was the last reference to the
5529                  * corresponding filesystem object, the object can be destroyed
5530                  * */
5531                 if(lfp->lf_usecount>1)
5532                         LIST_FOREACH(stp, &lfp->lf_open, ls_file) {
5533                                 if (stp->ls_flags & NFSLCK_WRITEDENY) {
5534                                         error = NFSERR_FILEOPEN;
5535                                         break;
5536                                 }
5537                         }
5538         }
5539
5540         NFSUNLOCKSTATE();
5541         if (haslock) {
5542                 NFSLOCKV4ROOTMUTEX();
5543                 nfsv4_unlock(&nfsv4rootfs_lock, 1);
5544                 NFSUNLOCKV4ROOTMUTEX();
5545         }
5546
5547 out:
5548         NFSEXITCODE(error);
5549         return (error);
5550 }
5551
5552 /*
5553  * Clear out all delegations for the file referred to by lfp.
5554  * May return NFSERR_DELAY, if there will be a delay waiting for
5555  * delegations to expire.
5556  * Returns -1 to indicate it slept while recalling a delegation.
5557  * This function has the side effect of deleting the nfslockfile structure,
5558  * if it no longer has associated state and didn't have to sleep.
5559  * Unlocks State before a non-zero value is returned.
5560  */
5561 static int
5562 nfsrv_cleandeleg(vnode_t vp, struct nfslockfile *lfp,
5563     struct nfsclient *clp, int *haslockp, NFSPROC_T *p)
5564 {
5565         struct nfsstate *stp, *nstp;
5566         int ret = 0;
5567
5568         stp = LIST_FIRST(&lfp->lf_deleg);
5569         while (stp != LIST_END(&lfp->lf_deleg)) {
5570                 nstp = LIST_NEXT(stp, ls_file);
5571                 if (stp->ls_clp != clp) {
5572                         ret = nfsrv_delegconflict(stp, haslockp, p, vp);
5573                         if (ret) {
5574                                 /*
5575                                  * nfsrv_delegconflict() unlocks state
5576                                  * when it returns non-zero.
5577                                  */
5578                                 goto out;
5579                         }
5580                 }
5581                 stp = nstp;
5582         }
5583 out:
5584         NFSEXITCODE(ret);
5585         return (ret);
5586 }
5587
5588 /*
5589  * There are certain operations that, when being done outside of NFSv4,
5590  * require that any NFSv4 delegation for the file be recalled.
5591  * This function is to be called for those cases:
5592  * VOP_RENAME() - When a delegation is being recalled for any reason,
5593  *      the client may have to do Opens against the server, using the file's
5594  *      final component name. If the file has been renamed on the server,
5595  *      that component name will be incorrect and the Open will fail.
5596  * VOP_REMOVE() - Theoretically, a client could Open a file after it has
5597  *      been removed on the server, if there is a delegation issued to
5598  *      that client for the file. I say "theoretically" since clients
5599  *      normally do an Access Op before the Open and that Access Op will
5600  *      fail with ESTALE. Note that NFSv2 and 3 don't even do Opens, so
5601  *      they will detect the file's removal in the same manner. (There is
5602  *      one case where RFC3530 allows a client to do an Open without first
5603  *      doing an Access Op, which is passage of a check against the ACE
5604  *      returned with a Write delegation, but current practice is to ignore
5605  *      the ACE and always do an Access Op.)
5606  *      Since the functions can only be called with an unlocked vnode, this
5607  *      can't be done at this time.
5608  * VOP_ADVLOCK() - When a client holds a delegation, it can issue byte range
5609  *      locks locally in the client, which are not visible to the server. To
5610  *      deal with this, issuing of delegations for a vnode must be disabled
5611  *      and all delegations for the vnode recalled. This is done via the
5612  *      second function, using the VV_DISABLEDELEG vflag on the vnode.
5613  */
5614 void
5615 nfsd_recalldelegation(vnode_t vp, NFSPROC_T *p)
5616 {
5617         time_t starttime;
5618         int error;
5619
5620         /*
5621          * First, check to see if the server is currently running and it has
5622          * been called for a regular file when issuing delegations.
5623          */
5624         if (NFSD_VNET(nfsrv_numnfsd) == 0 || vp->v_type != VREG ||
5625             nfsrv_issuedelegs == 0)
5626                 return;
5627
5628         KASSERT((NFSVOPISLOCKED(vp) != LK_EXCLUSIVE), ("vp %p is locked", vp));
5629         /*
5630          * First, get a reference on the nfsv4rootfs_lock so that an
5631          * exclusive lock cannot be acquired by another thread.
5632          */
5633         NFSLOCKV4ROOTMUTEX();
5634         nfsv4_getref(&nfsv4rootfs_lock, NULL, NFSV4ROOTLOCKMUTEXPTR, NULL);
5635         NFSUNLOCKV4ROOTMUTEX();
5636
5637         /*
5638          * Now, call nfsrv_checkremove() in a loop while it returns
5639          * NFSERR_DELAY. Return upon any other error or when timed out.
5640          */
5641         starttime = NFSD_MONOSEC;
5642         do {
5643                 if (NFSVOPLOCK(vp, LK_EXCLUSIVE) == 0) {
5644                         error = nfsrv_checkremove(vp, 0, NULL,
5645                             (nfsquad_t)((u_quad_t)0), p);
5646                         NFSVOPUNLOCK(vp);
5647                 } else
5648                         error = EPERM;
5649                 if (error == NFSERR_DELAY) {
5650                         if (NFSD_MONOSEC - starttime > NFS_REMOVETIMEO)
5651                                 break;
5652                         /* Sleep for a short period of time */
5653                         (void) nfs_catnap(PZERO, 0, "nfsremove");
5654                 }
5655         } while (error == NFSERR_DELAY);
5656         NFSLOCKV4ROOTMUTEX();
5657         nfsv4_relref(&nfsv4rootfs_lock);
5658         NFSUNLOCKV4ROOTMUTEX();
5659 }
5660
5661 void
5662 nfsd_disabledelegation(vnode_t vp, NFSPROC_T *p)
5663 {
5664
5665 #ifdef VV_DISABLEDELEG
5666         /*
5667          * First, flag issuance of delegations disabled.
5668          */
5669         atomic_set_long(&vp->v_vflag, VV_DISABLEDELEG);
5670 #endif
5671
5672         /*
5673          * Then call nfsd_recalldelegation() to get rid of all extant
5674          * delegations.
5675          */
5676         nfsd_recalldelegation(vp, p);
5677 }
5678
5679 /*
5680  * Check for conflicting locks, etc. and then get rid of delegations.
5681  * (At one point I thought that I should get rid of delegations for any
5682  *  Setattr, since it could potentially disallow the I/O op (read or write)
5683  *  allowed by the delegation. However, Setattr Ops that aren't changing
5684  *  the size get a stateid of all 0s, so you can't tell if it is a delegation
5685  *  for the same client or a different one, so I decided to only get rid
5686  *  of delegations for other clients when the size is being changed.)
5687  * In general, a Setattr can disable NFS I/O Ops that are outstanding, such
5688  * as Write backs, even if there is no delegation, so it really isn't any
5689  * different?)
5690  */
5691 int
5692 nfsrv_checksetattr(vnode_t vp, struct nfsrv_descript *nd,
5693     nfsv4stateid_t *stateidp, struct nfsvattr *nvap, nfsattrbit_t *attrbitp,
5694     struct nfsexstuff *exp, NFSPROC_T *p)
5695 {
5696         struct nfsstate st, *stp = &st;
5697         struct nfslock lo, *lop = &lo;
5698         int error = 0;
5699         nfsquad_t clientid;
5700
5701         if (NFSISSET_ATTRBIT(attrbitp, NFSATTRBIT_SIZE)) {
5702                 stp->ls_flags = (NFSLCK_CHECK | NFSLCK_WRITEACCESS);
5703                 lop->lo_first = nvap->na_size;
5704         } else {
5705                 stp->ls_flags = 0;
5706                 lop->lo_first = 0;
5707         }
5708         if (NFSISSET_ATTRBIT(attrbitp, NFSATTRBIT_OWNER) ||
5709             NFSISSET_ATTRBIT(attrbitp, NFSATTRBIT_OWNERGROUP) ||
5710             NFSISSET_ATTRBIT(attrbitp, NFSATTRBIT_MODE) ||
5711             NFSISSET_ATTRBIT(attrbitp, NFSATTRBIT_ACL))
5712                 stp->ls_flags |= NFSLCK_SETATTR;
5713         if (stp->ls_flags == 0)
5714                 goto out;
5715         lop->lo_end = NFS64BITSSET;
5716         lop->lo_flags = NFSLCK_WRITE;
5717         stp->ls_ownerlen = 0;
5718         stp->ls_op = NULL;
5719         stp->ls_uid = nd->nd_cred->cr_uid;
5720         stp->ls_stateid.seqid = stateidp->seqid;
5721         clientid.lval[0] = stp->ls_stateid.other[0] = stateidp->other[0];
5722         clientid.lval[1] = stp->ls_stateid.other[1] = stateidp->other[1];
5723         stp->ls_stateid.other[2] = stateidp->other[2];
5724         error = nfsrv_lockctrl(vp, &stp, &lop, NULL, clientid,
5725             stateidp, exp, nd, p);
5726
5727 out:
5728         NFSEXITCODE2(error, nd);
5729         return (error);
5730 }
5731
5732 /*
5733  * Check for a write delegation and do a CBGETATTR if there is one, updating
5734  * the attributes, as required.
5735  * Should I return an error if I can't get the attributes? (For now, I'll
5736  * just return ok.
5737  */
5738 int
5739 nfsrv_checkgetattr(struct nfsrv_descript *nd, vnode_t vp,
5740     struct nfsvattr *nvap, nfsattrbit_t *attrbitp, NFSPROC_T *p)
5741 {
5742         struct nfsstate *stp;
5743         struct nfslockfile *lfp;
5744         struct nfsclient *clp;
5745         struct nfsvattr nva;
5746         fhandle_t nfh;
5747         int error = 0;
5748         nfsattrbit_t cbbits;
5749         u_quad_t delegfilerev;
5750
5751         NFSCBGETATTR_ATTRBIT(attrbitp, &cbbits);
5752         if (!NFSNONZERO_ATTRBIT(&cbbits))
5753                 goto out;
5754         if (nfsrv_writedelegcnt == 0)
5755                 goto out;
5756
5757         /*
5758          * Get the lock file structure.
5759          * (A return of -1 means no associated state, so return ok.)
5760          */
5761         error = nfsrv_getlockfh(vp, NFSLCK_CHECK, NULL, &nfh, p);
5762         NFSLOCKSTATE();
5763         if (!error)
5764                 error = nfsrv_getlockfile(NFSLCK_CHECK, NULL, &lfp, &nfh, 0);
5765         if (error) {
5766                 NFSUNLOCKSTATE();
5767                 if (error == -1)
5768                         error = 0;
5769                 goto out;
5770         }
5771
5772         /*
5773          * Now, look for a write delegation.
5774          */
5775         LIST_FOREACH(stp, &lfp->lf_deleg, ls_file) {
5776                 if (stp->ls_flags & NFSLCK_DELEGWRITE)
5777                         break;
5778         }
5779         if (stp == LIST_END(&lfp->lf_deleg)) {
5780                 NFSUNLOCKSTATE();
5781                 goto out;
5782         }
5783         clp = stp->ls_clp;
5784
5785         /* If the clientid is not confirmed, ignore the delegation. */
5786         if (clp->lc_flags & LCL_NEEDSCONFIRM) {
5787                 NFSUNLOCKSTATE();
5788                 goto out;
5789         }
5790
5791         delegfilerev = stp->ls_filerev;
5792         /*
5793          * If the Write delegation was issued as a part of this Compound RPC
5794          * or if we have an Implied Clientid (used in a previous Op in this
5795          * compound) and it is the client the delegation was issued to,
5796          * just return ok.
5797          * I also assume that it is from the same client iff the network
5798          * host IP address is the same as the callback address. (Not
5799          * exactly correct by the RFC, but avoids a lot of Getattr
5800          * callbacks.)
5801          */
5802         if (nd->nd_compref == stp->ls_compref ||
5803             ((nd->nd_flag & ND_IMPLIEDCLID) &&
5804              clp->lc_clientid.qval == nd->nd_clientid.qval) ||
5805              nfsaddr2_match(clp->lc_req.nr_nam, nd->nd_nam)) {
5806                 NFSUNLOCKSTATE();
5807                 goto out;
5808         }
5809
5810         /*
5811          * We are now done with the delegation state structure,
5812          * so the statelock can be released and we can now tsleep().
5813          */
5814
5815         /*
5816          * Now, we must do the CB Getattr callback, to see if Change or Size
5817          * has changed.
5818          */
5819         if (clp->lc_expiry >= NFSD_MONOSEC) {
5820                 NFSUNLOCKSTATE();
5821                 NFSVNO_ATTRINIT(&nva);
5822                 nva.na_filerev = NFS64BITSSET;
5823                 error = nfsrv_docallback(clp, NFSV4OP_CBGETATTR, NULL,
5824                     0, &nfh, &nva, &cbbits, 0, p);
5825                 if (!error) {
5826                         if ((nva.na_filerev != NFS64BITSSET &&
5827                             nva.na_filerev > delegfilerev) ||
5828                             (NFSVNO_ISSETSIZE(&nva) &&
5829                              nva.na_size != nvap->na_size)) {
5830                                 error = nfsvno_updfilerev(vp, nvap, nd, p);
5831                                 if (NFSVNO_ISSETSIZE(&nva))
5832                                         nvap->na_size = nva.na_size;
5833                         }
5834                 } else
5835                         error = 0;      /* Ignore callback errors for now. */
5836         } else {
5837                 NFSUNLOCKSTATE();
5838         }
5839
5840 out:
5841         NFSEXITCODE2(error, nd);
5842         return (error);
5843 }
5844
5845 /*
5846  * This function looks for openowners that haven't had any opens for
5847  * a while and throws them away. Called by an nfsd when NFSNSF_NOOPENS
5848  * is set.
5849  */
5850 void
5851 nfsrv_throwawayopens(NFSPROC_T *p)
5852 {
5853         struct nfsclient *clp, *nclp;
5854         struct nfsstate *stp, *nstp;
5855         int i;
5856
5857         NFSLOCKSTATE();
5858         NFSD_VNET(nfsrv_stablefirst).nsf_flags &= ~NFSNSF_NOOPENS;
5859         /*
5860          * For each client...
5861          */
5862         for (i = 0; i < nfsrv_clienthashsize; i++) {
5863             LIST_FOREACH_SAFE(clp, &NFSD_VNET(nfsclienthash)[i], lc_hash,
5864                 nclp) {
5865                 LIST_FOREACH_SAFE(stp, &clp->lc_open, ls_list, nstp) {
5866                         if (LIST_EMPTY(&stp->ls_open) &&
5867                             (stp->ls_noopens > NFSNOOPEN ||
5868                              (nfsrv_openpluslock * 2) >
5869                              nfsrv_v4statelimit))
5870                                 nfsrv_freeopenowner(stp, 0, p);
5871                 }
5872             }
5873         }
5874         NFSUNLOCKSTATE();
5875 }
5876
5877 /*
5878  * This function checks to see if the credentials are the same.
5879  * The check for same credentials is needed for state management operations
5880  * for NFSv4.0 where 1 is returned if not same, 0 is returned otherwise.
5881  */
5882 static int
5883 nfsrv_notsamecredname(struct nfsrv_descript *nd, struct nfsclient *clp)
5884 {
5885
5886         /* For NFSv4.1/4.2, SP4_NONE always allows this. */
5887         if ((nd->nd_flag & ND_NFSV41) != 0)
5888                 return (0);
5889
5890         if (nd->nd_flag & ND_GSS) {
5891                 if (!(clp->lc_flags & LCL_GSS))
5892                         return (1);
5893                 if (clp->lc_flags & LCL_NAME) {
5894                         if (nd->nd_princlen != clp->lc_namelen ||
5895                             NFSBCMP(nd->nd_principal, clp->lc_name,
5896                                 clp->lc_namelen))
5897                                 return (1);
5898                         else
5899                                 return (0);
5900                 }
5901                 if (nd->nd_cred->cr_uid == clp->lc_uid)
5902                         return (0);
5903                 else
5904                         return (1);
5905         } else if (clp->lc_flags & LCL_GSS)
5906                 return (1);
5907         /*
5908          * For AUTH_SYS, allow the same uid or root. (This is underspecified
5909          * in RFC3530, which talks about principals, but doesn't say anything
5910          * about uids for AUTH_SYS.)
5911          */
5912         if (nd->nd_cred->cr_uid == clp->lc_uid || nd->nd_cred->cr_uid == 0)
5913                 return (0);
5914         else
5915                 return (1);
5916 }
5917
5918 /*
5919  * Calculate the lease expiry time.
5920  */
5921 static time_t
5922 nfsrv_leaseexpiry(void)
5923 {
5924
5925         if (NFSD_VNET(nfsrv_stablefirst).nsf_eograce > NFSD_MONOSEC)
5926                 return (NFSD_MONOSEC + 2 * (nfsrv_lease + NFSRV_LEASEDELTA));
5927         return (NFSD_MONOSEC + nfsrv_lease + NFSRV_LEASEDELTA);
5928 }
5929
5930 /*
5931  * Delay the delegation timeout as far as ls_delegtimelimit, as required.
5932  */
5933 static void
5934 nfsrv_delaydelegtimeout(struct nfsstate *stp)
5935 {
5936
5937         if ((stp->ls_flags & NFSLCK_DELEGRECALL) == 0)
5938                 return;
5939
5940         if ((stp->ls_delegtime + 15) > NFSD_MONOSEC &&
5941             stp->ls_delegtime < stp->ls_delegtimelimit) {
5942                 stp->ls_delegtime += nfsrv_lease;
5943                 if (stp->ls_delegtime > stp->ls_delegtimelimit)
5944                         stp->ls_delegtime = stp->ls_delegtimelimit;
5945         }
5946 }
5947
5948 /*
5949  * This function checks to see if there is any other state associated
5950  * with the openowner for this Open.
5951  * It returns 1 if there is no other state, 0 otherwise.
5952  */
5953 static int
5954 nfsrv_nootherstate(struct nfsstate *stp)
5955 {
5956         struct nfsstate *tstp;
5957
5958         LIST_FOREACH(tstp, &stp->ls_openowner->ls_open, ls_list) {
5959                 if (tstp != stp || !LIST_EMPTY(&tstp->ls_lock))
5960                         return (0);
5961         }
5962         return (1);
5963 }
5964
5965 /*
5966  * Create a list of lock deltas (changes to local byte range locking
5967  * that can be rolled back using the list) and apply the changes via
5968  * nfsvno_advlock(). Optionally, lock the list. It is expected that either
5969  * the rollback or update function will be called after this.
5970  * It returns an error (and rolls back, as required), if any nfsvno_advlock()
5971  * call fails. If it returns an error, it will unlock the list.
5972  */
5973 static int
5974 nfsrv_locallock(vnode_t vp, struct nfslockfile *lfp, int flags,
5975     uint64_t first, uint64_t end, struct nfslockconflict *cfp, NFSPROC_T *p)
5976 {
5977         struct nfslock *lop, *nlop;
5978         int error = 0;
5979
5980         /* Loop through the list of locks. */
5981         lop = LIST_FIRST(&lfp->lf_locallock);
5982         while (first < end && lop != NULL) {
5983                 nlop = LIST_NEXT(lop, lo_lckowner);
5984                 if (first >= lop->lo_end) {
5985                         /* not there yet */
5986                         lop = nlop;
5987                 } else if (first < lop->lo_first) {
5988                         /* new one starts before entry in list */
5989                         if (end <= lop->lo_first) {
5990                                 /* no overlap between old and new */
5991                                 error = nfsrv_dolocal(vp, lfp, flags,
5992                                     NFSLCK_UNLOCK, first, end, cfp, p);
5993                                 if (error != 0)
5994                                         break;
5995                                 first = end;
5996                         } else {
5997                                 /* handle fragment overlapped with new one */
5998                                 error = nfsrv_dolocal(vp, lfp, flags,
5999                                     NFSLCK_UNLOCK, first, lop->lo_first, cfp,
6000                                     p);
6001                                 if (error != 0)
6002                                         break;
6003                                 first = lop->lo_first;
6004                         }
6005                 } else {
6006                         /* new one overlaps this entry in list */
6007                         if (end <= lop->lo_end) {
6008                                 /* overlaps all of new one */
6009                                 error = nfsrv_dolocal(vp, lfp, flags,
6010                                     lop->lo_flags, first, end, cfp, p);
6011                                 if (error != 0)
6012                                         break;
6013                                 first = end;
6014                         } else {
6015                                 /* handle fragment overlapped with new one */
6016                                 error = nfsrv_dolocal(vp, lfp, flags,
6017                                     lop->lo_flags, first, lop->lo_end, cfp, p);
6018                                 if (error != 0)
6019                                         break;
6020                                 first = lop->lo_end;
6021                                 lop = nlop;
6022                         }
6023                 }
6024         }
6025         if (first < end && error == 0)
6026                 /* handle fragment past end of list */
6027                 error = nfsrv_dolocal(vp, lfp, flags, NFSLCK_UNLOCK, first,
6028                     end, cfp, p);
6029
6030         NFSEXITCODE(error);
6031         return (error);
6032 }
6033
6034 /*
6035  * Local lock unlock. Unlock all byte ranges that are no longer locked
6036  * by NFSv4. To do this, unlock any subranges of first-->end that
6037  * do not overlap with the byte ranges of any lock in the lfp->lf_lock
6038  * list. This list has all locks for the file held by other
6039  * <clientid, lockowner> tuples. The list is ordered by increasing
6040  * lo_first value, but may have entries that overlap each other, for
6041  * the case of read locks.
6042  */
6043 static void
6044 nfsrv_localunlock(vnode_t vp, struct nfslockfile *lfp, uint64_t init_first,
6045     uint64_t init_end, NFSPROC_T *p)
6046 {
6047         struct nfslock *lop;
6048         uint64_t first, end, prevfirst __unused;
6049
6050         first = init_first;
6051         end = init_end;
6052         while (first < init_end) {
6053                 /* Loop through all nfs locks, adjusting first and end */
6054                 prevfirst = 0;
6055                 LIST_FOREACH(lop, &lfp->lf_lock, lo_lckfile) {
6056                         KASSERT(prevfirst <= lop->lo_first,
6057                             ("nfsv4 locks out of order"));
6058                         KASSERT(lop->lo_first < lop->lo_end,
6059                             ("nfsv4 bogus lock"));
6060                         prevfirst = lop->lo_first;
6061                         if (first >= lop->lo_first &&
6062                             first < lop->lo_end)
6063                                 /*
6064                                  * Overlaps with initial part, so trim
6065                                  * off that initial part by moving first past
6066                                  * it.
6067                                  */
6068                                 first = lop->lo_end;
6069                         else if (end > lop->lo_first &&
6070                             lop->lo_first > first) {
6071                                 /*
6072                                  * This lock defines the end of the
6073                                  * segment to unlock, so set end to the
6074                                  * start of it and break out of the loop.
6075                                  */
6076                                 end = lop->lo_first;
6077                                 break;
6078                         }
6079                         if (first >= end)
6080                                 /*
6081                                  * There is no segment left to do, so
6082                                  * break out of this loop and then exit
6083                                  * the outer while() since first will be set
6084                                  * to end, which must equal init_end here.
6085                                  */
6086                                 break;
6087                 }
6088                 if (first < end) {
6089                         /* Unlock this segment */
6090                         (void) nfsrv_dolocal(vp, lfp, NFSLCK_UNLOCK,
6091                             NFSLCK_READ, first, end, NULL, p);
6092                         nfsrv_locallock_commit(lfp, NFSLCK_UNLOCK,
6093                             first, end);
6094                 }
6095                 /*
6096                  * Now move past this segment and look for any further
6097                  * segment in the range, if there is one.
6098                  */
6099                 first = end;
6100                 end = init_end;
6101         }
6102 }
6103
6104 /*
6105  * Do the local lock operation and update the rollback list, as required.
6106  * Perform the rollback and return the error if nfsvno_advlock() fails.
6107  */
6108 static int
6109 nfsrv_dolocal(vnode_t vp, struct nfslockfile *lfp, int flags, int oldflags,
6110     uint64_t first, uint64_t end, struct nfslockconflict *cfp, NFSPROC_T *p)
6111 {
6112         struct nfsrollback *rlp;
6113         int error = 0, ltype, oldltype;
6114
6115         if (flags & NFSLCK_WRITE)
6116                 ltype = F_WRLCK;
6117         else if (flags & NFSLCK_READ)
6118                 ltype = F_RDLCK;
6119         else
6120                 ltype = F_UNLCK;
6121         if (oldflags & NFSLCK_WRITE)
6122                 oldltype = F_WRLCK;
6123         else if (oldflags & NFSLCK_READ)
6124                 oldltype = F_RDLCK;
6125         else
6126                 oldltype = F_UNLCK;
6127         if (ltype == oldltype || (oldltype == F_WRLCK && ltype == F_RDLCK))
6128                 /* nothing to do */
6129                 goto out;
6130         error = nfsvno_advlock(vp, ltype, first, end, p);
6131         if (error != 0) {
6132                 if (cfp != NULL) {
6133                         cfp->cl_clientid.lval[0] = 0;
6134                         cfp->cl_clientid.lval[1] = 0;
6135                         cfp->cl_first = 0;
6136                         cfp->cl_end = NFS64BITSSET;
6137                         cfp->cl_flags = NFSLCK_WRITE;
6138                         cfp->cl_ownerlen = 5;
6139                         NFSBCOPY("LOCAL", cfp->cl_owner, 5);
6140                 }
6141                 nfsrv_locallock_rollback(vp, lfp, p);
6142         } else if (ltype != F_UNLCK) {
6143                 rlp = malloc(sizeof (struct nfsrollback), M_NFSDROLLBACK,
6144                     M_WAITOK);
6145                 rlp->rlck_first = first;
6146                 rlp->rlck_end = end;
6147                 rlp->rlck_type = oldltype;
6148                 LIST_INSERT_HEAD(&lfp->lf_rollback, rlp, rlck_list);
6149         }
6150
6151 out:
6152         NFSEXITCODE(error);
6153         return (error);
6154 }
6155
6156 /*
6157  * Roll back local lock changes and free up the rollback list.
6158  */
6159 static void
6160 nfsrv_locallock_rollback(vnode_t vp, struct nfslockfile *lfp, NFSPROC_T *p)
6161 {
6162         struct nfsrollback *rlp, *nrlp;
6163
6164         LIST_FOREACH_SAFE(rlp, &lfp->lf_rollback, rlck_list, nrlp) {
6165                 (void) nfsvno_advlock(vp, rlp->rlck_type, rlp->rlck_first,
6166                     rlp->rlck_end, p);
6167                 free(rlp, M_NFSDROLLBACK);
6168         }
6169         LIST_INIT(&lfp->lf_rollback);
6170 }
6171
6172 /*
6173  * Update local lock list and delete rollback list (ie now committed to the
6174  * local locks). Most of the work is done by the internal function.
6175  */
6176 static void
6177 nfsrv_locallock_commit(struct nfslockfile *lfp, int flags, uint64_t first,
6178     uint64_t end)
6179 {
6180         struct nfsrollback *rlp, *nrlp;
6181         struct nfslock *new_lop, *other_lop;
6182
6183         new_lop = malloc(sizeof (struct nfslock), M_NFSDLOCK, M_WAITOK);
6184         if (flags & (NFSLCK_READ | NFSLCK_WRITE))
6185                 other_lop = malloc(sizeof (struct nfslock), M_NFSDLOCK,
6186                     M_WAITOK);
6187         else
6188                 other_lop = NULL;
6189         new_lop->lo_flags = flags;
6190         new_lop->lo_first = first;
6191         new_lop->lo_end = end;
6192         nfsrv_updatelock(NULL, &new_lop, &other_lop, lfp);
6193         if (new_lop != NULL)
6194                 free(new_lop, M_NFSDLOCK);
6195         if (other_lop != NULL)
6196                 free(other_lop, M_NFSDLOCK);
6197
6198         /* and get rid of the rollback list */
6199         LIST_FOREACH_SAFE(rlp, &lfp->lf_rollback, rlck_list, nrlp)
6200                 free(rlp, M_NFSDROLLBACK);
6201         LIST_INIT(&lfp->lf_rollback);
6202 }
6203
6204 /*
6205  * Lock the struct nfslockfile for local lock updating.
6206  */
6207 static void
6208 nfsrv_locklf(struct nfslockfile *lfp)
6209 {
6210         int gotlock;
6211
6212         /* lf_usecount ensures *lfp won't be free'd */
6213         lfp->lf_usecount++;
6214         do {
6215                 gotlock = nfsv4_lock(&lfp->lf_locallock_lck, 1, NULL,
6216                     NFSSTATEMUTEXPTR, NULL);
6217         } while (gotlock == 0);
6218         lfp->lf_usecount--;
6219 }
6220
6221 /*
6222  * Unlock the struct nfslockfile after local lock updating.
6223  */
6224 static void
6225 nfsrv_unlocklf(struct nfslockfile *lfp)
6226 {
6227
6228         nfsv4_unlock(&lfp->lf_locallock_lck, 0);
6229 }
6230
6231 /*
6232  * Clear out all state for the NFSv4 server.
6233  * Must be called by a thread that can sleep when no nfsds are running.
6234  */
6235 void
6236 nfsrv_throwawayallstate(NFSPROC_T *p)
6237 {
6238         struct nfsclient *clp, *nclp;
6239         struct nfslockfile *lfp, *nlfp;
6240         int i;
6241
6242         /*
6243          * For each client, clean out the state and then free the structure.
6244          */
6245         for (i = 0; i < nfsrv_clienthashsize; i++) {
6246                 LIST_FOREACH_SAFE(clp, &NFSD_VNET(nfsclienthash)[i], lc_hash,
6247                     nclp) {
6248                         nfsrv_cleanclient(clp, p);
6249                         nfsrv_freedeleglist(&clp->lc_deleg);
6250                         nfsrv_freedeleglist(&clp->lc_olddeleg);
6251                         free(clp->lc_stateid, M_NFSDCLIENT);
6252                         free(clp, M_NFSDCLIENT);
6253                 }
6254         }
6255
6256         /*
6257          * Also, free up any remaining lock file structures.
6258          */
6259         for (i = 0; i < nfsrv_lockhashsize; i++) {
6260                 LIST_FOREACH_SAFE(lfp, &NFSD_VNET(nfslockhash)[i], lf_hash,
6261                     nlfp) {
6262                         printf("nfsd unload: fnd a lock file struct\n");
6263                         nfsrv_freenfslockfile(lfp);
6264                 }
6265         }
6266
6267         /* And get rid of the deviceid structures and layouts. */
6268         nfsrv_freealllayoutsanddevids();
6269 }
6270
6271 /*
6272  * Check the sequence# for the session and slot provided as an argument.
6273  * Also, renew the lease if the session will return NFS_OK.
6274  */
6275 int
6276 nfsrv_checksequence(struct nfsrv_descript *nd, uint32_t sequenceid,
6277     uint32_t *highest_slotidp, uint32_t *target_highest_slotidp, int cache_this,
6278     uint32_t *sflagsp, NFSPROC_T *p)
6279 {
6280         struct nfsdsession *sep;
6281         struct nfssessionhash *shp;
6282         int error;
6283
6284         shp = NFSSESSIONHASH(nd->nd_sessionid);
6285         NFSLOCKSESSION(shp);
6286         sep = nfsrv_findsession(nd->nd_sessionid);
6287         if (sep == NULL) {
6288                 NFSUNLOCKSESSION(shp);
6289                 return (NFSERR_BADSESSION);
6290         }
6291         error = nfsv4_seqsession(sequenceid, nd->nd_slotid, *highest_slotidp,
6292             sep->sess_slots, NULL, NFSV4_SLOTS - 1);
6293         if (error != 0) {
6294                 NFSUNLOCKSESSION(shp);
6295                 return (error);
6296         }
6297         if (cache_this != 0)
6298                 nd->nd_flag |= ND_SAVEREPLY;
6299         /* Renew the lease. */
6300         sep->sess_clp->lc_expiry = nfsrv_leaseexpiry();
6301         nd->nd_clientid.qval = sep->sess_clp->lc_clientid.qval;
6302         nd->nd_flag |= ND_IMPLIEDCLID;
6303
6304         /* Save maximum request and reply sizes. */
6305         nd->nd_maxreq = sep->sess_maxreq;
6306         nd->nd_maxresp = sep->sess_maxresp;
6307
6308         *sflagsp = 0;
6309         if (sep->sess_clp->lc_req.nr_client == NULL ||
6310             (sep->sess_clp->lc_flags & LCL_CBDOWN) != 0)
6311                 *sflagsp |= NFSV4SEQ_CBPATHDOWN;
6312         NFSUNLOCKSESSION(shp);
6313         if (error == NFSERR_EXPIRED) {
6314                 *sflagsp |= NFSV4SEQ_EXPIREDALLSTATEREVOKED;
6315                 error = 0;
6316         } else if (error == NFSERR_ADMINREVOKED) {
6317                 *sflagsp |= NFSV4SEQ_ADMINSTATEREVOKED;
6318                 error = 0;
6319         }
6320         *highest_slotidp = *target_highest_slotidp = NFSV4_SLOTS - 1;
6321         return (0);
6322 }
6323
6324 /*
6325  * Check/set reclaim complete for this session/clientid.
6326  */
6327 int
6328 nfsrv_checkreclaimcomplete(struct nfsrv_descript *nd, int onefs)
6329 {
6330         struct nfsdsession *sep;
6331         struct nfssessionhash *shp;
6332         int error = 0;
6333
6334         shp = NFSSESSIONHASH(nd->nd_sessionid);
6335         NFSLOCKSTATE();
6336         NFSLOCKSESSION(shp);
6337         sep = nfsrv_findsession(nd->nd_sessionid);
6338         if (sep == NULL) {
6339                 NFSUNLOCKSESSION(shp);
6340                 NFSUNLOCKSTATE();
6341                 return (NFSERR_BADSESSION);
6342         }
6343
6344         if (onefs != 0)
6345                 sep->sess_clp->lc_flags |= LCL_RECLAIMONEFS;
6346                 /* Check to see if reclaim complete has already happened. */
6347         else if ((sep->sess_clp->lc_flags & LCL_RECLAIMCOMPLETE) != 0)
6348                 error = NFSERR_COMPLETEALREADY;
6349         else {
6350                 sep->sess_clp->lc_flags |= LCL_RECLAIMCOMPLETE;
6351                 nfsrv_markreclaim(sep->sess_clp);
6352         }
6353         NFSUNLOCKSESSION(shp);
6354         NFSUNLOCKSTATE();
6355         return (error);
6356 }
6357
6358 /*
6359  * Cache the reply in a session slot.
6360  */
6361 void
6362 nfsrv_cache_session(struct nfsrv_descript *nd, struct mbuf **m)
6363 {
6364         struct nfsdsession *sep;
6365         struct nfssessionhash *shp;
6366         char *buf, *cp;
6367 #ifdef INET
6368         struct sockaddr_in *sin;
6369 #endif
6370 #ifdef INET6
6371         struct sockaddr_in6 *sin6;
6372 #endif
6373
6374         shp = NFSSESSIONHASH(nd->nd_sessionid);
6375         NFSLOCKSESSION(shp);
6376         sep = nfsrv_findsession(nd->nd_sessionid);
6377         if (sep == NULL) {
6378                 NFSUNLOCKSESSION(shp);
6379                 if ((NFSD_VNET(nfsrv_stablefirst).nsf_flags &
6380                      NFSNSF_GRACEOVER) != 0) {
6381                         buf = malloc(INET6_ADDRSTRLEN, M_TEMP, M_WAITOK);
6382                         switch (nd->nd_nam->sa_family) {
6383 #ifdef INET
6384                         case AF_INET:
6385                                 sin = (struct sockaddr_in *)nd->nd_nam;
6386                                 cp = inet_ntop(sin->sin_family,
6387                                     &sin->sin_addr.s_addr, buf,
6388                                     INET6_ADDRSTRLEN);
6389                                 break;
6390 #endif
6391 #ifdef INET6
6392                         case AF_INET6:
6393                                 sin6 = (struct sockaddr_in6 *)nd->nd_nam;
6394                                 cp = inet_ntop(sin6->sin6_family,
6395                                     &sin6->sin6_addr, buf, INET6_ADDRSTRLEN);
6396                                 break;
6397 #endif
6398                         default:
6399                                 cp = NULL;
6400                         }
6401                         if (cp != NULL)
6402                                 printf("nfsrv_cache_session: no session "
6403                                     "IPaddr=%s, check NFS clients for unique "
6404                                     "/etc/hostid's\n", cp);
6405                         else
6406                                 printf("nfsrv_cache_session: no session, "
6407                                     "check NFS clients for unique "
6408                                     "/etc/hostid's\n");
6409                         free(buf, M_TEMP);
6410                 }
6411                 m_freem(*m);
6412                 return;
6413         }
6414         nfsv4_seqsess_cacherep(nd->nd_slotid, sep->sess_slots, nd->nd_repstat,
6415             m);
6416         NFSUNLOCKSESSION(shp);
6417 }
6418
6419 /*
6420  * Search for a session that matches the sessionid.
6421  */
6422 static struct nfsdsession *
6423 nfsrv_findsession(uint8_t *sessionid)
6424 {
6425         struct nfsdsession *sep;
6426         struct nfssessionhash *shp;
6427
6428         shp = NFSSESSIONHASH(sessionid);
6429         LIST_FOREACH(sep, &shp->list, sess_hash) {
6430                 if (!NFSBCMP(sessionid, sep->sess_sessionid, NFSX_V4SESSIONID))
6431                         break;
6432         }
6433         return (sep);
6434 }
6435
6436 /*
6437  * Destroy a session.
6438  */
6439 int
6440 nfsrv_destroysession(struct nfsrv_descript *nd, uint8_t *sessionid)
6441 {
6442         int error, igotlock, samesess;
6443
6444         samesess = 0;
6445         if (!NFSBCMP(sessionid, nd->nd_sessionid, NFSX_V4SESSIONID) &&
6446             (nd->nd_flag & ND_HASSEQUENCE) != 0) {
6447                 samesess = 1;
6448                 if ((nd->nd_flag & ND_LASTOP) == 0)
6449                         return (NFSERR_BADSESSION);
6450         }
6451
6452         /* Lock out other nfsd threads */
6453         NFSLOCKV4ROOTMUTEX();
6454         nfsv4_relref(&nfsv4rootfs_lock);
6455         do {
6456                 igotlock = nfsv4_lock(&nfsv4rootfs_lock, 1, NULL,
6457                     NFSV4ROOTLOCKMUTEXPTR, NULL);
6458         } while (igotlock == 0);
6459         NFSUNLOCKV4ROOTMUTEX();
6460
6461         error = nfsrv_freesession(NULL, sessionid);
6462         if (error == 0 && samesess != 0)
6463                 nd->nd_flag &= ~ND_HASSEQUENCE;
6464
6465         NFSLOCKV4ROOTMUTEX();
6466         nfsv4_unlock(&nfsv4rootfs_lock, 1);
6467         NFSUNLOCKV4ROOTMUTEX();
6468         return (error);
6469 }
6470
6471 /*
6472  * Bind a connection to a session.
6473  * For now, only certain variants are supported, since the current session
6474  * structure can only handle a single backchannel entry, which will be
6475  * applied to all connections if it is set.
6476  */
6477 int
6478 nfsrv_bindconnsess(struct nfsrv_descript *nd, uint8_t *sessionid, int *foreaftp)
6479 {
6480         struct nfssessionhash *shp;
6481         struct nfsdsession *sep;
6482         struct nfsclient *clp;
6483         SVCXPRT *savxprt;
6484         int error;
6485
6486         error = 0;
6487         savxprt = NULL;
6488         shp = NFSSESSIONHASH(sessionid);
6489         NFSLOCKSTATE();
6490         NFSLOCKSESSION(shp);
6491         sep = nfsrv_findsession(sessionid);
6492         if (sep != NULL) {
6493                 clp = sep->sess_clp;
6494                 if (*foreaftp == NFSCDFC4_BACK ||
6495                     *foreaftp == NFSCDFC4_BACK_OR_BOTH ||
6496                     *foreaftp == NFSCDFC4_FORE_OR_BOTH) {
6497                         /* Try to set up a backchannel. */
6498                         if (clp->lc_req.nr_client == NULL) {
6499                                 NFSD_DEBUG(2, "nfsrv_bindconnsess: acquire "
6500                                     "backchannel\n");
6501                                 clp->lc_req.nr_client = (struct __rpc_client *)
6502                                     clnt_bck_create(nd->nd_xprt->xp_socket,
6503                                     sep->sess_cbprogram, NFSV4_CBVERS);
6504                         }
6505                         if (clp->lc_req.nr_client != NULL) {
6506                                 NFSD_DEBUG(2, "nfsrv_bindconnsess: set up "
6507                                     "backchannel\n");
6508                                 savxprt = sep->sess_cbsess.nfsess_xprt;
6509                                 SVC_ACQUIRE(nd->nd_xprt);
6510                                 CLNT_ACQUIRE(clp->lc_req.nr_client);
6511                                 nd->nd_xprt->xp_p2 = clp->lc_req.nr_client;
6512                                 /* Disable idle timeout. */
6513                                 nd->nd_xprt->xp_idletimeout = 0;
6514                                 sep->sess_cbsess.nfsess_xprt = nd->nd_xprt;
6515                                 sep->sess_crflags |= NFSV4CRSESS_CONNBACKCHAN;
6516                                 clp->lc_flags |= LCL_DONEBINDCONN |
6517                                     LCL_NEEDSCBNULL;
6518                                 clp->lc_flags &= ~LCL_CBDOWN;
6519                                 if (*foreaftp == NFSCDFS4_BACK)
6520                                         *foreaftp = NFSCDFS4_BACK;
6521                                 else
6522                                         *foreaftp = NFSCDFS4_BOTH;
6523                         } else if (*foreaftp != NFSCDFC4_BACK) {
6524                                 NFSD_DEBUG(2, "nfsrv_bindconnsess: can't set "
6525                                     "up backchannel\n");
6526                                 sep->sess_crflags &= ~NFSV4CRSESS_CONNBACKCHAN;
6527                                 clp->lc_flags |= LCL_DONEBINDCONN;
6528                                 *foreaftp = NFSCDFS4_FORE;
6529                         } else {
6530                                 error = NFSERR_NOTSUPP;
6531                                 printf("nfsrv_bindconnsess: Can't add "
6532                                     "backchannel\n");
6533                         }
6534                 } else {
6535                         NFSD_DEBUG(2, "nfsrv_bindconnsess: Set forechannel\n");
6536                         clp->lc_flags |= LCL_DONEBINDCONN;
6537                         *foreaftp = NFSCDFS4_FORE;
6538                 }
6539         } else
6540                 error = NFSERR_BADSESSION;
6541         NFSUNLOCKSESSION(shp);
6542         NFSUNLOCKSTATE();
6543         if (savxprt != NULL)
6544                 SVC_RELEASE(savxprt);
6545         return (error);
6546 }
6547
6548 /*
6549  * Free up a session structure.
6550  */
6551 static int
6552 nfsrv_freesession(struct nfsdsession *sep, uint8_t *sessionid)
6553 {
6554         struct nfssessionhash *shp;
6555         int i;
6556
6557         NFSLOCKSTATE();
6558         if (sep == NULL) {
6559                 shp = NFSSESSIONHASH(sessionid);
6560                 NFSLOCKSESSION(shp);
6561                 sep = nfsrv_findsession(sessionid);
6562         } else {
6563                 shp = NFSSESSIONHASH(sep->sess_sessionid);
6564                 NFSLOCKSESSION(shp);
6565         }
6566         if (sep != NULL) {
6567                 sep->sess_refcnt--;
6568                 if (sep->sess_refcnt > 0) {
6569                         NFSUNLOCKSESSION(shp);
6570                         NFSUNLOCKSTATE();
6571                         return (NFSERR_BACKCHANBUSY);
6572                 }
6573                 LIST_REMOVE(sep, sess_hash);
6574                 LIST_REMOVE(sep, sess_list);
6575         }
6576         NFSUNLOCKSESSION(shp);
6577         NFSUNLOCKSTATE();
6578         if (sep == NULL)
6579                 return (NFSERR_BADSESSION);
6580         for (i = 0; i < NFSV4_SLOTS; i++)
6581                 if (sep->sess_slots[i].nfssl_reply != NULL)
6582                         m_freem(sep->sess_slots[i].nfssl_reply);
6583         if (sep->sess_cbsess.nfsess_xprt != NULL)
6584                 SVC_RELEASE(sep->sess_cbsess.nfsess_xprt);
6585         free(sep, M_NFSDSESSION);
6586         return (0);
6587 }
6588
6589 /*
6590  * Free a stateid.
6591  * RFC5661 says that it should fail when there are associated opens, locks
6592  * or delegations. Since stateids represent opens, I don't see how you can
6593  * free an open stateid (it will be free'd when closed), so this function
6594  * only works for lock stateids (freeing the lock_owner) or delegations.
6595  */
6596 int
6597 nfsrv_freestateid(struct nfsrv_descript *nd, nfsv4stateid_t *stateidp,
6598     NFSPROC_T *p)
6599 {
6600         struct nfsclient *clp;
6601         struct nfsstate *stp;
6602         int error;
6603
6604         NFSLOCKSTATE();
6605         /*
6606          * Look up the stateid
6607          */
6608         error = nfsrv_getclient((nfsquad_t)((u_quad_t)0), CLOPS_RENEW, &clp,
6609             NULL, (nfsquad_t)((u_quad_t)0), 0, nd, p);
6610         if (error == 0) {
6611                 /* First, check for a delegation. */
6612                 LIST_FOREACH(stp, &clp->lc_deleg, ls_list) {
6613                         if (!NFSBCMP(stp->ls_stateid.other, stateidp->other,
6614                             NFSX_STATEIDOTHER))
6615                                 break;
6616                 }
6617                 if (stp != NULL) {
6618                         nfsrv_freedeleg(stp);
6619                         NFSUNLOCKSTATE();
6620                         return (error);
6621                 }
6622         }
6623         /* Not a delegation, try for a lock_owner. */
6624         if (error == 0)
6625                 error = nfsrv_getstate(clp, stateidp, 0, &stp);
6626         if (error == 0 && ((stp->ls_flags & (NFSLCK_OPEN | NFSLCK_DELEGREAD |
6627             NFSLCK_DELEGWRITE)) != 0 || (stp->ls_flags & NFSLCK_LOCK) == 0))
6628                 /* Not a lock_owner stateid. */
6629                 error = NFSERR_LOCKSHELD;
6630         if (error == 0 && !LIST_EMPTY(&stp->ls_lock))
6631                 error = NFSERR_LOCKSHELD;
6632         if (error == 0)
6633                 nfsrv_freelockowner(stp, NULL, 0, p);
6634         NFSUNLOCKSTATE();
6635         return (error);
6636 }
6637
6638 /*
6639  * Test a stateid.
6640  */
6641 int
6642 nfsrv_teststateid(struct nfsrv_descript *nd, nfsv4stateid_t *stateidp,
6643     NFSPROC_T *p)
6644 {
6645         struct nfsclient *clp;
6646         struct nfsstate *stp;
6647         int error;
6648
6649         NFSLOCKSTATE();
6650         /*
6651          * Look up the stateid
6652          */
6653         error = nfsrv_getclient((nfsquad_t)((u_quad_t)0), CLOPS_RENEW, &clp,
6654             NULL, (nfsquad_t)((u_quad_t)0), 0, nd, p);
6655         if (error == 0)
6656                 error = nfsrv_getstate(clp, stateidp, 0, &stp);
6657         if (error == 0 && stateidp->seqid != 0 &&
6658             SEQ_LT(stateidp->seqid, stp->ls_stateid.seqid))
6659                 error = NFSERR_OLDSTATEID;
6660         NFSUNLOCKSTATE();
6661         return (error);
6662 }
6663
6664 /*
6665  * Generate the xdr for an NFSv4.1 CBSequence Operation.
6666  */
6667 static int
6668 nfsv4_setcbsequence(struct nfsrv_descript *nd, struct nfsclient *clp,
6669     int dont_replycache, struct nfsdsession **sepp, int *slotposp)
6670 {
6671         struct nfsdsession *sep;
6672         uint32_t *tl, slotseq = 0;
6673         int maxslot;
6674         uint8_t sessionid[NFSX_V4SESSIONID];
6675         int error;
6676
6677         error = nfsv4_getcbsession(clp, sepp);
6678         if (error != 0)
6679                 return (error);
6680         sep = *sepp;
6681         nfsv4_sequencelookup(NULL, &sep->sess_cbsess, slotposp, &maxslot,
6682             &slotseq, sessionid, true);
6683         KASSERT(maxslot >= 0, ("nfsv4_setcbsequence neg maxslot"));
6684
6685         /* Build the Sequence arguments. */
6686         NFSM_BUILD(tl, uint32_t *, NFSX_V4SESSIONID + 5 * NFSX_UNSIGNED);
6687         bcopy(sessionid, tl, NFSX_V4SESSIONID);
6688         tl += NFSX_V4SESSIONID / NFSX_UNSIGNED;
6689         nd->nd_slotseq = tl;
6690         nd->nd_slotid = *slotposp;
6691         nd->nd_flag |= ND_HASSLOTID;
6692         *tl++ = txdr_unsigned(slotseq);
6693         *tl++ = txdr_unsigned(*slotposp);
6694         *tl++ = txdr_unsigned(maxslot);
6695         if (dont_replycache == 0)
6696                 *tl++ = newnfs_true;
6697         else
6698                 *tl++ = newnfs_false;
6699         *tl = 0;                        /* No referring call list, for now. */
6700         nd->nd_flag |= ND_HASSEQUENCE;
6701         return (0);
6702 }
6703
6704 /*
6705  * Get a session for the callback.
6706  */
6707 static int
6708 nfsv4_getcbsession(struct nfsclient *clp, struct nfsdsession **sepp)
6709 {
6710         struct nfsdsession *sep;
6711
6712         NFSLOCKSTATE();
6713         LIST_FOREACH(sep, &clp->lc_session, sess_list) {
6714                 if ((sep->sess_crflags & NFSV4CRSESS_CONNBACKCHAN) != 0)
6715                         break;
6716         }
6717         if (sep == NULL) {
6718                 NFSUNLOCKSTATE();
6719                 return (NFSERR_BADSESSION);
6720         }
6721         sep->sess_refcnt++;
6722         *sepp = sep;
6723         NFSUNLOCKSTATE();
6724         return (0);
6725 }
6726
6727 /*
6728  * Free up all backchannel xprts.  This needs to be done when the nfsd threads
6729  * exit, since those transports will all be going away.
6730  * This is only called after all the nfsd threads are done performing RPCs,
6731  * so locking shouldn't be an issue.
6732  */
6733 void
6734 nfsrv_freeallbackchannel_xprts(void)
6735 {
6736         struct nfsdsession *sep;
6737         struct nfsclient *clp;
6738         SVCXPRT *xprt;
6739         int i;
6740
6741         for (i = 0; i < nfsrv_clienthashsize; i++) {
6742                 LIST_FOREACH(clp, &NFSD_VNET(nfsclienthash)[i], lc_hash) {
6743                         LIST_FOREACH(sep, &clp->lc_session, sess_list) {
6744                                 xprt = sep->sess_cbsess.nfsess_xprt;
6745                                 sep->sess_cbsess.nfsess_xprt = NULL;
6746                                 if (xprt != NULL)
6747                                         SVC_RELEASE(xprt);
6748                         }
6749                 }
6750         }
6751 }
6752
6753 /*
6754  * Do a layout commit.  Actually just call nfsrv_updatemdsattr().
6755  * I have no idea if the rest of these arguments will ever be useful?
6756  */
6757 int
6758 nfsrv_layoutcommit(struct nfsrv_descript *nd, vnode_t vp, int layouttype,
6759     int hasnewoff, uint64_t newoff, uint64_t offset, uint64_t len,
6760     int hasnewmtime, struct timespec *newmtimep, int reclaim,
6761     nfsv4stateid_t *stateidp, int maxcnt, char *layp, int *hasnewsizep,
6762     uint64_t *newsizep, struct ucred *cred, NFSPROC_T *p)
6763 {
6764         struct nfsvattr na;
6765         int error;
6766
6767         error = nfsrv_updatemdsattr(vp, &na, p);
6768         if (error == 0) {
6769                 *hasnewsizep = 1;
6770                 *newsizep = na.na_size;
6771         }
6772         return (error);
6773 }
6774
6775 /*
6776  * Try and get a layout.
6777  */
6778 int
6779 nfsrv_layoutget(struct nfsrv_descript *nd, vnode_t vp, struct nfsexstuff *exp,
6780     int layouttype, int *iomode, uint64_t *offset, uint64_t *len,
6781     uint64_t minlen, nfsv4stateid_t *stateidp, int maxcnt, int *retonclose,
6782     int *layoutlenp, char *layp, struct ucred *cred, NFSPROC_T *p)
6783 {
6784         struct nfslayouthash *lhyp;
6785         struct nfslayout *lyp;
6786         char *devid;
6787         fhandle_t fh, *dsfhp;
6788         int error, mirrorcnt;
6789
6790         if (nfsrv_devidcnt == 0)
6791                 return (NFSERR_UNKNLAYOUTTYPE);
6792
6793         if (*offset != 0)
6794                 printf("nfsrv_layoutget: off=%ju len=%ju\n", (uintmax_t)*offset,
6795                     (uintmax_t)*len);
6796         error = nfsvno_getfh(vp, &fh, p);
6797         NFSD_DEBUG(4, "layoutget getfh=%d\n", error);
6798         if (error != 0)
6799                 return (error);
6800
6801         /*
6802          * For now, all layouts are for entire files.
6803          * Only issue Read/Write layouts if requested for a non-readonly fs.
6804          */
6805         if (NFSVNO_EXRDONLY(exp)) {
6806                 if (*iomode == NFSLAYOUTIOMODE_RW)
6807                         return (NFSERR_LAYOUTTRYLATER);
6808                 *iomode = NFSLAYOUTIOMODE_READ;
6809         }
6810         if (*iomode != NFSLAYOUTIOMODE_RW)
6811                 *iomode = NFSLAYOUTIOMODE_READ;
6812
6813         /*
6814          * Check to see if a write layout can be issued for this file.
6815          * This is used during mirror recovery to avoid RW layouts being
6816          * issued for a file while it is being copied to the recovered
6817          * mirror.
6818          */
6819         if (*iomode == NFSLAYOUTIOMODE_RW && nfsrv_dontlayout(&fh) != 0)
6820                 return (NFSERR_LAYOUTTRYLATER);
6821
6822         *retonclose = 0;
6823         *offset = 0;
6824         *len = UINT64_MAX;
6825
6826         /* First, see if a layout already exists and return if found. */
6827         lhyp = NFSLAYOUTHASH(&fh);
6828         NFSLOCKLAYOUT(lhyp);
6829         error = nfsrv_findlayout(&nd->nd_clientid, &fh, layouttype, p, &lyp);
6830         NFSD_DEBUG(4, "layoutget findlay=%d\n", error);
6831         /*
6832          * Not sure if the seqid must be the same, so I won't check it.
6833          */
6834         if (error == 0 && (stateidp->other[0] != lyp->lay_stateid.other[0] ||
6835             stateidp->other[1] != lyp->lay_stateid.other[1] ||
6836             stateidp->other[2] != lyp->lay_stateid.other[2])) {
6837                 if ((lyp->lay_flags & NFSLAY_CALLB) == 0) {
6838                         NFSUNLOCKLAYOUT(lhyp);
6839                         NFSD_DEBUG(1, "ret bad stateid\n");
6840                         return (NFSERR_BADSTATEID);
6841                 }
6842                 /*
6843                  * I believe we get here because there is a race between
6844                  * the client processing the CBLAYOUTRECALL and the layout
6845                  * being deleted here on the server.
6846                  * The client has now done a LayoutGet with a non-layout
6847                  * stateid, as it would when there is no layout.
6848                  * As such, free this layout and set error == NFSERR_BADSTATEID
6849                  * so the code below will create a new layout structure as
6850                  * would happen if no layout was found.
6851                  * "lyp" will be set before being used below, but set it NULL
6852                  * as a safety belt.
6853                  */
6854                 nfsrv_freelayout(&lhyp->list, lyp);
6855                 lyp = NULL;
6856                 error = NFSERR_BADSTATEID;
6857         }
6858         if (error == 0) {
6859                 if (lyp->lay_layoutlen > maxcnt) {
6860                         NFSUNLOCKLAYOUT(lhyp);
6861                         NFSD_DEBUG(1, "ret layout too small\n");
6862                         return (NFSERR_TOOSMALL);
6863                 }
6864                 if (*iomode == NFSLAYOUTIOMODE_RW) {
6865                         if ((lyp->lay_flags & NFSLAY_NOSPC) != 0) {
6866                                 NFSUNLOCKLAYOUT(lhyp);
6867                                 NFSD_DEBUG(1, "ret layout nospace\n");
6868                                 return (NFSERR_NOSPC);
6869                         }
6870                         lyp->lay_flags |= NFSLAY_RW;
6871                 } else
6872                         lyp->lay_flags |= NFSLAY_READ;
6873                 NFSBCOPY(lyp->lay_xdr, layp, lyp->lay_layoutlen);
6874                 *layoutlenp = lyp->lay_layoutlen;
6875                 if (++lyp->lay_stateid.seqid == 0)
6876                         lyp->lay_stateid.seqid = 1;
6877                 stateidp->seqid = lyp->lay_stateid.seqid;
6878                 NFSUNLOCKLAYOUT(lhyp);
6879                 NFSD_DEBUG(4, "ret fnd layout\n");
6880                 return (0);
6881         }
6882         NFSUNLOCKLAYOUT(lhyp);
6883
6884         /* Find the device id and file handle. */
6885         dsfhp = malloc(sizeof(fhandle_t) * NFSDEV_MAXMIRRORS, M_TEMP, M_WAITOK);
6886         devid = malloc(NFSX_V4DEVICEID * NFSDEV_MAXMIRRORS, M_TEMP, M_WAITOK);
6887         error = nfsrv_dsgetdevandfh(vp, p, &mirrorcnt, dsfhp, devid);
6888         NFSD_DEBUG(4, "layoutget devandfh=%d\n", error);
6889         if (error == 0) {
6890                 if (layouttype == NFSLAYOUT_NFSV4_1_FILES) {
6891                         if (NFSX_V4FILELAYOUT > maxcnt)
6892                                 error = NFSERR_TOOSMALL;
6893                         else
6894                                 lyp = nfsrv_filelayout(nd, *iomode, &fh, dsfhp,
6895                                     devid, vp->v_mount->mnt_stat.f_fsid);
6896                 } else {
6897                         if (NFSX_V4FLEXLAYOUT(mirrorcnt) > maxcnt)
6898                                 error = NFSERR_TOOSMALL;
6899                         else
6900                                 lyp = nfsrv_flexlayout(nd, *iomode, mirrorcnt,
6901                                     &fh, dsfhp, devid,
6902                                     vp->v_mount->mnt_stat.f_fsid);
6903                 }
6904         }
6905         free(dsfhp, M_TEMP);
6906         free(devid, M_TEMP);
6907         if (error != 0)
6908                 return (error);
6909
6910         /*
6911          * Now, add this layout to the list.
6912          */
6913         error = nfsrv_addlayout(nd, &lyp, stateidp, layp, layoutlenp, p);
6914         NFSD_DEBUG(4, "layoutget addl=%d\n", error);
6915         /*
6916          * The lyp will be set to NULL by nfsrv_addlayout() if it
6917          * linked the new structure into the lists.
6918          */
6919         free(lyp, M_NFSDSTATE);
6920         return (error);
6921 }
6922
6923 /*
6924  * Generate a File Layout.
6925  */
6926 static struct nfslayout *
6927 nfsrv_filelayout(struct nfsrv_descript *nd, int iomode, fhandle_t *fhp,
6928     fhandle_t *dsfhp, char *devid, fsid_t fs)
6929 {
6930         uint32_t *tl;
6931         struct nfslayout *lyp;
6932         uint64_t pattern_offset;
6933
6934         lyp = malloc(sizeof(struct nfslayout) + NFSX_V4FILELAYOUT, M_NFSDSTATE,
6935             M_WAITOK | M_ZERO);
6936         lyp->lay_type = NFSLAYOUT_NFSV4_1_FILES;
6937         if (iomode == NFSLAYOUTIOMODE_RW)
6938                 lyp->lay_flags = NFSLAY_RW;
6939         else
6940                 lyp->lay_flags = NFSLAY_READ;
6941         NFSBCOPY(fhp, &lyp->lay_fh, sizeof(*fhp));
6942         lyp->lay_clientid.qval = nd->nd_clientid.qval;
6943         lyp->lay_fsid = fs;
6944         NFSBCOPY(devid, lyp->lay_deviceid, NFSX_V4DEVICEID);
6945
6946         /* Fill in the xdr for the files layout. */
6947         tl = (uint32_t *)lyp->lay_xdr;
6948         NFSBCOPY(devid, tl, NFSX_V4DEVICEID);           /* Device ID. */
6949         tl += (NFSX_V4DEVICEID / NFSX_UNSIGNED);
6950
6951         /* Set the stripe size to the maximum I/O size. */
6952         *tl++ = txdr_unsigned(nfs_srvmaxio & NFSFLAYUTIL_STRIPE_MASK);
6953         *tl++ = 0;                                      /* 1st stripe index. */
6954         pattern_offset = 0;
6955         txdr_hyper(pattern_offset, tl); tl += 2;        /* Pattern offset. */
6956         *tl++ = txdr_unsigned(1);                       /* 1 file handle. */
6957         *tl++ = txdr_unsigned(NFSX_V4PNFSFH);
6958         NFSBCOPY(dsfhp, tl, sizeof(*dsfhp));
6959         lyp->lay_layoutlen = NFSX_V4FILELAYOUT;
6960         return (lyp);
6961 }
6962
6963 #define FLEX_OWNERID    "999"
6964 #define FLEX_UID0       "0"
6965 /*
6966  * Generate a Flex File Layout.
6967  * The FLEX_OWNERID can be any string of 3 decimal digits. Although this
6968  * string goes on the wire, it isn't supposed to be used by the client,
6969  * since this server uses tight coupling.
6970  * Although not recommended by the spec., if vfs.nfsd.flexlinuxhack=1 use
6971  * a string of "0". This works around the Linux Flex File Layout driver bug
6972  * which uses the synthetic uid/gid strings for the "tightly coupled" case.
6973  */
6974 static struct nfslayout *
6975 nfsrv_flexlayout(struct nfsrv_descript *nd, int iomode, int mirrorcnt,
6976     fhandle_t *fhp, fhandle_t *dsfhp, char *devid, fsid_t fs)
6977 {
6978         uint32_t *tl;
6979         struct nfslayout *lyp;
6980         uint64_t lenval;
6981         int i;
6982
6983         lyp = malloc(sizeof(struct nfslayout) + NFSX_V4FLEXLAYOUT(mirrorcnt),
6984             M_NFSDSTATE, M_WAITOK | M_ZERO);
6985         lyp->lay_type = NFSLAYOUT_FLEXFILE;
6986         if (iomode == NFSLAYOUTIOMODE_RW)
6987                 lyp->lay_flags = NFSLAY_RW;
6988         else
6989                 lyp->lay_flags = NFSLAY_READ;
6990         NFSBCOPY(fhp, &lyp->lay_fh, sizeof(*fhp));
6991         lyp->lay_clientid.qval = nd->nd_clientid.qval;
6992         lyp->lay_fsid = fs;
6993         lyp->lay_mirrorcnt = mirrorcnt;
6994         NFSBCOPY(devid, lyp->lay_deviceid, NFSX_V4DEVICEID);
6995
6996         /* Fill in the xdr for the files layout. */
6997         tl = (uint32_t *)lyp->lay_xdr;
6998         lenval = 0;
6999         txdr_hyper(lenval, tl); tl += 2;                /* Stripe unit. */
7000         *tl++ = txdr_unsigned(mirrorcnt);               /* # of mirrors. */
7001         for (i = 0; i < mirrorcnt; i++) {
7002                 *tl++ = txdr_unsigned(1);               /* One stripe. */
7003                 NFSBCOPY(devid, tl, NFSX_V4DEVICEID);   /* Device ID. */
7004                 tl += (NFSX_V4DEVICEID / NFSX_UNSIGNED);
7005                 devid += NFSX_V4DEVICEID;
7006                 *tl++ = txdr_unsigned(1);               /* Efficiency. */
7007                 *tl++ = 0;                              /* Proxy Stateid. */
7008                 *tl++ = 0x55555555;
7009                 *tl++ = 0x55555555;
7010                 *tl++ = 0x55555555;
7011                 *tl++ = txdr_unsigned(1);               /* 1 file handle. */
7012                 *tl++ = txdr_unsigned(NFSX_V4PNFSFH);
7013                 NFSBCOPY(dsfhp, tl, sizeof(*dsfhp));
7014                 tl += (NFSM_RNDUP(NFSX_V4PNFSFH) / NFSX_UNSIGNED);
7015                 dsfhp++;
7016                 if (nfsrv_flexlinuxhack != 0) {
7017                         *tl++ = txdr_unsigned(strlen(FLEX_UID0));
7018                         *tl = 0;                /* 0 pad string. */
7019                         NFSBCOPY(FLEX_UID0, tl++, strlen(FLEX_UID0));
7020                         *tl++ = txdr_unsigned(strlen(FLEX_UID0));
7021                         *tl = 0;                /* 0 pad string. */
7022                         NFSBCOPY(FLEX_UID0, tl++, strlen(FLEX_UID0));
7023                 } else {
7024                         *tl++ = txdr_unsigned(strlen(FLEX_OWNERID));
7025                         NFSBCOPY(FLEX_OWNERID, tl++, NFSX_UNSIGNED);
7026                         *tl++ = txdr_unsigned(strlen(FLEX_OWNERID));
7027                         NFSBCOPY(FLEX_OWNERID, tl++, NFSX_UNSIGNED);
7028                 }
7029         }
7030         *tl++ = txdr_unsigned(0);               /* ff_flags. */
7031         *tl = txdr_unsigned(60);                /* Status interval hint. */
7032         lyp->lay_layoutlen = NFSX_V4FLEXLAYOUT(mirrorcnt);
7033         return (lyp);
7034 }
7035
7036 /*
7037  * Parse and process Flex File errors returned via LayoutReturn.
7038  */
7039 static void
7040 nfsrv_flexlayouterr(struct nfsrv_descript *nd, uint32_t *layp, int maxcnt,
7041     NFSPROC_T *p)
7042 {
7043         uint32_t *tl;
7044         int cnt, errcnt, i, j, opnum, stat;
7045         char devid[NFSX_V4DEVICEID];
7046
7047         tl = layp;
7048         maxcnt -= NFSX_UNSIGNED;
7049         if (maxcnt > 0)
7050                 cnt = fxdr_unsigned(int, *tl++);
7051         else
7052                 cnt = 0;
7053         NFSD_DEBUG(4, "flexlayouterr cnt=%d\n", cnt);
7054         for (i = 0; i < cnt; i++) {
7055                 maxcnt -= NFSX_STATEID + 2 * NFSX_HYPER +
7056                     NFSX_UNSIGNED;
7057                 if (maxcnt <= 0)
7058                         break;
7059                 /* Skip offset, length and stateid for now. */
7060                 tl += (4 + NFSX_STATEID / NFSX_UNSIGNED);
7061                 errcnt = fxdr_unsigned(int, *tl++);
7062                 NFSD_DEBUG(4, "flexlayouterr errcnt=%d\n", errcnt);
7063                 for (j = 0; j < errcnt; j++) {
7064                         maxcnt -= NFSX_V4DEVICEID + 2 * NFSX_UNSIGNED;
7065                         if (maxcnt < 0)
7066                                 break;
7067                         NFSBCOPY(tl, devid, NFSX_V4DEVICEID);
7068                         tl += (NFSX_V4DEVICEID / NFSX_UNSIGNED);
7069                         stat = fxdr_unsigned(int, *tl++);
7070                         opnum = fxdr_unsigned(int, *tl++);
7071                         NFSD_DEBUG(4, "flexlayouterr op=%d stat=%d\n", opnum,
7072                             stat);
7073                         /*
7074                          * Except for NFSERR_ACCES, NFSERR_STALE and
7075                          * NFSERR_NOSPC errors, disable the mirror.
7076                          */
7077                         if (stat != NFSERR_ACCES && stat != NFSERR_STALE &&
7078                             stat != NFSERR_NOSPC)
7079                                 nfsrv_delds(devid, p);
7080
7081                         /* For NFSERR_NOSPC, mark all devids and layouts. */
7082                         if (stat == NFSERR_NOSPC)
7083                                 nfsrv_marknospc(devid, true);
7084                 }
7085         }
7086 }
7087
7088 /*
7089  * This function removes all flex file layouts which has a mirror with
7090  * a device id that matches the argument.
7091  * Called when the DS represented by the device id has failed.
7092  */
7093 void
7094 nfsrv_flexmirrordel(char *devid, NFSPROC_T *p)
7095 {
7096         uint32_t *tl;
7097         struct nfslayout *lyp, *nlyp;
7098         struct nfslayouthash *lhyp;
7099         struct nfslayouthead loclyp;
7100         int i, j;
7101
7102         NFSD_DEBUG(4, "flexmirrordel\n");
7103         /* Move all layouts found onto a local list. */
7104         TAILQ_INIT(&loclyp);
7105         for (i = 0; i < nfsrv_layouthashsize; i++) {
7106                 lhyp = &nfslayouthash[i];
7107                 NFSLOCKLAYOUT(lhyp);
7108                 TAILQ_FOREACH_SAFE(lyp, &lhyp->list, lay_list, nlyp) {
7109                         if (lyp->lay_type == NFSLAYOUT_FLEXFILE &&
7110                             lyp->lay_mirrorcnt > 1) {
7111                                 NFSD_DEBUG(4, "possible match\n");
7112                                 tl = lyp->lay_xdr;
7113                                 tl += 3;
7114                                 for (j = 0; j < lyp->lay_mirrorcnt; j++) {
7115                                         tl++;
7116                                         if (NFSBCMP(devid, tl, NFSX_V4DEVICEID)
7117                                             == 0) {
7118                                                 /* Found one. */
7119                                                 NFSD_DEBUG(4, "fnd one\n");
7120                                                 TAILQ_REMOVE(&lhyp->list, lyp,
7121                                                     lay_list);
7122                                                 TAILQ_INSERT_HEAD(&loclyp, lyp,
7123                                                     lay_list);
7124                                                 break;
7125                                         }
7126                                         tl += (NFSX_V4DEVICEID / NFSX_UNSIGNED +
7127                                             NFSM_RNDUP(NFSX_V4PNFSFH) /
7128                                             NFSX_UNSIGNED + 11 * NFSX_UNSIGNED);
7129                                 }
7130                         }
7131                 }
7132                 NFSUNLOCKLAYOUT(lhyp);
7133         }
7134
7135         /* Now, try to do a Layout recall for each one found. */
7136         TAILQ_FOREACH_SAFE(lyp, &loclyp, lay_list, nlyp) {
7137                 NFSD_DEBUG(4, "do layout recall\n");
7138                 /*
7139                  * The layout stateid.seqid needs to be incremented
7140                  * before doing a LAYOUT_RECALL callback.
7141                  */
7142                 if (++lyp->lay_stateid.seqid == 0)
7143                         lyp->lay_stateid.seqid = 1;
7144                 nfsrv_recalllayout(lyp->lay_clientid, &lyp->lay_stateid,
7145                     &lyp->lay_fh, lyp, 1, lyp->lay_type, p);
7146                 nfsrv_freelayout(&loclyp, lyp);
7147         }
7148 }
7149
7150 /*
7151  * Do a recall callback to the client for this layout.
7152  */
7153 static int
7154 nfsrv_recalllayout(nfsquad_t clid, nfsv4stateid_t *stateidp, fhandle_t *fhp,
7155     struct nfslayout *lyp, int changed, int laytype, NFSPROC_T *p)
7156 {
7157         struct nfsclient *clp;
7158         int error;
7159
7160         NFSD_DEBUG(4, "nfsrv_recalllayout\n");
7161         error = nfsrv_getclient(clid, 0, &clp, NULL, (nfsquad_t)((u_quad_t)0),
7162             0, NULL, p);
7163         NFSD_DEBUG(4, "aft nfsrv_getclient=%d\n", error);
7164         if (error != 0) {
7165                 printf("nfsrv_recalllayout: getclient err=%d\n", error);
7166                 return (error);
7167         }
7168         if ((clp->lc_flags & LCL_NFSV41) != 0) {
7169                 error = nfsrv_docallback(clp, NFSV4OP_CBLAYOUTRECALL,
7170                     stateidp, changed, fhp, NULL, NULL, laytype, p);
7171                 /* If lyp != NULL, handle an error return here. */
7172                 if (error != 0 && lyp != NULL) {
7173                         NFSDRECALLLOCK();
7174                         /*
7175                          * Mark it returned, since no layout recall
7176                          * has been done.
7177                          * All errors seem to be non-recoverable, although
7178                          * NFSERR_NOMATCHLAYOUT is a normal event.
7179                          */
7180                         if ((lyp->lay_flags & NFSLAY_RECALL) != 0) {
7181                                 lyp->lay_flags |= NFSLAY_RETURNED;
7182                                 wakeup(lyp);
7183                         }
7184                         NFSDRECALLUNLOCK();
7185                         if (error != NFSERR_NOMATCHLAYOUT)
7186                                 printf("nfsrv_recalllayout: err=%d\n", error);
7187                 }
7188         } else
7189                 printf("nfsrv_recalllayout: clp not NFSv4.1\n");
7190         return (error);
7191 }
7192
7193 /*
7194  * Find a layout to recall when we exceed our high water mark.
7195  */
7196 void
7197 nfsrv_recalloldlayout(NFSPROC_T *p)
7198 {
7199         struct nfslayouthash *lhyp;
7200         struct nfslayout *lyp;
7201         nfsquad_t clientid;
7202         nfsv4stateid_t stateid;
7203         fhandle_t fh;
7204         int error, laytype = 0, ret;
7205
7206         lhyp = &nfslayouthash[arc4random() % nfsrv_layouthashsize];
7207         NFSLOCKLAYOUT(lhyp);
7208         TAILQ_FOREACH_REVERSE(lyp, &lhyp->list, nfslayouthead, lay_list) {
7209                 if ((lyp->lay_flags & NFSLAY_CALLB) == 0) {
7210                         lyp->lay_flags |= NFSLAY_CALLB;
7211                         /*
7212                          * The layout stateid.seqid needs to be incremented
7213                          * before doing a LAYOUT_RECALL callback.
7214                          */
7215                         if (++lyp->lay_stateid.seqid == 0)
7216                                 lyp->lay_stateid.seqid = 1;
7217                         clientid = lyp->lay_clientid;
7218                         stateid = lyp->lay_stateid;
7219                         NFSBCOPY(&lyp->lay_fh, &fh, sizeof(fh));
7220                         laytype = lyp->lay_type;
7221                         break;
7222                 }
7223         }
7224         NFSUNLOCKLAYOUT(lhyp);
7225         if (lyp != NULL) {
7226                 error = nfsrv_recalllayout(clientid, &stateid, &fh, NULL, 0,
7227                     laytype, p);
7228                 if (error != 0 && error != NFSERR_NOMATCHLAYOUT)
7229                         NFSD_DEBUG(4, "recallold=%d\n", error);
7230                 if (error != 0) {
7231                         NFSLOCKLAYOUT(lhyp);
7232                         /*
7233                          * Since the hash list was unlocked, we need to
7234                          * find it again.
7235                          */
7236                         ret = nfsrv_findlayout(&clientid, &fh, laytype, p,
7237                             &lyp);
7238                         if (ret == 0 &&
7239                             (lyp->lay_flags & NFSLAY_CALLB) != 0 &&
7240                             lyp->lay_stateid.other[0] == stateid.other[0] &&
7241                             lyp->lay_stateid.other[1] == stateid.other[1] &&
7242                             lyp->lay_stateid.other[2] == stateid.other[2]) {
7243                                 /*
7244                                  * The client no longer knows this layout, so
7245                                  * it can be free'd now.
7246                                  */
7247                                 if (error == NFSERR_NOMATCHLAYOUT)
7248                                         nfsrv_freelayout(&lhyp->list, lyp);
7249                                 else {
7250                                         /*
7251                                          * Leave it to be tried later by
7252                                          * clearing NFSLAY_CALLB and moving
7253                                          * it to the head of the list, so it
7254                                          * won't be tried again for a while.
7255                                          */
7256                                         lyp->lay_flags &= ~NFSLAY_CALLB;
7257                                         TAILQ_REMOVE(&lhyp->list, lyp,
7258                                             lay_list);
7259                                         TAILQ_INSERT_HEAD(&lhyp->list, lyp,
7260                                             lay_list);
7261                                 }
7262                         }
7263                         NFSUNLOCKLAYOUT(lhyp);
7264                 }
7265         }
7266 }
7267
7268 /*
7269  * Try and return layout(s).
7270  */
7271 int
7272 nfsrv_layoutreturn(struct nfsrv_descript *nd, vnode_t vp,
7273     int layouttype, int iomode, uint64_t offset, uint64_t len, int reclaim,
7274     int kind, nfsv4stateid_t *stateidp, int maxcnt, uint32_t *layp, int *fndp,
7275     struct ucred *cred, NFSPROC_T *p)
7276 {
7277         struct nfsvattr na;
7278         struct nfslayouthash *lhyp;
7279         struct nfslayout *lyp;
7280         fhandle_t fh;
7281         int error = 0;
7282
7283         *fndp = 0;
7284         if (kind == NFSV4LAYOUTRET_FILE) {
7285                 error = nfsvno_getfh(vp, &fh, p);
7286                 if (error == 0) {
7287                         error = nfsrv_updatemdsattr(vp, &na, p);
7288                         if (error != 0)
7289                                 printf("nfsrv_layoutreturn: updatemdsattr"
7290                                     " failed=%d\n", error);
7291                 }
7292                 if (error == 0) {
7293                         if (reclaim == newnfs_true) {
7294                                 error = nfsrv_checkgrace(NULL, NULL,
7295                                     NFSLCK_RECLAIM);
7296                                 if (error != NFSERR_NOGRACE)
7297                                         error = 0;
7298                                 return (error);
7299                         }
7300                         lhyp = NFSLAYOUTHASH(&fh);
7301                         NFSDRECALLLOCK();
7302                         NFSLOCKLAYOUT(lhyp);
7303                         error = nfsrv_findlayout(&nd->nd_clientid, &fh,
7304                             layouttype, p, &lyp);
7305                         NFSD_DEBUG(4, "layoutret findlay=%d\n", error);
7306                         if (error == 0 &&
7307                             stateidp->other[0] == lyp->lay_stateid.other[0] &&
7308                             stateidp->other[1] == lyp->lay_stateid.other[1] &&
7309                             stateidp->other[2] == lyp->lay_stateid.other[2]) {
7310                                 NFSD_DEBUG(4, "nfsrv_layoutreturn: stateid %d"
7311                                     " %x %x %x laystateid %d %x %x %x"
7312                                     " off=%ju len=%ju flgs=0x%x\n",
7313                                     stateidp->seqid, stateidp->other[0],
7314                                     stateidp->other[1], stateidp->other[2],
7315                                     lyp->lay_stateid.seqid,
7316                                     lyp->lay_stateid.other[0],
7317                                     lyp->lay_stateid.other[1],
7318                                     lyp->lay_stateid.other[2],
7319                                     (uintmax_t)offset, (uintmax_t)len,
7320                                     lyp->lay_flags);
7321                                 if (++lyp->lay_stateid.seqid == 0)
7322                                         lyp->lay_stateid.seqid = 1;
7323                                 stateidp->seqid = lyp->lay_stateid.seqid;
7324                                 if (offset == 0 && len == UINT64_MAX) {
7325                                         if ((iomode & NFSLAYOUTIOMODE_READ) !=
7326                                             0)
7327                                                 lyp->lay_flags &= ~NFSLAY_READ;
7328                                         if ((iomode & NFSLAYOUTIOMODE_RW) != 0)
7329                                                 lyp->lay_flags &= ~NFSLAY_RW;
7330                                         if ((lyp->lay_flags & (NFSLAY_READ |
7331                                             NFSLAY_RW)) == 0)
7332                                                 nfsrv_freelayout(&lhyp->list,
7333                                                     lyp);
7334                                         else
7335                                                 *fndp = 1;
7336                                 } else
7337                                         *fndp = 1;
7338                         }
7339                         NFSUNLOCKLAYOUT(lhyp);
7340                         /* Search the nfsrv_recalllist for a match. */
7341                         TAILQ_FOREACH(lyp, &nfsrv_recalllisthead, lay_list) {
7342                                 if (NFSBCMP(&lyp->lay_fh, &fh,
7343                                     sizeof(fh)) == 0 &&
7344                                     lyp->lay_clientid.qval ==
7345                                     nd->nd_clientid.qval &&
7346                                     stateidp->other[0] ==
7347                                     lyp->lay_stateid.other[0] &&
7348                                     stateidp->other[1] ==
7349                                     lyp->lay_stateid.other[1] &&
7350                                     stateidp->other[2] ==
7351                                     lyp->lay_stateid.other[2]) {
7352                                         lyp->lay_flags |= NFSLAY_RETURNED;
7353                                         wakeup(lyp);
7354                                         error = 0;
7355                                 }
7356                         }
7357                         NFSDRECALLUNLOCK();
7358                 }
7359                 if (layouttype == NFSLAYOUT_FLEXFILE && layp != NULL)
7360                         nfsrv_flexlayouterr(nd, layp, maxcnt, p);
7361         } else if (kind == NFSV4LAYOUTRET_FSID)
7362                 nfsrv_freelayouts(&nd->nd_clientid,
7363                     &vp->v_mount->mnt_stat.f_fsid, layouttype, iomode);
7364         else if (kind == NFSV4LAYOUTRET_ALL)
7365                 nfsrv_freelayouts(&nd->nd_clientid, NULL, layouttype, iomode);
7366         else
7367                 error = NFSERR_INVAL;
7368         if (error == -1)
7369                 error = 0;
7370         return (error);
7371 }
7372
7373 /*
7374  * Look for an existing layout.
7375  */
7376 static int
7377 nfsrv_findlayout(nfsquad_t *clientidp, fhandle_t *fhp, int laytype,
7378     NFSPROC_T *p, struct nfslayout **lypp)
7379 {
7380         struct nfslayouthash *lhyp;
7381         struct nfslayout *lyp;
7382         int ret;
7383
7384         *lypp = NULL;
7385         ret = 0;
7386         lhyp = NFSLAYOUTHASH(fhp);
7387         TAILQ_FOREACH(lyp, &lhyp->list, lay_list) {
7388                 if (NFSBCMP(&lyp->lay_fh, fhp, sizeof(*fhp)) == 0 &&
7389                     lyp->lay_clientid.qval == clientidp->qval &&
7390                     lyp->lay_type == laytype)
7391                         break;
7392         }
7393         if (lyp != NULL)
7394                 *lypp = lyp;
7395         else
7396                 ret = -1;
7397         return (ret);
7398 }
7399
7400 /*
7401  * Add the new layout, as required.
7402  */
7403 static int
7404 nfsrv_addlayout(struct nfsrv_descript *nd, struct nfslayout **lypp,
7405     nfsv4stateid_t *stateidp, char *layp, int *layoutlenp, NFSPROC_T *p)
7406 {
7407         struct nfsclient *clp;
7408         struct nfslayouthash *lhyp;
7409         struct nfslayout *lyp, *nlyp;
7410         fhandle_t *fhp;
7411         int error;
7412
7413         KASSERT((nd->nd_flag & ND_IMPLIEDCLID) != 0,
7414             ("nfsrv_layoutget: no nd_clientid\n"));
7415         lyp = *lypp;
7416         fhp = &lyp->lay_fh;
7417         NFSLOCKSTATE();
7418         error = nfsrv_getclient((nfsquad_t)((u_quad_t)0), CLOPS_RENEW, &clp,
7419             NULL, (nfsquad_t)((u_quad_t)0), 0, nd, p);
7420         if (error != 0) {
7421                 NFSUNLOCKSTATE();
7422                 return (error);
7423         }
7424         lyp->lay_stateid.seqid = stateidp->seqid = 1;
7425         lyp->lay_stateid.other[0] = stateidp->other[0] =
7426             clp->lc_clientid.lval[0];
7427         lyp->lay_stateid.other[1] = stateidp->other[1] =
7428             clp->lc_clientid.lval[1];
7429         lyp->lay_stateid.other[2] = stateidp->other[2] =
7430             nfsrv_nextstateindex(clp);
7431         NFSUNLOCKSTATE();
7432
7433         lhyp = NFSLAYOUTHASH(fhp);
7434         NFSLOCKLAYOUT(lhyp);
7435         TAILQ_FOREACH(nlyp, &lhyp->list, lay_list) {
7436                 if (NFSBCMP(&nlyp->lay_fh, fhp, sizeof(*fhp)) == 0 &&
7437                     nlyp->lay_clientid.qval == nd->nd_clientid.qval)
7438                         break;
7439         }
7440         if (nlyp != NULL) {
7441                 /* A layout already exists, so use it. */
7442                 nlyp->lay_flags |= (lyp->lay_flags & (NFSLAY_READ | NFSLAY_RW));
7443                 NFSBCOPY(nlyp->lay_xdr, layp, nlyp->lay_layoutlen);
7444                 *layoutlenp = nlyp->lay_layoutlen;
7445                 if (++nlyp->lay_stateid.seqid == 0)
7446                         nlyp->lay_stateid.seqid = 1;
7447                 stateidp->seqid = nlyp->lay_stateid.seqid;
7448                 stateidp->other[0] = nlyp->lay_stateid.other[0];
7449                 stateidp->other[1] = nlyp->lay_stateid.other[1];
7450                 stateidp->other[2] = nlyp->lay_stateid.other[2];
7451                 NFSUNLOCKLAYOUT(lhyp);
7452                 return (0);
7453         }
7454
7455         /* Insert the new layout in the lists. */
7456         *lypp = NULL;
7457         atomic_add_int(&nfsrv_layoutcnt, 1);
7458         NFSD_VNET(nfsstatsv1_p)->srvlayouts++;
7459         NFSBCOPY(lyp->lay_xdr, layp, lyp->lay_layoutlen);
7460         *layoutlenp = lyp->lay_layoutlen;
7461         TAILQ_INSERT_HEAD(&lhyp->list, lyp, lay_list);
7462         NFSUNLOCKLAYOUT(lhyp);
7463         return (0);
7464 }
7465
7466 /*
7467  * Get the devinfo for a deviceid.
7468  */
7469 int
7470 nfsrv_getdevinfo(char *devid, int layouttype, uint32_t *maxcnt,
7471     uint32_t *notify, int *devaddrlen, char **devaddr)
7472 {
7473         struct nfsdevice *ds;
7474
7475         if ((layouttype != NFSLAYOUT_NFSV4_1_FILES && layouttype !=
7476              NFSLAYOUT_FLEXFILE) ||
7477             (nfsrv_maxpnfsmirror > 1 && layouttype == NFSLAYOUT_NFSV4_1_FILES))
7478                 return (NFSERR_UNKNLAYOUTTYPE);
7479
7480         /*
7481          * Now, search for the device id.  Note that the structures won't go
7482          * away, but the order changes in the list.  As such, the lock only
7483          * needs to be held during the search through the list.
7484          */
7485         NFSDDSLOCK();
7486         TAILQ_FOREACH(ds, &nfsrv_devidhead, nfsdev_list) {
7487                 if (NFSBCMP(devid, ds->nfsdev_deviceid, NFSX_V4DEVICEID) == 0 &&
7488                     ds->nfsdev_nmp != NULL)
7489                         break;
7490         }
7491         NFSDDSUNLOCK();
7492         if (ds == NULL)
7493                 return (NFSERR_NOENT);
7494
7495         /* If the correct nfsdev_XXXXaddrlen is > 0, we have the device info. */
7496         *devaddrlen = 0;
7497         if (layouttype == NFSLAYOUT_NFSV4_1_FILES) {
7498                 *devaddrlen = ds->nfsdev_fileaddrlen;
7499                 *devaddr = ds->nfsdev_fileaddr;
7500         } else if (layouttype == NFSLAYOUT_FLEXFILE) {
7501                 *devaddrlen = ds->nfsdev_flexaddrlen;
7502                 *devaddr = ds->nfsdev_flexaddr;
7503         }
7504         if (*devaddrlen == 0)
7505                 return (NFSERR_UNKNLAYOUTTYPE);
7506
7507         /*
7508          * The XDR overhead is 3 unsigned values: layout_type,
7509          * length_of_address and notify bitmap.
7510          * If the notify array is changed to not all zeros, the
7511          * count of unsigned values must be increased.
7512          */
7513         if (*maxcnt > 0 && *maxcnt < NFSM_RNDUP(*devaddrlen) +
7514             3 * NFSX_UNSIGNED) {
7515                 *maxcnt = NFSM_RNDUP(*devaddrlen) + 3 * NFSX_UNSIGNED;
7516                 return (NFSERR_TOOSMALL);
7517         }
7518         return (0);
7519 }
7520
7521 /*
7522  * Free a list of layout state structures.
7523  */
7524 static void
7525 nfsrv_freelayoutlist(nfsquad_t clientid)
7526 {
7527         struct nfslayouthash *lhyp;
7528         struct nfslayout *lyp, *nlyp;
7529         int i;
7530
7531         for (i = 0; i < nfsrv_layouthashsize; i++) {
7532                 lhyp = &nfslayouthash[i];
7533                 NFSLOCKLAYOUT(lhyp);
7534                 TAILQ_FOREACH_SAFE(lyp, &lhyp->list, lay_list, nlyp) {
7535                         if (lyp->lay_clientid.qval == clientid.qval)
7536                                 nfsrv_freelayout(&lhyp->list, lyp);
7537                 }
7538                 NFSUNLOCKLAYOUT(lhyp);
7539         }
7540 }
7541
7542 /*
7543  * Free up a layout.
7544  */
7545 static void
7546 nfsrv_freelayout(struct nfslayouthead *lhp, struct nfslayout *lyp)
7547 {
7548
7549         NFSD_DEBUG(4, "Freelayout=%p\n", lyp);
7550         atomic_add_int(&nfsrv_layoutcnt, -1);
7551         NFSD_VNET(nfsstatsv1_p)->srvlayouts--;
7552         TAILQ_REMOVE(lhp, lyp, lay_list);
7553         free(lyp, M_NFSDSTATE);
7554 }
7555
7556 /*
7557  * Free up a device id.
7558  */
7559 void
7560 nfsrv_freeonedevid(struct nfsdevice *ds)
7561 {
7562         int i;
7563
7564         atomic_add_int(&nfsrv_devidcnt, -1);
7565         vrele(ds->nfsdev_dvp);
7566         for (i = 0; i < nfsrv_dsdirsize; i++)
7567                 if (ds->nfsdev_dsdir[i] != NULL)
7568                         vrele(ds->nfsdev_dsdir[i]);
7569         free(ds->nfsdev_fileaddr, M_NFSDSTATE);
7570         free(ds->nfsdev_flexaddr, M_NFSDSTATE);
7571         free(ds->nfsdev_host, M_NFSDSTATE);
7572         free(ds, M_NFSDSTATE);
7573 }
7574
7575 /*
7576  * Free up a device id and its mirrors.
7577  */
7578 static void
7579 nfsrv_freedevid(struct nfsdevice *ds)
7580 {
7581
7582         TAILQ_REMOVE(&nfsrv_devidhead, ds, nfsdev_list);
7583         nfsrv_freeonedevid(ds);
7584 }
7585
7586 /*
7587  * Free all layouts and device ids.
7588  * Done when the nfsd threads are shut down since there may be a new
7589  * modified device id list created when the nfsd is restarted.
7590  */
7591 void
7592 nfsrv_freealllayoutsanddevids(void)
7593 {
7594         struct nfsdontlist *mrp, *nmrp;
7595         struct nfslayout *lyp, *nlyp;
7596
7597         /* Get rid of the deviceid structures. */
7598         nfsrv_freealldevids();
7599         TAILQ_INIT(&nfsrv_devidhead);
7600         nfsrv_devidcnt = 0;
7601
7602         /* Get rid of all layouts. */
7603         nfsrv_freealllayouts();
7604
7605         /* Get rid of any nfsdontlist entries. */
7606         LIST_FOREACH_SAFE(mrp, &nfsrv_dontlisthead, nfsmr_list, nmrp)
7607                 free(mrp, M_NFSDSTATE);
7608         LIST_INIT(&nfsrv_dontlisthead);
7609         nfsrv_dontlistlen = 0;
7610
7611         /* Free layouts in the recall list. */
7612         TAILQ_FOREACH_SAFE(lyp, &nfsrv_recalllisthead, lay_list, nlyp)
7613                 nfsrv_freelayout(&nfsrv_recalllisthead, lyp);
7614         TAILQ_INIT(&nfsrv_recalllisthead);
7615 }
7616
7617 /*
7618  * Free layouts that match the arguments.
7619  */
7620 static void
7621 nfsrv_freelayouts(nfsquad_t *clid, fsid_t *fs, int laytype, int iomode)
7622 {
7623         struct nfslayouthash *lhyp;
7624         struct nfslayout *lyp, *nlyp;
7625         int i;
7626
7627         for (i = 0; i < nfsrv_layouthashsize; i++) {
7628                 lhyp = &nfslayouthash[i];
7629                 NFSLOCKLAYOUT(lhyp);
7630                 TAILQ_FOREACH_SAFE(lyp, &lhyp->list, lay_list, nlyp) {
7631                         if (clid->qval != lyp->lay_clientid.qval)
7632                                 continue;
7633                         if (fs != NULL && fsidcmp(fs, &lyp->lay_fsid) != 0)
7634                                 continue;
7635                         if (laytype != lyp->lay_type)
7636                                 continue;
7637                         if ((iomode & NFSLAYOUTIOMODE_READ) != 0)
7638                                 lyp->lay_flags &= ~NFSLAY_READ;
7639                         if ((iomode & NFSLAYOUTIOMODE_RW) != 0)
7640                                 lyp->lay_flags &= ~NFSLAY_RW;
7641                         if ((lyp->lay_flags & (NFSLAY_READ | NFSLAY_RW)) == 0)
7642                                 nfsrv_freelayout(&lhyp->list, lyp);
7643                 }
7644                 NFSUNLOCKLAYOUT(lhyp);
7645         }
7646 }
7647
7648 /*
7649  * Free all layouts for the argument file.
7650  */
7651 void
7652 nfsrv_freefilelayouts(fhandle_t *fhp)
7653 {
7654         struct nfslayouthash *lhyp;
7655         struct nfslayout *lyp, *nlyp;
7656
7657         lhyp = NFSLAYOUTHASH(fhp);
7658         NFSLOCKLAYOUT(lhyp);
7659         TAILQ_FOREACH_SAFE(lyp, &lhyp->list, lay_list, nlyp) {
7660                 if (NFSBCMP(&lyp->lay_fh, fhp, sizeof(*fhp)) == 0)
7661                         nfsrv_freelayout(&lhyp->list, lyp);
7662         }
7663         NFSUNLOCKLAYOUT(lhyp);
7664 }
7665
7666 /*
7667  * Free all layouts.
7668  */
7669 static void
7670 nfsrv_freealllayouts(void)
7671 {
7672         struct nfslayouthash *lhyp;
7673         struct nfslayout *lyp, *nlyp;
7674         int i;
7675
7676         for (i = 0; i < nfsrv_layouthashsize; i++) {
7677                 lhyp = &nfslayouthash[i];
7678                 NFSLOCKLAYOUT(lhyp);
7679                 TAILQ_FOREACH_SAFE(lyp, &lhyp->list, lay_list, nlyp)
7680                         nfsrv_freelayout(&lhyp->list, lyp);
7681                 NFSUNLOCKLAYOUT(lhyp);
7682         }
7683 }
7684
7685 /*
7686  * Look up the mount path for the DS server.
7687  */
7688 static int
7689 nfsrv_setdsserver(char *dspathp, char *mdspathp, NFSPROC_T *p,
7690     struct nfsdevice **dsp)
7691 {
7692         struct nameidata nd;
7693         struct nfsdevice *ds;
7694         struct mount *mp;
7695         int error, i;
7696         char *dsdirpath;
7697         size_t dsdirsize;
7698
7699         NFSD_DEBUG(4, "setdssrv path=%s\n", dspathp);
7700         *dsp = NULL;
7701         if (jailed(p->td_ucred)) {
7702                 printf("A pNFS nfsd cannot run in a jail\n");
7703                 return (EPERM);
7704         }
7705         NDINIT(&nd, LOOKUP, FOLLOW | LOCKSHARED | LOCKLEAF, UIO_SYSSPACE,
7706             dspathp);
7707         error = namei(&nd);
7708         NFSD_DEBUG(4, "lookup=%d\n", error);
7709         if (error != 0)
7710                 return (error);
7711         if (nd.ni_vp->v_type != VDIR) {
7712                 vput(nd.ni_vp);
7713                 NFSD_DEBUG(4, "dspath not dir\n");
7714                 return (ENOTDIR);
7715         }
7716         if (strcmp(nd.ni_vp->v_mount->mnt_vfc->vfc_name, "nfs") != 0) {
7717                 vput(nd.ni_vp);
7718                 NFSD_DEBUG(4, "dspath not an NFS mount\n");
7719                 return (ENXIO);
7720         }
7721
7722         /*
7723          * Allocate a DS server structure with the NFS mounted directory
7724          * vnode reference counted, so that a non-forced dismount will
7725          * fail with EBUSY.
7726          * This structure is always linked into the list, even if an error
7727          * is being returned.  The caller will free the entire list upon
7728          * an error return.
7729          */
7730         *dsp = ds = malloc(sizeof(*ds) + nfsrv_dsdirsize * sizeof(vnode_t),
7731             M_NFSDSTATE, M_WAITOK | M_ZERO);
7732         ds->nfsdev_dvp = nd.ni_vp;
7733         ds->nfsdev_nmp = VFSTONFS(nd.ni_vp->v_mount);
7734         NFSVOPUNLOCK(nd.ni_vp);
7735
7736         dsdirsize = strlen(dspathp) + 16;
7737         dsdirpath = malloc(dsdirsize, M_TEMP, M_WAITOK);
7738         /* Now, create the DS directory structures. */
7739         for (i = 0; i < nfsrv_dsdirsize; i++) {
7740                 snprintf(dsdirpath, dsdirsize, "%s/ds%d", dspathp, i);
7741                 NDINIT(&nd, LOOKUP, FOLLOW | LOCKSHARED | LOCKLEAF,
7742                     UIO_SYSSPACE, dsdirpath);
7743                 error = namei(&nd);
7744                 NFSD_DEBUG(4, "dsdirpath=%s lookup=%d\n", dsdirpath, error);
7745                 if (error != 0)
7746                         break;
7747                 if (nd.ni_vp->v_type != VDIR) {
7748                         vput(nd.ni_vp);
7749                         error = ENOTDIR;
7750                         NFSD_DEBUG(4, "dsdirpath not a VDIR\n");
7751                         break;
7752                 }
7753                 if (strcmp(nd.ni_vp->v_mount->mnt_vfc->vfc_name, "nfs") != 0) {
7754                         vput(nd.ni_vp);
7755                         error = ENXIO;
7756                         NFSD_DEBUG(4, "dsdirpath not an NFS mount\n");
7757                         break;
7758                 }
7759                 ds->nfsdev_dsdir[i] = nd.ni_vp;
7760                 NFSVOPUNLOCK(nd.ni_vp);
7761         }
7762         free(dsdirpath, M_TEMP);
7763
7764         if (strlen(mdspathp) > 0) {
7765                 /*
7766                  * This DS stores file for a specific MDS exported file
7767                  * system.
7768                  */
7769                 NDINIT(&nd, LOOKUP, FOLLOW | LOCKSHARED | LOCKLEAF,
7770                     UIO_SYSSPACE, mdspathp);
7771                 error = namei(&nd);
7772                 NFSD_DEBUG(4, "mds lookup=%d\n", error);
7773                 if (error != 0)
7774                         goto out;
7775                 if (nd.ni_vp->v_type != VDIR) {
7776                         vput(nd.ni_vp);
7777                         error = ENOTDIR;
7778                         NFSD_DEBUG(4, "mdspath not dir\n");
7779                         goto out;
7780                 }
7781                 mp = nd.ni_vp->v_mount;
7782                 if ((mp->mnt_flag & MNT_EXPORTED) == 0) {
7783                         vput(nd.ni_vp);
7784                         error = ENXIO;
7785                         NFSD_DEBUG(4, "mdspath not an exported fs\n");
7786                         goto out;
7787                 }
7788                 ds->nfsdev_mdsfsid = mp->mnt_stat.f_fsid;
7789                 ds->nfsdev_mdsisset = 1;
7790                 vput(nd.ni_vp);
7791         }
7792
7793 out:
7794         TAILQ_INSERT_TAIL(&nfsrv_devidhead, ds, nfsdev_list);
7795         atomic_add_int(&nfsrv_devidcnt, 1);
7796         return (error);
7797 }
7798
7799 /*
7800  * Look up the mount path for the DS server and delete it.
7801  */
7802 int
7803 nfsrv_deldsserver(int op, char *dspathp, NFSPROC_T *p)
7804 {
7805         struct mount *mp;
7806         struct nfsmount *nmp;
7807         struct nfsdevice *ds;
7808         int error;
7809
7810         NFSD_DEBUG(4, "deldssrv path=%s\n", dspathp);
7811         /*
7812          * Search for the path in the mount list.  Avoid looking the path
7813          * up, since this mount point may be hung, with associated locked
7814          * vnodes, etc.
7815          * Set NFSMNTP_CANCELRPCS so that any forced dismount will be blocked
7816          * until this completes.
7817          * As noted in the man page, this should be done before any forced
7818          * dismount on the mount point, but at least the handshake on
7819          * NFSMNTP_CANCELRPCS should make it safe.
7820          */
7821         error = 0;
7822         ds = NULL;
7823         nmp = NULL;
7824         mtx_lock(&mountlist_mtx);
7825         TAILQ_FOREACH(mp, &mountlist, mnt_list) {
7826                 if (strcmp(mp->mnt_stat.f_mntonname, dspathp) == 0 &&
7827                     strcmp(mp->mnt_stat.f_fstypename, "nfs") == 0 &&
7828                     mp->mnt_data != NULL) {
7829                         nmp = VFSTONFS(mp);
7830                         NFSLOCKMNT(nmp);
7831                         if ((nmp->nm_privflag & (NFSMNTP_FORCEDISM |
7832                              NFSMNTP_CANCELRPCS)) == 0) {
7833                                 nmp->nm_privflag |= NFSMNTP_CANCELRPCS;
7834                                 NFSUNLOCKMNT(nmp);
7835                         } else {
7836                                 NFSUNLOCKMNT(nmp);
7837                                 nmp = NULL;
7838                         }
7839                         break;
7840                 }
7841         }
7842         mtx_unlock(&mountlist_mtx);
7843
7844         if (nmp != NULL) {
7845                 ds = nfsrv_deldsnmp(op, nmp, p);
7846                 NFSD_DEBUG(4, "deldsnmp=%p\n", ds);
7847                 if (ds != NULL) {
7848                         nfsrv_killrpcs(nmp);
7849                         NFSD_DEBUG(4, "aft killrpcs\n");
7850                 } else
7851                         error = ENXIO;
7852                 NFSLOCKMNT(nmp);
7853                 nmp->nm_privflag &= ~NFSMNTP_CANCELRPCS;
7854                 wakeup(nmp);
7855                 NFSUNLOCKMNT(nmp);
7856         } else
7857                 error = EINVAL;
7858         return (error);
7859 }
7860
7861 /*
7862  * Search for and remove a DS entry which matches the "nmp" argument.
7863  * The nfsdevice structure pointer is returned so that the caller can
7864  * free it via nfsrv_freeonedevid().
7865  * For the forced case, do not try to do LayoutRecalls, since the server
7866  * must be shut down now anyhow.
7867  */
7868 struct nfsdevice *
7869 nfsrv_deldsnmp(int op, struct nfsmount *nmp, NFSPROC_T *p)
7870 {
7871         struct nfsdevice *fndds;
7872
7873         NFSD_DEBUG(4, "deldsdvp\n");
7874         NFSDDSLOCK();
7875         if (op == PNFSDOP_FORCEDELDS)
7876                 fndds = nfsv4_findmirror(nmp);
7877         else
7878                 fndds = nfsrv_findmirroredds(nmp);
7879         if (fndds != NULL)
7880                 nfsrv_deleteds(fndds);
7881         NFSDDSUNLOCK();
7882         if (fndds != NULL) {
7883                 if (op != PNFSDOP_FORCEDELDS)
7884                         nfsrv_flexmirrordel(fndds->nfsdev_deviceid, p);
7885                 printf("pNFS server: mirror %s failed\n", fndds->nfsdev_host);
7886         }
7887         return (fndds);
7888 }
7889
7890 /*
7891  * Similar to nfsrv_deldsnmp(), except that the DS is indicated by deviceid.
7892  * This function also calls nfsrv_killrpcs() to unblock RPCs on the mount
7893  * point.
7894  * Also, returns an error instead of the nfsdevice found.
7895  */
7896 int
7897 nfsrv_delds(char *devid, NFSPROC_T *p)
7898 {
7899         struct nfsdevice *ds, *fndds;
7900         struct nfsmount *nmp;
7901         int fndmirror;
7902
7903         NFSD_DEBUG(4, "delds\n");
7904         /*
7905          * Search the DS server list for a match with devid.
7906          * Remove the DS entry if found and there is a mirror.
7907          */
7908         fndds = NULL;
7909         nmp = NULL;
7910         fndmirror = 0;
7911         NFSDDSLOCK();
7912         TAILQ_FOREACH(ds, &nfsrv_devidhead, nfsdev_list) {
7913                 if (NFSBCMP(ds->nfsdev_deviceid, devid, NFSX_V4DEVICEID) == 0 &&
7914                     ds->nfsdev_nmp != NULL) {
7915                         NFSD_DEBUG(4, "fnd main ds\n");
7916                         fndds = ds;
7917                         break;
7918                 }
7919         }
7920         if (fndds == NULL) {
7921                 NFSDDSUNLOCK();
7922                 return (ENXIO);
7923         }
7924         if (fndds->nfsdev_mdsisset == 0 && nfsrv_faildscnt > 0)
7925                 fndmirror = 1;
7926         else if (fndds->nfsdev_mdsisset != 0) {
7927                 /* For the fsid is set case, search for a mirror. */
7928                 TAILQ_FOREACH(ds, &nfsrv_devidhead, nfsdev_list) {
7929                         if (ds != fndds && ds->nfsdev_nmp != NULL &&
7930                             ds->nfsdev_mdsisset != 0 &&
7931                             fsidcmp(&ds->nfsdev_mdsfsid,
7932                             &fndds->nfsdev_mdsfsid) == 0) {
7933                                 fndmirror = 1;
7934                                 break;
7935                         }
7936                 }
7937         }
7938         if (fndmirror != 0) {
7939                 nmp = fndds->nfsdev_nmp;
7940                 NFSLOCKMNT(nmp);
7941                 if ((nmp->nm_privflag & (NFSMNTP_FORCEDISM |
7942                      NFSMNTP_CANCELRPCS)) == 0) {
7943                         nmp->nm_privflag |= NFSMNTP_CANCELRPCS;
7944                         NFSUNLOCKMNT(nmp);
7945                         nfsrv_deleteds(fndds);
7946                 } else {
7947                         NFSUNLOCKMNT(nmp);
7948                         nmp = NULL;
7949                 }
7950         }
7951         NFSDDSUNLOCK();
7952         if (nmp != NULL) {
7953                 nfsrv_flexmirrordel(fndds->nfsdev_deviceid, p);
7954                 printf("pNFS server: mirror %s failed\n", fndds->nfsdev_host);
7955                 nfsrv_killrpcs(nmp);
7956                 NFSLOCKMNT(nmp);
7957                 nmp->nm_privflag &= ~NFSMNTP_CANCELRPCS;
7958                 wakeup(nmp);
7959                 NFSUNLOCKMNT(nmp);
7960                 return (0);
7961         }
7962         return (ENXIO);
7963 }
7964
7965 /*
7966  * Mark a DS as disabled by setting nfsdev_nmp = NULL.
7967  */
7968 static void
7969 nfsrv_deleteds(struct nfsdevice *fndds)
7970 {
7971
7972         NFSD_DEBUG(4, "deleteds: deleting a mirror\n");
7973         fndds->nfsdev_nmp = NULL;
7974         if (fndds->nfsdev_mdsisset == 0)
7975                 nfsrv_faildscnt--;
7976 }
7977
7978 /*
7979  * Fill in the addr structures for the File and Flex File layouts.
7980  */
7981 static void
7982 nfsrv_allocdevid(struct nfsdevice *ds, char *addr, char *dnshost)
7983 {
7984         uint32_t *tl;
7985         char *netprot;
7986         int addrlen;
7987         static uint64_t new_devid = 0;
7988
7989         if (strchr(addr, ':') != NULL)
7990                 netprot = "tcp6";
7991         else
7992                 netprot = "tcp";
7993
7994         /* Fill in the device id. */
7995         NFSBCOPY(&nfsdev_time, ds->nfsdev_deviceid, sizeof(nfsdev_time));
7996         new_devid++;
7997         NFSBCOPY(&new_devid, &ds->nfsdev_deviceid[sizeof(nfsdev_time)],
7998             sizeof(new_devid));
7999
8000         /*
8001          * Fill in the file addr (actually the nfsv4_file_layout_ds_addr4
8002          * as defined in RFC5661) in XDR.
8003          */
8004         addrlen = NFSM_RNDUP(strlen(addr)) + NFSM_RNDUP(strlen(netprot)) +
8005             6 * NFSX_UNSIGNED;
8006         NFSD_DEBUG(4, "hn=%s addr=%s netprot=%s\n", dnshost, addr, netprot);
8007         ds->nfsdev_fileaddrlen = addrlen;
8008         tl = malloc(addrlen, M_NFSDSTATE, M_WAITOK | M_ZERO);
8009         ds->nfsdev_fileaddr = (char *)tl;
8010         *tl++ = txdr_unsigned(1);               /* One stripe with index 0. */
8011         *tl++ = 0;
8012         *tl++ = txdr_unsigned(1);               /* One multipath list */
8013         *tl++ = txdr_unsigned(1);               /* with one entry in it. */
8014         /* The netaddr for this one entry. */
8015         *tl++ = txdr_unsigned(strlen(netprot));
8016         NFSBCOPY(netprot, tl, strlen(netprot));
8017         tl += (NFSM_RNDUP(strlen(netprot)) / NFSX_UNSIGNED);
8018         *tl++ = txdr_unsigned(strlen(addr));
8019         NFSBCOPY(addr, tl, strlen(addr));
8020
8021         /*
8022          * Fill in the flex file addr (actually the ff_device_addr4
8023          * as defined for Flexible File Layout) in XDR.
8024          */
8025         addrlen = NFSM_RNDUP(strlen(addr)) + NFSM_RNDUP(strlen(netprot)) +
8026             14 * NFSX_UNSIGNED;
8027         ds->nfsdev_flexaddrlen = addrlen;
8028         tl = malloc(addrlen, M_NFSDSTATE, M_WAITOK | M_ZERO);
8029         ds->nfsdev_flexaddr = (char *)tl;
8030         *tl++ = txdr_unsigned(1);               /* One multipath entry. */
8031         /* The netaddr for this one entry. */
8032         *tl++ = txdr_unsigned(strlen(netprot));
8033         NFSBCOPY(netprot, tl, strlen(netprot));
8034         tl += (NFSM_RNDUP(strlen(netprot)) / NFSX_UNSIGNED);
8035         *tl++ = txdr_unsigned(strlen(addr));
8036         NFSBCOPY(addr, tl, strlen(addr));
8037         tl += (NFSM_RNDUP(strlen(addr)) / NFSX_UNSIGNED);
8038         *tl++ = txdr_unsigned(2);               /* Two NFS Versions. */
8039         *tl++ = txdr_unsigned(NFS_VER4);        /* NFSv4. */
8040         *tl++ = txdr_unsigned(NFSV42_MINORVERSION); /* Minor version 2. */
8041         *tl++ = txdr_unsigned(nfs_srvmaxio);    /* DS max rsize. */
8042         *tl++ = txdr_unsigned(nfs_srvmaxio);    /* DS max wsize. */
8043         *tl++ = newnfs_true;                    /* Tightly coupled. */
8044         *tl++ = txdr_unsigned(NFS_VER4);        /* NFSv4. */
8045         *tl++ = txdr_unsigned(NFSV41_MINORVERSION); /* Minor version 1. */
8046         *tl++ = txdr_unsigned(nfs_srvmaxio);    /* DS max rsize. */
8047         *tl++ = txdr_unsigned(nfs_srvmaxio);    /* DS max wsize. */
8048         *tl = newnfs_true;                      /* Tightly coupled. */
8049
8050         ds->nfsdev_hostnamelen = strlen(dnshost);
8051         ds->nfsdev_host = malloc(ds->nfsdev_hostnamelen + 1, M_NFSDSTATE,
8052             M_WAITOK);
8053         NFSBCOPY(dnshost, ds->nfsdev_host, ds->nfsdev_hostnamelen + 1);
8054 }
8055
8056 /*
8057  * Create the device id list.
8058  * Return 0 if the nfsd threads are to run and ENXIO if the "-p" argument
8059  * is misconfigured.
8060  */
8061 int
8062 nfsrv_createdevids(struct nfsd_nfsd_args *args, NFSPROC_T *p)
8063 {
8064         struct nfsdevice *ds;
8065         char *addrp, *dnshostp, *dspathp, *mdspathp;
8066         int error, i;
8067
8068         addrp = args->addr;
8069         dnshostp = args->dnshost;
8070         dspathp = args->dspath;
8071         mdspathp = args->mdspath;
8072         nfsrv_maxpnfsmirror = args->mirrorcnt;
8073         if (addrp == NULL || dnshostp == NULL || dspathp == NULL ||
8074             mdspathp == NULL)
8075                 return (0);
8076
8077         /*
8078          * Loop around for each nul-terminated string in args->addr,
8079          * args->dnshost, args->dnspath and args->mdspath.
8080          */
8081         while (addrp < (args->addr + args->addrlen) &&
8082             dnshostp < (args->dnshost + args->dnshostlen) &&
8083             dspathp < (args->dspath + args->dspathlen) &&
8084             mdspathp < (args->mdspath + args->mdspathlen)) {
8085                 error = nfsrv_setdsserver(dspathp, mdspathp, p, &ds);
8086                 if (error != 0) {
8087                         /* Free all DS servers. */
8088                         nfsrv_freealldevids();
8089                         nfsrv_devidcnt = 0;
8090                         return (ENXIO);
8091                 }
8092                 nfsrv_allocdevid(ds, addrp, dnshostp);
8093                 addrp += (strlen(addrp) + 1);
8094                 dnshostp += (strlen(dnshostp) + 1);
8095                 dspathp += (strlen(dspathp) + 1);
8096                 mdspathp += (strlen(mdspathp) + 1);
8097         }
8098         if (nfsrv_devidcnt < nfsrv_maxpnfsmirror) {
8099                 /* Free all DS servers. */
8100                 nfsrv_freealldevids();
8101                 nfsrv_devidcnt = 0;
8102                 nfsrv_maxpnfsmirror = 1;
8103                 return (ENXIO);
8104         }
8105         /* We can fail at most one less DS than the mirror level. */
8106         nfsrv_faildscnt = nfsrv_maxpnfsmirror - 1;
8107
8108         /*
8109          * Allocate the nfslayout hash table now, since this is a pNFS server.
8110          * Make it 1% of the high water mark and at least 100.
8111          */
8112         if (nfslayouthash == NULL) {
8113                 nfsrv_layouthashsize = nfsrv_layouthighwater / 100;
8114                 if (nfsrv_layouthashsize < 100)
8115                         nfsrv_layouthashsize = 100;
8116                 nfslayouthash = mallocarray(nfsrv_layouthashsize,
8117                     sizeof(struct nfslayouthash), M_NFSDSESSION, M_WAITOK |
8118                     M_ZERO);
8119                 for (i = 0; i < nfsrv_layouthashsize; i++) {
8120                         mtx_init(&nfslayouthash[i].mtx, "nfslm", NULL, MTX_DEF);
8121                         TAILQ_INIT(&nfslayouthash[i].list);
8122                 }
8123         }
8124         return (0);
8125 }
8126
8127 /*
8128  * Free all device ids.
8129  */
8130 static void
8131 nfsrv_freealldevids(void)
8132 {
8133         struct nfsdevice *ds, *nds;
8134
8135         TAILQ_FOREACH_SAFE(ds, &nfsrv_devidhead, nfsdev_list, nds)
8136                 nfsrv_freedevid(ds);
8137 }
8138
8139 /*
8140  * Check to see if there is a Read/Write Layout plus either:
8141  * - A Write Delegation
8142  * or
8143  * - An Open with Write_access.
8144  * Return 1 if this is the case and 0 otherwise.
8145  * This function is used by nfsrv_proxyds() to decide if doing a Proxy
8146  * Getattr RPC to the Data Server (DS) is necessary.
8147  */
8148 #define NFSCLIDVECSIZE  6
8149 int
8150 nfsrv_checkdsattr(vnode_t vp, NFSPROC_T *p)
8151 {
8152         fhandle_t fh, *tfhp;
8153         struct nfsstate *stp;
8154         struct nfslayout *lyp;
8155         struct nfslayouthash *lhyp;
8156         struct nfslockhashhead *hp;
8157         struct nfslockfile *lfp;
8158         nfsquad_t clid[NFSCLIDVECSIZE];
8159         int clidcnt, ret;
8160
8161         ret = nfsvno_getfh(vp, &fh, p);
8162         if (ret != 0)
8163                 return (0);
8164
8165         /* First check for a Read/Write Layout. */
8166         clidcnt = 0;
8167         lhyp = NFSLAYOUTHASH(&fh);
8168         NFSLOCKLAYOUT(lhyp);
8169         TAILQ_FOREACH(lyp, &lhyp->list, lay_list) {
8170                 if (NFSBCMP(&lyp->lay_fh, &fh, sizeof(fh)) == 0 &&
8171                     ((lyp->lay_flags & NFSLAY_RW) != 0 ||
8172                      ((lyp->lay_flags & NFSLAY_READ) != 0 &&
8173                       nfsrv_pnfsatime != 0))) {
8174                         if (clidcnt < NFSCLIDVECSIZE)
8175                                 clid[clidcnt].qval = lyp->lay_clientid.qval;
8176                         clidcnt++;
8177                 }
8178         }
8179         NFSUNLOCKLAYOUT(lhyp);
8180         if (clidcnt == 0) {
8181                 /* None found, so return 0. */
8182                 return (0);
8183         }
8184
8185         /* Get the nfslockfile for this fh. */
8186         NFSLOCKSTATE();
8187         hp = NFSLOCKHASH(&fh);
8188         LIST_FOREACH(lfp, hp, lf_hash) {
8189                 tfhp = &lfp->lf_fh;
8190                 if (NFSVNO_CMPFH(&fh, tfhp))
8191                         break;
8192         }
8193         if (lfp == NULL) {
8194                 /* None found, so return 0. */
8195                 NFSUNLOCKSTATE();
8196                 return (0);
8197         }
8198
8199         /* Now, look for a Write delegation for this clientid. */
8200         LIST_FOREACH(stp, &lfp->lf_deleg, ls_file) {
8201                 if ((stp->ls_flags & NFSLCK_DELEGWRITE) != 0 &&
8202                     nfsrv_fndclid(clid, stp->ls_clp->lc_clientid, clidcnt) != 0)
8203                         break;
8204         }
8205         if (stp != NULL) {
8206                 /* Found one, so return 1. */
8207                 NFSUNLOCKSTATE();
8208                 return (1);
8209         }
8210
8211         /* No Write delegation, so look for an Open with Write_access. */
8212         LIST_FOREACH(stp, &lfp->lf_open, ls_file) {
8213                 KASSERT((stp->ls_flags & NFSLCK_OPEN) != 0,
8214                     ("nfsrv_checkdsattr: Non-open in Open list\n"));
8215                 if ((stp->ls_flags & NFSLCK_WRITEACCESS) != 0 &&
8216                     nfsrv_fndclid(clid, stp->ls_clp->lc_clientid, clidcnt) != 0)
8217                         break;
8218         }
8219         NFSUNLOCKSTATE();
8220         if (stp != NULL)
8221                 return (1);
8222         return (0);
8223 }
8224
8225 /*
8226  * Look for a matching clientid in the vector. Return 1 if one might match.
8227  */
8228 static int
8229 nfsrv_fndclid(nfsquad_t *clidvec, nfsquad_t clid, int clidcnt)
8230 {
8231         int i;
8232
8233         /* If too many for the vector, return 1 since there might be a match. */
8234         if (clidcnt > NFSCLIDVECSIZE)
8235                 return (1);
8236
8237         for (i = 0; i < clidcnt; i++)
8238                 if (clidvec[i].qval == clid.qval)
8239                         return (1);
8240         return (0);
8241 }
8242
8243 /*
8244  * Check the don't list for "vp" and see if issuing an rw layout is allowed.
8245  * Return 1 if issuing an rw layout isn't allowed, 0 otherwise.
8246  */
8247 static int
8248 nfsrv_dontlayout(fhandle_t *fhp)
8249 {
8250         struct nfsdontlist *mrp;
8251         int ret;
8252
8253         if (nfsrv_dontlistlen == 0)
8254                 return (0);
8255         ret = 0;
8256         NFSDDONTLISTLOCK();
8257         LIST_FOREACH(mrp, &nfsrv_dontlisthead, nfsmr_list) {
8258                 if (NFSBCMP(fhp, &mrp->nfsmr_fh, sizeof(*fhp)) == 0 &&
8259                     (mrp->nfsmr_flags & NFSMR_DONTLAYOUT) != 0) {
8260                         ret = 1;
8261                         break;
8262                 }
8263         }
8264         NFSDDONTLISTUNLOCK();
8265         return (ret);
8266 }
8267
8268 #define PNFSDS_COPYSIZ  65536
8269 /*
8270  * Create a new file on a DS and copy the contents of an extant DS file to it.
8271  * This can be used for recovery of a DS file onto a recovered DS.
8272  * The steps are:
8273  * - When called, the MDS file's vnode is locked, blocking LayoutGet operations.
8274  * - Disable issuing of read/write layouts for the file via the nfsdontlist,
8275  *   so that they will be disabled after the MDS file's vnode is unlocked.
8276  * - Set up the nfsrv_recalllist so that recall of read/write layouts can
8277  *   be done.
8278  * - Unlock the MDS file's vnode, so that the client(s) can perform proxied
8279  *   writes, LayoutCommits and LayoutReturns for the file when completing the
8280  *   LayoutReturn requested by the LayoutRecall callback.
8281  * - Issue a LayoutRecall callback for all read/write layouts and wait for
8282  *   them to be returned. (If the LayoutRecall callback replies
8283  *   NFSERR_NOMATCHLAYOUT, they are gone and no LayoutReturn is needed.)
8284  * - Exclusively lock the MDS file's vnode.  This ensures that no proxied
8285  *   writes are in progress or can occur during the DS file copy.
8286  *   It also blocks Setattr operations.
8287  * - Create the file on the recovered mirror.
8288  * - Copy the file from the operational DS.
8289  * - Copy any ACL from the MDS file to the new DS file.
8290  * - Set the modify time of the new DS file to that of the MDS file.
8291  * - Update the extended attribute for the MDS file.
8292  * - Enable issuing of rw layouts by deleting the nfsdontlist entry.
8293  * - The caller will unlock the MDS file's vnode allowing operations
8294  *   to continue normally, since it is now on the mirror again.
8295  */
8296 int
8297 nfsrv_copymr(vnode_t vp, vnode_t fvp, vnode_t dvp, struct nfsdevice *ds,
8298     struct pnfsdsfile *pf, struct pnfsdsfile *wpf, int mirrorcnt,
8299     struct ucred *cred, NFSPROC_T *p)
8300 {
8301         struct nfsdontlist *mrp, *nmrp;
8302         struct nfslayouthash *lhyp;
8303         struct nfslayout *lyp, *nlyp;
8304         struct nfslayouthead thl;
8305         struct mount *mp, *tvmp;
8306         struct acl *aclp;
8307         struct vattr va;
8308         struct timespec mtime;
8309         fhandle_t fh;
8310         vnode_t tvp;
8311         off_t rdpos, wrpos;
8312         ssize_t aresid;
8313         char *dat;
8314         int didprintf, ret, retacl, xfer;
8315
8316         ASSERT_VOP_LOCKED(fvp, "nfsrv_copymr fvp");
8317         ASSERT_VOP_LOCKED(vp, "nfsrv_copymr vp");
8318         /*
8319          * Allocate a nfsdontlist entry and set the NFSMR_DONTLAYOUT flag
8320          * so that no more RW layouts will get issued.
8321          */
8322         ret = nfsvno_getfh(vp, &fh, p);
8323         if (ret != 0) {
8324                 NFSD_DEBUG(4, "nfsrv_copymr: getfh=%d\n", ret);
8325                 return (ret);
8326         }
8327         nmrp = malloc(sizeof(*nmrp), M_NFSDSTATE, M_WAITOK);
8328         nmrp->nfsmr_flags = NFSMR_DONTLAYOUT;
8329         NFSBCOPY(&fh, &nmrp->nfsmr_fh, sizeof(fh));
8330         NFSDDONTLISTLOCK();
8331         LIST_FOREACH(mrp, &nfsrv_dontlisthead, nfsmr_list) {
8332                 if (NFSBCMP(&fh, &mrp->nfsmr_fh, sizeof(fh)) == 0)
8333                         break;
8334         }
8335         if (mrp == NULL) {
8336                 LIST_INSERT_HEAD(&nfsrv_dontlisthead, nmrp, nfsmr_list);
8337                 mrp = nmrp;
8338                 nmrp = NULL;
8339                 nfsrv_dontlistlen++;
8340                 NFSD_DEBUG(4, "nfsrv_copymr: in dontlist\n");
8341         } else {
8342                 NFSDDONTLISTUNLOCK();
8343                 free(nmrp, M_NFSDSTATE);
8344                 NFSD_DEBUG(4, "nfsrv_copymr: dup dontlist\n");
8345                 return (ENXIO);
8346         }
8347         NFSDDONTLISTUNLOCK();
8348
8349         /*
8350          * Search for all RW layouts for this file.  Move them to the
8351          * recall list, so they can be recalled and their return noted.
8352          */
8353         lhyp = NFSLAYOUTHASH(&fh);
8354         NFSDRECALLLOCK();
8355         NFSLOCKLAYOUT(lhyp);
8356         TAILQ_FOREACH_SAFE(lyp, &lhyp->list, lay_list, nlyp) {
8357                 if (NFSBCMP(&lyp->lay_fh, &fh, sizeof(fh)) == 0 &&
8358                     (lyp->lay_flags & NFSLAY_RW) != 0) {
8359                         TAILQ_REMOVE(&lhyp->list, lyp, lay_list);
8360                         TAILQ_INSERT_HEAD(&nfsrv_recalllisthead, lyp, lay_list);
8361                         lyp->lay_trycnt = 0;
8362                 }
8363         }
8364         NFSUNLOCKLAYOUT(lhyp);
8365         NFSDRECALLUNLOCK();
8366
8367         ret = 0;
8368         mp = tvmp = NULL;
8369         didprintf = 0;
8370         TAILQ_INIT(&thl);
8371         /* Unlock the MDS vp, so that a LayoutReturn can be done on it. */
8372         NFSVOPUNLOCK(vp);
8373         /* Now, do a recall for all layouts not yet recalled. */
8374 tryagain:
8375         NFSDRECALLLOCK();
8376         TAILQ_FOREACH(lyp, &nfsrv_recalllisthead, lay_list) {
8377                 if (NFSBCMP(&lyp->lay_fh, &fh, sizeof(fh)) == 0 &&
8378                     (lyp->lay_flags & NFSLAY_RECALL) == 0) {
8379                         lyp->lay_flags |= NFSLAY_RECALL;
8380                         /*
8381                          * The layout stateid.seqid needs to be incremented
8382                          * before doing a LAYOUT_RECALL callback.
8383                          */
8384                         if (++lyp->lay_stateid.seqid == 0)
8385                                 lyp->lay_stateid.seqid = 1;
8386                         NFSDRECALLUNLOCK();
8387                         nfsrv_recalllayout(lyp->lay_clientid, &lyp->lay_stateid,
8388                             &lyp->lay_fh, lyp, 0, lyp->lay_type, p);
8389                         NFSD_DEBUG(4, "nfsrv_copymr: recalled layout\n");
8390                         goto tryagain;
8391                 }
8392         }
8393
8394         /* Now wait for them to be returned. */
8395 tryagain2:
8396         TAILQ_FOREACH(lyp, &nfsrv_recalllisthead, lay_list) {
8397                 if (NFSBCMP(&lyp->lay_fh, &fh, sizeof(fh)) == 0) {
8398                         if ((lyp->lay_flags & NFSLAY_RETURNED) != 0) {
8399                                 TAILQ_REMOVE(&nfsrv_recalllisthead, lyp,
8400                                     lay_list);
8401                                 TAILQ_INSERT_HEAD(&thl, lyp, lay_list);
8402                                 NFSD_DEBUG(4,
8403                                     "nfsrv_copymr: layout returned\n");
8404                         } else {
8405                                 lyp->lay_trycnt++;
8406                                 ret = mtx_sleep(lyp, NFSDRECALLMUTEXPTR,
8407                                     PVFS | PCATCH, "nfsmrl", hz);
8408                                 NFSD_DEBUG(4, "nfsrv_copymr: aft sleep=%d\n",
8409                                     ret);
8410                                 if (ret == EINTR || ret == ERESTART)
8411                                         break;
8412                                 if ((lyp->lay_flags & NFSLAY_RETURNED) == 0) {
8413                                         /*
8414                                          * Give up after 60sec and return
8415                                          * ENXIO, failing the copymr.
8416                                          * This layout will remain on the
8417                                          * recalllist.  It can only be cleared
8418                                          * by restarting the nfsd.
8419                                          * This seems the safe way to handle
8420                                          * it, since it cannot be safely copied
8421                                          * with an outstanding RW layout.
8422                                          */
8423                                         if (lyp->lay_trycnt >= 60) {
8424                                                 ret = ENXIO;
8425                                                 break;
8426                                         }
8427                                         if (didprintf == 0) {
8428                                                 printf("nfsrv_copymr: layout "
8429                                                     "not returned\n");
8430                                                 didprintf = 1;
8431                                         }
8432                                 }
8433                         }
8434                         goto tryagain2;
8435                 }
8436         }
8437         NFSDRECALLUNLOCK();
8438         /* We can now get rid of the layouts that have been returned. */
8439         TAILQ_FOREACH_SAFE(lyp, &thl, lay_list, nlyp)
8440                 nfsrv_freelayout(&thl, lyp);
8441
8442         /*
8443          * Do the vn_start_write() calls here, before the MDS vnode is
8444          * locked and the tvp is created (locked) in the NFS file system
8445          * that dvp is in.
8446          * For tvmp, this probably isn't necessary, since it will be an
8447          * NFS mount and they are not suspendable at this time.
8448          */
8449         if (ret == 0)
8450                 ret = vn_start_write(vp, &mp, V_WAIT | V_PCATCH);
8451         if (ret == 0) {
8452                 tvmp = dvp->v_mount;
8453                 ret = vn_start_write(NULL, &tvmp, V_WAIT | V_PCATCH);
8454         }
8455
8456         /*
8457          * LK_EXCLUSIVE lock the MDS vnode, so that any
8458          * proxied writes through the MDS will be blocked until we have
8459          * completed the copy and update of the extended attributes.
8460          * This will also ensure that any attributes and ACL will not be
8461          * changed until the copy is complete.
8462          */
8463         NFSVOPLOCK(vp, LK_EXCLUSIVE | LK_RETRY);
8464         if (ret == 0 && VN_IS_DOOMED(vp)) {
8465                 NFSD_DEBUG(4, "nfsrv_copymr: lk_exclusive doomed\n");
8466                 ret = ESTALE;
8467         }
8468
8469         /* Create the data file on the recovered DS. */
8470         if (ret == 0)
8471                 ret = nfsrv_createdsfile(vp, &fh, pf, dvp, ds, cred, p, &tvp);
8472
8473         /* Copy the DS file, if created successfully. */
8474         if (ret == 0) {
8475                 /*
8476                  * Get any NFSv4 ACL on the MDS file, so that it can be set
8477                  * on the new DS file.
8478                  */
8479                 aclp = acl_alloc(M_WAITOK | M_ZERO);
8480                 retacl = VOP_GETACL(vp, ACL_TYPE_NFS4, aclp, cred, p);
8481                 if (retacl != 0 && retacl != ENOATTR)
8482                         NFSD_DEBUG(1, "nfsrv_copymr: vop_getacl=%d\n", retacl);
8483                 dat = malloc(PNFSDS_COPYSIZ, M_TEMP, M_WAITOK);
8484                 /* Malloc a block of 0s used to check for holes. */
8485                 if (nfsrv_zeropnfsdat == NULL)
8486                         nfsrv_zeropnfsdat = malloc(PNFSDS_COPYSIZ, M_TEMP,
8487                             M_WAITOK | M_ZERO);
8488                 rdpos = wrpos = 0;
8489                 ret = VOP_GETATTR(fvp, &va, cred);
8490                 aresid = 0;
8491                 while (ret == 0 && aresid == 0) {
8492                         ret = vn_rdwr(UIO_READ, fvp, dat, PNFSDS_COPYSIZ,
8493                             rdpos, UIO_SYSSPACE, IO_NODELOCKED, cred, NULL,
8494                             &aresid, p);
8495                         xfer = PNFSDS_COPYSIZ - aresid;
8496                         if (ret == 0 && xfer > 0) {
8497                                 rdpos += xfer;
8498                                 /*
8499                                  * Skip the write for holes, except for the
8500                                  * last block.
8501                                  */
8502                                 if (xfer < PNFSDS_COPYSIZ || rdpos ==
8503                                     va.va_size || NFSBCMP(dat,
8504                                     nfsrv_zeropnfsdat, PNFSDS_COPYSIZ) != 0)
8505                                         ret = vn_rdwr(UIO_WRITE, tvp, dat, xfer,
8506                                             wrpos, UIO_SYSSPACE, IO_NODELOCKED,
8507                                             cred, NULL, NULL, p);
8508                                 if (ret == 0)
8509                                         wrpos += xfer;
8510                         }
8511                 }
8512
8513                 /* If there is an ACL and the copy succeeded, set the ACL. */
8514                 if (ret == 0 && retacl == 0) {
8515                         ret = VOP_SETACL(tvp, ACL_TYPE_NFS4, aclp, cred, p);
8516                         /*
8517                          * Don't consider these as errors, since VOP_GETACL()
8518                          * can return an ACL when they are not actually
8519                          * supported.  For example, for UFS, VOP_GETACL()
8520                          * will return a trivial ACL based on the uid/gid/mode
8521                          * when there is no ACL on the file.
8522                          * This case should be recognized as a trivial ACL
8523                          * by UFS's VOP_SETACL() and succeed, but...
8524                          */
8525                         if (ret == ENOATTR || ret == EOPNOTSUPP || ret == EPERM)
8526                                 ret = 0;
8527                 }
8528
8529                 if (ret == 0)
8530                         ret = VOP_FSYNC(tvp, MNT_WAIT, p);
8531
8532                 /* Set the DS data file's modify time that of the MDS file. */
8533                 if (ret == 0)
8534                         ret = VOP_GETATTR(vp, &va, cred);
8535                 if (ret == 0) {
8536                         mtime = va.va_mtime;
8537                         VATTR_NULL(&va);
8538                         va.va_mtime = mtime;
8539                         ret = VOP_SETATTR(tvp, &va, cred);
8540                 }
8541
8542                 vput(tvp);
8543                 acl_free(aclp);
8544                 free(dat, M_TEMP);
8545         }
8546         if (tvmp != NULL)
8547                 vn_finished_write(tvmp);
8548
8549         /* Update the extended attributes for the newly created DS file. */
8550         if (ret == 0)
8551                 ret = vn_extattr_set(vp, IO_NODELOCKED,
8552                     EXTATTR_NAMESPACE_SYSTEM, "pnfsd.dsfile",
8553                     sizeof(*wpf) * mirrorcnt, (char *)wpf, p);
8554         if (mp != NULL)
8555                 vn_finished_write(mp);
8556
8557         /* Get rid of the dontlist entry, so that Layouts can be issued. */
8558         NFSDDONTLISTLOCK();
8559         LIST_REMOVE(mrp, nfsmr_list);
8560         NFSDDONTLISTUNLOCK();
8561         free(mrp, M_NFSDSTATE);
8562         return (ret);
8563 }
8564
8565 /*
8566  * Create a data storage file on the recovered DS.
8567  */
8568 static int
8569 nfsrv_createdsfile(vnode_t vp, fhandle_t *fhp, struct pnfsdsfile *pf,
8570     vnode_t dvp, struct nfsdevice *ds, struct ucred *cred, NFSPROC_T *p,
8571     vnode_t *tvpp)
8572 {
8573         struct vattr va, nva;
8574         int error;
8575
8576         /* Make data file name based on FH. */
8577         error = VOP_GETATTR(vp, &va, cred);
8578         if (error == 0) {
8579                 /* Set the attributes for "vp" to Setattr the DS vp. */
8580                 VATTR_NULL(&nva);
8581                 nva.va_uid = va.va_uid;
8582                 nva.va_gid = va.va_gid;
8583                 nva.va_mode = va.va_mode;
8584                 nva.va_size = 0;
8585                 VATTR_NULL(&va);
8586                 va.va_type = VREG;
8587                 va.va_mode = nva.va_mode;
8588                 NFSD_DEBUG(4, "nfsrv_dscreatefile: dvp=%p pf=%p\n", dvp, pf);
8589                 error = nfsrv_dscreate(dvp, &va, &nva, fhp, pf, NULL,
8590                     pf->dsf_filename, cred, p, tvpp);
8591         }
8592         return (error);
8593 }
8594
8595 /*
8596  * Look up the MDS file shared locked, and then get the extended attribute
8597  * to find the extant DS file to be copied to the new mirror.
8598  * If successful, *vpp is set to the MDS file's vp and *nvpp is
8599  * set to a DS data file for the MDS file, both exclusively locked.
8600  * The "buf" argument has the pnfsdsfile structure from the MDS file
8601  * in it and buflen is set to its length.
8602  */
8603 int
8604 nfsrv_mdscopymr(char *mdspathp, char *dspathp, char *curdspathp, char *buf,
8605     int *buflenp, char *fname, NFSPROC_T *p, struct vnode **vpp,
8606     struct vnode **nvpp, struct pnfsdsfile **pfp, struct nfsdevice **dsp,
8607     struct nfsdevice **fdsp)
8608 {
8609         struct nameidata nd;
8610         struct vnode *vp, *curvp;
8611         struct pnfsdsfile *pf;
8612         struct nfsmount *nmp, *curnmp;
8613         int dsdir, error, mirrorcnt, ippos;
8614
8615         vp = NULL;
8616         curvp = NULL;
8617         curnmp = NULL;
8618         *dsp = NULL;
8619         *fdsp = NULL;
8620         if (dspathp == NULL && curdspathp != NULL)
8621                 return (EPERM);
8622
8623         /*
8624          * Look up the MDS file shared locked.  The lock will be upgraded
8625          * to an exclusive lock after any rw layouts have been returned.
8626          */
8627         NFSD_DEBUG(4, "mdsopen path=%s\n", mdspathp);
8628         NDINIT(&nd, LOOKUP, FOLLOW | LOCKSHARED | LOCKLEAF, UIO_SYSSPACE,
8629             mdspathp);
8630         error = namei(&nd);
8631         NFSD_DEBUG(4, "lookup=%d\n", error);
8632         if (error != 0)
8633                 return (error);
8634         if (nd.ni_vp->v_type != VREG) {
8635                 vput(nd.ni_vp);
8636                 NFSD_DEBUG(4, "mdspath not reg\n");
8637                 return (EISDIR);
8638         }
8639         vp = nd.ni_vp;
8640
8641         if (curdspathp != NULL) {
8642                 /*
8643                  * Look up the current DS path and find the nfsdev structure for
8644                  * it.
8645                  */
8646                 NFSD_DEBUG(4, "curmdsdev path=%s\n", curdspathp);
8647                 NDINIT(&nd, LOOKUP, FOLLOW | LOCKSHARED | LOCKLEAF,
8648                     UIO_SYSSPACE, curdspathp);
8649                 error = namei(&nd);
8650                 NFSD_DEBUG(4, "ds lookup=%d\n", error);
8651                 if (error != 0) {
8652                         vput(vp);
8653                         return (error);
8654                 }
8655                 if (nd.ni_vp->v_type != VDIR) {
8656                         vput(nd.ni_vp);
8657                         vput(vp);
8658                         NFSD_DEBUG(4, "curdspath not dir\n");
8659                         return (ENOTDIR);
8660                 }
8661                 if (strcmp(nd.ni_vp->v_mount->mnt_vfc->vfc_name, "nfs") != 0) {
8662                         vput(nd.ni_vp);
8663                         vput(vp);
8664                         NFSD_DEBUG(4, "curdspath not an NFS mount\n");
8665                         return (ENXIO);
8666                 }
8667                 curnmp = VFSTONFS(nd.ni_vp->v_mount);
8668
8669                 /* Search the nfsdev list for a match. */
8670                 NFSDDSLOCK();
8671                 *fdsp = nfsv4_findmirror(curnmp);
8672                 NFSDDSUNLOCK();
8673                 if (*fdsp == NULL)
8674                         curnmp = NULL;
8675                 if (curnmp == NULL) {
8676                         vput(nd.ni_vp);
8677                         vput(vp);
8678                         NFSD_DEBUG(4, "mdscopymr: no current ds\n");
8679                         return (ENXIO);
8680                 }
8681                 curvp = nd.ni_vp;
8682         }
8683
8684         if (dspathp != NULL) {
8685                 /* Look up the nfsdev path and find the nfsdev structure. */
8686                 NFSD_DEBUG(4, "mdsdev path=%s\n", dspathp);
8687                 NDINIT(&nd, LOOKUP, FOLLOW | LOCKSHARED | LOCKLEAF,
8688                     UIO_SYSSPACE, dspathp);
8689                 error = namei(&nd);
8690                 NFSD_DEBUG(4, "ds lookup=%d\n", error);
8691                 if (error != 0) {
8692                         vput(vp);
8693                         if (curvp != NULL)
8694                                 vput(curvp);
8695                         return (error);
8696                 }
8697                 if (nd.ni_vp->v_type != VDIR || nd.ni_vp == curvp) {
8698                         vput(nd.ni_vp);
8699                         vput(vp);
8700                         if (curvp != NULL)
8701                                 vput(curvp);
8702                         NFSD_DEBUG(4, "dspath not dir\n");
8703                         if (nd.ni_vp == curvp)
8704                                 return (EPERM);
8705                         return (ENOTDIR);
8706                 }
8707                 if (strcmp(nd.ni_vp->v_mount->mnt_vfc->vfc_name, "nfs") != 0) {
8708                         vput(nd.ni_vp);
8709                         vput(vp);
8710                         if (curvp != NULL)
8711                                 vput(curvp);
8712                         NFSD_DEBUG(4, "dspath not an NFS mount\n");
8713                         return (ENXIO);
8714                 }
8715                 nmp = VFSTONFS(nd.ni_vp->v_mount);
8716
8717                 /*
8718                  * Search the nfsdevice list for a match.  If curnmp == NULL,
8719                  * this is a recovery and there must be a mirror.
8720                  */
8721                 NFSDDSLOCK();
8722                 if (curnmp == NULL)
8723                         *dsp = nfsrv_findmirroredds(nmp);
8724                 else
8725                         *dsp = nfsv4_findmirror(nmp);
8726                 NFSDDSUNLOCK();
8727                 if (*dsp == NULL) {
8728                         vput(nd.ni_vp);
8729                         vput(vp);
8730                         if (curvp != NULL)
8731                                 vput(curvp);
8732                         NFSD_DEBUG(4, "mdscopymr: no ds\n");
8733                         return (ENXIO);
8734                 }
8735         } else {
8736                 nd.ni_vp = NULL;
8737                 nmp = NULL;
8738         }
8739
8740         /*
8741          * Get a vp for an available DS data file using the extended
8742          * attribute on the MDS file.
8743          * If there is a valid entry for the new DS in the extended attribute
8744          * on the MDS file (as checked via the nmp argument),
8745          * nfsrv_dsgetsockmnt() returns EEXIST, so no copying will occur.
8746          */
8747         error = nfsrv_dsgetsockmnt(vp, 0, buf, buflenp, &mirrorcnt, p,
8748             NULL, NULL, NULL, fname, nvpp, &nmp, curnmp, &ippos, &dsdir);
8749         if (curvp != NULL)
8750                 vput(curvp);
8751         if (nd.ni_vp == NULL) {
8752                 if (error == 0 && nmp != NULL) {
8753                         /* Search the nfsdev list for a match. */
8754                         NFSDDSLOCK();
8755                         *dsp = nfsrv_findmirroredds(nmp);
8756                         NFSDDSUNLOCK();
8757                 }
8758                 if (error == 0 && (nmp == NULL || *dsp == NULL)) {
8759                         if (nvpp != NULL && *nvpp != NULL) {
8760                                 vput(*nvpp);
8761                                 *nvpp = NULL;
8762                         }
8763                         error = ENXIO;
8764                 }
8765         } else
8766                 vput(nd.ni_vp);
8767
8768         /*
8769          * When dspathp != NULL and curdspathp == NULL, this is a recovery
8770          * and is only allowed if there is a 0.0.0.0 IP address entry.
8771          * When curdspathp != NULL, the ippos will be set to that entry.
8772          */
8773         if (error == 0 && dspathp != NULL && ippos == -1) {
8774                 if (nvpp != NULL && *nvpp != NULL) {
8775                         vput(*nvpp);
8776                         *nvpp = NULL;
8777                 }
8778                 error = ENXIO;
8779         }
8780         if (error == 0) {
8781                 *vpp = vp;
8782
8783                 pf = (struct pnfsdsfile *)buf;
8784                 if (ippos == -1) {
8785                         /* If no zeroip pnfsdsfile, add one. */
8786                         ippos = *buflenp / sizeof(*pf);
8787                         *buflenp += sizeof(*pf);
8788                         pf += ippos;
8789                         pf->dsf_dir = dsdir;
8790                         strlcpy(pf->dsf_filename, fname,
8791                             sizeof(pf->dsf_filename));
8792                 } else
8793                         pf += ippos;
8794                 *pfp = pf;
8795         } else
8796                 vput(vp);
8797         return (error);
8798 }
8799
8800 /*
8801  * Search for a matching pnfsd mirror device structure, base on the nmp arg.
8802  * Return one if found, NULL otherwise.
8803  */
8804 static struct nfsdevice *
8805 nfsrv_findmirroredds(struct nfsmount *nmp)
8806 {
8807         struct nfsdevice *ds, *fndds;
8808         int fndmirror;
8809
8810         mtx_assert(NFSDDSMUTEXPTR, MA_OWNED);
8811         /*
8812          * Search the DS server list for a match with nmp.
8813          * Remove the DS entry if found and there is a mirror.
8814          */
8815         fndds = NULL;
8816         fndmirror = 0;
8817         if (nfsrv_devidcnt == 0)
8818                 return (fndds);
8819         TAILQ_FOREACH(ds, &nfsrv_devidhead, nfsdev_list) {
8820                 if (ds->nfsdev_nmp == nmp) {
8821                         NFSD_DEBUG(4, "nfsrv_findmirroredds: fnd main ds\n");
8822                         fndds = ds;
8823                         break;
8824                 }
8825         }
8826         if (fndds == NULL)
8827                 return (fndds);
8828         if (fndds->nfsdev_mdsisset == 0 && nfsrv_faildscnt > 0)
8829                 fndmirror = 1;
8830         else if (fndds->nfsdev_mdsisset != 0) {
8831                 /* For the fsid is set case, search for a mirror. */
8832                 TAILQ_FOREACH(ds, &nfsrv_devidhead, nfsdev_list) {
8833                         if (ds != fndds && ds->nfsdev_nmp != NULL &&
8834                             ds->nfsdev_mdsisset != 0 &&
8835                             fsidcmp(&ds->nfsdev_mdsfsid,
8836                             &fndds->nfsdev_mdsfsid) == 0) {
8837                                 fndmirror = 1;
8838                                 break;
8839                         }
8840                 }
8841         }
8842         if (fndmirror == 0) {
8843                 NFSD_DEBUG(4, "nfsrv_findmirroredds: no mirror for DS\n");
8844                 return (NULL);
8845         }
8846         return (fndds);
8847 }
8848
8849 /*
8850  * Mark the appropriate devid and all associated layout as "out of space".
8851  */
8852 void
8853 nfsrv_marknospc(char *devid, bool setit)
8854 {
8855         struct nfsdevice *ds;
8856         struct nfslayout *lyp;
8857         struct nfslayouthash *lhyp;
8858         int i;
8859
8860         NFSDDSLOCK();
8861         TAILQ_FOREACH(ds, &nfsrv_devidhead, nfsdev_list) {
8862                 if (NFSBCMP(ds->nfsdev_deviceid, devid, NFSX_V4DEVICEID) == 0) {
8863                         NFSD_DEBUG(1, "nfsrv_marknospc: devid %d\n", setit);
8864                         ds->nfsdev_nospc = setit;
8865                 }
8866         }
8867         NFSDDSUNLOCK();
8868
8869         for (i = 0; i < nfsrv_layouthashsize; i++) {
8870                 lhyp = &nfslayouthash[i];
8871                 NFSLOCKLAYOUT(lhyp);
8872                 TAILQ_FOREACH(lyp, &lhyp->list, lay_list) {
8873                         if (NFSBCMP(lyp->lay_deviceid, devid,
8874                             NFSX_V4DEVICEID) == 0) {
8875                                 NFSD_DEBUG(1, "nfsrv_marknospc: layout %d\n",
8876                                     setit);
8877                                 if (setit)
8878                                         lyp->lay_flags |= NFSLAY_NOSPC;
8879                                 else
8880                                         lyp->lay_flags &= ~NFSLAY_NOSPC;
8881                         }
8882                 }
8883                 NFSUNLOCKLAYOUT(lhyp);
8884         }
8885 }