/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

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

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


#include <stdio.h>
#include <errno.h>
#include <string.h>
#include <limits.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/types.h>
#include <pkgstrct.h>
#include <locale.h>
#include <libintl.h>
#include <pkglib.h>
#include "install.h"
#include "libinst.h"
#include "libadm.h"

extern struct cfextra **extlist;
extern struct cfent **eptlist;

extern char	*pkginst;

#define	ERR_WRITE	"write of intermediate contents file failed"

static char *check_db_entry(VFP_T *, struct cfextra *, int, char *, int *);

/*ARGSUSED*/
int
dofinal(PKGserver server, VFP_T *vfpo, int rmflag, char *myclass, char *prog)
{
	struct cfextra entry;
	int	n, indx, dbchg;
	char	*save_path = NULL;

	entry.cf_ent.pinfo = NULL;
	entry.fsys_value = BADFSYS;
	entry.fsys_base = BADFSYS;
	indx = 0;

	while (extlist && extlist[indx] && (extlist[indx]->cf_ent.ftype == 'i'))
		indx++;

	dbchg = 0;

	if (pkgopenfilter(server, pkginst) != 0)
		quit(99);

	while (n = srchcfile(&(entry.cf_ent), "*", server)) {
		if (n < 0) {
			char	*errstr = getErrstr();
			progerr(gettext("bad entry read in contents file"));
			logerr(gettext("pathname=%s"),
			    (entry.cf_ent.path && *(entry.cf_ent.path)) ?
			    entry.cf_ent.path : "Unknown");
			logerr(gettext("problem=%s"),
			    (errstr && *errstr) ? errstr : "Unknown");
			quit(99);
		}
		save_path = check_db_entry(vfpo, &entry, rmflag, myclass,
		    &dbchg);

		/* Restore original server-relative path, if needed */
		if (save_path != NULL) {
			entry.cf_ent.path = save_path;
			save_path = NULL;
		}
	}

	pkgclosefilter(server);

	return (dbchg);
}

static char *
check_db_entry(VFP_T *vfpo, struct cfextra *entry, int rmflag, char *myclass,
		int *dbchg)
{
	struct pinfo *pinfo;
	int	fs_entry;
	char	*save_path = NULL;
	char	*tp;

	if (myclass && strcmp(myclass, entry->cf_ent.pkg_class)) {
		/*
		 * We already have it in the database we don't want
		 * to modify it.
		 */
		return (NULL);
	}

	/*
	 * Now scan each package instance holding this file or
	 * directory and see if it matches the package we are
	 * updating here.
	 */
	pinfo = entry->cf_ent.pinfo;
	while (pinfo) {
		if (strcmp(pkginst, pinfo->pkg) == 0)
			break;
		pinfo = pinfo->next;
	}

	/*
	 * If pinfo == NULL at this point, then this file or
	 * directory isn't part of the package of interest.
	 * So the code below executes only on files in the package
	 * of interest.
	 */

	if (pinfo == NULL)
		return (NULL);

	if (rmflag && (pinfo->status == RM_RDY)) {
		*dbchg = 1;

		(void) eptstat(&(entry->cf_ent), pkginst, '@');

		if (entry->cf_ent.npkgs) {
			if (putcvfpfile(&(entry->cf_ent), vfpo)) {
				progerr(gettext(ERR_WRITE));
				quit(99);
			}
		} else if (entry->cf_ent.path != NULL) {
			(void) vfpSetModified(vfpo);
			/* add "-<path>" to the file */
			vfpPutc(vfpo, '-');
			vfpPuts(vfpo, entry->cf_ent.path);
			vfpPutc(vfpo, '\n');
		}
		return (NULL);

	} else if (!rmflag && (pinfo->status == INST_RDY)) {
		*dbchg = 1;

		/* tp is the server-relative path */
		tp = fixpath(entry->cf_ent.path);
		/* save_path is the cmd line path */
		save_path = entry->cf_ent.path;
		/* entry has the server-relative path */
		entry->cf_ent.path = tp;

		/*
		 * The next if statement figures out how
		 * the contents file entry should be
		 * annotated.
		 *
		 * Don't install or verify objects for
		 * remote, read-only filesystems.  We
		 * need only verify their presence and
		 * flag them appropriately from some
		 * server. Otherwise, ok to do final
		 * check.
		 */
		fs_entry = fsys(entry->cf_ent.path);

		if (is_remote_fs_n(fs_entry) && !is_fs_writeable_n(fs_entry)) {
			/*
			 * Mark it shared whether it's present
			 * or not. life's too funny for me
			 * to explain.
			 */
			pinfo->status = SERVED_FILE;

			/*
			 * restore for now. This may
			 * chg soon.
			 */
			entry->cf_ent.path = save_path;
		} else {
			/*
			 * If the object is accessible, check
			 * the new entry for existence and
			 * attributes. If there's a problem,
			 * mark it NOT_FND; otherwise,
			 * ENTRY_OK.
			 */
			if (is_mounted_n(fs_entry)) {
				int	n;

				n = finalck((&entry->cf_ent), 1, 1, B_FALSE);

				pinfo->status = ENTRY_OK;
				if (n != 0) {
					pinfo->status = NOT_FND;
				}
			}

			/*
			 * It's not remote, read-only but it
			 * may look that way to the client.
			 * If it does, overwrite the above
			 * result - mark it shared.
			 */
			if (is_served_n(fs_entry))
				pinfo->status = SERVED_FILE;

			/* restore original path */
			entry->cf_ent.path = save_path;
			/*   and clear save_path */
			save_path = NULL;
		}
	}

	/* Output entry to contents file. */
	if (putcvfpfile(&(entry->cf_ent), vfpo)) {
		progerr(gettext(ERR_WRITE));
		quit(99);
	}

	return (save_path);
}