Merge commit '00f1a4f432b3d8aad1aa270e91c44c57f03ef407'

[unleashed.git] / usr / src / cmd / mv / mv.c

/*
 * 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 2013 Nexenta Systems, Inc. All rights reserved.
 */

/*
 * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*      Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*        All Rights Reserved   */

/*
 * University Copyright- Copyright (c) 1982, 1986, 1988
 * The Regents of the University of California
 * All Rights Reserved
 *
 * University Acknowledgment- Portions of this document are derived from
 * software developed by the University of California, Berkeley, and its
 * contributors.
 */

/*
 * Combined mv/cp/ln command:
 *      mv file1 file2
 *      mv dir1 dir2
 *      mv file1 ... filen dir1
 */
#include <sys/time.h>
#include <signal.h>
#include <locale.h>
#include <stdarg.h>
#include <sys/acl.h>
#include <libcmdutils.h>
#include <aclutils.h>
#include "getresponse.h"

#define FTYPE(A)        (A.st_mode)
#define FMODE(A)        (A.st_mode)
#define UID(A)          (A.st_uid)
#define GID(A)          (A.st_gid)
#define IDENTICAL(A, B) (A.st_dev == B.st_dev && A.st_ino == B.st_ino)
#define ISDIR(A)        ((A.st_mode & S_IFMT) == S_IFDIR)
#define ISDOOR(A)       ((A.st_mode & S_IFMT) == S_IFDOOR)
#define ISLNK(A)        ((A.st_mode & S_IFMT) == S_IFLNK)
#define ISREG(A)        (((A).st_mode & S_IFMT) == S_IFREG)
#define ISDEV(A)        ((A.st_mode & S_IFMT) == S_IFCHR || \
                        (A.st_mode & S_IFMT) == S_IFBLK || \
                        (A.st_mode & S_IFMT) == S_IFIFO)
#define ISSOCK(A)       ((A.st_mode & S_IFMT) == S_IFSOCK)

#define DELIM   '/'
#define EQ(x, y)        (strcmp(x, y) == 0)
#define FALSE   0
#define MODEBITS (S_ISUID|S_ISGID|S_ISVTX|S_IRWXU|S_IRWXG|S_IRWXO)
#define TRUE 1

static char             *dname(char *);
static int              lnkfil(char *, char *);
static int              cpymve(char *, char *);
static int              chkfiles(char *, char **);
static int              rcopy(char *, char *);
static int              chk_different(char *, char *);
static int              chg_time(char *, struct stat);
static int              chg_mode(char *, uid_t, gid_t, mode_t);
static int              copydir(char *, char *);
static int              copyspecial(char *);
static int              getrealpath(char *, char *);
static void             usage(void);
static void             Perror(char *);
static void             Perror2(char *, char *);
static int              use_stdin(void);
static int              copyattributes(char *, char *);
static int              copy_sysattr(char *, char *);
static tree_node_t      *create_tnode(dev_t, ino_t);

static struct stat      s1, s2, s3, s4;
static int              cpy = FALSE;
static int              mve = FALSE;
static int              lnk = FALSE;
static char             *cmd;
static int              silent = 0;
static int              fflg = 0;
static int              iflg = 0;
static int              pflg = 0;
static int              Rflg = 0;       /* recursive copy */
static int              rflg = 0;       /* recursive copy */
static int              sflg = 0;
static int              Hflg = 0;       /* follow cmd line arg symlink to dir */
static int              Lflg = 0;       /* follow symlinks */
static int              Pflg = 0;       /* do not follow symlinks */
static int              atflg = 0;
static int              attrsilent = 0;
static int              targetexists = 0;
static int              cmdarg;         /* command line argument */
static avl_tree_t       *stree = NULL;  /* source file inode search tree */
static acl_t            *s1acl;
static int              saflg = 0;      /* 'cp' extended system attr. */
static int              srcfd = -1;
static int              targfd = -1;
static int              sourcedirfd = -1;
static int              targetdirfd = -1;
static DIR              *srcdirp = NULL;
static int              srcattrfd = -1;
static int              targattrfd = -1;
static struct stat      attrdir;

/* Extended system attributes support */

static int open_source(char  *);
static int open_target_srctarg_attrdirs(char  *, char *);
static int open_attrdirp(char *);
static int traverse_attrfile(struct dirent *, char *, char *, int);
static void rewind_attrdir(DIR *);
static void close_all();


int
main(int argc, char *argv[])
{
        int c, i, r, errflg = 0;
        char target[PATH_MAX];
        int (*move)(char *, char *);

        /*
         * Determine command invoked (mv, cp, or ln)
         */

        if (cmd = strrchr(argv[0], '/'))
                ++cmd;
        else
                cmd = argv[0];

        /*
         * Set flags based on command.
         */

        (void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)       /* Should be defined by cc -D */
#define TEXT_DOMAIN "SYS_TEST"  /* Use this only if it weren't */
#endif
        (void) textdomain(TEXT_DOMAIN);
        if (init_yes() < 0) {
                (void) fprintf(stderr, gettext(ERR_MSG_INIT_YES),
                    strerror(errno));
                exit(3);
        }

        if (EQ(cmd, "mv"))
                mve = TRUE;
        else if (EQ(cmd, "ln"))
                lnk = TRUE;
        else if (EQ(cmd, "cp"))
                cpy = TRUE;
        else {
                (void) fprintf(stderr,
                    gettext("Invalid command name (%s); expecting "
                    "mv, cp, or ln.\n"), cmd);
                exit(1);
        }

        /*
         * Check for options:
         *      cp [ -r|-R [-H|-L|-P]] [-afip@/] file1 [file2 ...] target
         *      cp [-afiprR@/] file1 [file2 ...] target
         *      ln [-f] [-n] [-s] file1 [file2 ...] target
         *      ln [-f] [-n] [-s] file1 [file2 ...]
         *      mv [-f|i] file1 [file2 ...] target
         *      mv [-f|i] dir1 target
         */

        if (cpy) {
                while ((c = getopt(argc, argv, "afHiLpPrR@/")) != EOF)
                        switch (c) {
                        case 'f':
                                fflg++;
                                break;
                        case 'i':
                                iflg++;
                                break;
                        case 'p':
                                pflg++;
#ifdef XPG4
                                attrsilent = 1;
                                atflg = 0;
                                saflg = 0;
#else
                                if (atflg == 0)
                                        attrsilent = 1;
#endif
                                break;
                        case 'H':
                                /*
                                 * If more than one of -H, -L, or -P are
                                 * specified, only the last option specified
                                 * determines the behavior.
                                 */
                                Lflg = Pflg = 0;
                                Hflg++;
                                break;
                        case 'L':
                                Hflg = Pflg = 0;
                                Lflg++;
                                break;
                        case 'P':
                                Lflg = Hflg = 0;
                                Pflg++;
                                break;
                        case 'R':
                                /*
                                 * The default behavior of cp -R|-r
                                 * when specified without -H|-L|-P
                                 * is -L.
                                 */
                                Rflg++;
                                /*FALLTHROUGH*/
                        case 'r':
                                rflg++;
                                break;
                        case 'a':
                                Lflg = Hflg = 0;
                                pflg++;
                                Pflg++;
                                Rflg++;
                                rflg++;
                                break;
                        case '@':
                                atflg++;
                                attrsilent = 0;
#ifdef XPG4
                                pflg = 0;
#endif
                                break;
                        case '/':
                                saflg++;
                                attrsilent = 0;
#ifdef XPG4
                                pflg = 0;
#endif
                                break;
                        default:
                                errflg++;
                        }

                /* -R or -r must be specified with -H, -L, or -P */
                if ((Hflg || Lflg || Pflg) && !(Rflg || rflg)) {
                        errflg++;
                }

        } else if (mve) {
                while ((c = getopt(argc, argv, "fis")) != EOF)
                        switch (c) {
                        case 'f':
                                silent++;
#ifdef XPG4
                                iflg = 0;
#endif
                                break;
                        case 'i':
                                iflg++;
#ifdef XPG4
                                silent = 0;
#endif
                                break;
                        default:
                                errflg++;
                        }
        } else { /* ln */
                while ((c = getopt(argc, argv, "fns")) != EOF)
                        switch (c) {
                        case 'f':
                                silent++;
                                break;
                        case 'n':
                                /* silently ignored; this is the default */
                                break;
                        case 's':
                                sflg++;
                                break;
                        default:
                                errflg++;
                        }
        }

        /*
         * For BSD compatibility allow - to delimit the end of
         * options for mv.
         */
        if (mve && optind < argc && (strcmp(argv[optind], "-") == 0))
                optind++;

        /*
         * Check for sufficient arguments
         * or a usage error.
         */

        argc -= optind;
        argv  = &argv[optind];

        if ((argc < 2 && lnk != TRUE) || (argc < 1 && lnk == TRUE)) {
                (void) fprintf(stderr,
                    gettext("%s: Insufficient arguments (%d)\n"),
                    cmd, argc);
                usage();
        }

        if (errflg != 0)
                usage();

        /*
         * If there is more than a source and target,
         * the last argument (the target) must be a directory
         * which really exists.
         */

        if (argc > 2) {
                if (stat(argv[argc-1], &s2) < 0) {
                        (void) fprintf(stderr,
                            gettext("%s: %s not found\n"),
                            cmd, argv[argc-1]);
                        exit(2);
                }

                if (!ISDIR(s2)) {
                        (void) fprintf(stderr,
                            gettext("%s: Target %s must be a directory\n"),
                            cmd, argv[argc-1]);
                        usage();
                }
        }

        if (strlen(argv[argc-1]) >= PATH_MAX) {
                (void) fprintf(stderr,
                    gettext("%s: Target %s file name length exceeds PATH_MAX"
                    " %d\n"), cmd, argv[argc-1], PATH_MAX);
                exit(78);
        }

        if (argc == 1) {
                if (!lnk)
                        usage();
                (void) strcpy(target, ".");
        } else {
                (void) strcpy(target, argv[--argc]);
        }

        /*
         * Perform a multiple argument mv|cp|ln by
         * multiple invocations of cpymve() or lnkfil().
         */
        if (lnk)
                move = lnkfil;
        else
                move = cpymve;

        r = 0;
        for (i = 0; i < argc; i++) {
                stree = NULL;
                cmdarg = 1;
                r += move(argv[i], target);
        }

        /*
         * Show errors by nonzero exit code.
         */

        return (r?2:0);
}

static int
lnkfil(char *source, char *target)
{
        char    *buf = NULL;

        if (sflg) {

                /*
                 * If target is a directory make complete
                 * name of the new symbolic link within that
                 * directory.
                 */

                if ((stat(target, &s2) >= 0) && ISDIR(s2)) {
                        size_t len;

                        len = strlen(target) + strlen(dname(source)) + 4;
                        if ((buf = (char *)malloc(len)) == NULL) {
                                (void) fprintf(stderr,
                                    gettext("%s: Insufficient memory "
                                    "to %s %s\n"), cmd, cmd, source);
                                exit(3);
                        }
                        (void) snprintf(buf, len, "%s/%s",
                            target, dname(source));
                        target = buf;
                }

                /*
                 * Check to see if the file exists already.
                 * In this case we use lstat() instead of stat():
                 * unlink(2) and symlink(2) will operate on the file
                 * itself, not its reference, if the file is a symlink.
                 */

                if ((lstat(target, &s2) == 0)) {
                        /*
                         * Check if the silent flag is set ie. the -f option
                         * is used.  If so, use unlink to remove the current
                         * target to replace with the new target, specified
                         * on the command line.  Proceed with symlink.
                         */
                        if (silent) {
                        /*
                         * Don't allow silent (-f) removal of an existing
                         * directory; could leave unreferenced directory
                         * entries.
                         */
                                if (ISDIR(s2)) {
                                        (void) fprintf(stderr,
                                            gettext("%s: cannot create link "
                                            "over directory %s\n"), cmd,
                                            target);
                                        return (1);
                                }
                                if (unlink(target) < 0) {
                                        (void) fprintf(stderr,
                                            gettext("%s: cannot unlink %s: "),
                                            cmd, target);
                                        perror("");
                                        return (1);
                                }
                        }
                }


                /*
                 * Create a symbolic link to the source.
                 */

                if (symlink(source, target) < 0) {
                        (void) fprintf(stderr,
                            gettext("%s: cannot create %s: "),
                            cmd, target);
                        perror("");
                        free(buf);
                        return (1);
                }
                free(buf);
                return (0);
        }

        switch (chkfiles(source, &target)) {
                case 1: return (1);
                case 2: return (0);
                        /* default - fall through */
        }

        /*
         * Make sure source file is not a directory,
         * we cannot link directories...
         */

        if (ISDIR(s1)) {
                (void) fprintf(stderr,
                    gettext("%s: %s is a directory\n"), cmd, source);
                return (1);
        }

        /*
         * hard link, call link() and return.
         */

        if (link(source, target) < 0) {
                if (errno == EXDEV)
                        (void) fprintf(stderr,
                            gettext("%s: %s is on a different file system\n"),
                            cmd, target);
                else {
                        (void) fprintf(stderr,
                            gettext("%s: cannot create link %s: "),
                            cmd, target);
                        perror("");
                }
                free(buf);
                return (1);
        } else {
                free(buf);
                return (0);
        }
}

static int
cpymve(char *source, char *target)
{
        int     n;
        int fi, fo;
        int ret = 0;
        int attret = 0;
        int sattret = 0;
        int errno_save;
        int error = 0;

        switch (chkfiles(source, &target)) {
                case 1: return (1);
                case 2: return (0);
                        /* default - fall through */
        }

        /*
         * If it's a recursive copy and source
         * is a directory, then call rcopy (from copydir).
         */
        if (cpy) {
                if (ISDIR(s1)) {
                        int             rc;
                        avl_index_t     where = 0;
                        tree_node_t     *tnode;
                        tree_node_t     *tptr;
                        dev_t           save_dev = s1.st_dev;
                        ino_t           save_ino = s1.st_ino;

                        /*
                         * We will be recursing into the directory so
                         * save the inode information to a search tree
                         * to avoid getting into an endless loop.
                         */
                        if ((rc = add_tnode(&stree, save_dev, save_ino)) != 1) {
                                if (rc == 0) {
                                        /*
                                         * We've already visited this directory.
                                         * Don't remove the search tree entry
                                         * to make sure we don't get into an
                                         * endless loop if revisited from a
                                         * different part of the hierarchy.
                                         */
                                        (void) fprintf(stderr, gettext(
                                            "%s: cycle detected: %s\n"),
                                            cmd, source);
                                } else {
                                        Perror(source);
                                }
                                return (1);
                        }

                        cmdarg = 0;
                        rc = copydir(source, target);

                        /*
                         * Create a tnode to get an index to the matching
                         * node (same dev and inode) in the search tree,
                         * then use the index to remove the matching node
                         * so it we do not wrongly detect a cycle when
                         * revisiting this directory from another part of
                         * the hierarchy.
                         */
                        if ((tnode = create_tnode(save_dev,
                            save_ino)) == NULL) {
                                Perror(source);
                                return (1);
                        }
                        if ((tptr = avl_find(stree, tnode, &where)) != NULL) {
                                avl_remove(stree, tptr);
                        }
                        free(tptr);
                        free(tnode);
                        return (rc);

                } else if (ISDEV(s1) && Rflg) {
                        return (copyspecial(target));
                } else {
                        goto copy;
                }
        }

        if (mve) {
                if (rename(source, target) >= 0)
                        return (0);
                if (errno != EXDEV) {
                        if (errno == ENOTDIR && ISDIR(s1)) {
                                (void) fprintf(stderr,
                                    gettext("%s: %s is a directory\n"),
                                    cmd, source);
                                return (1);
                        }
                        (void) fprintf(stderr,
                            gettext("%s: cannot rename %s to %s: "),
                            cmd, source, target);
                        perror("");
                        return (1);
                }

                /*
                 * cannot move a non-directory (source) onto an existing
                 * directory (target)
                 *
                 */
                if (targetexists && ISDIR(s2) && (!ISDIR(s1))) {
                        (void) fprintf(stderr,
                            gettext("%s: cannot mv a non directory %s "
                            "over existing directory"
                            " %s \n"), cmd, source, target);
                        return (1);
                }
                if (ISDIR(s1)) {
#ifdef XPG4
                        if (targetexists && ISDIR(s2)) {
                                /* existing target dir must be empty */
                                if (rmdir(target) < 0) {
                                        errno_save = errno;
                                        (void) fprintf(stderr,
                                            gettext("%s: cannot rmdir %s: "),
                                            cmd, target);
                                        errno = errno_save;
                                        perror("");
                                        return (1);
                                }
                        }
#endif
                        if ((n =  copydir(source, target)) == 0)
                                (void) rmdir(source);
                        return (n);
                }

                /* doors cannot be moved across filesystems */
                if (ISDOOR(s1)) {
                        (void) fprintf(stderr,
                            gettext("%s: %s: cannot move door "
                            "across file systems\n"), cmd, source);
                        return (1);
                }

                /* sockets cannot be moved across filesystems */
                if (ISSOCK(s1)) {
                        (void) fprintf(stderr,
                            gettext("%s: %s: cannot move socket "
                            "across file systems\n"), cmd, source);
                        return (1);
                }

                /*
                 * File cannot be renamed, try to recreate the symbolic
                 * link or special device, or copy the file wholesale
                 * between file systems.
                 */
                if (ISLNK(s1)) {
                        register int    m;
                        register mode_t md;
                        char symln[PATH_MAX + 1];

                        if (targetexists && unlink(target) < 0) {
                                (void) fprintf(stderr,
                                    gettext("%s: cannot unlink %s: "),
                                    cmd, target);
                                perror("");
                                return (1);
                        }

                        if ((m = readlink(source, symln,
                            sizeof (symln) - 1)) < 0) {
                                Perror(source);
                                return (1);
                        }
                        symln[m] = '\0';

                        md = umask(~(s1.st_mode & MODEBITS));
                        if (symlink(symln, target) < 0) {
                                Perror(target);
                                return (1);
                        }
                        (void) umask(md);
                        m = lchown(target, UID(s1), GID(s1));
#ifdef XPG4
                        if (m < 0) {
                                (void) fprintf(stderr, gettext("%s: cannot"
                                    " change owner and group of"
                                    " %s: "), cmd, target);
                                perror("");
                        }
#endif
                        goto cleanup;
                }
                if (ISDEV(s1)) {

                        if (targetexists && unlink(target) < 0) {
                                (void) fprintf(stderr,
                                    gettext("%s: cannot unlink %s: "),
                                    cmd, target);
                                perror("");
                                return (1);
                        }

                        if (mknod(target, s1.st_mode, s1.st_rdev) < 0) {
                                Perror(target);
                                return (1);
                        }

                        (void) chg_mode(target, UID(s1), GID(s1), FMODE(s1));
                        (void) chg_time(target, s1);
                        goto cleanup;
                }

                if (ISREG(s1)) {
                        if (ISDIR(s2)) {
                                if (targetexists && rmdir(target) < 0) {
                                        (void) fprintf(stderr,
                                            gettext("%s: cannot rmdir %s: "),
                                            cmd, target);
                                        perror("");
                                        return (1);
                                }
                        } else {
                                if (targetexists && unlink(target) < 0) {
                                        (void) fprintf(stderr,
                                            gettext("%s: cannot unlink %s: "),
                                            cmd, target);
                                        perror("");
                                        return (1);
                                }
                        }


copy:
                        /*
                         * If the source file is a symlink, and either
                         * -P or -H flag (only if -H is specified and the
                         * source file is not a command line argument)
                         * were specified, then action is taken on the symlink
                         * itself, not the file referenced by the symlink.
                         * Note: this is executed for 'cp' only.
                         */
                        if (cpy && (Pflg || (Hflg && !cmdarg)) && (ISLNK(s1))) {
                                int     m;
                                mode_t  md;
                                char symln[PATH_MAX + 1];

                                m = readlink(source, symln, sizeof (symln) - 1);

                                if (m < 0) {
                                        Perror(source);
                                        return (1);
                                }
                                symln[m] = '\0';

                                /*
                                 * Copy the sym link to the target.
                                 * Note: If the target exists, write a
                                 * diagnostic message, do nothing more
                                 * with the source file, and return to
                                 * process any remaining files.
                                 */
                                md = umask(~(s1.st_mode & MODEBITS));
                                if (symlink(symln, target) < 0) {
                                        Perror(target);
                                        return (1);
                                }
                                (void) umask(md);
                                m = lchown(target, UID(s1), GID(s1));

                                if (m < 0) {
                                        (void) fprintf(stderr, gettext(
                                            "cp: cannot change owner and "
                                            "group of %s:"), target);
                                        perror("");
                                }
                        } else {
                                /*
                                 * Copy the file.  If it happens to be a
                                 * symlink, copy the file referenced
                                 * by the symlink.
                                 */
                                fi = open(source, O_RDONLY);
                                if (fi < 0) {
                                        (void) fprintf(stderr,
                                            gettext("%s: cannot open %s: "),
                                            cmd, source);
                                        perror("");
                                        return (1);
                                }

                                fo = creat(target, s1.st_mode & MODEBITS);
                                if (fo < 0) {
                                        /*
                                         * If -f and creat() failed, unlink
                                         * and try again.
                                         */
                                        if (fflg) {
                                                (void) unlink(target);
                                                fo = creat(target,
                                                    s1.st_mode & MODEBITS);
                                        }
                                }
                                if (fo < 0) {
                                        (void) fprintf(stderr,
                                            gettext("%s: cannot create %s: "),
                                            cmd, target);
                                        perror("");
                                        (void) close(fi);
                                        return (1);
                                } else {
                                        /* stat the new file, its used below */
                                        (void) stat(target, &s2);
                                }

                                /*
                                 * Set target's permissions to the source
                                 * before any copying so that any partially
                                 * copied file will have the source's
                                 * permissions (at most) or umask permissions
                                 * whichever is the most restrictive.
                                 *
                                 * ACL for regular files
                                 */

                                if (pflg || mve) {
                                        (void) chmod(target, FMODE(s1));
                                        if (s1acl != NULL) {
                                                if ((acl_set(target,
                                                    s1acl)) < 0) {
                                                        error++;
                                                        (void) fprintf(stderr,
                                                            gettext("%s: "
                                                            "Failed to set "
                                                            "acl entries "
                                                            "on %s\n"), cmd,
                                                            target);
                                                        acl_free(s1acl);
                                                        s1acl = NULL;
                                                        /*
                                                         * else: silent and
                                                         * continue
                                                         */
                                                }
                                        }
                                }

                                if (fstat(fi, &s1) < 0) {
                                        (void) fprintf(stderr,
                                            gettext("%s: cannot access %s\n"),
                                            cmd, source);
                                        return (1);
                                }
                                if (IDENTICAL(s1, s2)) {
                                        (void) fprintf(stderr,
                                            gettext(
                                            "%s: %s and %s are identical\n"),
                                            cmd, source, target);
                                        return (1);
                                }

                                if (writefile(fi, fo, source, target, NULL,
                                    NULL, &s1, &s2) != 0) {
                                        return (1);
                                }

                                (void) close(fi);
                                if (close(fo) < 0) {
                                        Perror2(target, "write");
                                        return (1);
                                }
                        }
                        /* Copy regular extended attributes */
                        if (pflg || atflg || mve || saflg) {
                                attret = copyattributes(source, target);
                                if (attret != 0 && !attrsilent) {
                                        (void) fprintf(stderr, gettext(
                                            "%s: Failed to preserve"
                                            " extended attributes of file"
                                            " %s\n"), cmd, source);
                                }
                                /* Copy extended system attributes */
                                if (pflg || mve || saflg)
                                        sattret = copy_sysattr(source, target);
                                if (mve && attret != 0) {
                                        (void) unlink(target);
                                        return (1);
                                }
                                if (attrsilent) {
                                        attret = 0;
                                }
                        }

                        /*
                         * XPG4: the write system call will clear setgid
                         * and setuid bits, so set them again.
                         */
                        if (pflg || mve) {
                                if ((ret = chg_mode(target, UID(s1), GID(s1),
                                    FMODE(s1))) > 0)
                                        return (1);
                                /*
                                 * Reapply ACL, since chmod may have
                                 * altered ACL
                                 */
                                if (s1acl != NULL) {
                                        if ((acl_set(target, s1acl)) < 0) {
                                                error++;
                                                (void) fprintf(stderr,
                                                    gettext("%s: Failed to "
                                                    "set acl entries "
                                                    "on %s\n"), cmd, target);
                                                /*
                                                 * else: silent and
                                                 * continue
                                                 */
                                        }
                                }
                                if ((ret = chg_time(target, s1)) > 0)
                                        return (1);
                        }
                        if (cpy) {
                                if (error != 0 || attret != 0 || sattret != 0)
                                        return (1);
                                return (0);
                        }
                        goto cleanup;
                }
                (void) fprintf(stderr,
                    gettext("%s: %s: unknown file type 0x%x\n"), cmd,
                    source, (s1.st_mode & S_IFMT));
                return (1);

cleanup:
                if (unlink(source) < 0) {
                        (void) unlink(target);
                        (void) fprintf(stderr,
                            gettext("%s: cannot unlink %s: "),
                            cmd, source);
                        perror("");
                        return (1);
                }
                if (error != 0 || attret != 0 || sattret != 0)
                        return (1);
                return (ret);
        }
        /*NOTREACHED*/
        return (ret);
}

/*
 * create_tnode()
 *
 * Create a node for use with the search tree which contains the
 * inode information (device id and inode number).
 *
 * Input
 *      dev     - device id
 *      ino     - inode number
 *
 * Output
 *      tnode   - NULL on error, otherwise returns a tnode structure
 *                which contains the input device id and inode number.
 */
static tree_node_t *
create_tnode(dev_t dev, ino_t ino)
{
        tree_node_t     *tnode;

        if ((tnode = (tree_node_t *)malloc(sizeof (tree_node_t))) != NULL) {
                tnode->node_dev = dev;
                tnode->node_ino = ino;
        }

        return (tnode);
}

static int
chkfiles(char *source, char **to)
{
        char    *buf = NULL;
        int     (*statf)() = (cpy &&
            !(Pflg || (Hflg && !cmdarg))) ? stat : lstat;
        char    *target = *to;
        int     error;

        /*
         * Make sure source file exists.
         */
        if ((*statf)(source, &s1) < 0) {
                /*
                 * Keep the old error message except when someone tries to
                 * mv/cp/ln a symbolic link that has a trailing slash and
                 * points to a file.
                 */
                if (errno == ENOTDIR)
                        (void) fprintf(stderr, "%s: %s: %s\n", cmd, source,
                            strerror(errno));
                else
                        (void) fprintf(stderr,
                            gettext("%s: cannot access %s\n"), cmd, source);
                return (1);
        }

        /*
         * Get ACL info: don't bother with ln or cp/mv'ing symlinks
         */
        if (!lnk && !ISLNK(s1)) {
                if (s1acl != NULL) {
                        acl_free(s1acl);
                        s1acl = NULL;
                }
                if ((error = acl_get(source, ACL_NO_TRIVIAL, &s1acl)) != 0) {
                        (void) fprintf(stderr,
                            "%s: failed to get acl entries: %s\n", source,
                            acl_strerror(error));
                        return (1);
                }
                /* else: just permission bits */
        }

        /*
         * If stat fails, then the target doesn't exist,
         * we will create a new target with default file type of regular.
         */

        FTYPE(s2) = S_IFREG;
        targetexists = 0;
        if ((*statf)(target, &s2) >= 0) {
                if (ISLNK(s2))
                        (void) stat(target, &s2);
                /*
                 * If target is a directory,
                 * make complete name of new file
                 * within that directory.
                 */
                if (ISDIR(s2)) {
                        size_t len;

                        len = strlen(target) + strlen(dname(source)) + 4;
                        if ((buf = (char *)malloc(len)) == NULL) {
                                (void) fprintf(stderr,
                                    gettext("%s: Insufficient memory to "
                                    "%s %s\n "), cmd, cmd, source);
                                exit(3);
                        }
                        (void) snprintf(buf, len, "%s/%s",
                            target, dname(source));
                        *to = target = buf;
                }

                if ((*statf)(target, &s2) >= 0) {
                        int overwrite   = FALSE;
                        int override    = FALSE;

                        targetexists++;
                        if (cpy || mve) {
                                /*
                                 * For cp and mv, it is an error if the
                                 * source and target are the same file.
                                 * Check for the same inode and file
                                 * system, but don't check for the same
                                 * absolute pathname because it is an
                                 * error when the source and target are
                                 * hard links to the same file.
                                 */
                                if (IDENTICAL(s1, s2)) {
                                        (void) fprintf(stderr,
                                            gettext(
                                            "%s: %s and %s are identical\n"),
                                            cmd, source, target);
                                        free(buf);
                                        return (1);
                                }
                        }
                        if (lnk) {
                                /*
                                 * For ln, it is an error if the source and
                                 * target are identical files (same inode,
                                 * same file system, and filenames resolve
                                 * to same absolute pathname).
                                 */
                                if (!chk_different(source, target)) {
                                        free(buf);
                                        return (1);
                                }
                        }
                        if (lnk && !silent) {
                                (void) fprintf(stderr,
                                    gettext("%s: %s: File exists\n"),
                                    cmd, target);
                                free(buf);
                                return (1);
                        }

                        /*
                         * overwrite:
                         * If the user does not have access to
                         * the target, ask ----if it is not
                         * silent and user invoked command
                         * interactively.
                         *
                         * override:
                         * If not silent, and stdin is a terminal, and
                         * there's no write access, and the file isn't a
                         * symbolic link, ask for permission.
                         *
                         * XPG4: both overwrite and override:
                         * ask only one question.
                         *
                         * TRANSLATION_NOTE - The following messages will
                         * contain the first character of the strings for
                         * "yes" and "no" defined in the file
                         * "nl_langinfo.po".  After substitution, the
                         * message will appear as follows:
                         *      <cmd>: overwrite <filename> (y/n)?
                         * where <cmd> is the name of the command
                         * (cp, mv) and <filename> is the destination file
                         */


                        overwrite = iflg && !silent && use_stdin();
                        override = !cpy && (access(target, 2) < 0) &&
                            !silent && use_stdin() && !ISLNK(s2);

                        if (overwrite && override) {
                                (void) fprintf(stderr,
                                    gettext("%s: overwrite %s and override "
                                    "protection %o? "), cmd, target,
                                    FMODE(s2) & MODEBITS);
                                if (yes() == 0) {
                                        free(buf);
                                        return (2);
                                }
                        } else if (overwrite && ISREG(s2)) {
                                (void) fprintf(stderr,
                                    gettext("%s: overwrite %s? "),
                                    cmd, target);
                                if (yes() == 0) {
                                        free(buf);
                                        return (2);
                                }
                        } else if (override) {
                                (void) fprintf(stderr,
                                    gettext("%s: %s: override protection %o? "),
                                    cmd, target, FMODE(s2) & MODEBITS);
                                if (yes() == 0) {
                                        free(buf);
                                        return (2);
                                }
                        }

                        if (lnk && unlink(target) < 0) {
                                (void) fprintf(stderr,
                                    gettext("%s: cannot unlink %s: "),
                                    cmd, target);
                                perror("");
                                return (1);
                        }
                }
        }
        return (0);
}

/*
 * check whether source and target are different
 * return 1 when they are different
 * return 0 when they are identical, or when unable to resolve a pathname
 */
static int
chk_different(char *source, char *target)
{
        char    rtarget[PATH_MAX], rsource[PATH_MAX];

        if (IDENTICAL(s1, s2)) {
                /*
                 * IDENTICAL will be true for hard links, therefore
                 * check whether the filenames are different
                 */
                if ((getrealpath(source, rsource) == 0) ||
                    (getrealpath(target, rtarget) == 0)) {
                        return (0);
                }
                if (strncmp(rsource, rtarget, PATH_MAX) == 0) {
                        (void) fprintf(stderr, gettext(
                            "%s: %s and %s are identical\n"),
                            cmd, source, target);
                        return (0);
                }
        }
        return (1);
}

/*
 * get real path (resolved absolute pathname)
 * return 1 on success, 0 on failure
 */
static int
getrealpath(char *path, char *rpath)
{
        if (realpath(path, rpath) == NULL) {
                int     errno_save = errno;
                (void) fprintf(stderr, gettext(
                    "%s: cannot resolve path %s: "), cmd, path);
                errno = errno_save;
                perror("");
                return (0);
        }
        return (1);
}

static int
rcopy(char *from, char *to)
{
        DIR *fold = opendir(from);
        struct dirent *dp;
        struct stat statb, s1save;
        int errs = 0;
        char fromname[PATH_MAX];

        if (fold == 0 || ((pflg || mve) && fstat(fold->dd_fd, &statb) < 0)) {
                Perror(from);
                return (1);
        }
        if (pflg || mve) {
                /*
                 * Save s1 (stat information for source dir) so that
                 * mod and access times can be reserved during "cp -p"
                 * or mv, since s1 gets overwritten.
                 */
                s1save = s1;
        }
        for (;;) {
                dp = readdir(fold);
                if (dp == 0) {
                        (void) closedir(fold);
                        if (pflg || mve)
                                return (chg_time(to, s1save) + errs);
                        return (errs);
                }
                if (dp->d_ino == 0)
                        continue;
                if ((strcmp(dp->d_name, ".") == 0) ||
                    (strcmp(dp->d_name, "..") == 0))
                        continue;
                if (strlen(from)+1+strlen(dp->d_name) >=
                    sizeof (fromname) - 1) {
                        (void) fprintf(stderr,
                            gettext("%s : %s/%s: Name too long\n"),
                            cmd, from, dp->d_name);
                        errs++;
                        continue;
                }
                (void) snprintf(fromname, sizeof (fromname),
                    "%s/%s", from, dp->d_name);
                errs += cpymve(fromname, to);
        }
}

static char *
dname(char *name)
{
        register char *p;

        /*
         * Return just the file name given the complete path.
         * Like basename(1).
         */

        p = name;

        /*
         * While there are characters left,
         * set name to start after last
         * delimiter.
         */

        while (*p)
                if (*p++ == DELIM && *p)
                        name = p;
        return (name);
}

static void
usage(void)
{
        /*
         * Display usage message.
         */

        if (mve) {
                (void) fprintf(stderr, gettext(
                    "Usage: mv [-f] [-i] f1 f2\n"
                    "       mv [-f] [-i] f1 ... fn d1\n"
                    "       mv [-f] [-i] d1 d2\n"));
        } else if (lnk) {
#ifdef XPG4
                (void) fprintf(stderr, gettext(
                    "Usage: ln [-f] [-s] f1 [f2]\n"
                    "       ln [-f] [-s] f1 ... fn d1\n"
                    "       ln [-f] -s d1 d2\n"));
#else
                (void) fprintf(stderr, gettext(
                    "Usage: ln [-f] [-n] [-s] f1 [f2]\n"
                    "       ln [-f] [-n] [-s] f1 ... fn d1\n"
                    "       ln [-f] [-n] -s d1 d2\n"));
#endif
        } else if (cpy) {
                (void) fprintf(stderr, gettext(
                    "Usage: cp [-a] [-f] [-i] [-p] [-@] [-/] f1 f2\n"
                    "       cp [-a] [-f] [-i] [-p] [-@] [-/] f1 ... fn d1\n"
                    "       cp [-r|-R [-H|-L|-P]] [-a] [-f] [-i] [-p] [-@] "
                    "[-/] d1 ... dn-1 dn\n"));
        }
        exit(2);
}

/*
 * chg_time()
 *
 * Try to preserve modification and access time.
 * If 1) pflg is not set, or 2) pflg is set and this is the Solaris version,
 * don't report a utimensat() failure.
 * If this is the XPG4 version and utimensat fails, if 1) pflg is set (cp -p)
 * or 2) we are doing a mv, print a diagnostic message; arrange for a non-zero
 * exit status only if pflg is set.
 * utimensat(2) is being used to achieve granularity in nanoseconds
 * (if supported by the underlying file system) while setting file times.
 */
static int
chg_time(char *to, struct stat ss)
{
        struct timespec times[2];
#ifdef XPG4
        int rc;
#endif

        times[0] = ss.st_atim;
        times[1] = ss.st_mtim;

#ifdef XPG4
        rc = utimensat(AT_FDCWD, to, times,
            ISLNK(s1) ? AT_SYMLINK_NOFOLLOW : 0);
        if ((pflg || mve) && rc != 0) {
                (void) fprintf(stderr,
                    gettext("%s: cannot set times for %s: "), cmd, to);
                perror("");
                if (pflg)
                        return (1);
        }
#else
        (void) utimensat(AT_FDCWD, to, times,
            ISLNK(s1) ? AT_SYMLINK_NOFOLLOW : 0);
#endif

        return (0);

}

/*
 * chg_mode()
 *
 * This function is called upon "cp -p" or mv across filesystems.
 *
 * Try to preserve the owner and group id.  If chown() fails,
 * only print a diagnostic message if doing a mv in the XPG4 version;
 * try to clear S_ISUID and S_ISGID bits in the target.  If unable to clear
 * S_ISUID and S_ISGID bits, print a diagnostic message and arrange for a
 * non-zero exit status because this is a security violation.
 * Try to preserve permissions.
 * If this is the XPG4 version and chmod() fails, print a diagnostic message
 * and arrange for a non-zero exit status.
 * If this is the Solaris version and chmod() fails, do not print a
 * diagnostic message or exit with a non-zero value.
 */
static int
chg_mode(char *target, uid_t uid, gid_t gid, mode_t mode)
{
        int clearflg = 0; /* controls message printed upon chown() error */
        struct stat st;

        /* Don't change mode if target is symlink */
        if (lstat(target, &st) == 0 && ISLNK(st))
                return (0);

        if (chown(target, uid, gid) != 0) {
#ifdef XPG4
                if (mve) {
                        (void) fprintf(stderr, gettext("%s: cannot change"
                            " owner and group of %s: "), cmd, target);
                        perror("");
                }
#endif
                if (mode & (S_ISUID | S_ISGID)) {
                        /* try to clear S_ISUID and S_ISGID */
                        mode &= ~S_ISUID & ~S_ISGID;
                        ++clearflg;
                }
        }
        if (chmod(target, mode) != 0) {
                if (clearflg) {
                        (void) fprintf(stderr, gettext(
                            "%s: cannot clear S_ISUID and S_ISGID bits in"
                            " %s: "), cmd, target);
                        perror("");
                        /* cp -p should get non-zero exit; mv should not */
                        if (pflg)
                                return (1);
                }
#ifdef XPG4
                else {
                        (void) fprintf(stderr, gettext(
                        "%s: cannot set permissions for %s: "), cmd, target);
                        perror("");
                        /* cp -p should get non-zero exit; mv should not */
                        if (pflg)
                                return (1);
                }
#endif
        }
        return (0);

}

static void
Perror(char *s)
{
        char buf[PATH_MAX + 10];

        (void) snprintf(buf, sizeof (buf), "%s: %s", cmd, s);
        perror(buf);
}

static void
Perror2(char *s1, char *s2)
{
        char buf[PATH_MAX + 20];

        (void) snprintf(buf, sizeof (buf), "%s: %s: %s",
            cmd, gettext(s1), gettext(s2));
        perror(buf);
}

/*
 * used for cp -R and for mv across file systems
 */
static int
copydir(char *source, char *target)
{
        int ret, attret = 0;
        int sattret = 0;
        int pret = 0;           /* need separate flag if -p is specified */
        mode_t  fixmode = (mode_t)0;    /* cleanup mode after copy */
        struct stat s1save;
        acl_t  *s1acl_save;
        int error = 0;

        s1acl_save = NULL;

        if (cpy && !rflg) {
                (void) fprintf(stderr,
                    gettext("%s: %s: is a directory\n"), cmd, source);
                return (1);
        }

        if (stat(target, &s2) < 0) {
                if (mkdir(target, (s1.st_mode & MODEBITS)) < 0) {
                        (void) fprintf(stderr, "%s: ", cmd);
                        perror(target);
                        return (1);
                }
                if (stat(target, &s2) == 0) {
                        fixmode = s2.st_mode;
                } else {
                        fixmode = s1.st_mode;
                }
                (void) chmod(target, ((fixmode & MODEBITS) | S_IRWXU));
        } else if (!(ISDIR(s2))) {
                (void) fprintf(stderr,
                    gettext("%s: %s: not a directory.\n"), cmd, target);
                return (1);
        }
        if (pflg || mve) {
                /*
                 * Save s1 (stat information for source dir) and acl info,
                 * if any, so that ownership, modes, times, and acl's can
                 * be reserved during "cp -p" or mv.
                 * s1 gets overwritten when doing the recursive copy.
                 */
                s1save = s1;
                if (s1acl != NULL) {
                        s1acl_save = acl_dup(s1acl);
                        if (s1acl_save == NULL) {
                                (void) fprintf(stderr, gettext("%s: "
                                    "Insufficient memory to save acl"
                                    " entry\n"), cmd);
                                if (pflg)
                                        return (1);

                        }
#ifdef XPG4
                        else {
                                (void) fprintf(stderr, gettext("%s: "
                                    "Insufficient memory to save acl"
                                    " entry\n"), cmd);
                                if (pflg)
                                        return (1);
                        }
#endif
                }
        }

        ret = rcopy(source, target);

        /*
         * Once we created a directory, go ahead and set
         * its attributes, e.g. acls and time. The info
         * may get overwritten if we continue traversing
         * down the tree.
         *
         * ACL for directory
         */
        if (pflg || mve) {
                if ((pret = chg_mode(target, UID(s1save), GID(s1save),
                    FMODE(s1save))) == 0)
                        pret = chg_time(target, s1save);
                ret += pret;
                if (s1acl_save != NULL) {
                        if (acl_set(target, s1acl_save) < 0) {
                                error++;
#ifdef XPG4
                                if (pflg || mve) {
#else
                                if (pflg) {
#endif
                                        (void) fprintf(stderr, gettext(
                                            "%s: failed to set acl entries "
                                            "on %s\n"), cmd, target);
                                        if (pflg) {
                                                acl_free(s1acl_save);
                                                s1acl_save = NULL;
                                                ret++;
                                        }
                                }
                                /* else: silent and continue */
                        }
                        acl_free(s1acl_save);
                        s1acl_save = NULL;
                }
        } else if (fixmode != (mode_t)0)
                (void) chmod(target, fixmode & MODEBITS);

        if (pflg || atflg || mve || saflg) {
                attret = copyattributes(source, target);
                if (!attrsilent && attret != 0) {
                        (void) fprintf(stderr, gettext("%s: Failed to preserve"
                            " extended attributes of directory"
                            " %s\n"), cmd, source);
                } else {
                        /*
                         * Otherwise ignore failure.
                         */
                        attret = 0;
                }
                /* Copy extended system attributes */
                if (pflg || mve || saflg) {
                        sattret = copy_sysattr(source, target);
                        if (sattret != 0) {
                                (void) fprintf(stderr, gettext(
                                    "%s: Failed to preserve "
                                    "extended system attributes "
                                    "of directory %s\n"), cmd, source);
                        }
                }
        }
        if (attret != 0 || sattret != 0 || error != 0)
                return (1);
        return (ret);
}

static int
copyspecial(char *target)
{
        int ret = 0;

        if (mknod(target, s1.st_mode, s1.st_rdev) != 0) {
                (void) fprintf(stderr, gettext(
                    "cp: cannot create special file %s: "), target);
                perror("");
                return (1);
        }

        if (pflg) {
                if ((ret = chg_mode(target, UID(s1), GID(s1), FMODE(s1))) == 0)
                        ret = chg_time(target, s1);
        }

        return (ret);
}

static int
use_stdin(void)
{
#ifdef XPG4
        return (1);
#else
        return (isatty(fileno(stdin)));
#endif
}

/* Copy non-system extended attributes */

static int
copyattributes(char *source, char *target)
{
        struct dirent *dp;
        int error = 0;
        int aclerror;
        mode_t mode;
        int clearflg = 0;
        acl_t *xacl = NULL;
        acl_t *attrdiracl = NULL;
        struct timespec times[2];


        if (pathconf(source,  _PC_XATTR_EXISTS) != 1)
                return (0);

        if (pathconf(target, _PC_XATTR_ENABLED) != 1) {
                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext(
                            "%s: cannot preserve extended attributes, "
                            "operation not supported on file"
                            " %s\n"), cmd, target);
                }
                return (1);
        }
        if (open_source(source) != 0)
                return (1);
        if (open_target_srctarg_attrdirs(source, target) !=  0)
                return (1);
        if (open_attrdirp(source) != 0)
                return (1);

        if (pflg || mve) {
                if (fchmod(targetdirfd, attrdir.st_mode) == -1) {
                        if (!attrsilent) {
                                (void) fprintf(stderr,
                                    gettext("%s: failed to set file mode"
                                    " correctly on attribute directory of"
                                    " file %s: "), cmd, target);
                                perror("");
                                ++error;
                        }
                }

                if (fchown(targetdirfd, attrdir.st_uid, attrdir.st_gid) == -1) {
                        if (!attrsilent) {
                                (void) fprintf(stderr,
                                    gettext("%s: failed to set file"
                                    " ownership correctly on attribute"
                                    " directory of file %s: "), cmd, target);
                                perror("");
                                ++error;
                        }
                }
                /*
                 * Now that we are the owner we can update st_ctime by calling
                 * utimensat.
                 */
                times[0] = attrdir.st_atim;
                times[1] = attrdir.st_mtim;
                if (utimensat(targetdirfd, ".", times, 0) < 0) {
                        if (!attrsilent) {
                                (void) fprintf(stderr,
                                    gettext("%s: cannot set attribute times"
                                    " for %s: "), cmd, target);
                                perror("");
                                ++error;
                        }
                }

                /*
                 * Now set owner and group of attribute directory, implies
                 * changing the ACL of the hidden attribute directory first.
                 */
                if ((aclerror = facl_get(sourcedirfd,
                    ACL_NO_TRIVIAL, &attrdiracl)) != 0) {
                        if (!attrsilent) {
                                (void) fprintf(stderr, gettext(
                                    "%s: failed to get acl entries of"
                                    " attribute directory for"
                                    " %s : %s\n"), cmd,
                                    source, acl_strerror(aclerror));
                                ++error;
                        }
                }

                if (attrdiracl) {
                        if (facl_set(targetdirfd, attrdiracl) != 0) {
                                if (!attrsilent) {
                                        (void) fprintf(stderr, gettext(
                                        "%s: failed to set acl entries"
                                        " on attribute directory "
                                        "for %s\n"), cmd, target);
                                        ++error;
                                }
                                acl_free(attrdiracl);
                                attrdiracl = NULL;
                        }
                }
        }

        while ((dp = readdir(srcdirp)) != NULL) {
                int ret;

                if ((ret = traverse_attrfile(dp, source, target, 1)) == -1)
                        continue;
                else if (ret > 0) {
                        ++error;
                        goto out;
                }

                if (pflg || mve) {
                        if ((aclerror = facl_get(srcattrfd,
                            ACL_NO_TRIVIAL, &xacl)) != 0) {
                                if (!attrsilent) {
                                        (void) fprintf(stderr, gettext(
                                            "%s: failed to get acl entries of"
                                            " attribute %s for"
                                            " %s: %s"), cmd, dp->d_name,
                                            source, acl_strerror(aclerror));
                                        ++error;
                                }
                        }
                }

                /*
                 * preserve ACL
                 */
                if ((pflg || mve) && xacl != NULL) {
                        if ((facl_set(targattrfd, xacl)) < 0) {
                                if (!attrsilent) {
                                        (void) fprintf(stderr, gettext(
                                            "%s: failed to set acl entries on"
                                            " attribute %s for"
                                            "%s\n"), cmd, dp->d_name, target);
                                        ++error;
                                }
                                acl_free(xacl);
                                xacl = NULL;
                        }
                }

                if (writefile(srcattrfd, targattrfd, source, target,
                    dp->d_name, dp->d_name, &s3, &s4) != 0) {
                        if (!attrsilent) {
                                ++error;
                        }
                        goto next;
                }

                if (pflg || mve) {
                        mode = FMODE(s3);

                        if (fchown(targattrfd, UID(s3), GID(s3)) != 0) {
                                if (!attrsilent) {
                                        (void) fprintf(stderr,
                                            gettext("%s: cannot change"
                                            " owner and group of"
                                            " attribute %s for" " file"
                                            " %s: "), cmd, dp->d_name, target);
                                        perror("");
                                        ++error;
                                }
                                if (mode & (S_ISUID | S_ISGID)) {
                                        /* try to clear S_ISUID and S_ISGID */
                                        mode &= ~S_ISUID & ~S_ISGID;
                                        ++clearflg;
                                }
                        }
                        times[0] = s3.st_atim;
                        times[1] = s3.st_mtim;
                        if (utimensat(targetdirfd, dp->d_name, times, 0) < 0) {
                                if (!attrsilent) {
                                        (void) fprintf(stderr,
                                            gettext("%s: cannot set attribute"
                                            " times for %s: "), cmd, target);
                                        perror("");
                                        ++error;
                                }
                        }
                        if (fchmod(targattrfd, mode) != 0) {
                                if (clearflg) {
                                        (void) fprintf(stderr, gettext(
                                            "%s: cannot clear S_ISUID and "
                                            "S_ISGID bits in attribute %s"
                                            " for file"
                                            " %s: "), cmd, dp->d_name, target);
                                } else {
                                        if (!attrsilent) {
                                                (void) fprintf(stderr,
                                                    gettext(
                                "%s: cannot set permissions of attribute"
                                " %s for %s: "), cmd, dp->d_name, target);
                                                perror("");
                                                ++error;
                                        }
                                }
                        }
                        if (xacl && ((facl_set(targattrfd, xacl)) < 0)) {
                                if (!attrsilent) {
                                        (void) fprintf(stderr, gettext(
                                            "%s: failed to set acl entries on"
                                            " attribute %s for"
                                            "%s\n"), cmd, dp->d_name, target);
                                        ++error;
                                }
                                acl_free(xacl);
                                xacl = NULL;
                        }
                }
next:
                if (xacl != NULL) {
                        acl_free(xacl);
                        xacl = NULL;
                }
                if (srcattrfd != -1)
                        (void) close(srcattrfd);
                if (targattrfd != -1)
                        (void) close(targattrfd);
                srcattrfd = targattrfd = -1;
        }
out:
        if (xacl != NULL) {
                acl_free(xacl);
                xacl = NULL;
        }
        if (attrdiracl != NULL) {
                acl_free(attrdiracl);
                attrdiracl = NULL;
        }

        if (!saflg && !pflg && !mve)
                close_all();
        return (error == 0 ? 0 : 1);
}

/* Copy extended system attributes from source to target */

static int
copy_sysattr(char *source, char *target)
{
        struct dirent   *dp;
        nvlist_t        *response;
        int             error = 0;
        int             target_sa_support = 0;

        if (sysattr_support(source, _PC_SATTR_EXISTS) != 1)
                return (0);

        if (open_source(source) != 0)
                return (1);

        /*
         * Gets non default extended system attributes from the
         * source file to copy to the target. The target has
         * the defaults set when its created and thus  no need
         * to copy the defaults.
         */
        response = sysattr_list(cmd, srcfd, source);

        if (sysattr_support(target, _PC_SATTR_ENABLED) != 1) {
                if (response != NULL) {
                        (void) fprintf(stderr,
                            gettext(
                            "%s: cannot preserve extended system "
                            "attribute, operation not supported on file"
                            " %s\n"), cmd, target);
                        error++;
                        goto out;
                }
        } else {
                target_sa_support = 1;
        }

        if (target_sa_support) {
                if (srcdirp == NULL) {
                        if (open_target_srctarg_attrdirs(source,
                            target) !=  0) {
                                error++;
                                goto out;
                        }
                        if (open_attrdirp(source) != 0) {
                                error++;
                                goto out;
                        }
                } else {
                        rewind_attrdir(srcdirp);
                }
                while ((dp = readdir(srcdirp)) != NULL) {
                        nvlist_t        *res;
                        int             ret;

                        if ((ret = traverse_attrfile(dp, source, target,
                            0)) == -1)
                                continue;
                        else if (ret > 0) {
                                ++error;
                                goto out;
                        }
                        /*
                         * Gets non default extended system attributes from the
                         * attribute file to copy to the target. The target has
                         * the defaults set when its created and thus  no need
                         * to copy the defaults.
                         */
                        if (dp->d_name != NULL) {
                                res = sysattr_list(cmd, srcattrfd, dp->d_name);
                                if (res == NULL)
                                        goto next;

                        /*
                         * Copy non default extended system attributes of named
                         * attribute file.
                         */
                                if (fsetattr(targattrfd,
                                    XATTR_VIEW_READWRITE, res) != 0) {
                                        ++error;
                                        (void) fprintf(stderr, gettext("%s: "
                                            "Failed to copy extended system "
                                            "attributes from attribute file "
                                            "%s of %s to %s\n"), cmd,
                                            dp->d_name, source, target);
                                }
                        }
next:
                        if (srcattrfd != -1)
                                (void) close(srcattrfd);
                        if (targattrfd != -1)
                                (void) close(targattrfd);
                        srcattrfd = targattrfd = -1;
                        nvlist_free(res);
                }
        }
        /* Copy source file non default extended system attributes to target */
        if (target_sa_support && (response != NULL) &&
            (fsetattr(targfd, XATTR_VIEW_READWRITE, response)) != 0) {
                ++error;
                (void) fprintf(stderr, gettext("%s: Failed to "
                    "copy extended system attributes from "
                    "%s to %s\n"), cmd, source, target);
        }
out:
        nvlist_free(response);
        close_all();
        return (error == 0 ? 0 : 1);
}

/* Open the source file */

int
open_source(char  *src)
{
        int     error = 0;

        srcfd = -1;
        if ((srcfd = open(src, O_RDONLY)) == -1) {
                if (pflg && attrsilent) {
                        error++;
                        goto out;
                }
                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext("%s: cannot open file"
                            " %s: "), cmd, src);
                        perror("");
                }
                ++error;
        }
out:
        if (error)
                close_all();
        return (error == 0 ? 0 : 1);
}

/* Open source attribute dir, target and target attribute dir. */

int
open_target_srctarg_attrdirs(char  *src, char *targ)
{
        int             error = 0;

        targfd = sourcedirfd = targetdirfd = -1;

        if ((targfd = open(targ, O_RDONLY)) == -1) {
                if (pflg && attrsilent) {
                        error++;
                        goto out;
                }
                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext("%s: cannot open file"
                            " %s: "), cmd, targ);
                        perror("");
                }
                ++error;
                goto out;
        }

        if ((sourcedirfd = openat(srcfd, ".", O_RDONLY|O_XATTR)) == -1) {
                if (pflg && attrsilent) {
                        error++;
                        goto out;
                }
                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext("%s: cannot open attribute"
                            " directory for %s: "), cmd, src);
                        perror("");
                }
                ++error;
                goto out;
        }

        if (fstat(sourcedirfd, &attrdir) == -1) {
                if (pflg && attrsilent) {
                        error++;
                        goto out;
                }

                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext("%s: could not retrieve stat"
                            " information for attribute directory"
                            "of file %s: "), cmd, src);
                        perror("");
                }
                ++error;
                goto out;
        }
        if ((targetdirfd = openat(targfd, ".", O_RDONLY|O_XATTR)) == -1) {
                if (pflg && attrsilent) {
                        error++;
                        goto out;
                }
                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext("%s: cannot open attribute"
                            " directory for %s: "), cmd, targ);
                        perror("");
                }
                ++error;
        }
out:
        if (error)
                close_all();
        return (error == 0 ? 0 : 1);
}

int
open_attrdirp(char *source)
{
        int tmpfd = -1;
        int error = 0;

        /*
         * dup sourcedirfd for use by fdopendir().
         * fdopendir will take ownership of given fd and will close
         * it when closedir() is called.
         */

        if ((tmpfd = dup(sourcedirfd)) == -1) {
                if (pflg && attrsilent) {
                        error++;
                        goto out;
                }
                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext(
                            "%s: unable to dup attribute directory"
                            " file descriptor for %s: "), cmd, source);
                        perror("");
                        ++error;
                }
                goto out;
        }
        if ((srcdirp = fdopendir(tmpfd)) == NULL) {
                if (pflg && attrsilent) {
                        error++;
                        goto out;
                }
                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext("%s: failed to open attribute"
                            " directory for %s: "), cmd, source);
                        perror("");
                        ++error;
                }
        }
out:
        if (error)
                close_all();
        return (error == 0 ? 0 : 1);
}

/* Skips through ., .., and system attribute 'view' files */
int
traverse_attrfile(struct dirent *dp, char *source, char *target, int  first)
{
        int             error = 0;

        srcattrfd = targattrfd = -1;

        if ((dp->d_name[0] == '.' && dp->d_name[1] == '\0') ||
            (dp->d_name[0] == '.' && dp->d_name[1] == '.' &&
            dp->d_name[2] == '\0') ||
            (sysattr_type(dp->d_name) == _RO_SATTR) ||
            (sysattr_type(dp->d_name) == _RW_SATTR))
                return (-1);

        if ((srcattrfd = openat(sourcedirfd, dp->d_name,
            O_RDONLY)) == -1) {
                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext("%s: cannot open attribute %s on"
                            " file %s: "), cmd, dp->d_name, source);
                        perror("");
                        ++error;
                        goto out;
                }
        }

        if (fstat(srcattrfd, &s3) < 0) {
                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext("%s: could not stat attribute"
                            " %s on file"
                            " %s: "), cmd, dp->d_name, source);
                        perror("");
                        ++error;
                }
                goto out;
        }

        if (first) {
                (void) unlinkat(targetdirfd, dp->d_name, 0);
                if ((targattrfd = openat(targetdirfd, dp->d_name,
                    O_RDWR|O_CREAT|O_TRUNC, s3.st_mode & MODEBITS)) == -1) {
                        if (!attrsilent) {
                                (void) fprintf(stderr,
                                    gettext("%s: could not create attribute"
                                    " %s on file %s: "), cmd, dp->d_name,
                                    target);
                                perror("");
                                ++error;
                        }
                        goto out;
                }
        } else {
                if ((targattrfd = openat(targetdirfd, dp->d_name,
                    O_RDONLY)) == -1) {
                        if (!attrsilent) {
                                (void) fprintf(stderr,
                                    gettext("%s: could not open attribute"
                                    " %s on file %s: "), cmd, dp->d_name,
                                    target);
                                perror("");
                                ++error;
                        }
                        goto out;
                }
        }


        if (fstat(targattrfd, &s4) < 0) {
                if (!attrsilent) {
                        (void) fprintf(stderr,
                            gettext("%s: could not stat attribute"
                            " %s on file"
                            " %s: "), cmd, dp->d_name, target);
                        perror("");
                        ++error;
                }
        }

out:
        if (error) {
                if (srcattrfd != -1)
                        (void) close(srcattrfd);
                if (targattrfd != -1)
                        (void) close(targattrfd);
                srcattrfd = targattrfd = -1;
        }
        return (error == 0 ? 0 :1);
}

void
rewind_attrdir(DIR * sdp)
{
        int pwdfd;

        pwdfd = open(".", O_RDONLY);
        if ((pwdfd != -1) && (fchdir(sourcedirfd) == 0)) {
                rewinddir(sdp);
                (void) fchdir(pwdfd);
                (void) close(pwdfd);
        } else {
                if (!attrsilent) {
                        (void) fprintf(stderr, gettext("%s: "
                            "failed to rewind attribute dir\n"),
                            cmd);
                }
        }
}

void
close_all()
{
        if (srcattrfd != -1)
                (void) close(srcattrfd);
        if (targattrfd != -1)
                (void) close(targattrfd);
        if (sourcedirfd != -1)
                (void) close(sourcedirfd);
        if (targetdirfd != -1)
                (void) close(targetdirfd);
        if (srcdirp != NULL) {
                (void) closedir(srcdirp);
                srcdirp = NULL;
        }
        if (srcfd != -1)
                (void) close(srcfd);
        if (targfd != -1)
                (void) close(targfd);
}