1 /* $NetBSD: nfs_subs.c,v 1.33 1996/10/25 23:14:09 cgd Exp $ */ 2 3 /* 4 * Copyright (c) 1989, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * This code is derived from software contributed to Berkeley by 8 * Rick Macklem at The University of Guelph. 9 * 10 * Redistribution and use in source and binary forms, with or without 11 * modification, are permitted provided that the following conditions 12 * are met: 13 * 1. Redistributions of source code must retain the above copyright 14 * notice, this list of conditions and the following disclaimer. 15 * 2. Redistributions in binary form must reproduce the above copyright 16 * notice, this list of conditions and the following disclaimer in the 17 * documentation and/or other materials provided with the distribution. 18 * 3. All advertising materials mentioning features or use of this software 19 * must display the following acknowledgement: 20 * This product includes software developed by the University of 21 * California, Berkeley and its contributors. 22 * 4. Neither the name of the University nor the names of its contributors 23 * may be used to endorse or promote products derived from this software 24 * without specific prior written permission. 25 * 26 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 27 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 28 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 29 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 30 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 31 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 32 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 33 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 34 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 35 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 36 * SUCH DAMAGE. 37 * 38 * @(#)nfs_subs.c 8.8 (Berkeley) 5/22/95 39 */ 40 41 42 /* 43 * These functions support the macros and help fiddle mbuf chains for 44 * the nfs op functions. They do things like create the rpc header and 45 * copy data between mbuf chains and uio lists. 46 */ 47 #include <sys/param.h> 48 #include <sys/proc.h> 49 #include <sys/systm.h> 50 #include <sys/kernel.h> 51 #include <sys/mount.h> 52 #include <sys/vnode.h> 53 #include <sys/namei.h> 54 #include <sys/mbuf.h> 55 #include <sys/socket.h> 56 #include <sys/stat.h> 57 #include <sys/malloc.h> 58 #include <sys/time.h> 59 60 #include <vm/vm.h> 61 62 #include <nfs/rpcv2.h> 63 #include <nfs/nfsproto.h> 64 #include <nfs/nfsnode.h> 65 #include <nfs/nfs.h> 66 #include <nfs/xdr_subs.h> 67 #include <nfs/nfsm_subs.h> 68 #include <nfs/nfsmount.h> 69 #include <nfs/nqnfs.h> 70 #include <nfs/nfsrtt.h> 71 #include <nfs/nfs_var.h> 72 73 #include <miscfs/specfs/specdev.h> 74 75 #include <vm/vm.h> 76 77 #include <netinet/in.h> 78 #ifdef ISO 79 #include <netiso/iso.h> 80 #endif 81 82 /* 83 * Data items converted to xdr at startup, since they are constant 84 * This is kinda hokey, but may save a little time doing byte swaps 85 */ 86 u_int32_t nfs_xdrneg1; 87 u_int32_t rpc_call, rpc_vers, rpc_reply, rpc_msgdenied, rpc_autherr, 88 rpc_mismatch, rpc_auth_unix, rpc_msgaccepted, 89 rpc_auth_kerb; 90 u_int32_t nfs_prog, nqnfs_prog, nfs_true, nfs_false; 91 92 /* And other global data */ 93 static u_int32_t nfs_xid = 0; 94 nfstype nfsv2_type[9] = { NFNON, NFREG, NFDIR, NFBLK, NFCHR, NFLNK, NFNON, 95 NFCHR, NFNON }; 96 nfstype nfsv3_type[9] = { NFNON, NFREG, NFDIR, NFBLK, NFCHR, NFLNK, NFSOCK, 97 NFFIFO, NFNON }; 98 enum vtype nv2tov_type[8] = { VNON, VREG, VDIR, VBLK, VCHR, VLNK, VNON, VNON }; 99 enum vtype nv3tov_type[8]={ VNON, VREG, VDIR, VBLK, VCHR, VLNK, VSOCK, VFIFO }; 100 int nfs_ticks; 101 102 /* 103 * Mapping of old NFS Version 2 RPC numbers to generic numbers. 104 */ 105 int nfsv3_procid[NFS_NPROCS] = { 106 NFSPROC_NULL, 107 NFSPROC_GETATTR, 108 NFSPROC_SETATTR, 109 NFSPROC_NOOP, 110 NFSPROC_LOOKUP, 111 NFSPROC_READLINK, 112 NFSPROC_READ, 113 NFSPROC_NOOP, 114 NFSPROC_WRITE, 115 NFSPROC_CREATE, 116 NFSPROC_REMOVE, 117 NFSPROC_RENAME, 118 NFSPROC_LINK, 119 NFSPROC_SYMLINK, 120 NFSPROC_MKDIR, 121 NFSPROC_RMDIR, 122 NFSPROC_READDIR, 123 NFSPROC_FSSTAT, 124 NFSPROC_NOOP, 125 NFSPROC_NOOP, 126 NFSPROC_NOOP, 127 NFSPROC_NOOP, 128 NFSPROC_NOOP, 129 NFSPROC_NOOP, 130 NFSPROC_NOOP, 131 NFSPROC_NOOP 132 }; 133 134 /* 135 * and the reverse mapping from generic to Version 2 procedure numbers 136 */ 137 int nfsv2_procid[NFS_NPROCS] = { 138 NFSV2PROC_NULL, 139 NFSV2PROC_GETATTR, 140 NFSV2PROC_SETATTR, 141 NFSV2PROC_LOOKUP, 142 NFSV2PROC_NOOP, 143 NFSV2PROC_READLINK, 144 NFSV2PROC_READ, 145 NFSV2PROC_WRITE, 146 NFSV2PROC_CREATE, 147 NFSV2PROC_MKDIR, 148 NFSV2PROC_SYMLINK, 149 NFSV2PROC_CREATE, 150 NFSV2PROC_REMOVE, 151 NFSV2PROC_RMDIR, 152 NFSV2PROC_RENAME, 153 NFSV2PROC_LINK, 154 NFSV2PROC_READDIR, 155 NFSV2PROC_NOOP, 156 NFSV2PROC_STATFS, 157 NFSV2PROC_NOOP, 158 NFSV2PROC_NOOP, 159 NFSV2PROC_NOOP, 160 NFSV2PROC_NOOP, 161 NFSV2PROC_NOOP, 162 NFSV2PROC_NOOP, 163 NFSV2PROC_NOOP, 164 }; 165 166 /* 167 * Maps errno values to nfs error numbers. 168 * Use NFSERR_IO as the catch all for ones not specifically defined in 169 * RFC 1094. 170 */ 171 static u_char nfsrv_v2errmap[ELAST] = { 172 NFSERR_PERM, NFSERR_NOENT, NFSERR_IO, NFSERR_IO, NFSERR_IO, 173 NFSERR_NXIO, NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, 174 NFSERR_IO, NFSERR_IO, NFSERR_ACCES, NFSERR_IO, NFSERR_IO, 175 NFSERR_IO, NFSERR_EXIST, NFSERR_IO, NFSERR_NODEV, NFSERR_NOTDIR, 176 NFSERR_ISDIR, NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, 177 NFSERR_IO, NFSERR_FBIG, NFSERR_NOSPC, NFSERR_IO, NFSERR_ROFS, 178 NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, 179 NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, 180 NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, 181 NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, 182 NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, 183 NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, 184 NFSERR_IO, NFSERR_IO, NFSERR_NAMETOL, NFSERR_IO, NFSERR_IO, 185 NFSERR_NOTEMPTY, NFSERR_IO, NFSERR_IO, NFSERR_DQUOT, NFSERR_STALE, 186 NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, 187 NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, NFSERR_IO, 188 NFSERR_IO, 189 }; 190 191 /* 192 * Maps errno values to nfs error numbers. 193 * Although it is not obvious whether or not NFS clients really care if 194 * a returned error value is in the specified list for the procedure, the 195 * safest thing to do is filter them appropriately. For Version 2, the 196 * X/Open XNFS document is the only specification that defines error values 197 * for each RPC (The RFC simply lists all possible error values for all RPCs), 198 * so I have decided to not do this for Version 2. 199 * The first entry is the default error return and the rest are the valid 200 * errors for that RPC in increasing numeric order. 201 */ 202 static short nfsv3err_null[] = { 203 0, 204 0, 205 }; 206 207 static short nfsv3err_getattr[] = { 208 NFSERR_IO, 209 NFSERR_IO, 210 NFSERR_STALE, 211 NFSERR_BADHANDLE, 212 NFSERR_SERVERFAULT, 213 0, 214 }; 215 216 static short nfsv3err_setattr[] = { 217 NFSERR_IO, 218 NFSERR_PERM, 219 NFSERR_IO, 220 NFSERR_ACCES, 221 NFSERR_INVAL, 222 NFSERR_NOSPC, 223 NFSERR_ROFS, 224 NFSERR_DQUOT, 225 NFSERR_STALE, 226 NFSERR_BADHANDLE, 227 NFSERR_NOT_SYNC, 228 NFSERR_SERVERFAULT, 229 0, 230 }; 231 232 static short nfsv3err_lookup[] = { 233 NFSERR_IO, 234 NFSERR_NOENT, 235 NFSERR_IO, 236 NFSERR_ACCES, 237 NFSERR_NOTDIR, 238 NFSERR_NAMETOL, 239 NFSERR_STALE, 240 NFSERR_BADHANDLE, 241 NFSERR_SERVERFAULT, 242 0, 243 }; 244 245 static short nfsv3err_access[] = { 246 NFSERR_IO, 247 NFSERR_IO, 248 NFSERR_STALE, 249 NFSERR_BADHANDLE, 250 NFSERR_SERVERFAULT, 251 0, 252 }; 253 254 static short nfsv3err_readlink[] = { 255 NFSERR_IO, 256 NFSERR_IO, 257 NFSERR_ACCES, 258 NFSERR_INVAL, 259 NFSERR_STALE, 260 NFSERR_BADHANDLE, 261 NFSERR_NOTSUPP, 262 NFSERR_SERVERFAULT, 263 0, 264 }; 265 266 static short nfsv3err_read[] = { 267 NFSERR_IO, 268 NFSERR_IO, 269 NFSERR_NXIO, 270 NFSERR_ACCES, 271 NFSERR_INVAL, 272 NFSERR_STALE, 273 NFSERR_BADHANDLE, 274 NFSERR_SERVERFAULT, 275 0, 276 }; 277 278 static short nfsv3err_write[] = { 279 NFSERR_IO, 280 NFSERR_IO, 281 NFSERR_ACCES, 282 NFSERR_INVAL, 283 NFSERR_FBIG, 284 NFSERR_NOSPC, 285 NFSERR_ROFS, 286 NFSERR_DQUOT, 287 NFSERR_STALE, 288 NFSERR_BADHANDLE, 289 NFSERR_SERVERFAULT, 290 0, 291 }; 292 293 static short nfsv3err_create[] = { 294 NFSERR_IO, 295 NFSERR_IO, 296 NFSERR_ACCES, 297 NFSERR_EXIST, 298 NFSERR_NOTDIR, 299 NFSERR_NOSPC, 300 NFSERR_ROFS, 301 NFSERR_NAMETOL, 302 NFSERR_DQUOT, 303 NFSERR_STALE, 304 NFSERR_BADHANDLE, 305 NFSERR_NOTSUPP, 306 NFSERR_SERVERFAULT, 307 0, 308 }; 309 310 static short nfsv3err_mkdir[] = { 311 NFSERR_IO, 312 NFSERR_IO, 313 NFSERR_ACCES, 314 NFSERR_EXIST, 315 NFSERR_NOTDIR, 316 NFSERR_NOSPC, 317 NFSERR_ROFS, 318 NFSERR_NAMETOL, 319 NFSERR_DQUOT, 320 NFSERR_STALE, 321 NFSERR_BADHANDLE, 322 NFSERR_NOTSUPP, 323 NFSERR_SERVERFAULT, 324 0, 325 }; 326 327 static short nfsv3err_symlink[] = { 328 NFSERR_IO, 329 NFSERR_IO, 330 NFSERR_ACCES, 331 NFSERR_EXIST, 332 NFSERR_NOTDIR, 333 NFSERR_NOSPC, 334 NFSERR_ROFS, 335 NFSERR_NAMETOL, 336 NFSERR_DQUOT, 337 NFSERR_STALE, 338 NFSERR_BADHANDLE, 339 NFSERR_NOTSUPP, 340 NFSERR_SERVERFAULT, 341 0, 342 }; 343 344 static short nfsv3err_mknod[] = { 345 NFSERR_IO, 346 NFSERR_IO, 347 NFSERR_ACCES, 348 NFSERR_EXIST, 349 NFSERR_NOTDIR, 350 NFSERR_NOSPC, 351 NFSERR_ROFS, 352 NFSERR_NAMETOL, 353 NFSERR_DQUOT, 354 NFSERR_STALE, 355 NFSERR_BADHANDLE, 356 NFSERR_NOTSUPP, 357 NFSERR_SERVERFAULT, 358 NFSERR_BADTYPE, 359 0, 360 }; 361 362 static short nfsv3err_remove[] = { 363 NFSERR_IO, 364 NFSERR_NOENT, 365 NFSERR_IO, 366 NFSERR_ACCES, 367 NFSERR_NOTDIR, 368 NFSERR_ROFS, 369 NFSERR_NAMETOL, 370 NFSERR_STALE, 371 NFSERR_BADHANDLE, 372 NFSERR_SERVERFAULT, 373 0, 374 }; 375 376 static short nfsv3err_rmdir[] = { 377 NFSERR_IO, 378 NFSERR_NOENT, 379 NFSERR_IO, 380 NFSERR_ACCES, 381 NFSERR_EXIST, 382 NFSERR_NOTDIR, 383 NFSERR_INVAL, 384 NFSERR_ROFS, 385 NFSERR_NAMETOL, 386 NFSERR_NOTEMPTY, 387 NFSERR_STALE, 388 NFSERR_BADHANDLE, 389 NFSERR_NOTSUPP, 390 NFSERR_SERVERFAULT, 391 0, 392 }; 393 394 static short nfsv3err_rename[] = { 395 NFSERR_IO, 396 NFSERR_NOENT, 397 NFSERR_IO, 398 NFSERR_ACCES, 399 NFSERR_EXIST, 400 NFSERR_XDEV, 401 NFSERR_NOTDIR, 402 NFSERR_ISDIR, 403 NFSERR_INVAL, 404 NFSERR_NOSPC, 405 NFSERR_ROFS, 406 NFSERR_MLINK, 407 NFSERR_NAMETOL, 408 NFSERR_NOTEMPTY, 409 NFSERR_DQUOT, 410 NFSERR_STALE, 411 NFSERR_BADHANDLE, 412 NFSERR_NOTSUPP, 413 NFSERR_SERVERFAULT, 414 0, 415 }; 416 417 static short nfsv3err_link[] = { 418 NFSERR_IO, 419 NFSERR_IO, 420 NFSERR_ACCES, 421 NFSERR_EXIST, 422 NFSERR_XDEV, 423 NFSERR_NOTDIR, 424 NFSERR_INVAL, 425 NFSERR_NOSPC, 426 NFSERR_ROFS, 427 NFSERR_MLINK, 428 NFSERR_NAMETOL, 429 NFSERR_DQUOT, 430 NFSERR_STALE, 431 NFSERR_BADHANDLE, 432 NFSERR_NOTSUPP, 433 NFSERR_SERVERFAULT, 434 0, 435 }; 436 437 static short nfsv3err_readdir[] = { 438 NFSERR_IO, 439 NFSERR_IO, 440 NFSERR_ACCES, 441 NFSERR_NOTDIR, 442 NFSERR_STALE, 443 NFSERR_BADHANDLE, 444 NFSERR_BAD_COOKIE, 445 NFSERR_TOOSMALL, 446 NFSERR_SERVERFAULT, 447 0, 448 }; 449 450 static short nfsv3err_readdirplus[] = { 451 NFSERR_IO, 452 NFSERR_IO, 453 NFSERR_ACCES, 454 NFSERR_NOTDIR, 455 NFSERR_STALE, 456 NFSERR_BADHANDLE, 457 NFSERR_BAD_COOKIE, 458 NFSERR_NOTSUPP, 459 NFSERR_TOOSMALL, 460 NFSERR_SERVERFAULT, 461 0, 462 }; 463 464 static short nfsv3err_fsstat[] = { 465 NFSERR_IO, 466 NFSERR_IO, 467 NFSERR_STALE, 468 NFSERR_BADHANDLE, 469 NFSERR_SERVERFAULT, 470 0, 471 }; 472 473 static short nfsv3err_fsinfo[] = { 474 NFSERR_STALE, 475 NFSERR_STALE, 476 NFSERR_BADHANDLE, 477 NFSERR_SERVERFAULT, 478 0, 479 }; 480 481 static short nfsv3err_pathconf[] = { 482 NFSERR_STALE, 483 NFSERR_STALE, 484 NFSERR_BADHANDLE, 485 NFSERR_SERVERFAULT, 486 0, 487 }; 488 489 static short nfsv3err_commit[] = { 490 NFSERR_IO, 491 NFSERR_IO, 492 NFSERR_STALE, 493 NFSERR_BADHANDLE, 494 NFSERR_SERVERFAULT, 495 0, 496 }; 497 498 static short *nfsrv_v3errmap[] = { 499 nfsv3err_null, 500 nfsv3err_getattr, 501 nfsv3err_setattr, 502 nfsv3err_lookup, 503 nfsv3err_access, 504 nfsv3err_readlink, 505 nfsv3err_read, 506 nfsv3err_write, 507 nfsv3err_create, 508 nfsv3err_mkdir, 509 nfsv3err_symlink, 510 nfsv3err_mknod, 511 nfsv3err_remove, 512 nfsv3err_rmdir, 513 nfsv3err_rename, 514 nfsv3err_link, 515 nfsv3err_readdir, 516 nfsv3err_readdirplus, 517 nfsv3err_fsstat, 518 nfsv3err_fsinfo, 519 nfsv3err_pathconf, 520 nfsv3err_commit, 521 }; 522 523 extern struct proc *nfs_iodwant[NFS_MAXASYNCDAEMON]; 524 extern struct nfsrtt nfsrtt; 525 extern time_t nqnfsstarttime; 526 extern int nqsrv_clockskew; 527 extern int nqsrv_writeslack; 528 extern int nqsrv_maxlease; 529 extern struct nfsstats nfsstats; 530 extern int nqnfs_piggy[NFS_NPROCS]; 531 extern nfstype nfsv2_type[9]; 532 extern nfstype nfsv3_type[9]; 533 extern struct nfsnodehashhead *nfsnodehashtbl; 534 extern u_long nfsnodehash; 535 536 LIST_HEAD(nfsnodehashhead, nfsnode); 537 538 /* 539 * Create the header for an rpc request packet 540 * The hsiz is the size of the rest of the nfs request header. 541 * (just used to decide if a cluster is a good idea) 542 */ 543 struct mbuf * 544 nfsm_reqh(vp, procid, hsiz, bposp) 545 struct vnode *vp; 546 u_long procid; 547 int hsiz; 548 caddr_t *bposp; 549 { 550 register struct mbuf *mb; 551 register u_int32_t *tl; 552 register caddr_t bpos; 553 struct mbuf *mb2; 554 struct nfsmount *nmp; 555 int nqflag; 556 557 MGET(mb, M_WAIT, MT_DATA); 558 if (hsiz >= MINCLSIZE) 559 MCLGET(mb, M_WAIT); 560 mb->m_len = 0; 561 bpos = mtod(mb, caddr_t); 562 563 /* 564 * For NQNFS, add lease request. 565 */ 566 if (vp) { 567 nmp = VFSTONFS(vp->v_mount); 568 if (nmp->nm_flag & NFSMNT_NQNFS) { 569 nqflag = NQNFS_NEEDLEASE(vp, procid); 570 if (nqflag) { 571 nfsm_build(tl, u_int32_t *, 2*NFSX_UNSIGNED); 572 *tl++ = txdr_unsigned(nqflag); 573 *tl = txdr_unsigned(nmp->nm_leaseterm); 574 } else { 575 nfsm_build(tl, u_int32_t *, NFSX_UNSIGNED); 576 *tl = 0; 577 } 578 } 579 } 580 /* Finally, return values */ 581 *bposp = bpos; 582 return (mb); 583 } 584 585 /* 586 * Build the RPC header and fill in the authorization info. 587 * The authorization string argument is only used when the credentials 588 * come from outside of the kernel. 589 * Returns the head of the mbuf list. 590 */ 591 struct mbuf * 592 nfsm_rpchead(cr, nmflag, procid, auth_type, auth_len, auth_str, verf_len, 593 verf_str, mrest, mrest_len, mbp, xidp) 594 register struct ucred *cr; 595 int nmflag; 596 int procid; 597 int auth_type; 598 int auth_len; 599 char *auth_str; 600 int verf_len; 601 char *verf_str; 602 struct mbuf *mrest; 603 int mrest_len; 604 struct mbuf **mbp; 605 u_int32_t *xidp; 606 { 607 register struct mbuf *mb; 608 register u_int32_t *tl; 609 register caddr_t bpos; 610 register int i; 611 struct mbuf *mreq, *mb2; 612 int siz, grpsiz, authsiz; 613 struct timeval tv; 614 static u_int32_t base; 615 616 authsiz = nfsm_rndup(auth_len); 617 MGETHDR(mb, M_WAIT, MT_DATA); 618 if ((authsiz + 10 * NFSX_UNSIGNED) >= MINCLSIZE) { 619 MCLGET(mb, M_WAIT); 620 } else if ((authsiz + 10 * NFSX_UNSIGNED) < MHLEN) { 621 MH_ALIGN(mb, authsiz + 10 * NFSX_UNSIGNED); 622 } else { 623 MH_ALIGN(mb, 8 * NFSX_UNSIGNED); 624 } 625 mb->m_len = 0; 626 mreq = mb; 627 bpos = mtod(mb, caddr_t); 628 629 /* 630 * First the RPC header. 631 */ 632 nfsm_build(tl, u_int32_t *, 8 * NFSX_UNSIGNED); 633 634 /* 635 * derive initial xid from system time 636 * XXX time is invalid if root not yet mounted 637 */ 638 if (!base && (rootvp)) { 639 microtime(&tv); 640 base = tv.tv_sec << 12; 641 nfs_xid = base; 642 } 643 /* 644 * Skip zero xid if it should ever happen. 645 */ 646 if (++nfs_xid == 0) 647 nfs_xid++; 648 649 *tl++ = *xidp = txdr_unsigned(nfs_xid); 650 *tl++ = rpc_call; 651 *tl++ = rpc_vers; 652 if (nmflag & NFSMNT_NQNFS) { 653 *tl++ = txdr_unsigned(NQNFS_PROG); 654 *tl++ = txdr_unsigned(NQNFS_VER3); 655 } else { 656 *tl++ = txdr_unsigned(NFS_PROG); 657 if (nmflag & NFSMNT_NFSV3) 658 *tl++ = txdr_unsigned(NFS_VER3); 659 else 660 *tl++ = txdr_unsigned(NFS_VER2); 661 } 662 if (nmflag & NFSMNT_NFSV3) 663 *tl++ = txdr_unsigned(procid); 664 else 665 *tl++ = txdr_unsigned(nfsv2_procid[procid]); 666 667 /* 668 * And then the authorization cred. 669 */ 670 *tl++ = txdr_unsigned(auth_type); 671 *tl = txdr_unsigned(authsiz); 672 switch (auth_type) { 673 case RPCAUTH_UNIX: 674 nfsm_build(tl, u_int32_t *, auth_len); 675 *tl++ = 0; /* stamp ?? */ 676 *tl++ = 0; /* NULL hostname */ 677 *tl++ = txdr_unsigned(cr->cr_uid); 678 *tl++ = txdr_unsigned(cr->cr_gid); 679 grpsiz = (auth_len >> 2) - 5; 680 *tl++ = txdr_unsigned(grpsiz); 681 for (i = 0; i < grpsiz; i++) 682 *tl++ = txdr_unsigned(cr->cr_groups[i]); 683 break; 684 case RPCAUTH_KERB4: 685 siz = auth_len; 686 while (siz > 0) { 687 if (M_TRAILINGSPACE(mb) == 0) { 688 MGET(mb2, M_WAIT, MT_DATA); 689 if (siz >= MINCLSIZE) 690 MCLGET(mb2, M_WAIT); 691 mb->m_next = mb2; 692 mb = mb2; 693 mb->m_len = 0; 694 bpos = mtod(mb, caddr_t); 695 } 696 i = min(siz, M_TRAILINGSPACE(mb)); 697 bcopy(auth_str, bpos, i); 698 mb->m_len += i; 699 auth_str += i; 700 bpos += i; 701 siz -= i; 702 } 703 if ((siz = (nfsm_rndup(auth_len) - auth_len)) > 0) { 704 for (i = 0; i < siz; i++) 705 *bpos++ = '\0'; 706 mb->m_len += siz; 707 } 708 break; 709 }; 710 711 /* 712 * And the verifier... 713 */ 714 nfsm_build(tl, u_int32_t *, 2 * NFSX_UNSIGNED); 715 if (verf_str) { 716 *tl++ = txdr_unsigned(RPCAUTH_KERB4); 717 *tl = txdr_unsigned(verf_len); 718 siz = verf_len; 719 while (siz > 0) { 720 if (M_TRAILINGSPACE(mb) == 0) { 721 MGET(mb2, M_WAIT, MT_DATA); 722 if (siz >= MINCLSIZE) 723 MCLGET(mb2, M_WAIT); 724 mb->m_next = mb2; 725 mb = mb2; 726 mb->m_len = 0; 727 bpos = mtod(mb, caddr_t); 728 } 729 i = min(siz, M_TRAILINGSPACE(mb)); 730 bcopy(verf_str, bpos, i); 731 mb->m_len += i; 732 verf_str += i; 733 bpos += i; 734 siz -= i; 735 } 736 if ((siz = (nfsm_rndup(verf_len) - verf_len)) > 0) { 737 for (i = 0; i < siz; i++) 738 *bpos++ = '\0'; 739 mb->m_len += siz; 740 } 741 } else { 742 *tl++ = txdr_unsigned(RPCAUTH_NULL); 743 *tl = 0; 744 } 745 mb->m_next = mrest; 746 mreq->m_pkthdr.len = authsiz + 10 * NFSX_UNSIGNED + mrest_len; 747 mreq->m_pkthdr.rcvif = (struct ifnet *)0; 748 *mbp = mb; 749 return (mreq); 750 } 751 752 /* 753 * copies mbuf chain to the uio scatter/gather list 754 */ 755 int 756 nfsm_mbuftouio(mrep, uiop, siz, dpos) 757 struct mbuf **mrep; 758 register struct uio *uiop; 759 int siz; 760 caddr_t *dpos; 761 { 762 register char *mbufcp, *uiocp; 763 register int xfer, left, len; 764 register struct mbuf *mp; 765 long uiosiz, rem; 766 int error = 0; 767 768 mp = *mrep; 769 mbufcp = *dpos; 770 len = mtod(mp, caddr_t)+mp->m_len-mbufcp; 771 rem = nfsm_rndup(siz)-siz; 772 while (siz > 0) { 773 if (uiop->uio_iovcnt <= 0 || uiop->uio_iov == NULL) 774 return (EFBIG); 775 left = uiop->uio_iov->iov_len; 776 uiocp = uiop->uio_iov->iov_base; 777 if (left > siz) 778 left = siz; 779 uiosiz = left; 780 while (left > 0) { 781 while (len == 0) { 782 mp = mp->m_next; 783 if (mp == NULL) 784 return (EBADRPC); 785 mbufcp = mtod(mp, caddr_t); 786 len = mp->m_len; 787 } 788 xfer = (left > len) ? len : left; 789 #ifdef notdef 790 /* Not Yet.. */ 791 if (uiop->uio_iov->iov_op != NULL) 792 (*(uiop->uio_iov->iov_op)) 793 (mbufcp, uiocp, xfer); 794 else 795 #endif 796 if (uiop->uio_segflg == UIO_SYSSPACE) 797 bcopy(mbufcp, uiocp, xfer); 798 else 799 copyout(mbufcp, uiocp, xfer); 800 left -= xfer; 801 len -= xfer; 802 mbufcp += xfer; 803 uiocp += xfer; 804 uiop->uio_offset += xfer; 805 uiop->uio_resid -= xfer; 806 } 807 if (uiop->uio_iov->iov_len <= siz) { 808 uiop->uio_iovcnt--; 809 uiop->uio_iov++; 810 } else { 811 uiop->uio_iov->iov_base += uiosiz; 812 uiop->uio_iov->iov_len -= uiosiz; 813 } 814 siz -= uiosiz; 815 } 816 *dpos = mbufcp; 817 *mrep = mp; 818 if (rem > 0) { 819 if (len < rem) 820 error = nfs_adv(mrep, dpos, rem, len); 821 else 822 *dpos += rem; 823 } 824 return (error); 825 } 826 827 /* 828 * copies a uio scatter/gather list to an mbuf chain. 829 * NOTE: can ony handle iovcnt == 1 830 */ 831 int 832 nfsm_uiotombuf(uiop, mq, siz, bpos) 833 register struct uio *uiop; 834 struct mbuf **mq; 835 int siz; 836 caddr_t *bpos; 837 { 838 register char *uiocp; 839 register struct mbuf *mp, *mp2; 840 register int xfer, left, mlen; 841 int uiosiz, clflg, rem; 842 char *cp; 843 844 #ifdef DIAGNOSTIC 845 if (uiop->uio_iovcnt != 1) 846 panic("nfsm_uiotombuf: iovcnt != 1"); 847 #endif 848 849 if (siz > MLEN) /* or should it >= MCLBYTES ?? */ 850 clflg = 1; 851 else 852 clflg = 0; 853 rem = nfsm_rndup(siz)-siz; 854 mp = mp2 = *mq; 855 while (siz > 0) { 856 left = uiop->uio_iov->iov_len; 857 uiocp = uiop->uio_iov->iov_base; 858 if (left > siz) 859 left = siz; 860 uiosiz = left; 861 while (left > 0) { 862 mlen = M_TRAILINGSPACE(mp); 863 if (mlen == 0) { 864 MGET(mp, M_WAIT, MT_DATA); 865 if (clflg) 866 MCLGET(mp, M_WAIT); 867 mp->m_len = 0; 868 mp2->m_next = mp; 869 mp2 = mp; 870 mlen = M_TRAILINGSPACE(mp); 871 } 872 xfer = (left > mlen) ? mlen : left; 873 #ifdef notdef 874 /* Not Yet.. */ 875 if (uiop->uio_iov->iov_op != NULL) 876 (*(uiop->uio_iov->iov_op)) 877 (uiocp, mtod(mp, caddr_t)+mp->m_len, xfer); 878 else 879 #endif 880 if (uiop->uio_segflg == UIO_SYSSPACE) 881 bcopy(uiocp, mtod(mp, caddr_t)+mp->m_len, xfer); 882 else 883 copyin(uiocp, mtod(mp, caddr_t)+mp->m_len, xfer); 884 mp->m_len += xfer; 885 left -= xfer; 886 uiocp += xfer; 887 uiop->uio_offset += xfer; 888 uiop->uio_resid -= xfer; 889 } 890 uiop->uio_iov->iov_base += uiosiz; 891 uiop->uio_iov->iov_len -= uiosiz; 892 siz -= uiosiz; 893 } 894 if (rem > 0) { 895 if (rem > M_TRAILINGSPACE(mp)) { 896 MGET(mp, M_WAIT, MT_DATA); 897 mp->m_len = 0; 898 mp2->m_next = mp; 899 } 900 cp = mtod(mp, caddr_t)+mp->m_len; 901 for (left = 0; left < rem; left++) 902 *cp++ = '\0'; 903 mp->m_len += rem; 904 *bpos = cp; 905 } else 906 *bpos = mtod(mp, caddr_t)+mp->m_len; 907 *mq = mp; 908 return (0); 909 } 910 911 /* 912 * Help break down an mbuf chain by setting the first siz bytes contiguous 913 * pointed to by returned val. 914 * This is used by the macros nfsm_dissect and nfsm_dissecton for tough 915 * cases. (The macros use the vars. dpos and dpos2) 916 */ 917 int 918 nfsm_disct(mdp, dposp, siz, left, cp2) 919 struct mbuf **mdp; 920 caddr_t *dposp; 921 int siz; 922 int left; 923 caddr_t *cp2; 924 { 925 register struct mbuf *mp, *mp2; 926 register int siz2, xfer; 927 register caddr_t p; 928 929 mp = *mdp; 930 while (left == 0) { 931 *mdp = mp = mp->m_next; 932 if (mp == NULL) 933 return (EBADRPC); 934 left = mp->m_len; 935 *dposp = mtod(mp, caddr_t); 936 } 937 if (left >= siz) { 938 *cp2 = *dposp; 939 *dposp += siz; 940 } else if (mp->m_next == NULL) { 941 return (EBADRPC); 942 } else if (siz > MHLEN) { 943 panic("nfs S too big"); 944 } else { 945 MGET(mp2, M_WAIT, MT_DATA); 946 mp2->m_next = mp->m_next; 947 mp->m_next = mp2; 948 mp->m_len -= left; 949 mp = mp2; 950 *cp2 = p = mtod(mp, caddr_t); 951 bcopy(*dposp, p, left); /* Copy what was left */ 952 siz2 = siz-left; 953 p += left; 954 mp2 = mp->m_next; 955 /* Loop around copying up the siz2 bytes */ 956 while (siz2 > 0) { 957 if (mp2 == NULL) 958 return (EBADRPC); 959 xfer = (siz2 > mp2->m_len) ? mp2->m_len : siz2; 960 if (xfer > 0) { 961 bcopy(mtod(mp2, caddr_t), p, xfer); 962 NFSMADV(mp2, xfer); 963 mp2->m_len -= xfer; 964 p += xfer; 965 siz2 -= xfer; 966 } 967 if (siz2 > 0) 968 mp2 = mp2->m_next; 969 } 970 mp->m_len = siz; 971 *mdp = mp2; 972 *dposp = mtod(mp2, caddr_t); 973 } 974 return (0); 975 } 976 977 /* 978 * Advance the position in the mbuf chain. 979 */ 980 int 981 nfs_adv(mdp, dposp, offs, left) 982 struct mbuf **mdp; 983 caddr_t *dposp; 984 int offs; 985 int left; 986 { 987 register struct mbuf *m; 988 register int s; 989 990 m = *mdp; 991 s = left; 992 while (s < offs) { 993 offs -= s; 994 m = m->m_next; 995 if (m == NULL) 996 return (EBADRPC); 997 s = m->m_len; 998 } 999 *mdp = m; 1000 *dposp = mtod(m, caddr_t)+offs; 1001 return (0); 1002 } 1003 1004 /* 1005 * Copy a string into mbufs for the hard cases... 1006 */ 1007 int 1008 nfsm_strtmbuf(mb, bpos, cp, siz) 1009 struct mbuf **mb; 1010 char **bpos; 1011 const char *cp; 1012 long siz; 1013 { 1014 register struct mbuf *m1 = NULL, *m2; 1015 long left, xfer, len, tlen; 1016 u_int32_t *tl; 1017 int putsize; 1018 1019 putsize = 1; 1020 m2 = *mb; 1021 left = M_TRAILINGSPACE(m2); 1022 if (left > 0) { 1023 tl = ((u_int32_t *)(*bpos)); 1024 *tl++ = txdr_unsigned(siz); 1025 putsize = 0; 1026 left -= NFSX_UNSIGNED; 1027 m2->m_len += NFSX_UNSIGNED; 1028 if (left > 0) { 1029 bcopy(cp, (caddr_t) tl, left); 1030 siz -= left; 1031 cp += left; 1032 m2->m_len += left; 1033 left = 0; 1034 } 1035 } 1036 /* Loop around adding mbufs */ 1037 while (siz > 0) { 1038 MGET(m1, M_WAIT, MT_DATA); 1039 if (siz > MLEN) 1040 MCLGET(m1, M_WAIT); 1041 m1->m_len = NFSMSIZ(m1); 1042 m2->m_next = m1; 1043 m2 = m1; 1044 tl = mtod(m1, u_int32_t *); 1045 tlen = 0; 1046 if (putsize) { 1047 *tl++ = txdr_unsigned(siz); 1048 m1->m_len -= NFSX_UNSIGNED; 1049 tlen = NFSX_UNSIGNED; 1050 putsize = 0; 1051 } 1052 if (siz < m1->m_len) { 1053 len = nfsm_rndup(siz); 1054 xfer = siz; 1055 if (xfer < len) 1056 *(tl+(xfer>>2)) = 0; 1057 } else { 1058 xfer = len = m1->m_len; 1059 } 1060 bcopy(cp, (caddr_t) tl, xfer); 1061 m1->m_len = len+tlen; 1062 siz -= xfer; 1063 cp += xfer; 1064 } 1065 *mb = m1; 1066 *bpos = mtod(m1, caddr_t)+m1->m_len; 1067 return (0); 1068 } 1069 1070 /* 1071 * Called once to initialize data structures... 1072 */ 1073 void 1074 nfs_init() 1075 { 1076 register int i; 1077 1078 #if !defined(alpha) && defined(DIAGNOSTIC) 1079 /* 1080 * Check to see if major data structures haven't bloated. 1081 */ 1082 if (sizeof (struct nfsnode) > NFS_NODEALLOC) { 1083 printf("struct nfsnode bloated (> %dbytes)\n", NFS_NODEALLOC); 1084 printf("Try reducing NFS_SMALLFH\n"); 1085 } 1086 if (sizeof (struct nfsmount) > NFS_MNTALLOC) { 1087 printf("struct nfsmount bloated (> %dbytes)\n", NFS_MNTALLOC); 1088 printf("Try reducing NFS_MUIDHASHSIZ\n"); 1089 } 1090 if (sizeof (struct nfssvc_sock) > NFS_SVCALLOC) { 1091 printf("struct nfssvc_sock bloated (> %dbytes)\n",NFS_SVCALLOC); 1092 printf("Try reducing NFS_UIDHASHSIZ\n"); 1093 } 1094 if (sizeof (struct nfsuid) > NFS_UIDALLOC) { 1095 printf("struct nfsuid bloated (> %dbytes)\n",NFS_UIDALLOC); 1096 printf("Try unionizing the nu_nickname and nu_flag fields\n"); 1097 } 1098 #endif 1099 1100 nfsrtt.pos = 0; 1101 rpc_vers = txdr_unsigned(RPC_VER2); 1102 rpc_call = txdr_unsigned(RPC_CALL); 1103 rpc_reply = txdr_unsigned(RPC_REPLY); 1104 rpc_msgdenied = txdr_unsigned(RPC_MSGDENIED); 1105 rpc_msgaccepted = txdr_unsigned(RPC_MSGACCEPTED); 1106 rpc_mismatch = txdr_unsigned(RPC_MISMATCH); 1107 rpc_autherr = txdr_unsigned(RPC_AUTHERR); 1108 rpc_auth_unix = txdr_unsigned(RPCAUTH_UNIX); 1109 rpc_auth_kerb = txdr_unsigned(RPCAUTH_KERB4); 1110 nfs_prog = txdr_unsigned(NFS_PROG); 1111 nqnfs_prog = txdr_unsigned(NQNFS_PROG); 1112 nfs_true = txdr_unsigned(TRUE); 1113 nfs_false = txdr_unsigned(FALSE); 1114 nfs_xdrneg1 = txdr_unsigned(-1); 1115 nfs_ticks = (hz * NFS_TICKINTVL + 500) / 1000; 1116 if (nfs_ticks < 1) 1117 nfs_ticks = 1; 1118 #ifdef NFSCLIENT 1119 /* Ensure async daemons disabled */ 1120 for (i = 0; i < NFS_MAXASYNCDAEMON; i++) 1121 nfs_iodwant[i] = (struct proc *)0; 1122 TAILQ_INIT(&nfs_bufq); 1123 nfs_nhinit(); /* Init the nfsnode table */ 1124 #endif /* NFSCLIENT */ 1125 #ifdef NFSSERVER 1126 nfsrv_init(0); /* Init server data structures */ 1127 nfsrv_initcache(); /* Init the server request cache */ 1128 #endif /* NFSSERVER */ 1129 1130 /* 1131 * Initialize the nqnfs server stuff. 1132 */ 1133 if (nqnfsstarttime == 0) { 1134 nqnfsstarttime = boottime.tv_sec + nqsrv_maxlease 1135 + nqsrv_clockskew + nqsrv_writeslack; 1136 NQLOADNOVRAM(nqnfsstarttime); 1137 CIRCLEQ_INIT(&nqtimerhead); 1138 nqfhhashtbl = hashinit(NQLCHSZ, M_NQLEASE, &nqfhhash); 1139 } 1140 1141 /* 1142 * Initialize reply list and start timer 1143 */ 1144 TAILQ_INIT(&nfs_reqq); 1145 nfs_timer(NULL); 1146 } 1147 1148 #ifdef NFSCLIENT 1149 /* 1150 * Attribute cache routines. 1151 * nfs_loadattrcache() - loads or updates the cache contents from attributes 1152 * that are on the mbuf list 1153 * nfs_getattrcache() - returns valid attributes if found in cache, returns 1154 * error otherwise 1155 */ 1156 1157 /* 1158 * Load the attribute cache (that lives in the nfsnode entry) with 1159 * the values on the mbuf list and 1160 * Iff vap not NULL 1161 * copy the attributes to *vaper 1162 */ 1163 int 1164 nfs_loadattrcache(vpp, mdp, dposp, vaper) 1165 struct vnode **vpp; 1166 struct mbuf **mdp; 1167 caddr_t *dposp; 1168 struct vattr *vaper; 1169 { 1170 register struct vnode *vp = *vpp; 1171 register struct vattr *vap; 1172 register struct nfs_fattr *fp; 1173 extern int (**spec_nfsv2nodeop_p) __P((void *)); 1174 register struct nfsnode *np; 1175 register int32_t t1; 1176 caddr_t cp2; 1177 int error = 0; 1178 int32_t rdev; 1179 struct mbuf *md; 1180 enum vtype vtyp; 1181 u_short vmode; 1182 struct timespec mtime; 1183 struct vnode *nvp; 1184 int v3 = NFS_ISV3(vp); 1185 1186 md = *mdp; 1187 t1 = (mtod(md, caddr_t) + md->m_len) - *dposp; 1188 error = nfsm_disct(mdp, dposp, NFSX_FATTR(v3), t1, &cp2); 1189 if (error) 1190 return (error); 1191 fp = (struct nfs_fattr *)cp2; 1192 if (v3) { 1193 vtyp = nfsv3tov_type(fp->fa_type); 1194 vmode = fxdr_unsigned(u_short, fp->fa_mode); 1195 rdev = makedev(fxdr_unsigned(u_char, fp->fa3_rdev.specdata1), 1196 fxdr_unsigned(u_char, fp->fa3_rdev.specdata2)); 1197 fxdr_nfsv3time(&fp->fa3_mtime, &mtime); 1198 } else { 1199 vtyp = nfsv2tov_type(fp->fa_type); 1200 vmode = fxdr_unsigned(u_short, fp->fa_mode); 1201 if (vtyp == VNON || vtyp == VREG) 1202 vtyp = IFTOVT(vmode); 1203 rdev = fxdr_unsigned(int32_t, fp->fa2_rdev); 1204 fxdr_nfsv2time(&fp->fa2_mtime, &mtime); 1205 1206 /* 1207 * Really ugly NFSv2 kludge. 1208 */ 1209 if (vtyp == VCHR && rdev == 0xffffffff) 1210 vtyp = VFIFO; 1211 } 1212 1213 /* 1214 * If v_type == VNON it is a new node, so fill in the v_type, 1215 * n_mtime fields. Check to see if it represents a special 1216 * device, and if so, check for a possible alias. Once the 1217 * correct vnode has been obtained, fill in the rest of the 1218 * information. 1219 */ 1220 np = VTONFS(vp); 1221 if (vp->v_type != vtyp) { 1222 vp->v_type = vtyp; 1223 if (vp->v_type == VFIFO) { 1224 #ifndef FIFO 1225 return (EOPNOTSUPP); 1226 #else 1227 extern int (**fifo_nfsv2nodeop_p) __P((void *)); 1228 vp->v_op = fifo_nfsv2nodeop_p; 1229 #endif /* FIFO */ 1230 } 1231 if (vp->v_type == VCHR || vp->v_type == VBLK) { 1232 vp->v_op = spec_nfsv2nodeop_p; 1233 nvp = checkalias(vp, (dev_t)rdev, vp->v_mount); 1234 if (nvp) { 1235 /* 1236 * Discard unneeded vnode, but save its nfsnode. 1237 * Since the nfsnode does not have a lock, its 1238 * vnode lock has to be carried over. 1239 */ 1240 #ifdef Lite2_integrated 1241 nvp->v_vnlock = vp->v_vnlock; 1242 vp->v_vnlock = NULL; 1243 #endif 1244 nvp->v_data = vp->v_data; 1245 vp->v_data = NULL; 1246 vp->v_op = spec_vnodeop_p; 1247 vrele(vp); 1248 vgone(vp); 1249 /* 1250 * Reinitialize aliased node. 1251 */ 1252 np->n_vnode = nvp; 1253 *vpp = vp = nvp; 1254 } 1255 } 1256 np->n_mtime = mtime.tv_sec; 1257 } 1258 vap = &np->n_vattr; 1259 vap->va_type = vtyp; 1260 vap->va_mode = (vmode & 07777); 1261 vap->va_rdev = (dev_t)rdev; 1262 vap->va_mtime = mtime; 1263 vap->va_fsid = vp->v_mount->mnt_stat.f_fsid.val[0]; 1264 if (v3) { 1265 vap->va_nlink = fxdr_unsigned(u_short, fp->fa_nlink); 1266 vap->va_uid = fxdr_unsigned(uid_t, fp->fa_uid); 1267 vap->va_gid = fxdr_unsigned(gid_t, fp->fa_gid); 1268 fxdr_hyper(&fp->fa3_size, &vap->va_size); 1269 vap->va_blocksize = NFS_FABLKSIZE; 1270 fxdr_hyper(&fp->fa3_used, &vap->va_bytes); 1271 vap->va_fileid = fxdr_unsigned(int32_t, 1272 fp->fa3_fileid.nfsuquad[1]); 1273 fxdr_nfsv3time(&fp->fa3_atime, &vap->va_atime); 1274 fxdr_nfsv3time(&fp->fa3_ctime, &vap->va_ctime); 1275 vap->va_flags = 0; 1276 vap->va_filerev = 0; 1277 } else { 1278 vap->va_nlink = fxdr_unsigned(u_short, fp->fa_nlink); 1279 vap->va_uid = fxdr_unsigned(uid_t, fp->fa_uid); 1280 vap->va_gid = fxdr_unsigned(gid_t, fp->fa_gid); 1281 vap->va_size = fxdr_unsigned(u_int32_t, fp->fa2_size); 1282 vap->va_blocksize = fxdr_unsigned(int32_t, fp->fa2_blocksize); 1283 vap->va_bytes = fxdr_unsigned(int32_t, fp->fa2_blocks) 1284 * NFS_FABLKSIZE; 1285 vap->va_fileid = fxdr_unsigned(int32_t, fp->fa2_fileid); 1286 fxdr_nfsv2time(&fp->fa2_atime, &vap->va_atime); 1287 vap->va_flags = 0; 1288 vap->va_ctime.tv_sec = fxdr_unsigned(u_int32_t, 1289 fp->fa2_ctime.nfsv2_sec); 1290 vap->va_ctime.tv_nsec = 0; 1291 vap->va_gen = fxdr_unsigned(u_int32_t,fp->fa2_ctime.nfsv2_usec); 1292 vap->va_filerev = 0; 1293 } 1294 if (vap->va_size != np->n_size) { 1295 if (vap->va_type == VREG) { 1296 if (np->n_flag & NMODIFIED) { 1297 if (vap->va_size < np->n_size) 1298 vap->va_size = np->n_size; 1299 else 1300 np->n_size = vap->va_size; 1301 } else 1302 np->n_size = vap->va_size; 1303 vnode_pager_setsize(vp, (u_long)np->n_size); 1304 } else 1305 np->n_size = vap->va_size; 1306 } 1307 np->n_attrstamp = time.tv_sec; 1308 if (vaper != NULL) { 1309 bcopy((caddr_t)vap, (caddr_t)vaper, sizeof(*vap)); 1310 if (np->n_flag & NCHG) { 1311 if (np->n_flag & NACC) 1312 vaper->va_atime = np->n_atim; 1313 if (np->n_flag & NUPD) 1314 vaper->va_mtime = np->n_mtim; 1315 } 1316 } 1317 return (0); 1318 } 1319 1320 /* 1321 * Check the time stamp 1322 * If the cache is valid, copy contents to *vap and return 0 1323 * otherwise return an error 1324 */ 1325 int 1326 nfs_getattrcache(vp, vaper) 1327 register struct vnode *vp; 1328 struct vattr *vaper; 1329 { 1330 register struct nfsnode *np = VTONFS(vp); 1331 register struct vattr *vap; 1332 1333 if ((time.tv_sec - np->n_attrstamp) >= NFS_ATTRTIMEO(np)) { 1334 nfsstats.attrcache_misses++; 1335 return (ENOENT); 1336 } 1337 nfsstats.attrcache_hits++; 1338 vap = &np->n_vattr; 1339 if (vap->va_size != np->n_size) { 1340 if (vap->va_type == VREG) { 1341 if (np->n_flag & NMODIFIED) { 1342 if (vap->va_size < np->n_size) 1343 vap->va_size = np->n_size; 1344 else 1345 np->n_size = vap->va_size; 1346 } else 1347 np->n_size = vap->va_size; 1348 vnode_pager_setsize(vp, (u_long)np->n_size); 1349 } else 1350 np->n_size = vap->va_size; 1351 } 1352 bcopy((caddr_t)vap, (caddr_t)vaper, sizeof(struct vattr)); 1353 if (np->n_flag & NCHG) { 1354 if (np->n_flag & NACC) 1355 vaper->va_atime = np->n_atim; 1356 if (np->n_flag & NUPD) 1357 vaper->va_mtime = np->n_mtim; 1358 } 1359 return (0); 1360 } 1361 #endif /* NFSCLIENT */ 1362 1363 /* 1364 * Set up nameidata for a lookup() call and do it 1365 */ 1366 int 1367 nfs_namei(ndp, fhp, len, slp, nam, mdp, dposp, retdirp, p, kerbflag) 1368 register struct nameidata *ndp; 1369 fhandle_t *fhp; 1370 int len; 1371 struct nfssvc_sock *slp; 1372 struct mbuf *nam; 1373 struct mbuf **mdp; 1374 caddr_t *dposp; 1375 struct vnode **retdirp; 1376 struct proc *p; 1377 int kerbflag; 1378 { 1379 register int i, rem; 1380 register struct mbuf *md; 1381 register char *fromcp, *tocp; 1382 struct vnode *dp; 1383 int error, rdonly; 1384 struct componentname *cnp = &ndp->ni_cnd; 1385 1386 *retdirp = (struct vnode *)0; 1387 MALLOC(cnp->cn_pnbuf, char *, len + 1, M_NAMEI, M_WAITOK); 1388 /* 1389 * Copy the name from the mbuf list to ndp->ni_pnbuf 1390 * and set the various ndp fields appropriately. 1391 */ 1392 fromcp = *dposp; 1393 tocp = cnp->cn_pnbuf; 1394 md = *mdp; 1395 rem = mtod(md, caddr_t) + md->m_len - fromcp; 1396 for (i = 0; i < len; i++) { 1397 while (rem == 0) { 1398 md = md->m_next; 1399 if (md == NULL) { 1400 error = EBADRPC; 1401 goto out; 1402 } 1403 fromcp = mtod(md, caddr_t); 1404 rem = md->m_len; 1405 } 1406 if (*fromcp == '\0' || *fromcp == '/') { 1407 error = EACCES; 1408 goto out; 1409 } 1410 *tocp++ = *fromcp++; 1411 rem--; 1412 } 1413 *tocp = '\0'; 1414 *mdp = md; 1415 *dposp = fromcp; 1416 len = nfsm_rndup(len)-len; 1417 if (len > 0) { 1418 if (rem >= len) 1419 *dposp += len; 1420 else if ((error = nfs_adv(mdp, dposp, len, rem)) != 0) 1421 goto out; 1422 } 1423 ndp->ni_pathlen = tocp - cnp->cn_pnbuf; 1424 cnp->cn_nameptr = cnp->cn_pnbuf; 1425 /* 1426 * Extract and set starting directory. 1427 */ 1428 error = nfsrv_fhtovp(fhp, FALSE, &dp, ndp->ni_cnd.cn_cred, slp, 1429 nam, &rdonly, kerbflag); 1430 if (error) 1431 goto out; 1432 if (dp->v_type != VDIR) { 1433 vrele(dp); 1434 error = ENOTDIR; 1435 goto out; 1436 } 1437 VREF(dp); 1438 *retdirp = dp; 1439 ndp->ni_startdir = dp; 1440 if (rdonly) 1441 cnp->cn_flags |= (NOCROSSMOUNT | RDONLY); 1442 else 1443 cnp->cn_flags |= NOCROSSMOUNT; 1444 /* 1445 * And call lookup() to do the real work 1446 */ 1447 cnp->cn_proc = p; 1448 error = lookup(ndp); 1449 if (error) 1450 goto out; 1451 /* 1452 * Check for encountering a symbolic link 1453 */ 1454 if (cnp->cn_flags & ISSYMLINK) { 1455 if ((cnp->cn_flags & LOCKPARENT) && ndp->ni_pathlen == 1) 1456 vput(ndp->ni_dvp); 1457 else 1458 vrele(ndp->ni_dvp); 1459 vput(ndp->ni_vp); 1460 ndp->ni_vp = NULL; 1461 error = EINVAL; 1462 goto out; 1463 } 1464 /* 1465 * Check for saved name request 1466 */ 1467 if (cnp->cn_flags & (SAVENAME | SAVESTART)) { 1468 cnp->cn_flags |= HASBUF; 1469 return (0); 1470 } 1471 out: 1472 FREE(cnp->cn_pnbuf, M_NAMEI); 1473 return (error); 1474 } 1475 1476 /* 1477 * A fiddled version of m_adj() that ensures null fill to a long 1478 * boundary and only trims off the back end 1479 */ 1480 void 1481 nfsm_adj(mp, len, nul) 1482 struct mbuf *mp; 1483 register int len; 1484 int nul; 1485 { 1486 register struct mbuf *m; 1487 register int count, i; 1488 register char *cp; 1489 1490 /* 1491 * Trim from tail. Scan the mbuf chain, 1492 * calculating its length and finding the last mbuf. 1493 * If the adjustment only affects this mbuf, then just 1494 * adjust and return. Otherwise, rescan and truncate 1495 * after the remaining size. 1496 */ 1497 count = 0; 1498 m = mp; 1499 for (;;) { 1500 count += m->m_len; 1501 if (m->m_next == (struct mbuf *)0) 1502 break; 1503 m = m->m_next; 1504 } 1505 if (m->m_len > len) { 1506 m->m_len -= len; 1507 if (nul > 0) { 1508 cp = mtod(m, caddr_t)+m->m_len-nul; 1509 for (i = 0; i < nul; i++) 1510 *cp++ = '\0'; 1511 } 1512 return; 1513 } 1514 count -= len; 1515 if (count < 0) 1516 count = 0; 1517 /* 1518 * Correct length for chain is "count". 1519 * Find the mbuf with last data, adjust its length, 1520 * and toss data from remaining mbufs on chain. 1521 */ 1522 for (m = mp; m; m = m->m_next) { 1523 if (m->m_len >= count) { 1524 m->m_len = count; 1525 if (nul > 0) { 1526 cp = mtod(m, caddr_t)+m->m_len-nul; 1527 for (i = 0; i < nul; i++) 1528 *cp++ = '\0'; 1529 } 1530 break; 1531 } 1532 count -= m->m_len; 1533 } 1534 for (m = m->m_next;m;m = m->m_next) 1535 m->m_len = 0; 1536 } 1537 1538 /* 1539 * Make these functions instead of macros, so that the kernel text size 1540 * doesn't get too big... 1541 */ 1542 void 1543 nfsm_srvwcc(nfsd, before_ret, before_vap, after_ret, after_vap, mbp, bposp) 1544 struct nfsrv_descript *nfsd; 1545 int before_ret; 1546 register struct vattr *before_vap; 1547 int after_ret; 1548 struct vattr *after_vap; 1549 struct mbuf **mbp; 1550 char **bposp; 1551 { 1552 register struct mbuf *mb = *mbp, *mb2; 1553 register char *bpos = *bposp; 1554 register u_int32_t *tl; 1555 1556 if (before_ret) { 1557 nfsm_build(tl, u_int32_t *, NFSX_UNSIGNED); 1558 *tl = nfs_false; 1559 } else { 1560 nfsm_build(tl, u_int32_t *, 7 * NFSX_UNSIGNED); 1561 *tl++ = nfs_true; 1562 txdr_hyper(&(before_vap->va_size), tl); 1563 tl += 2; 1564 txdr_nfsv3time(&(before_vap->va_mtime), tl); 1565 tl += 2; 1566 txdr_nfsv3time(&(before_vap->va_ctime), tl); 1567 } 1568 *bposp = bpos; 1569 *mbp = mb; 1570 nfsm_srvpostopattr(nfsd, after_ret, after_vap, mbp, bposp); 1571 } 1572 1573 void 1574 nfsm_srvpostopattr(nfsd, after_ret, after_vap, mbp, bposp) 1575 struct nfsrv_descript *nfsd; 1576 int after_ret; 1577 struct vattr *after_vap; 1578 struct mbuf **mbp; 1579 char **bposp; 1580 { 1581 register struct mbuf *mb = *mbp, *mb2; 1582 register char *bpos = *bposp; 1583 register u_int32_t *tl; 1584 register struct nfs_fattr *fp; 1585 1586 if (after_ret) { 1587 nfsm_build(tl, u_int32_t *, NFSX_UNSIGNED); 1588 *tl = nfs_false; 1589 } else { 1590 nfsm_build(tl, u_int32_t *, NFSX_UNSIGNED + NFSX_V3FATTR); 1591 *tl++ = nfs_true; 1592 fp = (struct nfs_fattr *)tl; 1593 nfsm_srvfattr(nfsd, after_vap, fp); 1594 } 1595 *mbp = mb; 1596 *bposp = bpos; 1597 } 1598 1599 void 1600 nfsm_srvfattr(nfsd, vap, fp) 1601 register struct nfsrv_descript *nfsd; 1602 register struct vattr *vap; 1603 register struct nfs_fattr *fp; 1604 { 1605 1606 fp->fa_nlink = txdr_unsigned(vap->va_nlink); 1607 fp->fa_uid = txdr_unsigned(vap->va_uid); 1608 fp->fa_gid = txdr_unsigned(vap->va_gid); 1609 if (nfsd->nd_flag & ND_NFSV3) { 1610 fp->fa_type = vtonfsv3_type(vap->va_type); 1611 fp->fa_mode = vtonfsv3_mode(vap->va_mode); 1612 txdr_hyper(&vap->va_size, &fp->fa3_size); 1613 txdr_hyper(&vap->va_bytes, &fp->fa3_used); 1614 fp->fa3_rdev.specdata1 = txdr_unsigned(major(vap->va_rdev)); 1615 fp->fa3_rdev.specdata2 = txdr_unsigned(minor(vap->va_rdev)); 1616 fp->fa3_fsid.nfsuquad[0] = 0; 1617 fp->fa3_fsid.nfsuquad[1] = txdr_unsigned(vap->va_fsid); 1618 fp->fa3_fileid.nfsuquad[0] = 0; 1619 fp->fa3_fileid.nfsuquad[1] = txdr_unsigned(vap->va_fileid); 1620 txdr_nfsv3time(&vap->va_atime, &fp->fa3_atime); 1621 txdr_nfsv3time(&vap->va_mtime, &fp->fa3_mtime); 1622 txdr_nfsv3time(&vap->va_ctime, &fp->fa3_ctime); 1623 } else { 1624 fp->fa_type = vtonfsv2_type(vap->va_type); 1625 fp->fa_mode = vtonfsv2_mode(vap->va_type, vap->va_mode); 1626 fp->fa2_size = txdr_unsigned(vap->va_size); 1627 fp->fa2_blocksize = txdr_unsigned(vap->va_blocksize); 1628 if (vap->va_type == VFIFO) 1629 fp->fa2_rdev = 0xffffffff; 1630 else 1631 fp->fa2_rdev = txdr_unsigned(vap->va_rdev); 1632 fp->fa2_blocks = txdr_unsigned(vap->va_bytes / NFS_FABLKSIZE); 1633 fp->fa2_fsid = txdr_unsigned(vap->va_fsid); 1634 fp->fa2_fileid = txdr_unsigned(vap->va_fileid); 1635 txdr_nfsv2time(&vap->va_atime, &fp->fa2_atime); 1636 txdr_nfsv2time(&vap->va_mtime, &fp->fa2_mtime); 1637 txdr_nfsv2time(&vap->va_ctime, &fp->fa2_ctime); 1638 } 1639 } 1640 1641 /* 1642 * nfsrv_fhtovp() - convert a fh to a vnode ptr (optionally locked) 1643 * - look up fsid in mount list (if not found ret error) 1644 * - get vp and export rights by calling VFS_FHTOVP() 1645 * - if cred->cr_uid == 0 or MNT_EXPORTANON set it to credanon 1646 * - if not lockflag unlock it with VOP_UNLOCK() 1647 */ 1648 int 1649 nfsrv_fhtovp(fhp, lockflag, vpp, cred, slp, nam, rdonlyp, kerbflag) 1650 fhandle_t *fhp; 1651 int lockflag; 1652 struct vnode **vpp; 1653 struct ucred *cred; 1654 struct nfssvc_sock *slp; 1655 struct mbuf *nam; 1656 int *rdonlyp; 1657 int kerbflag; 1658 { 1659 #ifdef Lite2_integrated 1660 struct proc *p = curproc; /* XXX */ 1661 #endif 1662 register struct mount *mp; 1663 register int i; 1664 struct ucred *credanon; 1665 int error, exflags; 1666 1667 *vpp = (struct vnode *)0; 1668 #ifdef Lite2_integrated 1669 mp = vfs_getvfs(&fhp->fh_fsid); 1670 #else 1671 mp = getvfs(&fhp->fh_fsid); 1672 #endif 1673 if (!mp) 1674 return (ESTALE); 1675 error = VFS_FHTOVP(mp, &fhp->fh_fid, nam, vpp, &exflags, &credanon); 1676 if (error) 1677 return (error); 1678 /* 1679 * Check/setup credentials. 1680 */ 1681 if (exflags & MNT_EXKERB) { 1682 if (!kerbflag) { 1683 vput(*vpp); 1684 return (NFSERR_AUTHERR | AUTH_TOOWEAK); 1685 } 1686 } else if (kerbflag) { 1687 vput(*vpp); 1688 return (NFSERR_AUTHERR | AUTH_TOOWEAK); 1689 } else if (cred->cr_uid == 0 || (exflags & MNT_EXPORTANON)) { 1690 cred->cr_uid = credanon->cr_uid; 1691 cred->cr_gid = credanon->cr_gid; 1692 for (i = 0; i < credanon->cr_ngroups && i < NGROUPS; i++) 1693 cred->cr_groups[i] = credanon->cr_groups[i]; 1694 cred->cr_ngroups = i; 1695 } 1696 if (exflags & MNT_EXRDONLY) 1697 *rdonlyp = 1; 1698 else 1699 *rdonlyp = 0; 1700 if (!lockflag) 1701 #ifdef Lite2_integrated 1702 VOP_UNLOCK(*vpp, 0, p); 1703 #else 1704 VOP_UNLOCK(*vpp); 1705 #endif 1706 return (0); 1707 } 1708 1709 /* 1710 * This function compares two net addresses by family and returns TRUE 1711 * if they are the same host. 1712 * If there is any doubt, return FALSE. 1713 * The AF_INET family is handled as a special case so that address mbufs 1714 * don't need to be saved to store "struct in_addr", which is only 4 bytes. 1715 */ 1716 int 1717 netaddr_match(family, haddr, nam) 1718 int family; 1719 union nethostaddr *haddr; 1720 struct mbuf *nam; 1721 { 1722 register struct sockaddr_in *inetaddr; 1723 1724 switch (family) { 1725 case AF_INET: 1726 inetaddr = mtod(nam, struct sockaddr_in *); 1727 if (inetaddr->sin_family == AF_INET && 1728 inetaddr->sin_addr.s_addr == haddr->had_inetaddr) 1729 return (1); 1730 break; 1731 #ifdef ISO 1732 case AF_ISO: 1733 { 1734 register struct sockaddr_iso *isoaddr1, *isoaddr2; 1735 1736 isoaddr1 = mtod(nam, struct sockaddr_iso *); 1737 isoaddr2 = mtod(haddr->had_nam, struct sockaddr_iso *); 1738 if (isoaddr1->siso_family == AF_ISO && 1739 isoaddr1->siso_nlen > 0 && 1740 isoaddr1->siso_nlen == isoaddr2->siso_nlen && 1741 SAME_ISOADDR(isoaddr1, isoaddr2)) 1742 return (1); 1743 break; 1744 } 1745 #endif /* ISO */ 1746 default: 1747 break; 1748 }; 1749 return (0); 1750 } 1751 1752 static nfsuint64 nfs_nullcookie = {{ 0, 0 }}; 1753 /* 1754 * This function finds the directory cookie that corresponds to the 1755 * logical byte offset given. 1756 */ 1757 nfsuint64 * 1758 nfs_getcookie(np, off, add) 1759 register struct nfsnode *np; 1760 off_t off; 1761 int add; 1762 { 1763 register struct nfsdmap *dp, *dp2; 1764 register int pos; 1765 1766 pos = off / NFS_DIRBLKSIZ; 1767 if (pos == 0) { 1768 #ifdef DIAGNOSTIC 1769 if (add) 1770 panic("nfs getcookie add at 0"); 1771 #endif 1772 return (&nfs_nullcookie); 1773 } 1774 pos--; 1775 dp = np->n_cookies.lh_first; 1776 if (!dp) { 1777 if (add) { 1778 MALLOC(dp, struct nfsdmap *, sizeof (struct nfsdmap), 1779 M_NFSDIROFF, M_WAITOK); 1780 dp->ndm_eocookie = 0; 1781 LIST_INSERT_HEAD(&np->n_cookies, dp, ndm_list); 1782 } else 1783 return ((nfsuint64 *)0); 1784 } 1785 while (pos >= NFSNUMCOOKIES) { 1786 pos -= NFSNUMCOOKIES; 1787 if (dp->ndm_list.le_next) { 1788 if (!add && dp->ndm_eocookie < NFSNUMCOOKIES && 1789 pos >= dp->ndm_eocookie) 1790 return ((nfsuint64 *)0); 1791 dp = dp->ndm_list.le_next; 1792 } else if (add) { 1793 MALLOC(dp2, struct nfsdmap *, sizeof (struct nfsdmap), 1794 M_NFSDIROFF, M_WAITOK); 1795 dp2->ndm_eocookie = 0; 1796 LIST_INSERT_AFTER(dp, dp2, ndm_list); 1797 dp = dp2; 1798 } else 1799 return ((nfsuint64 *)0); 1800 } 1801 if (pos >= dp->ndm_eocookie) { 1802 if (add) 1803 dp->ndm_eocookie = pos + 1; 1804 else 1805 return ((nfsuint64 *)0); 1806 } 1807 return (&dp->ndm_cookies[pos]); 1808 } 1809 1810 /* 1811 * Invalidate cached directory information, except for the actual directory 1812 * blocks (which are invalidated separately). 1813 * Done mainly to avoid the use of stale offset cookies. 1814 */ 1815 void 1816 nfs_invaldir(vp) 1817 register struct vnode *vp; 1818 { 1819 #ifdef notdef /* XXX */ 1820 register struct nfsnode *np = VTONFS(vp); 1821 1822 #ifdef DIAGNOSTIC 1823 if (vp->v_type != VDIR) 1824 panic("nfs: invaldir not dir"); 1825 #endif 1826 np->n_direofoffset = 0; 1827 np->n_cookieverf.nfsuquad[0] = 0; 1828 np->n_cookieverf.nfsuquad[1] = 0; 1829 if (np->n_cookies.lh_first) 1830 np->n_cookies.lh_first->ndm_eocookie = 0; 1831 #endif 1832 } 1833 1834 /* 1835 * The write verifier has changed (probably due to a server reboot), so all 1836 * B_NEEDCOMMIT blocks will have to be written again. Since they are on the 1837 * dirty block list as B_DELWRI, all this takes is clearing the B_NEEDCOMMIT 1838 * flag. Once done the new write verifier can be set for the mount point. 1839 */ 1840 void 1841 nfs_clearcommit(mp) 1842 struct mount *mp; 1843 { 1844 register struct vnode *vp, *nvp; 1845 register struct buf *bp, *nbp; 1846 int s; 1847 1848 s = splbio(); 1849 loop: 1850 for (vp = mp->mnt_vnodelist.lh_first; vp; vp = nvp) { 1851 if (vp->v_mount != mp) /* Paranoia */ 1852 goto loop; 1853 nvp = vp->v_mntvnodes.le_next; 1854 for (bp = vp->v_dirtyblkhd.lh_first; bp; bp = nbp) { 1855 nbp = bp->b_vnbufs.le_next; 1856 if ((bp->b_flags & (B_BUSY | B_DELWRI | B_NEEDCOMMIT)) 1857 == (B_DELWRI | B_NEEDCOMMIT)) 1858 bp->b_flags &= ~B_NEEDCOMMIT; 1859 } 1860 } 1861 splx(s); 1862 } 1863 1864 /* 1865 * Map errnos to NFS error numbers. For Version 3 also filter out error 1866 * numbers not specified for the associated procedure. 1867 */ 1868 int 1869 nfsrv_errmap(nd, err) 1870 struct nfsrv_descript *nd; 1871 register int err; 1872 { 1873 register short *defaulterrp, *errp; 1874 1875 if (nd->nd_flag & ND_NFSV3) { 1876 if (nd->nd_procnum <= NFSPROC_COMMIT) { 1877 errp = defaulterrp = nfsrv_v3errmap[nd->nd_procnum]; 1878 while (*++errp) { 1879 if (*errp == err) 1880 return (err); 1881 else if (*errp > err) 1882 break; 1883 } 1884 return ((int)*defaulterrp); 1885 } else 1886 return (err & 0xffff); 1887 } 1888 if (err <= ELAST) 1889 return ((int)nfsrv_v2errmap[err - 1]); 1890 return (NFSERR_IO); 1891 } 1892 1893 /* 1894 * Sort the group list in increasing numerical order. 1895 * (Insertion sort by Chris Torek, who was grossed out by the bubble sort 1896 * that used to be here.) 1897 */ 1898 void 1899 nfsrvw_sort(list, num) 1900 register gid_t *list; 1901 register int num; 1902 { 1903 register int i, j; 1904 gid_t v; 1905 1906 /* Insertion sort. */ 1907 for (i = 1; i < num; i++) { 1908 v = list[i]; 1909 /* find correct slot for value v, moving others up */ 1910 for (j = i; --j >= 0 && v < list[j];) 1911 list[j + 1] = list[j]; 1912 list[j + 1] = v; 1913 } 1914 } 1915 1916 /* 1917 * copy credentials making sure that the result can be compared with bcmp(). 1918 */ 1919 void 1920 nfsrv_setcred(incred, outcred) 1921 register struct ucred *incred, *outcred; 1922 { 1923 register int i; 1924 1925 bzero((caddr_t)outcred, sizeof (struct ucred)); 1926 outcred->cr_ref = 1; 1927 outcred->cr_uid = incred->cr_uid; 1928 outcred->cr_gid = incred->cr_gid; 1929 outcred->cr_ngroups = incred->cr_ngroups; 1930 for (i = 0; i < incred->cr_ngroups; i++) 1931 outcred->cr_groups[i] = incred->cr_groups[i]; 1932 nfsrvw_sort(outcred->cr_groups, outcred->cr_ngroups); 1933 } 1934