/*
 * Copyright (c) 2007, 2010, Oracle and/or its affiliates. All rights reserved.
 */

/*
 * BSD 3 Clause License
 *
 * Copyright (c) 2007, The Storage Networking Industry Association.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *      - Redistributions of source code must retain the above copyright
 *        notice, this list of conditions and the following disclaimer.
 *
 *      - Redistributions in binary form must reproduce the above copyright
 *        notice, this list of conditions and the following disclaimer in
 *        the documentation and/or other materials provided with the
 *        distribution.
 *
 *      - Neither the name of The Storage Networking Industry Association (SNIA)
 *        nor the names of its contributors may be used to endorse or promote
 *        products derived from this software without specific prior written
 *        permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */
/* Copyright (c) 2007, The Storage Networking Industry Association. */
/* Copyright (c) 1996, 1997 PDC, Network Appliance. All Rights Reserved */
/* Copyright 2014 Nexenta Systems, Inc. All rights reserved. */

#include <sys/stat.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <errno.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <time.h>
#include <cstack.h>
#include <dirent.h>
#include <traverse.h>
#include "bitmap.h"
#include "ndmpd.h"
#include "tlm_buffers.h"


typedef struct ndmp_run_args {
        char *nr_chkp_nm;
        char *nr_unchkp_nm;
        char **nr_excls;
} ndmp_run_args_t;


/*
 * backup_create_structs
 *
 * Allocate the structures before performing backup
 *
 * Parameters:
 *   sesison (input) - session handle
 *   jname (input) - backup job name
 *
 * Returns:
 *   0: on success
 *  -1: otherwise
 */
static int
backup_create_structs(ndmpd_session_t *session, char *jname)
{
        int n;
        long xfer_size;
        ndmp_lbr_params_t *nlp;
        tlm_commands_t *cmds;

        if ((nlp = ndmp_get_nlp(session)) == NULL) {
                NDMP_LOG(LOG_DEBUG, "nlp == NULL");
                return (-1);
        }

        if ((nlp->nlp_jstat = tlm_new_job_stats(jname)) == NULL) {
                NDMP_LOG(LOG_DEBUG, "Creating job stats");
                return (-1);
        }

        cmds = &nlp->nlp_cmds;
        (void) memset(cmds, 0, sizeof (*cmds));

        xfer_size = ndmp_buffer_get_size(session);
        if (xfer_size < 512*KILOBYTE) {
                /*
                 * Read multiple of mover_record_size near to 512K.  This
                 * will prevent the data being copied in the mover buffer
                 * when we write the data.
                 */
                if ((n = (512 * KILOBYTE/xfer_size)) <= 0)
                        n = 1;
                xfer_size *= n;
                NDMP_LOG(LOG_DEBUG, "Adjusted read size: %d", xfer_size);
        }

        cmds->tcs_command = tlm_create_reader_writer_ipc(TRUE, xfer_size);
        if (cmds->tcs_command == NULL) {
                NDMP_LOG(LOG_DEBUG, "Error creating ipc buffers");
                tlm_un_ref_job_stats(jname);
                return (-1);
        }

        nlp->nlp_logcallbacks = lbrlog_callbacks_init(session,
            ndmpd_file_history_path,
            ndmpd_file_history_dir,
            ndmpd_file_history_node);
        if (nlp->nlp_logcallbacks == NULL) {
                tlm_release_reader_writer_ipc(cmds->tcs_command);
                tlm_un_ref_job_stats(jname);
                return (-1);
        }
        nlp->nlp_jstat->js_callbacks = (void *)(nlp->nlp_logcallbacks);

        return (0);
}


/*
 * restore_create_structs
 *
 * Allocate structures for performing a restore
 *
 * Parameters:
 *   sesison (input) - session handle
 *   jname (input) - backup job name
 *
 * Returns:
 *   0: on success
 *  -1: otherwise
 */
static int
restore_create_structs(ndmpd_session_t *session, char *jname)
{
        int i;
        long xfer_size;
        ndmp_lbr_params_t *nlp;
        tlm_commands_t *cmds;

        if ((nlp = ndmp_get_nlp(session)) == NULL) {
                NDMP_LOG(LOG_DEBUG, "nlp == NULL");
                return (-1);
        }
        if ((nlp->nlp_jstat = tlm_new_job_stats(jname)) == NULL) {
                NDMP_LOG(LOG_DEBUG, "Creating job stats");
                return (-1);
        }

        cmds = &nlp->nlp_cmds;
        (void) memset(cmds, 0, sizeof (*cmds));

        xfer_size = ndmp_buffer_get_size(session);
        cmds->tcs_command = tlm_create_reader_writer_ipc(FALSE, xfer_size);
        if (cmds->tcs_command == NULL) {
                NDMP_LOG(LOG_DEBUG, "Error creating ipc buffers");
                tlm_un_ref_job_stats(jname);
                return (-1);
        }

        nlp->nlp_logcallbacks = lbrlog_callbacks_init(session,
            ndmpd_path_restored, NULL, NULL);
        if (nlp->nlp_logcallbacks == NULL) {
                tlm_release_reader_writer_ipc(cmds->tcs_command);
                tlm_un_ref_job_stats(jname);
                return (-1);
        }
        nlp->nlp_jstat->js_callbacks = (void *)(nlp->nlp_logcallbacks);

        nlp->nlp_restored = ndmp_malloc(sizeof (boolean_t) * nlp->nlp_nfiles);
        if (nlp->nlp_restored == NULL) {
                lbrlog_callbacks_done(nlp->nlp_logcallbacks);
                tlm_release_reader_writer_ipc(cmds->tcs_command);
                tlm_un_ref_job_stats(jname);
                return (-1);
        }
        for (i = 0; i < (int)nlp->nlp_nfiles; i++)
                nlp->nlp_restored[i] = FALSE;

        return (0);
}


/*
 * send_unrecovered_list
 *
 * Creates a list of restored files
 *
 * Parameters:
 *   params (input) - NDMP parameters
 *   nlp (input) - NDMP/LBR parameters
 *
 * Returns:
 *   0: on success
 *  -1: otherwise
 */
static int
send_unrecovered_list(ndmpd_module_params_t *params, ndmp_lbr_params_t *nlp)
{
        int i, rv;
        ndmp_name *ent;

        if (params == NULL) {
                NDMP_LOG(LOG_DEBUG, "params == NULL");
                return (-1);
        }
        if (nlp == NULL) {
                NDMP_LOG(LOG_DEBUG, "nlp == NULL");
                return (-1);
        }

        rv = 0;
        for (i = 0; i < (int)nlp->nlp_nfiles; i++) {
                NDMP_LOG(LOG_DEBUG, "nlp->nlp_restored[%d]: %s", i,
                    nlp->nlp_restored[i] ? "TRUE" : "FALSE");

                if (!nlp->nlp_restored[i]) {
                        ent = (ndmp_name *)MOD_GETNAME(params, i);
                        if (ent == NULL) {
                                NDMP_LOG(LOG_DEBUG, "ent == NULL");
                                rv = -1;
                                break;
                        }
                        if (ent->name == NULL) {
                                NDMP_LOG(LOG_DEBUG, "ent->name == NULL");
                                rv = -1;
                                break;
                        }

                        NDMP_LOG(LOG_DEBUG, "ent.name: \"%s\"", ent->name);

                        rv = MOD_FILERECOVERD(params, ent->name, ENOENT);
                        if (rv < 0)
                                break;
                }
        }

        return (rv);
}


/*
 * backup_release_structs
 *
 * Deallocated the NDMP/LBR specific parameters
 *
 * Parameters:
 *   session (input) - session handle
 *
 * Returns:
 *   void
 */
/*ARGSUSED*/
static void
backup_release_structs(ndmpd_session_t *session)
{
        ndmp_lbr_params_t *nlp;
        tlm_commands_t *cmds;

        if ((nlp = ndmp_get_nlp(session)) == NULL) {
                NDMP_LOG(LOG_DEBUG, "nlp == NULL");
                return;
        }
        cmds = &nlp->nlp_cmds;
        if (cmds == NULL) {
                NDMP_LOG(LOG_DEBUG, "cmds == NULL");
                return;
        }

        if (nlp->nlp_logcallbacks != NULL) {
                lbrlog_callbacks_done(nlp->nlp_logcallbacks);
                nlp->nlp_logcallbacks = NULL;
        } else {
                NDMP_LOG(LOG_DEBUG, "FH CALLBACKS == NULL");
        }

        if (cmds->tcs_command != NULL) {
                if (cmds->tcs_command->tc_buffers != NULL)
                        tlm_release_reader_writer_ipc(cmds->tcs_command);
                else
                        NDMP_LOG(LOG_DEBUG, "BUFFERS == NULL");
                cmds->tcs_command = NULL;
        } else {
                NDMP_LOG(LOG_DEBUG, "COMMAND == NULL");
        }

        if (nlp->nlp_bkmap >= 0) {
                (void) dbm_free(nlp->nlp_bkmap);
                nlp->nlp_bkmap = -1;
        }

        if (session->ns_data.dd_operation == NDMP_DATA_OP_RECOVER &&
            nlp->nlp_restored != NULL) {
                free(nlp->nlp_restored);
                nlp->nlp_restored = NULL;
        } else {
                NDMP_LOG(LOG_DEBUG, "nlp_restored == NULL");
        }
}

/*
 * ndmp_write_utf8magic
 *
 * Write a magic pattern to the tar header. This is used
 * as a crest to indicate that tape belongs to us.
 */
int
ndmp_write_utf8magic(tlm_cmd_t *cmd)
{
        char *cp;
        long actual_size;

        if (cmd->tc_buffers == NULL) {
                NDMP_LOG(LOG_DEBUG, "cmd->tc_buffers == NULL");
                return (-1);
        }

        cp = tlm_get_write_buffer(RECORDSIZE, &actual_size,
            cmd->tc_buffers, TRUE);
        if (actual_size < RECORDSIZE) {
                NDMP_LOG(LOG_DEBUG, "Couldn't get enough buffer");
                return (-1);
        }

        (void) strlcpy(cp, NDMPUTF8MAGIC, RECORDSIZE);
        return (0);
}


/*
 * timecmp
 *
 * This callback function is used during backup.  It checks
 * if the object specified by the 'attr' should be backed
 * up or not.
 *
 * Directories are backed up anyways for dump format.
 * If this function is called, then the directory is
 * marked in the bitmap vector, it shows that either the
 * directory itself is modified or there is something below
 * it that will be backed up.
 *
 * Directories for tar format are backed up if and only if
 * they are modified.
 *
 * By setting ndmp_force_bk_dirs global variable to a non-zero
 * value, directories are backed up anyways.
 *
 * Backing up the directories unconditionally, helps
 * restoring the metadata of directories as well, when one
 * of the objects below them are being restored.
 *
 * For non-directory objects, if the modification or change
 * time of the object is after the date specified by the
 * bk_selector_t, the the object must be backed up.
 *
 */
static boolean_t
timecmp(bk_selector_t *bksp, struct stat64 *attr)
{
        ndmp_lbr_params_t *nlp;

        nlp = (ndmp_lbr_params_t *)bksp->bs_cookie;
        if (S_ISDIR(attr->st_mode) && ndmp_force_bk_dirs) {
                NDMP_LOG(LOG_DEBUG, "d(%lu)",
                    (uint_t)attr->st_ino);
                return (TRUE);
        }
        if (S_ISDIR(attr->st_mode) &&
            dbm_getone(nlp->nlp_bkmap, (u_longlong_t)attr->st_ino) &&
            ((NLP_ISDUMP(nlp) && ndmp_dump_path_node) ||
            (NLP_ISTAR(nlp) && ndmp_tar_path_node))) {
                /*
                 * If the object is a directory and it leads to a modified
                 * object (that should be backed up) and for that type of
                 * backup the path nodes should be backed up, then return
                 * TRUE.
                 *
                 * This is required by some DMAs like Backup Express, which
                 * needs to receive ADD_NODE (for dump) or ADD_PATH (for tar)
                 * for the intermediate directories of a modified object.
                 * Other DMAs, like net_backup and net_worker, do not have such
                 * requirement.  This requirement makes sense for dump format
                 * but for 'tar' format, it does not.  In provision to the
                 * NDMP-v4 spec, for 'tar' format the intermediate directories
                 * need not to be reported.
                 */
                NDMP_LOG(LOG_DEBUG, "p(%lu)", (u_longlong_t)attr->st_ino);
                return (TRUE);
        }
        if (attr->st_mtime > bksp->bs_ldate) {
                NDMP_LOG(LOG_DEBUG, "m(%lu): %lu > %lu",
                    (uint_t)attr->st_ino, (uint_t)attr->st_mtime,
                    (uint_t)bksp->bs_ldate);
                return (TRUE);
        }
        if (attr->st_ctime > bksp->bs_ldate) {
                if (NLP_IGNCTIME(nlp)) {
                        NDMP_LOG(LOG_DEBUG, "ign c(%lu): %lu > %lu",
                            (uint_t)attr->st_ino, (uint_t)attr->st_ctime,
                            (uint_t)bksp->bs_ldate);
                        return (FALSE);
                }
                NDMP_LOG(LOG_DEBUG, "c(%lu): %lu > %lu",
                    (uint_t)attr->st_ino, (uint_t)attr->st_ctime,
                    (uint_t)bksp->bs_ldate);
                return (TRUE);
        }
        NDMP_LOG(LOG_DEBUG, "mc(%lu): (%lu,%lu) < %lu",
            (uint_t)attr->st_ino, (uint_t)attr->st_mtime,
            (uint_t)attr->st_ctime, (uint_t)bksp->bs_ldate);
        return (FALSE);
}


/*
 * get_acl_info
 *
 * load up all the access and attribute info
 */
static int
get_acl_info(char *name, tlm_acls_t *tlm_acls)
{
        int erc;
        acl_t *aclp = NULL;
        char *acltp;

        erc = lstat64(name, &tlm_acls->acl_attr);
        if (erc != 0) {
                NDMP_LOG(LOG_ERR, "Could not find file %s.", name);
                erc = TLM_NO_SOURCE_FILE;
                return (erc);
        }
        erc = acl_get(name, ACL_NO_TRIVIAL, &aclp);
        if (erc != 0) {
                NDMP_LOG(LOG_DEBUG,
                    "Could not read ACL for file [%s]", name);
                erc = TLM_NO_SOURCE_FILE;
                return (erc);
        }
        if (aclp && (acltp = acl_totext(aclp,
            ACL_APPEND_ID | ACL_SID_FMT | ACL_COMPACT_FMT)) != NULL) {
                (void) strlcpy(tlm_acls->acl_info.attr_info, acltp,
                    TLM_MAX_ACL_TXT);
                acl_free(aclp);
                free(acltp);
        }
        return (erc);
}
/*
 * get_dir_acl_info
 *
 * load up all ACL and attr info about a directory
 */
static int
get_dir_acl_info(char *dir, tlm_acls_t *tlm_acls, tlm_job_stats_t *js)
{
        int     erc;
        char    *checkpointed_dir;
        char    root_dir[TLM_VOLNAME_MAX_LENGTH];
        char    *spot;
        char    *fil;
        acl_t   *aclp = NULL;
        char    *acltp;

        checkpointed_dir = ndmp_malloc(TLM_MAX_PATH_NAME);
        if (checkpointed_dir == NULL)
                return (-1);

        if (tlm_acls->acl_checkpointed)
                fil = tlm_build_snapshot_name(dir, checkpointed_dir,
                    js->js_job_name);
        else
                fil = dir;
        erc = lstat64(fil, &tlm_acls->acl_attr);
        if (erc != 0) {
                NDMP_LOG(LOG_ERR, "Could not find directory %s.", dir);
                free(checkpointed_dir);
                return (-1);
        }

        spot = strchr(&fil[1], '/');
        if (spot == NULL) {
                (void) strlcpy(root_dir, fil, TLM_VOLNAME_MAX_LENGTH);
        } else {
                *spot = 0;
                (void) strlcpy(root_dir, fil, TLM_VOLNAME_MAX_LENGTH);
                *spot = '/';
        }
        if (strcmp(root_dir, tlm_acls->acl_root_dir) != 0) {
                struct stat64 attr;

                erc = lstat64(root_dir, &attr);
                if (erc != 0) {
                        NDMP_LOG(LOG_ERR, "Cannot find root directory %s.",
                            root_dir);
                        free(checkpointed_dir);
                        return (-1);
                }
                (void) strlcpy(tlm_acls->acl_root_dir, root_dir,
                    TLM_VOLNAME_MAX_LENGTH);
        }
        erc = acl_get(fil, ACL_NO_TRIVIAL, &aclp);
        if (erc != 0) {
                NDMP_LOG(LOG_DEBUG,
                    "Could not read metadata for directory [%s]", dir);
                free(checkpointed_dir);
                return (-1);
        }
        if (aclp && (acltp = acl_totext(aclp,
            ACL_APPEND_ID | ACL_SID_FMT | ACL_COMPACT_FMT)) != NULL) {
                (void) strlcpy(tlm_acls->acl_info.attr_info, acltp,
                    TLM_MAX_ACL_TXT);
                acl_free(aclp);
                free(acltp);
        }

        free(checkpointed_dir);
        return (0);
}

/*
 * backup_dir
 *
 * Create a TAR entry record for a directory
 */
static int
backup_dir(char *dir, tlm_acls_t *tlm_acls,
    tlm_cmd_t *local_commands, tlm_job_stats_t *job_stats,
    bk_selector_t *bksp)
{
        int erc;

        NDMP_LOG(LOG_DEBUG, "\"%s\"", dir);

        erc = get_dir_acl_info(dir, tlm_acls, job_stats);
        if (erc != 0) {
                NDMP_LOG(LOG_DEBUG,
                    "Could not read directory info for %s", dir);
                job_stats->js_errors++;
        } else {
                /*
                 * See if the directory must be backed up.
                 */
                if (bksp && !(*bksp->bs_fn)(bksp, &tlm_acls->acl_attr)) {
                        NDMP_LOG(LOG_DEBUG, "[%s] dir skipped", dir);
                        return (erc);
                }

                if (tm_tar_ops.tm_putdir != NULL)
                        (void) (tm_tar_ops.tm_putdir)(dir, tlm_acls,
                            local_commands, job_stats);
        }

        return (erc);
}


/*
 * backup_file
 *
 * Create a TAR record entry for a file
 */
static longlong_t
backup_file(char *dir, char *name, tlm_acls_t *tlm_acls,
    tlm_commands_t *commands, tlm_cmd_t *local_commands,
    tlm_job_stats_t *job_stats, bk_selector_t *bksp)
{

        int erc;
        char buf[TLM_MAX_PATH_NAME];
        longlong_t rv;

        NDMP_LOG(LOG_DEBUG, "\"%s/%s\"", dir, name);

        (void) strlcpy(buf, dir, sizeof (buf));
        (void) strlcat(buf, "/", sizeof (buf));
        (void) strlcat(buf, name, sizeof (buf));

        /*
         * get_acl_info extracts file handle, attributes and ACLs of the file.
         * This is not efficient when the attributes and file handle of
         * the file is already known.
         */
        erc = get_acl_info(buf, tlm_acls);
        if (erc != TLM_NO_ERRORS) {
                NDMP_LOG(LOG_ERR, "Could not open file %s/%s.", dir, name);
                return (-ENOENT);
        }

        /* Should the file be backed up? */
        if (!bksp) {
                NDMP_LOG(LOG_DEBUG,
                    "[%s/%s] has no selection criteria", dir, name);

        } else if (!((*bksp->bs_fn)(bksp, &tlm_acls->acl_attr))) {
                NDMP_LOG(LOG_DEBUG, "[%s/%s] file skipped", dir, name);
                return (0);
        }

        /* Only the regular files and symbolic links can be backed up. */
        if (!S_ISLNK(tlm_acls->acl_attr.st_mode) &&
            !S_ISREG(tlm_acls->acl_attr.st_mode)) {
                NDMP_LOG(LOG_DEBUG,
                    "Warning: skip backing up [%s][%s]", dir, name);
                return (-EINVAL);
        }


        if (tm_tar_ops.tm_putfile != NULL)
                rv = (tm_tar_ops.tm_putfile)(dir, name, tlm_acls, commands,
                    local_commands, job_stats);

        return (rv);
}



/*
 * backup_work
 *
 * Start the NDMP backup (V2 only).
 */
int
backup_work(char *bk_path, tlm_job_stats_t *job_stats,
    ndmp_run_args_t *np, tlm_commands_t *commands,
    ndmp_lbr_params_t *nlp)
{
        struct full_dir_info dir_info; /* the blob to push/pop with cstack_t */
        struct full_dir_info *t_dir_info, *p_dir_info;
        struct stat64 ret_attr; /* attributes of current file name */
        fs_fhandle_t ret_fh;
        char *first_name; /* where the first name is located */
        char *dname;
        int erc;
        int retval;
        cstack_t *stk;
        unsigned long fileid;
        tlm_acls_t tlm_acls;
        int dname_size;
        longlong_t fsize;
        bk_selector_t bks;
        tlm_cmd_t *local_commands;
        long    dpos;

        NDMP_LOG(LOG_DEBUG, "nr_chkpnted %d nr_ldate: %u bk_path: \"%s\"",
            NLP_ISCHKPNTED(nlp), nlp->nlp_ldate, bk_path);

        /* Get every name in this directory */
        dname = ndmp_malloc(TLM_MAX_PATH_NAME);
        if (dname == NULL)
                return (-ENOMEM);

        local_commands = commands->tcs_command;
        retval = 0;
        (void) memset(&bks, 0, sizeof (bks));
        bks.bs_cookie = (void *)nlp;
        bks.bs_level = nlp->nlp_clevel;
        bks.bs_ldate = nlp->nlp_ldate;
        bks.bs_fn = timecmp;

        /*
         * should we skip the whole thing?
         */
        if (tlm_is_excluded("", bk_path, np->nr_excls)) {
                NDMP_LOG(LOG_DEBUG, "%s excluded", bk_path);
                free(dname);
                return (0);
        }

        /*
         * Search for the top-level file-directory
         */
        if (NLP_ISCHKPNTED(nlp)) {
                first_name = np->nr_chkp_nm;
                (void) strlcpy(first_name, bk_path, TLM_MAX_PATH_NAME);
        } else {
                first_name = tlm_build_snapshot_name(bk_path, np->nr_chkp_nm,
                    nlp->nlp_jstat->js_job_name);
        }

        (void) memset(&ret_fh, 0, sizeof (ret_fh));
        erc = fs_getstat(first_name, &ret_fh, &ret_attr);
        if (erc != 0) {
                NDMP_LOG(LOG_ERR, "Path %s not found.", first_name);
                free(dname);
                return (-EINVAL);
        }

        if ((stk = cstack_new()) == NULL) {
                free(dname);
                NDMP_LOG(LOG_DEBUG, "cstack_new failed");
                return (-ENOMEM);
        }
        (void) strlcpy(dir_info.fd_dir_name, first_name, TLM_MAX_PATH_NAME);
        (void) memcpy(&dir_info.fd_dir_fh, &ret_fh, sizeof (fs_fhandle_t));
        p_dir_info = dup_dir_info(&dir_info);

        /*
         * Push the first name onto the stack so that we can pop it back
         * off as part of the normal cycle
         */
        if (cstack_push(stk, p_dir_info, 0)) {
                free(dname);
                free(p_dir_info);
                cstack_delete(stk);
                NDMP_LOG(LOG_DEBUG, "cstack_push failed");
                return (-ENOMEM);
        }

        (void) memset(&tlm_acls, 0, sizeof (tlm_acls));
        /*
         * Did NDMP create a checkpoint?
         */
        if (NLP_ISCHKPNTED(nlp) || fs_is_rdonly(bk_path)) {
                tlm_acls.acl_checkpointed = FALSE;
        } else {
                /* Use the checkpoint created by NDMP */
                tlm_acls.acl_checkpointed = TRUE;
        }

        /*
         * This is level-backup.  It never resets the archive bit.
         */
        tlm_acls.acl_clear_archive = FALSE;

        NDMP_LOG(LOG_DEBUG, "acls.chkpnt: %c acls.clear_arcbit: %c",
            NDMP_YORN(tlm_acls.acl_checkpointed),
            NDMP_YORN(tlm_acls.acl_clear_archive));

        while (commands->tcs_reader == TLM_BACKUP_RUN &&
            local_commands->tc_reader == TLM_BACKUP_RUN &&
            cstack_pop(stk, (void **)&p_dir_info, 0) == 0) {

                if (NLP_ISCHKPNTED(nlp))
                        (void) strlcpy(np->nr_unchkp_nm,
                            p_dir_info->fd_dir_name, TLM_MAX_PATH_NAME);
                else
                        (void) tlm_remove_checkpoint(p_dir_info->fd_dir_name,
                            np->nr_unchkp_nm);

                (void) backup_dir(np->nr_unchkp_nm, &tlm_acls, local_commands,
                    job_stats, &bks);


                while (commands->tcs_reader == TLM_BACKUP_RUN &&
                    local_commands->tc_reader == TLM_BACKUP_RUN) {

                        dname_size = TLM_MAX_PATH_NAME - 1;

                        NDMP_LOG(LOG_DEBUG,
                            "dir_name: %s", p_dir_info->fd_dir_name);

                        (void) memset(&ret_fh, 0, sizeof (ret_fh));
                        erc = fs_readdir(&p_dir_info->fd_dir_fh,
                            p_dir_info->fd_dir_name, &dpos,
                            dname, &dname_size, &ret_fh, &ret_attr);
                        if (erc == 0) {
                                fileid = ret_fh.fh_fid;
                        } else {
                                NDMP_LOG(LOG_DEBUG,
                                    "Filesystem readdir in [%s]",
                                    p_dir_info->fd_dir_name);
                                retval = -ENOENT;
                                break;
                        }

                        /* an empty name size marks the end of the list */
                        if (dname_size == 0)
                                break;
                        dname[dname_size] = '\0';

                        NDMP_LOG(LOG_DEBUG, "dname: \"%s\"", dname);

                        /*
                         * If name refers to a directory, push its file
                         *   handle onto the stack  (skip "." and "..").
                         */
                        if (rootfs_dot_or_dotdot(dname)) {
                                fileid = 0;
                                continue;
                        }

                        /*
                         * Skip the:
                         * non-dir entries which should not be backed up
                         * Or
                         * dir-type entries which have have nothing under
                         * their hierarchy to be backed up.
                         */
                        if (!dbm_getone(nlp->nlp_bkmap, (u_longlong_t)fileid)) {
                                NDMP_LOG(LOG_DEBUG, "Skipping %s/%s",
                                    p_dir_info->fd_dir_name, dname);
                                fileid = 0;
                                continue;
                        }

                        if (tlm_is_excluded(np->nr_unchkp_nm, dname,
                            np->nr_excls)) {
                                fileid = 0;
                                continue;
                        }
                        if (S_ISDIR(ret_attr.st_mode)) {
                                /*
                                 * only directories get pushed onto this stack,
                                 * so we do not have to test for regular files.
                                 */
                                t_dir_info = tlm_new_dir_info(&ret_fh,
                                    p_dir_info->fd_dir_name, dname);
                                if (t_dir_info == NULL) {
                                        NDMP_LOG(LOG_DEBUG,
                                            "While backing up [%s][%s]",
                                            p_dir_info->fd_dir_name, dname);
                                } else if (cstack_push(stk, t_dir_info,
                                    0) != 0) {
                                        NDMP_LOG(LOG_DEBUG,
                                            "No enough memory stack_push");
                                        retval = -ENOMEM;
                                        break;
                                }
                        } else if (S_ISREG(ret_attr.st_mode) ||
                            S_ISLNK(ret_attr.st_mode)) {

                                fsize = backup_file(np->nr_unchkp_nm, dname,
                                    &tlm_acls, commands, local_commands,
                                    job_stats, &bks);

                                if (fsize >= 0) {
                                        job_stats->js_files_so_far++;
                                        job_stats->js_bytes_total += fsize;
                                } else
                                        job_stats->js_errors++;
                                fileid = 0;
                        }
                }
                fileid = 0;
                free(p_dir_info);
                if (retval != 0)
                        break;
        }

        free(dname);

        while (cstack_pop(stk, (void **)&p_dir_info, 0) == 0) {
                free(p_dir_info);
        }

        cstack_delete(stk);
        return (retval);
}


/*
 * free_paths
 *
 * Free the path names
 */
static void
free_paths(ndmp_run_args_t *np)
{
        free(np->nr_chkp_nm);
        free(np->nr_unchkp_nm);
        free(np->nr_excls);
}


/*
 * malloc_paths
 *
 * Allocate the path names (direct and checkpointed paths)
 */
static boolean_t
malloc_paths(ndmp_run_args_t *np)
{
        boolean_t rv;

        rv = TRUE;
        np->nr_chkp_nm = ndmp_malloc(TLM_MAX_PATH_NAME);
        np->nr_unchkp_nm = ndmp_malloc(TLM_MAX_PATH_NAME);
        if (!np->nr_chkp_nm || !np->nr_unchkp_nm) {
                free_paths(np);
                rv = FALSE;
        } else if ((np->nr_excls = ndmpd_make_exc_list()) == NULL) {
                free_paths(np);
                rv = FALSE;
        }
        return (rv);
}


/*
 * ndmp_backup_reader
 *
 * Backup reader thread which uses backup_work to read and TAR
 * the files/dirs to be backed up (V2 only)
 */
static int
ndmp_backup_reader(tlm_commands_t *commands, ndmp_lbr_params_t *nlp,
    char *job_name)
{
        int retval;
        ndmp_run_args_t np;
        tlm_job_stats_t *job_stats;
        tlm_cmd_t *local_commands;

        NDMP_LOG(LOG_DEBUG, "bk_path: \"%s\"", nlp->nlp_backup_path);

        local_commands = commands->tcs_command;
        (void) memset(&np, 0, sizeof (np));
        if (!malloc_paths(&np))
                return (-1);
        local_commands->tc_ref++;
        commands->tcs_reader_count++;

        job_stats = tlm_ref_job_stats(job_name);

        retval = backup_work(nlp->nlp_backup_path, job_stats, &np,
            commands, nlp);
        write_tar_eof(local_commands);

        commands->tcs_reader_count--;
        local_commands->tc_writer = TLM_STOP;
        tlm_release_reader_writer_ipc(local_commands);
        tlm_un_ref_job_stats(job_name);

        free_paths(&np);
        return (retval);

}


/*
 * ndmp_tar_writer
 *
 * The backup writer thread that writes the TAR records to the
 * tape media (V2 only)
 */
int
ndmp_tar_writer(ndmpd_session_t *session, ndmpd_module_params_t *mod_params,
    tlm_commands_t *cmds)
{
        int bidx, nw;
        int err;
        tlm_buffer_t *buf;
        tlm_buffers_t *bufs;
        tlm_cmd_t *lcmd;        /* Local command */

        err = 0;
        if (session == NULL) {
                NDMP_LOG(LOG_DEBUG, "session == NULL");
                err = -1;
        } else if (mod_params == NULL) {
                NDMP_LOG(LOG_DEBUG, "mod_params == NULL");
                err = -1;
        } else if (cmds == NULL) {
                NDMP_LOG(LOG_DEBUG, "cmds == NULL");
                err = -1;
        }

        if (err != 0)
                return (err);

        lcmd = cmds->tcs_command;
        bufs = lcmd->tc_buffers;

        lcmd->tc_ref++;
        cmds->tcs_writer_count++;

        nw = 0;
        buf = tlm_buffer_out_buf(bufs, &bidx);
        while (cmds->tcs_writer != (int)TLM_ABORT &&
            lcmd->tc_writer != (int)TLM_ABORT) {
                if (buf->tb_full) {
                        NDMP_LOG(LOG_DEBUG, "w%d", bidx);

                        if (MOD_WRITE(mod_params, buf->tb_buffer_data,
                            buf->tb_buffer_size) != 0) {
                                NDMP_LOG(LOG_DEBUG,
                                    "Writing buffer %d, pos: %lld",
                                    bidx, session->ns_mover.md_position);
                                err = -1;
                                break;
                        }

                        tlm_buffer_mark_empty(buf);
                        (void) tlm_buffer_advance_out_idx(bufs);
                        buf = tlm_buffer_out_buf(bufs, &bidx);
                        tlm_buffer_release_out_buf(bufs);
                        nw++;
                } else {
                        if (lcmd->tc_writer != TLM_BACKUP_RUN) {
                                /* No more data is comming; time to exit. */
                                NDMP_LOG(LOG_DEBUG,
                                    "tc_writer!=TLM_BACKUP_RUN; time to exit");
                                break;
                        } else {
                                NDMP_LOG(LOG_DEBUG, "W%d", bidx);
                                tlm_buffer_in_buf_timed_wait(bufs, 100);
                        }
                }
        }

        NDMP_LOG(LOG_DEBUG, "nw: %d", nw);
        if (cmds->tcs_writer != (int)TLM_ABORT) {
                NDMP_LOG(LOG_DEBUG, "tcs_writer != TLM_ABORT");
        } else {
                NDMP_LOG(LOG_DEBUG, "tcs_writer == TLM_ABORT");
        }

        if (lcmd->tc_writer != (int)TLM_ABORT) {
                NDMP_LOG(LOG_DEBUG, "tc_writer != TLM_ABORT");
        } else {
                NDMP_LOG(LOG_DEBUG, "tc_writer == TLM_ABORT");
        }
        cmds->tcs_writer_count--;
        lcmd->tc_reader = TLM_STOP;
        lcmd->tc_ref--;

        return (err);
}


/*
 * read_one_buf
 *
 * Read one buffer from the tape
 */
static int
read_one_buf(ndmpd_module_params_t *mod_params, tlm_buffers_t *bufs,
    tlm_buffer_t *buf)
{
        int rv;

        if ((rv = MOD_READ(mod_params, buf->tb_buffer_data,
            bufs->tbs_data_transfer_size)) == 0) {
                buf->tb_eof = buf->tb_eot = FALSE;
                buf->tb_errno = 0;
                buf->tb_buffer_size = bufs->tbs_data_transfer_size;
                buf->tb_buffer_spot = 0;
                buf->tb_full = TRUE;
                (void) tlm_buffer_advance_in_idx(bufs);
        }

        return (rv);
}


/*
 * ndmp_tar_reader
 *
 * NDMP Tar reader thread. This threads keep reading the tar
 * file from the tape and wakes up the consumer thread to extract
 * it on the disk
 */
void *
ndmp_tar_reader(void *ptr)
{
        int bidx;
        int err;
        tlm_buffer_t *buf;
        tlm_buffers_t *bufs;
        tlm_cmd_t *lcmd;        /* Local command */
        ndmpd_session_t *session;
        ndmpd_module_params_t *mod_params;
        tlm_commands_t *cmds;
        ndmp_tar_reader_arg_t *argp = ptr;

        if (!argp)
                return ((void *)(uintptr_t)-1);

        session = argp->tr_session;
        mod_params = argp->tr_mod_params;
        cmds = argp->tr_cmds;

        err = 0;
        if (session == NULL) {
                NDMP_LOG(LOG_DEBUG, "session == NULL");
                err = -1;
        } else if (cmds == NULL) {
                NDMP_LOG(LOG_DEBUG, "cmds == NULL");
                err = -1;
        }

        if (err != 0) {
                tlm_cmd_signal(cmds->tcs_command, TLM_TAR_READER);
                return ((void *)(uintptr_t)err);
        }

        lcmd = cmds->tcs_command;
        bufs = lcmd->tc_buffers;

        lcmd->tc_ref++;
        cmds->tcs_reader_count++;

        /*
         * Synchronize with our parent thread.
         */
        tlm_cmd_signal(cmds->tcs_command, TLM_TAR_READER);

        buf = tlm_buffer_in_buf(bufs, &bidx);
        while (cmds->tcs_reader == TLM_RESTORE_RUN &&
            lcmd->tc_reader == TLM_RESTORE_RUN) {

                if (buf->tb_full) {
                        NDMP_LOG(LOG_DEBUG, "R%d", bidx);
                        /*
                         * The buffer is still full, wait for the consumer
                         * thread to use it.
                         */
                        tlm_buffer_out_buf_timed_wait(bufs, 100);
                        buf = tlm_buffer_in_buf(bufs, NULL);
                } else {
                        NDMP_LOG(LOG_DEBUG, "r%d", bidx);

                        err = read_one_buf(mod_params, bufs, buf);
                        if (err < 0) {
                                NDMP_LOG(LOG_DEBUG,
                                    "Reading buffer %d, pos: %lld",
                                    bidx, session->ns_mover.md_position);

                                /* Force the writer to stop. */
                                buf->tb_eot = buf->tb_eof = TRUE;
                                break;
                        } else if (err == 1) {
                                NDMP_LOG(LOG_DEBUG,
                                    "operation aborted or session terminated");
                                err = 0;
                                break;
                        }

                        buf = tlm_buffer_in_buf(bufs, &bidx);
                        tlm_buffer_release_in_buf(bufs);
                }
        }

        /*
         * If the consumer is waiting for us, wake it up so that it detects
         * we're quiting.
         */
        lcmd->tc_writer = TLM_STOP;
        tlm_buffer_release_in_buf(bufs);
        (void) usleep(1000);

        /*
         * Clean up.
         */
        cmds->tcs_reader_count--;
        lcmd->tc_ref--;
        return ((void *)(uintptr_t)err);
}


/*
 * ndmpd_tar_backup
 *
 * Check must have been done that backup work directory exists, before
 * calling this function.
 */
static int
ndmpd_tar_backup(ndmpd_session_t *session, ndmpd_module_params_t *mod_params,
    ndmp_lbr_params_t *nlp)
{
        char jname[TLM_MAX_BACKUP_JOB_NAME];
        int err;
        tlm_commands_t *cmds;

        if (mod_params->mp_operation != NDMP_DATA_OP_BACKUP) {
                NDMP_LOG(LOG_DEBUG,
                    "mod_params->mp_operation != NDMP_DATA_OP_BACKUP");
                err = -1;
        } else {
                if (ndmpd_mark_inodes_v2(session, nlp) != 0)
                        err = -1;
                else if (ndmp_get_bk_dir_ino(nlp))
                        err = -1;
                else
                        err = 0;
        }

        if (err != 0)
                return (err);

        (void) ndmp_new_job_name(jname);
        if (backup_create_structs(session, jname) < 0)
                return (-1);

        nlp->nlp_jstat->js_start_ltime = time(NULL);
        nlp->nlp_jstat->js_start_time = nlp->nlp_jstat->js_start_ltime;
        nlp->nlp_jstat->js_chkpnt_time = nlp->nlp_cdate;

        if (!session->ns_data.dd_abort) {

                cmds = &nlp->nlp_cmds;
                cmds->tcs_reader = cmds->tcs_writer = TLM_BACKUP_RUN;
                cmds->tcs_command->tc_reader = TLM_BACKUP_RUN;
                cmds->tcs_command->tc_writer = TLM_BACKUP_RUN;

                if (ndmp_write_utf8magic(cmds->tcs_command) < 0) {
                        backup_release_structs(session);
                        return (-1);
                }

                NDMP_LOG(LOG_DEBUG, "Backing up \"%s\" started.",
                    nlp->nlp_backup_path);

                err = ndmp_backup_reader(cmds, nlp, jname);
                if (err != 0) {
                        backup_release_structs(session);
                        NDMP_LOG(LOG_DEBUG, "Launch ndmp_backup_reader: %s",
                            strerror(err));
                        return (-1);
                }

                /* Act as the writer thread. */
                err = ndmp_tar_writer(session, mod_params, cmds);

                nlp->nlp_jstat->js_stop_time = time(NULL);

                NDMP_LOG(LOG_DEBUG,
                    "Runtime [%s] %llu bytes (%llu): %d seconds",
                    nlp->nlp_backup_path, session->ns_mover.md_data_written,
                    session->ns_mover.md_data_written,
                    nlp->nlp_jstat->js_stop_time -
                    nlp->nlp_jstat->js_start_ltime);
                MOD_LOG(mod_params,
                    "Runtime [%s] %llu bytes (%llu): %d seconds",
                    nlp->nlp_backup_path, session->ns_mover.md_data_written,
                    session->ns_mover.md_data_written,
                    nlp->nlp_jstat->js_stop_time -
                    nlp->nlp_jstat->js_start_ltime);

                if (session->ns_data.dd_abort)
                        err = -1;

                NDMP_LOG(LOG_DEBUG, "Backing up \"%s\" finished. (%d)",
                    nlp->nlp_backup_path, err);
        } else {
                nlp->nlp_jstat->js_stop_time = time(NULL);
                NDMP_LOG(LOG_DEBUG, "Backing up \"%s\" aborted.",
                    nlp->nlp_backup_path);
                err = 0;
        }

        backup_release_structs(session);
        return (err);
}


/*
 * ndmpd_tar_restore
 *
 * Restore function that launches TAR reader thread to read from the
 * tape and writes the extracted files/dirs to the filesystem
 */
static int
ndmpd_tar_restore(ndmpd_session_t *session, ndmpd_module_params_t *mod_params,
    ndmp_lbr_params_t *nlp)
{
        char jname[TLM_MAX_BACKUP_JOB_NAME];
        char *rspath;
        int err;
        tlm_commands_t *cmds;
        ndmp_tar_reader_arg_t arg;
        tlm_backup_restore_arg_t tlm_arg;
        ndmp_name *ent;
        pthread_t rdtp, wrtp;
        int i;

        if (mod_params->mp_operation != NDMP_DATA_OP_RECOVER) {
                NDMP_LOG(LOG_DEBUG,
                    "mod_params->mp_operation != NDMP_DATA_OP_RECOVER");
                return (-1);
        }

        if (nlp->nlp_restore_path[0] != '\0')
                rspath = nlp->nlp_restore_path;
        else if (nlp->nlp_restore_bk_path[0] != '\0')
                rspath = nlp->nlp_restore_bk_path;
        else
                rspath = "";

        (void) ndmp_new_job_name(jname);
        if (restore_create_structs(session, jname) < 0)
                return (-1);

        nlp->nlp_jstat->js_start_ltime = time(NULL);
        nlp->nlp_jstat->js_start_time = time(NULL);

        if (!session->ns_data.dd_abort) {
                cmds = &nlp->nlp_cmds;
                cmds->tcs_reader = cmds->tcs_writer = TLM_RESTORE_RUN;
                cmds->tcs_command->tc_reader = TLM_RESTORE_RUN;
                cmds->tcs_command->tc_writer = TLM_RESTORE_RUN;

                NDMP_LOG(LOG_DEBUG, "Restoring to \"%s\" started.", rspath);
                NDMP_LOG(LOG_DEBUG, "Restoring from %s tape(s).",
                    ndmp_data_get_mover_mode(session));

                arg.tr_session = session;
                arg.tr_mod_params = mod_params;
                arg.tr_cmds = cmds;

                err = pthread_create(&rdtp, NULL, ndmp_tar_reader, &arg);
                if (err == 0) {
                        tlm_cmd_wait(cmds->tcs_command, TLM_TAR_READER);
                } else {
                        NDMP_LOG(LOG_DEBUG, "Launch ndmp_tar_reader: %m");
                        return (-1);
                }

                if (!ndmp_check_utf8magic(cmds->tcs_command)) {
                        NDMP_LOG(LOG_DEBUG, "UTF8Magic not found!");
                } else {
                        NDMP_LOG(LOG_DEBUG, "UTF8Magic found");
                }

                (void) memset(&tlm_arg, 0, sizeof (tlm_backup_restore_arg_t));
                (void) pthread_barrier_init(&tlm_arg.ba_barrier, 0, 2);

                /*
                 * Set up restore parameters
                 */
                tlm_arg.ba_commands = cmds;
                tlm_arg.ba_cmd = cmds->tcs_command;
                tlm_arg.ba_job = nlp->nlp_jstat->js_job_name;
                tlm_arg.ba_dir = nlp->nlp_restore_path;
                for (i = 0; i < nlp->nlp_nfiles; i++) {
                        ent = (ndmp_name *)MOD_GETNAME(mod_params, i);
                        tlm_arg.ba_sels[i] = ent->name;
                }


                if (tm_tar_ops.tm_getfile != NULL) {
                        err = pthread_create(&wrtp, NULL, tm_tar_ops.tm_getfile,
                            &tlm_arg);
                } else {
                        (void) pthread_barrier_destroy(&tlm_arg.ba_barrier);
                        NDMP_LOG(LOG_DEBUG,
                            "Thread create tm_getfile: ops NULL");
                        return (-1);
                }
                if (err == 0) {
                        (void) pthread_barrier_wait(&tlm_arg.ba_barrier);
                } else {
                        (void) pthread_barrier_destroy(&tlm_arg.ba_barrier);
                        NDMP_LOG(LOG_DEBUG, "thread create tm_getfile: %m");
                        return (-1);
                }

                (void) pthread_join(rdtp, NULL);
                (void) pthread_join(wrtp, NULL);
                (void) pthread_barrier_destroy(&tlm_arg.ba_barrier);

                nlp->nlp_jstat->js_stop_time = time(NULL);

                /* Send the list of un-recovered files/dirs to the client.  */
                (void) send_unrecovered_list(mod_params, nlp);

                ndmp_stop_local_reader(session, cmds);
                ndmp_wait_for_reader(cmds);
                ndmp_stop_remote_reader(session);
                NDMP_LOG(LOG_DEBUG, "Restoring to \"%s\" finished. (%d)",
                    rspath, err);
        } else {
                nlp->nlp_jstat->js_stop_time = time(NULL);

                /* nothing restored. */
                (void) send_unrecovered_list(mod_params, nlp);
                NDMP_LOG(LOG_DEBUG, "Restoring to \"%s\" aborted.",
                    rspath);
                err = -1;
        }

        NDMP_FREE(nlp->nlp_restore_path);
        backup_release_structs(session);

        return (err);
}


/*
 * prefixdir
 *
 * Extract the path for a given full path entry
 */
static char *
prefixdir(char *dir, char *suffix)
{
        static char tmp[TLM_MAX_PATH_NAME];
        char *tend, *send; /* tmp and suffix end */

        if (dir == NULL || suffix == NULL)
                return (NULL);

        if (*suffix == '\0')
                return (dir);

        if (*dir == '\0')
                return (NULL);

        (void) strlcpy(tmp, dir, TLM_MAX_PATH_NAME);
        tend = &tmp[strlen(tmp)];
        send = &suffix[strlen(suffix)];

        /*
         * Move backward as far as the last part of the dir and
         * the suffix match.
         */
        while (tend >= tmp && send >= suffix)
                if (*tend == *send)
                        tend--, send--;
                else
                        break;

        *++tend = '\0';
        return (tmp);
}


/*
 * get_nfiles
 *
 * Get the count of files to be restored
 */
static int
get_nfiles(ndmpd_session_t *session, ndmpd_module_params_t *params)
{
        if (session->ns_data.dd_nlist_len == 0) {
                MOD_LOG(params, "Error: nothing specified to be restored.\n");
                return (-1);
        }

        return (session->ns_data.dd_nlist_len);
}


/*
 * get_restore_dest
 *
 * Get the full pathname of where the entries should be restored to.
 */
static char *
get_restore_dest(ndmpd_module_params_t *params)
{
        ndmp_name *ent;
        char *cp;

        /*
         * Destination of restore:
         * NetBackup of Veritas(C) sends the entries like this:
         *
         *      ent[i].name: is the relative pathname of what is selected in
         *        the GUI.
         *      ent[i].dest: is the full pathname of where the dir/file must
         *        be restored to.
         *      ent[i].ssi: 0
         *      ent[i].fh_info: 0
         *
         */
        ent = (ndmp_name *)MOD_GETNAME(params, 0);
        cp = prefixdir(ent->dest, ent->name);
        if (cp == NULL) {
                MOD_LOG(params, "Error: empty restore path.\n");
                return (NULL);
        }

        return (cp);
}


/*
 * correct_ents
 *
 * Correct the entries in the restore list by appending the appropriate
 * path to them
 */
static int
correct_ents(ndmpd_module_params_t *params, int n, char *bkpath)
{
        char *cp, *pathname;
        int i, len, rv;
        ndmp_name *ent;

        if ((pathname = ndmp_malloc(TLM_MAX_PATH_NAME)) == NULL) {
                MOD_LOG(params, "Error: insufficient memory.\n");
                return (-1);
        }

        rv = 0;
        /* Append the backup path to all the "ent[].name"s. */
        for (i = 0; i < n; i++) {
                ent = (ndmp_name *)MOD_GETNAME(params, i);

                NDMP_LOG(LOG_DEBUG,
                    "Old: ent[%d].name: \"%s\"", i, ent->name);
                NDMP_LOG(LOG_DEBUG,
                    "Old: ent[%d].dest: \"%s\"", i, ent->dest);

                /* remove trailing slash */
                len = strlen(ent->name);
                if (ent->name[len - 1] == '/')
                        ent->name[len - 1] = '\0';

                if (!tlm_cat_path(pathname, bkpath, ent->name)) {
                        MOD_LOG(params, "Error: path too long.\n");
                        rv = -1;
                        break;
                }

                /* Make a copy of the new string and save it in ent->name. */
                cp = strdup(pathname);
                if (cp == NULL) {
                        MOD_LOG(params, "Error: insufficient memory.\n");
                        rv = -1;
                        break;
                }
                free(ent->name);
                ent->name = cp;

                NDMP_LOG(LOG_DEBUG,
                    "New: ent[%d].name: \"%s\"", i, ent->name);
        }

        free(pathname);
        return (rv);
}


/*
 * check_restore_paths
 *
 * Go through the restore list and check the validity of the
 * restore path.
 */
static int
check_restore_paths(ndmpd_module_params_t *params, int n, char *rspath)
{
        int i, rv;
        ndmp_name *ent;

        rv = 0;
        if (rspath != NULL && *rspath != '\0') {
                NDMP_LOG(LOG_DEBUG, "rspath: \"%s\"", rspath);
                if (!fs_volexist(rspath)) {
                        MOD_LOG(params,
                            "Error: Invalid volume name for restore.");
                        rv = -1;
                }
        } else {
                for (i = 0; i < n; i++) {
                        ent = (ndmp_name *)MOD_GETNAME(params, i);
                        NDMP_LOG(LOG_DEBUG,
                            "ent[%d].name: \"%s\"", i, ent->name);

                        if (!fs_volexist(ent->name)) {
                                MOD_LOG(params,
                                    "Error: Invalid volume name for restore.",
                                    ent->name);
                                rv = -1;
                                break;
                        }
                }
        }

        return (rv);
}


/*
 * check_backup_dir_validity
 *
 * Check if the backup directory is valid. Make sure it exists and
 * is writable. Check for snapshot and readonly cases.
 */
static int
check_backup_dir_validity(ndmpd_module_params_t *params, char *bkpath)
{
        char *msg;
        int rv;
        struct stat64 st;

        rv = NDMP_NO_ERR;
        if (stat64(bkpath, &st) < 0) {
                msg = strerror(errno);
                MOD_LOG(params, "Error: stat(%s): %s.\n", bkpath, msg);
                rv = NDMP_ILLEGAL_ARGS_ERR;
        } else if (!S_ISDIR(st.st_mode)) {
                MOD_LOG(params, "Error: %s is not a directory.\n", bkpath);
                rv = NDMP_ILLEGAL_ARGS_ERR;
        } else if (fs_is_rdonly(bkpath) && !fs_is_chkpntvol(bkpath) &&
            fs_is_chkpnt_enabled(bkpath)) {
                MOD_LOG(params, "Error: %s is not a checkpointed path.\n",
                    bkpath);
                rv = NDMP_BAD_FILE_ERR;
        }

        return (rv);
}


/*
 * ndmp_backup_extract_params
 *
 * Go through the backup parameters and check the validity
 * for each one. Then set the NLP flags according to the parameters.
 */
int
ndmp_backup_extract_params(ndmpd_session_t *session,
    ndmpd_module_params_t *params)
{
        char *cp;
        int rv;
        ndmp_lbr_params_t *nlp;

        /* Extract directory to be backed up from env variables */
        if ((nlp = ndmp_get_nlp(session)) == NULL) {
                MOD_LOG(params, "Error: Internal error: nlp == NULL.\n");
                return (NDMP_ILLEGAL_ARGS_ERR);
        }
        if ((nlp->nlp_backup_path = get_backup_path_v2(params)) == NULL)
                return (NDMP_FILE_NOT_FOUND_ERR);

        if ((rv = check_backup_dir_validity(params,
            nlp->nlp_backup_path)) != NDMP_NO_ERR)
                return (rv);

        /* Should the st_ctime be ignored when backing up? */
        if (ndmp_ignore_ctime) {
                NDMP_LOG(LOG_DEBUG, "ignoring st_ctime");
                NLP_SET(nlp, NLPF_IGNCTIME);
        } else
                NLP_UNSET(nlp, NLPF_IGNCTIME);

        /* Should the st_lmtime be ignored when backing up? */
        if (ndmp_include_lmtime) {
                NDMP_LOG(LOG_DEBUG, "including st_lmtime");
                NLP_SET(nlp, NLPF_INCLMTIME);
        } else
                NLP_UNSET(nlp, NLPF_INCLMTIME);

        NDMP_LOG(LOG_DEBUG, "flags %x", nlp->nlp_flags);

        /* Is backup history requested? */
        cp = MOD_GETENV(params, "HIST");
        if (cp == NULL) {
                NDMP_LOG(LOG_DEBUG, "env(HIST) not specified");
                NLP_UNSET(nlp, NLPF_FH);
        } else {
                NDMP_LOG(LOG_DEBUG, "env(HIST): \"%s\"", cp);

                if (strchr("t_ty_y", *cp))
                        NLP_SET(nlp, NLPF_FH);
                else
                        NLP_UNSET(nlp, NLPF_FH);
        }

        nlp->nlp_clevel = 0;
        /* Is it an incremental backup? */
        cp = MOD_GETENV(params, "LEVEL");
        if (cp == NULL) {
                NDMP_LOG(LOG_DEBUG,
                    "env(LEVEL) not specified, default to 0");
        } else if (*cp < '0' || *cp > '9' || *(cp+1) != '\0') {
                NDMP_LOG(LOG_DEBUG, "Invalid backup level '%s'", cp);
                return (NDMP_ILLEGAL_ARGS_ERR);
        } else
                nlp->nlp_clevel = *cp - '0';

        /* Extract last backup time from the dumpdates file */
        nlp->nlp_llevel = nlp->nlp_clevel;
        nlp->nlp_ldate = 0;
        if (ndmpd_get_dumptime(nlp->nlp_backup_path, &nlp->nlp_llevel,
            &nlp->nlp_ldate) < 0) {
                MOD_LOG(params, "Error: getting dumpdate for %s level %d\n",
                    nlp->nlp_backup_path, nlp->nlp_clevel);
                return (NDMP_NO_MEM_ERR);
        }

        NDMP_LOG(LOG_DEBUG,
            "Date of this level %d on \"%s\": %s",
            nlp->nlp_clevel, nlp->nlp_backup_path, cctime(&nlp->nlp_cdate));
        NDMP_LOG(LOG_DEBUG,
            "Date of last level %d on \"%s\": %s",
            nlp->nlp_llevel, nlp->nlp_backup_path, cctime(&nlp->nlp_ldate));

        /* Should the dumpdate file be updated? */
        cp = MOD_GETENV(params, "UPDATE");
        if (cp == NULL) {
                NDMP_LOG(LOG_DEBUG,
                    "env(UPDATE) not specified, default to TRUE");
                NLP_SET(nlp, NLPF_UPDATE);
        } else {
                NDMP_LOG(LOG_DEBUG, "env(UPDATE): \"%s\"", cp);
                if (strchr("t_ty_y", *cp) != NULL)
                        NLP_SET(nlp, NLPF_UPDATE);
                else
                        NLP_UNSET(nlp, NLPF_UPDATE);
        }

        return (NDMP_NO_ERR);
}



/*
 * log_bk_params_v2
 *
 * Dump the value of the parameters in the log file for debugging.
 */
void
log_bk_params_v2(ndmpd_session_t *session, ndmpd_module_params_t *params,
    ndmp_lbr_params_t *nlp)
{
        MOD_LOG(params, "Date of this level %d on \"%s\": %s\n",
            nlp->nlp_clevel, nlp->nlp_backup_path, cctime(&nlp->nlp_cdate));
        MOD_LOG(params, "Date of last level %d on \"%s\": %s\n",
            nlp->nlp_llevel, nlp->nlp_backup_path, cctime(&nlp->nlp_ldate));

        MOD_LOG(params, "Backing up: \"%s\".\n", nlp->nlp_backup_path);
        MOD_LOG(params, "Record size: %d\n", session->ns_mover.md_record_size);
        MOD_LOG(params, "File history: %c.\n",
            NDMP_YORN(NLP_ISSET(nlp, NLPF_FH)));
        MOD_LOG(params, "Update: %s\n",
            NLP_ISSET(nlp, NLPF_UPDATE) ? "TRUE" : "FALSE");

}


/*
 * same_path
 *
 * Find out if the paths are the same regardless of the ending slash
 *
 * Examples :
 *   /a/b/c == /a/b/c
 *   /a/b/c/ == /a/b/c
 *   /a/b/c == /a/b/c/
 */
static boolean_t
same_path(char *s, char *t)
{
        boolean_t rv;
        int slen, tlen;

        rv = FALSE;
        slen = strlen(s);
        tlen = strlen(t);
        if (slen == tlen && strcmp(s, t) == 0) {
                rv = TRUE;
        } else {
                if (slen == tlen - 1) {
                        if (strncmp(s, t, slen) == 0 && t[tlen - 1] == '/')
                                rv = TRUE;
                } else if (tlen == slen -1) {
                        if (strncmp(s, t, tlen) == 0 && s[slen - 1] == '/')
                                rv = TRUE;
                }
        }

        NDMP_LOG(LOG_DEBUG, "rv: %d", rv);
        return (rv);
}


/*
 * ndmp_restore_extract_params
 *
 * Go through the restore parameters and check them and extract them
 * by setting NLP flags and other values.
 *
 * Parameters:
 *
 * Returns:
 *   0: on success
 *  -1: otherwise
 */
int
ndmp_restore_extract_params(ndmpd_session_t *session,
    ndmpd_module_params_t *params)
{
        char *bkpath, *rspath;
        ndmp_lbr_params_t *nlp;

        if ((nlp = ndmp_get_nlp(session)) == NULL) {
                NDMP_LOG(LOG_DEBUG, "nlp == NULL");
                return (-1);
        }

        /* Extract directory from where the backup was made. */
        if ((bkpath = get_backup_path_v2(params)) == NULL)
                return (NDMP_ILLEGAL_ARGS_ERR);

        nlp->nlp_restore_bk_path = bkpath;

        /* The number of the selections. */
        if ((nlp->nlp_nfiles = get_nfiles(session, params)) == 0)
                return (NDMP_ILLEGAL_ARGS_ERR);

        NDMP_LOG(LOG_DEBUG, "nfiles: %d", nlp->nlp_nfiles);

        if ((rspath = get_restore_dest(params)) == NULL)
                return (NDMP_ILLEGAL_ARGS_ERR);

        if (fs_is_rdonly(rspath)) {
                MOD_LOG(params,
                    "Error: Can't restore to a read-only volume: \"%s\"\n",
                    rspath);
                return (NDMP_ILLEGAL_ARGS_ERR);
        }
        if (fs_is_chkpntvol(rspath)) {
                MOD_LOG(params,
                    "Error: Can't restore to a checkpoint: \"%s\"\n", rspath);
                return (NDMP_ILLEGAL_ARGS_ERR);
        }

        if (same_path(bkpath, rspath))
                rspath = "";

        if ((nlp->nlp_restore_path = strdup(rspath)) == NULL)
                return (NDMP_NO_MEM_ERR);

        bkpath = trim_name(bkpath);
        if (correct_ents(params, nlp->nlp_nfiles, bkpath) < 0) {
                free(nlp->nlp_restore_path);
                return (NDMP_ILLEGAL_ARGS_ERR);
        }

        if (check_restore_paths(params, nlp->nlp_nfiles, rspath) < 0) {
                free(nlp->nlp_restore_path);
                return (NDMP_ILLEGAL_ARGS_ERR);
        }

        MOD_LOG(params, "Restoring %d files.\n", nlp->nlp_nfiles);
        MOD_LOG(params, "Restoring to: \"%s\".\n", nlp->nlp_restore_path);
        MOD_LOG(params, "Record size: %d\n", session->ns_mover.md_record_size);

        return (NDMP_NO_ERR);
}

/*
 * ndmpd_tar_backup_starter (V2 only)
 *
 * The main backup starter function. It creates a snapshot if necessary
 * and calls ndmp_tar_backup to perform the actual backup. It does the cleanup
 * and release the snapshot at the end.
 */
void *
ndmpd_tar_backup_starter(void *arg)
{
        ndmpd_module_params_t *mod_params = arg;
        int err;
        ndmpd_session_t *session;
        ndmp_lbr_params_t *nlp;

        session = (ndmpd_session_t *)(mod_params->mp_daemon_cookie);
        *(mod_params->mp_module_cookie) = nlp = ndmp_get_nlp(session);
        ndmp_session_ref(session);

        err = 0;
        if (fs_is_chkpntvol(nlp->nlp_backup_path) ||
            fs_is_rdonly(nlp->nlp_backup_path) ||
            !fs_is_chkpnt_enabled(nlp->nlp_backup_path))
                NLP_SET(nlp, NLPF_CHKPNTED_PATH);
        else {
                NLP_UNSET(nlp, NLPF_CHKPNTED_PATH);
                if (ndmp_create_snapshot(nlp->nlp_backup_path,
                    nlp->nlp_jstat->js_job_name) < 0) {
                        MOD_LOG(mod_params,
                            "Error: creating checkpoint on %s\n",
                            nlp->nlp_backup_path);
                        /* -1 causes halt reason to become internal error. */
                        err = -1;
                }
        }

        NDMP_LOG(LOG_DEBUG, "NLPF_CHKPNTED_PATH: %c",
            NDMP_YORN(NLP_ISCHKPNTED(nlp)));
        NDMP_LOG(LOG_DEBUG, "err: %d, update %c",
            err, NDMP_YORN(NLP_SHOULD_UPDATE(nlp)));

        if (err == 0) {
                err = ndmp_get_cur_bk_time(nlp, &nlp->nlp_cdate,
                    nlp->nlp_jstat->js_job_name);
                if (err != 0) {
                        NDMP_LOG(LOG_DEBUG, "err %d", err);
                } else {
                        log_bk_params_v2(session, mod_params, nlp);
                        err = ndmpd_tar_backup(session, mod_params, nlp);
                }
        }

        if (nlp->nlp_bkmap >= 0) {
                (void) dbm_free(nlp->nlp_bkmap);
                nlp->nlp_bkmap = -1;
        }

        if (!NLP_ISCHKPNTED(nlp))
                (void) ndmp_remove_snapshot(nlp->nlp_backup_path,
                    nlp->nlp_jstat->js_job_name);

        NDMP_LOG(LOG_DEBUG, "err %d, update %c",
            err, NDMP_YORN(NLP_SHOULD_UPDATE(nlp)));

        if (err == 0 && NLP_SHOULD_UPDATE(nlp)) {
                if (ndmpd_put_dumptime(nlp->nlp_backup_path, nlp->nlp_clevel,
                    nlp->nlp_cdate) < 0) {
                        err = EPERM;
                        MOD_LOG(mod_params,
                            "Error: updating the dumpdates file on %s\n",
                            nlp->nlp_backup_path);
                }
        }

        MOD_DONE(mod_params, err);

        /* nlp_params is allocated in start_backup() */
        NDMP_FREE(nlp->nlp_params);

        NS_DEC(nbk);
        ndmp_session_unref(session);
        return ((void *)(uintptr_t)err);
}


/*
 * ndmpd_tar_backup_abort
 *
 * Abort the running backup by stopping the reader thread (V2 only)
 */
int
ndmpd_tar_backup_abort(void *module_cookie)
{
        ndmp_lbr_params_t *nlp;

        nlp = (ndmp_lbr_params_t *)module_cookie;
        if (nlp != NULL && nlp->nlp_session != NULL) {
                if (nlp->nlp_session->ns_data.dd_mover.addr_type ==
                    NDMP_ADDR_TCP && nlp->nlp_session->ns_data.dd_sock != -1) {
                        (void) close(nlp->nlp_session->ns_data.dd_sock);
                        nlp->nlp_session->ns_data.dd_sock = -1;
                }
                ndmp_stop_reader_thread(nlp->nlp_session);
        }

        return (0);
}

/*
 * ndmpd_tar_restore_starter
 *
 * Starts the restore by running ndmpd_tar_restore function (V2 only)
 */

void *
ndmpd_tar_restore_starter(void *arg)
{
        ndmpd_module_params_t *mod_params = arg;
        int err;
        ndmpd_session_t *session;
        ndmp_lbr_params_t *nlp;

        session = (ndmpd_session_t *)(mod_params->mp_daemon_cookie);
        *(mod_params->mp_module_cookie) = nlp = ndmp_get_nlp(session);
        ndmp_session_ref(session);

        err = ndmpd_tar_restore(session, mod_params, nlp);
        MOD_DONE(mod_params, err);

        /* nlp_params is allocated in start_recover() */
        NDMP_FREE(nlp->nlp_params);

        NS_DEC(nrs);
        ndmp_session_unref(session);
        return ((void *)(uintptr_t)err);
}


/*
 * ndmpd_tar_restore_abort
 *
 * Aborts the restore operation by stopping the writer thread (V2 only)
 */
int
ndmpd_tar_restore_abort(void *module_cookie)
{
        ndmp_lbr_params_t *nlp;

        nlp = (ndmp_lbr_params_t *)module_cookie;
        if (nlp != NULL && nlp->nlp_session != NULL) {
                (void) mutex_lock(&nlp->nlp_mtx);
                if (nlp->nlp_session->ns_data.dd_mover.addr_type ==
                    NDMP_ADDR_TCP && nlp->nlp_session->ns_data.dd_sock != -1) {
                        (void) close(nlp->nlp_session->ns_data.dd_sock);
                        nlp->nlp_session->ns_data.dd_sock = -1;
                }
                (void) cond_broadcast(&nlp->nlp_cv);
                (void) mutex_unlock(&nlp->nlp_mtx);
                ndmp_stop_writer_thread(nlp->nlp_session);
        }

        return (0);
}