/*

 * CDDL HEADER START

 *

 * The contents of this file are subject to the terms of the

 * Common Development and Distribution License (the "License").

 * You may not use this file except in compliance with the License.

 *

 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE

 * or http://www.opensolaris.org/os/licensing.

 * See the License for the specific language governing permissions

 * and limitations under the License.

 *

 * When distributing Covered Code, include this CDDL HEADER in each

 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.

 * If applicable, add the following below this CDDL HEADER, with the

 * fields enclosed by brackets "[]" replaced with your own identifying

 * information: Portions Copyright [yyyy] [name of copyright owner]

 *

 * CDDL HEADER END

 */

/*

 * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.

 * Use is subject to license terms.

 */

#include <sys/types.h>

#include <sys/param.h>

#include <sys/systm.h>

#include <sys/sysmacros.h>

#include <sys/cmn_err.h>

#include <sys/kmem.h>

#include <sys/thread.h>

#include <sys/file.h>

#include <sys/fcntl.h>

#include <sys/vfs.h>

#include <sys/fs/zfs.h>

#include <sys/zfs_znode.h>

#include <sys/zfs_dir.h>

#include <sys/zfs_acl.h>

#include <sys/zfs_fuid.h>

#include <sys/spa.h>

#include <sys/zil.h>

#include <sys/byteorder.h>

#include <sys/stat.h>

#include <sys/mode.h>

#include <sys/acl.h>

#include <sys/atomic.h>

#include <sys/cred.h>

/*

 * Functions to replay ZFS intent log (ZIL) records

 * The functions are called through a function vector (zfs_replay_vector)

 * which is indexed by the transaction type.

 */

static void

zfs_init_vattr(vattr_t *vap, uint64_t mask, uint64_t mode,

	uint64_t uid, uint64_t gid, uint64_t rdev, uint64_t nodeid)

{

	bzero(vap, sizeof (*vap));

	vap->va_mask = (uint_t)mask;

	vap->va_type = IFTOVT(mode);

	vap->va_mode = mode & MODEMASK;

	vap->va_uid = (uid_t)(IS_EPHEMERAL(uid)) ? -1 : uid;

	vap->va_gid = (gid_t)(IS_EPHEMERAL(gid)) ? -1 : gid;

	vap->va_rdev = zfs_cmpldev(rdev);

	vap->va_nodeid = nodeid;

}

/* ARGSUSED */

static int

zfs_replay_error(zfsvfs_t *zfsvfs, lr_t *lr, boolean_t byteswap)

{

	return (ENOTSUP);

}

static void

zfs_replay_xvattr(lr_attr_t *lrattr, xvattr_t *xvap)

{

	xoptattr_t *xoap = NULL;

	uint64_t *attrs;

	uint64_t *crtime;

	uint32_t *bitmap;

	void *scanstamp;

	int i;

	xvap->xva_vattr.va_mask |= AT_XVATTR;

	if ((xoap = xva_getxoptattr(xvap)) == NULL) {

		xvap->xva_vattr.va_mask &= ~AT_XVATTR; /* shouldn't happen */

		return;

	}

	ASSERT(lrattr->lr_attr_masksize == xvap->xva_mapsize);

	bitmap = &lrattr->lr_attr_bitmap;

	for (i = 0; i != lrattr->lr_attr_masksize; i++, bitmap++)

		xvap->xva_reqattrmap[i] = *bitmap;

	attrs = (uint64_t *)(lrattr + lrattr->lr_attr_masksize - 1);

	crtime = attrs + 1;

	scanstamp = (caddr_t)(crtime + 2);

	if (XVA_ISSET_REQ(xvap, XAT_HIDDEN))

		xoap->xoa_hidden = ((*attrs & XAT0_HIDDEN) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_SYSTEM))

		xoap->xoa_system = ((*attrs & XAT0_SYSTEM) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_ARCHIVE))

		xoap->xoa_archive = ((*attrs & XAT0_ARCHIVE) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_READONLY))

		xoap->xoa_readonly = ((*attrs & XAT0_READONLY) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_IMMUTABLE))

		xoap->xoa_immutable = ((*attrs & XAT0_IMMUTABLE) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_NOUNLINK))

		xoap->xoa_nounlink = ((*attrs & XAT0_NOUNLINK) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_APPENDONLY))

		xoap->xoa_appendonly = ((*attrs & XAT0_APPENDONLY) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_NODUMP))

		xoap->xoa_nodump = ((*attrs & XAT0_NODUMP) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_OPAQUE))

		xoap->xoa_opaque = ((*attrs & XAT0_OPAQUE) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_AV_MODIFIED))

		xoap->xoa_av_modified = ((*attrs & XAT0_AV_MODIFIED) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_AV_QUARANTINED))

		xoap->xoa_av_quarantined =

		    ((*attrs & XAT0_AV_QUARANTINED) != 0);

	if (XVA_ISSET_REQ(xvap, XAT_CREATETIME))

		ZFS_TIME_DECODE(&xoap->xoa_createtime, crtime);

	if (XVA_ISSET_REQ(xvap, XAT_AV_SCANSTAMP))

		bcopy(scanstamp, xoap->xoa_av_scanstamp, AV_SCANSTAMP_SZ);

	if (XVA_ISSET_REQ(xvap, XAT_REPARSE))

		xoap->xoa_reparse = ((*attrs & XAT0_REPARSE) != 0);

}

static int

zfs_replay_domain_cnt(uint64_t uid, uint64_t gid)

{

	uint64_t uid_idx;

	uint64_t gid_idx;

	int domcnt = 0;

	uid_idx = FUID_INDEX(uid);

	gid_idx = FUID_INDEX(gid);

	if (uid_idx)

		domcnt++;

	if (gid_idx > 0 && gid_idx != uid_idx)

		domcnt++;

	return (domcnt);

}

static void *

zfs_replay_fuid_domain_common(zfs_fuid_info_t *fuid_infop, void *start,

    int domcnt)

{

	int i;

	for (i = 0; i != domcnt; i++) {

		fuid_infop->z_domain_table[i] = start;

		start = (caddr_t)start + strlen(start) + 1;

	}

	return (start);

}

/*

 * Set the uid/gid in the fuid_info structure.

 */

static void

zfs_replay_fuid_ugid(zfs_fuid_info_t *fuid_infop, uint64_t uid, uint64_t gid)

{

	/*

	 * If owner or group are log specific FUIDs then slurp up

	 * domain information and build zfs_fuid_info_t

	 */

	if (IS_EPHEMERAL(uid))

		fuid_infop->z_fuid_owner = uid;

	if (IS_EPHEMERAL(gid))

		fuid_infop->z_fuid_group = gid;

}

/*

 * Load fuid domains into fuid_info_t

 */

static zfs_fuid_info_t *

zfs_replay_fuid_domain(void *buf, void **end, uint64_t uid, uint64_t gid)

{

	int domcnt;

	zfs_fuid_info_t *fuid_infop;

	fuid_infop = zfs_fuid_info_alloc();

	domcnt = zfs_replay_domain_cnt(uid, gid);

	if (domcnt == 0)

		return (fuid_infop);

	fuid_infop->z_domain_table =

	    kmem_zalloc(domcnt * sizeof (char **), KM_SLEEP);

	zfs_replay_fuid_ugid(fuid_infop, uid, gid);

	fuid_infop->z_domain_cnt = domcnt;

	*end = zfs_replay_fuid_domain_common(fuid_infop, buf, domcnt);

	return (fuid_infop);

}

/*

 * load zfs_fuid_t's and fuid_domains into fuid_info_t

 */

static zfs_fuid_info_t *

zfs_replay_fuids(void *start, void **end, int idcnt, int domcnt, uint64_t uid,

    uint64_t gid)

{

	uint64_t *log_fuid = (uint64_t *)start;

	zfs_fuid_info_t *fuid_infop;

	int i;

	fuid_infop = zfs_fuid_info_alloc();

	fuid_infop->z_domain_cnt = domcnt;

	fuid_infop->z_domain_table =

	    kmem_zalloc(domcnt * sizeof (char **), KM_SLEEP);

	for (i = 0; i != idcnt; i++) {

		zfs_fuid_t *zfuid;

		zfuid = kmem_alloc(sizeof (zfs_fuid_t), KM_SLEEP);

		zfuid->z_logfuid = *log_fuid;

		zfuid->z_id = -1;

		zfuid->z_domidx = 0;

		list_insert_tail(&fuid_infop->z_fuids, zfuid);

		log_fuid++;

	}

	zfs_replay_fuid_ugid(fuid_infop, uid, gid);

	*end = zfs_replay_fuid_domain_common(fuid_infop, log_fuid, domcnt);

	return (fuid_infop);

}

static void

zfs_replay_swap_attrs(lr_attr_t *lrattr)

{

	/* swap the lr_attr structure */

	byteswap_uint32_array(lrattr, sizeof (*lrattr));

	/* swap the bitmap */

	byteswap_uint32_array(lrattr + 1, (lrattr->lr_attr_masksize - 1) *

	    sizeof (uint32_t));

	/* swap the attributes, create time + 64 bit word for attributes */

	byteswap_uint64_array((caddr_t)(lrattr + 1) + (sizeof (uint32_t) *

	    (lrattr->lr_attr_masksize - 1)), 3 * sizeof (uint64_t));

}

/*

 * Replay file create with optional ACL, xvattr information as well

 * as option FUID information.

 */

static int

zfs_replay_create_acl(zfsvfs_t *zfsvfs,

    lr_acl_create_t *lracl, boolean_t byteswap)

{

	char *name = NULL;		/* location determined later */

	lr_create_t *lr = (lr_create_t *)lracl;

	znode_t *dzp;

	vnode_t *vp = NULL;

	xvattr_t xva;

	int vflg = 0;

	vsecattr_t vsec = { 0 };

	lr_attr_t *lrattr;

	void *aclstart;

	void *fuidstart;

	size_t xvatlen = 0;

	uint64_t txtype;

	int error;

	if (byteswap) {

		byteswap_uint64_array(lracl, sizeof (*lracl));

		txtype = (int)lr->lr_common.lrc_txtype;

		if (txtype == TX_CREATE_ACL_ATTR ||

		    txtype == TX_MKDIR_ACL_ATTR) {

			lrattr = (lr_attr_t *)(caddr_t)(lracl + 1);

			zfs_replay_swap_attrs(lrattr);

			xvatlen = ZIL_XVAT_SIZE(lrattr->lr_attr_masksize);

		}

		aclstart = (caddr_t)(lracl + 1) + xvatlen;

		zfs_ace_byteswap(aclstart, lracl->lr_acl_bytes, B_FALSE);

		/* swap fuids */

		if (lracl->lr_fuidcnt) {

			byteswap_uint64_array((caddr_t)aclstart +

			    ZIL_ACE_LENGTH(lracl->lr_acl_bytes),

			    lracl->lr_fuidcnt * sizeof (uint64_t));

		}

	}

	if ((error = zfs_zget(zfsvfs, lr->lr_doid, &dzp)) != 0)

		return (error);

	xva_init(&xva);

	zfs_init_vattr(&xva.xva_vattr, AT_TYPE | AT_MODE | AT_UID | AT_GID,

	    lr->lr_mode, lr->lr_uid, lr->lr_gid, lr->lr_rdev, lr->lr_foid);

	/*

	 * All forms of zfs create (create, mkdir, mkxattrdir, symlink)

	 * eventually end up in zfs_mknode(), which assigns the object's

	 * creation time and generation number.  The generic VOP_CREATE()

	 * doesn't have either concept, so we smuggle the values inside

	 * the vattr's otherwise unused va_ctime and va_nblocks fields.

	 */

	ZFS_TIME_DECODE(&xva.xva_vattr.va_ctime, lr->lr_crtime);

	xva.xva_vattr.va_nblocks = lr->lr_gen;

	error = dmu_object_info(zfsvfs->z_os, lr->lr_foid, NULL);

	if (error != ENOENT)

		goto bail;

	if (lr->lr_common.lrc_txtype & TX_CI)

		vflg |= FIGNORECASE;

	switch ((int)lr->lr_common.lrc_txtype) {

	case TX_CREATE_ACL:

		aclstart = (caddr_t)(lracl + 1);

		fuidstart = (caddr_t)aclstart +

		    ZIL_ACE_LENGTH(lracl->lr_acl_bytes);

		zfsvfs->z_fuid_replay = zfs_replay_fuids(fuidstart,

		    (void *)&name, lracl->lr_fuidcnt, lracl->lr_domcnt,

		    lr->lr_uid, lr->lr_gid);

		/*FALLTHROUGH*/

	case TX_CREATE_ACL_ATTR:

		if (name == NULL) {

			lrattr = (lr_attr_t *)(caddr_t)(lracl + 1);

			xvatlen = ZIL_XVAT_SIZE(lrattr->lr_attr_masksize);

			xva.xva_vattr.va_mask |= AT_XVATTR;

			zfs_replay_xvattr(lrattr, &xva);

		}

		vsec.vsa_mask = VSA_ACE | VSA_ACE_ACLFLAGS;

		vsec.vsa_aclentp = (caddr_t)(lracl + 1) + xvatlen;

		vsec.vsa_aclcnt = lracl->lr_aclcnt;

		vsec.vsa_aclentsz = lracl->lr_acl_bytes;

		vsec.vsa_aclflags = lracl->lr_acl_flags;

		if (zfsvfs->z_fuid_replay == NULL) {

			fuidstart = (caddr_t)(lracl + 1) + xvatlen +

			    ZIL_ACE_LENGTH(lracl->lr_acl_bytes);

			zfsvfs->z_fuid_replay =

			    zfs_replay_fuids(fuidstart,

			    (void *)&name, lracl->lr_fuidcnt, lracl->lr_domcnt,

			    lr->lr_uid, lr->lr_gid);

		}

		error = VOP_CREATE(ZTOV(dzp), name, &xva.xva_vattr,

		    0, 0, &vp, kcred, vflg, NULL, &vsec);

		break;

	case TX_MKDIR_ACL:

		aclstart = (caddr_t)(lracl + 1);

		fuidstart = (caddr_t)aclstart +

		    ZIL_ACE_LENGTH(lracl->lr_acl_bytes);

		zfsvfs->z_fuid_replay = zfs_replay_fuids(fuidstart,

		    (void *)&name, lracl->lr_fuidcnt, lracl->lr_domcnt,

		    lr->lr_uid, lr->lr_gid);

		/*FALLTHROUGH*/

	case TX_MKDIR_ACL_ATTR:

		if (name == NULL) {

			lrattr = (lr_attr_t *)(caddr_t)(lracl + 1);

			xvatlen = ZIL_XVAT_SIZE(lrattr->lr_attr_masksize);

			zfs_replay_xvattr(lrattr, &xva);

		}

		vsec.vsa_mask = VSA_ACE | VSA_ACE_ACLFLAGS;

		vsec.vsa_aclentp = (caddr_t)(lracl + 1) + xvatlen;

		vsec.vsa_aclcnt = lracl->lr_aclcnt;

		vsec.vsa_aclentsz = lracl->lr_acl_bytes;

		vsec.vsa_aclflags = lracl->lr_acl_flags;

		if (zfsvfs->z_fuid_replay == NULL) {

			fuidstart = (caddr_t)(lracl + 1) + xvatlen +

			    ZIL_ACE_LENGTH(lracl->lr_acl_bytes);

			zfsvfs->z_fuid_replay =

			    zfs_replay_fuids(fuidstart,

			    (void *)&name, lracl->lr_fuidcnt, lracl->lr_domcnt,

			    lr->lr_uid, lr->lr_gid);

		}

		error = VOP_MKDIR(ZTOV(dzp), name, &xva.xva_vattr,

		    &vp, kcred, NULL, vflg, &vsec);

		break;

	default:

		error = ENOTSUP;

	}

bail:

	if (error == 0 && vp != NULL)

		VN_RELE(vp);

	VN_RELE(ZTOV(dzp));

	zfs_fuid_info_free(zfsvfs->z_fuid_replay);

	zfsvfs->z_fuid_replay = NULL;

	return (error);

}

static int

zfs_replay_create(zfsvfs_t *zfsvfs, lr_create_t *lr, boolean_t byteswap)

{

	char *name = NULL;		/* location determined later */

	char *link;			/* symlink content follows name */

	znode_t *dzp;

	vnode_t *vp = NULL;

	xvattr_t xva;

	int vflg = 0;

	size_t lrsize = sizeof (lr_create_t);

	lr_attr_t *lrattr;

	void *start;

	size_t xvatlen;

	uint64_t txtype;

	int error;

	if (byteswap) {

		byteswap_uint64_array(lr, sizeof (*lr));

		txtype = (int)lr->lr_common.lrc_txtype;

		if (txtype == TX_CREATE_ATTR || txtype == TX_MKDIR_ATTR)

			zfs_replay_swap_attrs((lr_attr_t *)(lr + 1));

	}

	if ((error = zfs_zget(zfsvfs, lr->lr_doid, &dzp)) != 0)

		return (error);

	xva_init(&xva);

	zfs_init_vattr(&xva.xva_vattr, AT_TYPE | AT_MODE | AT_UID | AT_GID,

	    lr->lr_mode, lr->lr_uid, lr->lr_gid, lr->lr_rdev, lr->lr_foid);

	/*

	 * All forms of zfs create (create, mkdir, mkxattrdir, symlink)

	 * eventually end up in zfs_mknode(), which assigns the object's

	 * creation time and generation number.  The generic VOP_CREATE()

	 * doesn't have either concept, so we smuggle the values inside

	 * the vattr's otherwise unused va_ctime and va_nblocks fields.

	 */

	ZFS_TIME_DECODE(&xva.xva_vattr.va_ctime, lr->lr_crtime);

	xva.xva_vattr.va_nblocks = lr->lr_gen;

	error = dmu_object_info(zfsvfs->z_os, lr->lr_foid, NULL);

	if (error != ENOENT)

		goto out;

	if (lr->lr_common.lrc_txtype & TX_CI)

		vflg |= FIGNORECASE;

	/*

	 * Symlinks don't have fuid info, and CIFS never creates

	 * symlinks.

	 *

	 * The _ATTR versions will grab the fuid info in their subcases.

	 */

	if ((int)lr->lr_common.lrc_txtype != TX_SYMLINK &&

	    (int)lr->lr_common.lrc_txtype != TX_MKDIR_ATTR &&

	    (int)lr->lr_common.lrc_txtype != TX_CREATE_ATTR) {

		start = (lr + 1);

		zfsvfs->z_fuid_replay =

		    zfs_replay_fuid_domain(start, &start,

		    lr->lr_uid, lr->lr_gid);

	}

	switch ((int)lr->lr_common.lrc_txtype) {

	case TX_CREATE_ATTR:

		lrattr = (lr_attr_t *)(caddr_t)(lr + 1);

		xvatlen = ZIL_XVAT_SIZE(lrattr->lr_attr_masksize);

		zfs_replay_xvattr((lr_attr_t *)((caddr_t)lr + lrsize), &xva);

		start = (caddr_t)(lr + 1) + xvatlen;

		zfsvfs->z_fuid_replay =

		    zfs_replay_fuid_domain(start, &start,

		    lr->lr_uid, lr->lr_gid);

		name = (char *)start;

		/*FALLTHROUGH*/

	case TX_CREATE:

		if (name == NULL)

			name = (char *)start;

		error = VOP_CREATE(ZTOV(dzp), name, &xva.xva_vattr,

		    0, 0, &vp, kcred, vflg, NULL, NULL);

		break;

	case TX_MKDIR_ATTR:

		lrattr = (lr_attr_t *)(caddr_t)(lr + 1);

		xvatlen = ZIL_XVAT_SIZE(lrattr->lr_attr_masksize);

		zfs_replay_xvattr((lr_attr_t *)((caddr_t)lr + lrsize), &xva);

		start = (caddr_t)(lr + 1) + xvatlen;

		zfsvfs->z_fuid_replay =

		    zfs_replay_fuid_domain(start, &start,

		    lr->lr_uid, lr->lr_gid);

		name = (char *)start;

		/*FALLTHROUGH*/

	case TX_MKDIR:

		if (name == NULL)

			name = (char *)(lr + 1);

		error = VOP_MKDIR(ZTOV(dzp), name, &xva.xva_vattr,