/*
 * 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 <libadm.h>
#include <libinst.h>

extern int      dbchg, warnflag, otherstoo;
extern char     *pkginst;

#define EPTMALLOC       128

#define ERR_WRENT       "write of entry failed, errno=%d"
#define ERR_MEMORY      "no memory, errno=%d"
#define ERR_READ_C      "bad read of contents file"
#define ERR_READ_DB     "bad read of the database"

extern struct cfent     **eptlist;
extern int      eptnum;

int
delmap(int flag, char *pkginst, PKGserver *pkgserver, VFP_T **tmpfp)
{
        struct cfent    *ept;
        struct pinfo    *pinfo;
        int             n;
        char            *unknown = "Unknown";


        if (!ocfile(pkgserver, tmpfp, 0L) ||
            pkgopenfilter(*pkgserver, pkginst) != 0) {
                quit(99);
        }

        /* re-use any memory used to store pathnames */
        (void) pathdup(NULL);

        if (eptlist != NULL)
                free(eptlist);
        eptlist = (struct cfent **)calloc(EPTMALLOC,
                                        sizeof (struct cfent *));
        if (eptlist == NULL) {
                progerr(gettext(ERR_MEMORY), errno);
                quit(99);
        }

        ept = (struct cfent *)calloc(1,
                                (unsigned)sizeof (struct cfent));
        if (!ept) {
                progerr(gettext(ERR_MEMORY), errno);
                quit(99);
        }

        eptnum = 0;
        while (n = srchcfile(ept, "*", *pkgserver)) {
                if (n < 0) {
                        char    *errstr = getErrstr();
                        progerr(gettext("bad read of contents file"));
                        progerr(gettext("pathname=%s"),
                                (ept->path && *ept->path) ? ept->path :
                                unknown);
                        progerr(gettext("problem=%s"),
                                (errstr && *errstr) ? errstr : unknown);
                        exit(99);
                }
                pinfo = eptstat(ept, pkginst, (flag ? '@' : '-'));
                if (ept->npkgs > 0) {
                        if (putcvfpfile(ept, *tmpfp)) {
                                progerr(gettext(ERR_WRENT), errno);
                                quit(99);
                        }
                } else if (ept->path != NULL) {
                        (void) vfpSetModified(*tmpfp);
                        /* add "-<path>" to the file */
                        vfpPutc(*tmpfp, '-');
                        vfpPuts(*tmpfp, ept->path);
                        vfpPutc(*tmpfp, '\n');
                }

                if (flag || (pinfo == NULL))
                        continue;

                dbchg++;

                /*
                 * If (otherstoo > 0), more than one package has an
                 * interest in the ept entry in the database. Setting
                 * ept->ftype = '\0' effectively marks the file as being
                 * "shared", thus ensuring the ept entry will not
                 * subsequently be removed. Shared editable files (ftype
                 * 'e') are a special case: they should be passed to a
                 * class action script if present. Setting ept->ftype =
                 * '^' indicates this special case of shared editable
                 * file, allowing the distinction to be made later.
                 */
                if (!pinfo->editflag && otherstoo)
                        ept->ftype = (ept->ftype == 'e') ? '^' : '\0';
                if (*pinfo->aclass)
                        (void) strcpy(ept->pkg_class, pinfo->aclass);
                eptlist[eptnum] = ept;

                ept->path = pathdup(ept->path);
                if (ept->ainfo.local != NULL)
                        ept->ainfo.local = pathdup(ept->ainfo.local);

                ept = (struct cfent *)calloc(1, sizeof (struct cfent));
                if ((++eptnum % EPTMALLOC) == 0) {
                        eptlist = (struct cfent **)realloc(eptlist,
                        (eptnum+EPTMALLOC)*sizeof (struct cfent *));
                        if (eptlist == NULL) {
                                progerr(gettext(ERR_MEMORY), errno);
                                quit(99);
                        }
                }
        }

        eptlist[eptnum] = (struct cfent *)NULL;

        n = swapcfile(*pkgserver, tmpfp, pkginst, dbchg);
        if (n == RESULT_WRN) {
                warnflag++;
        } else if (n == RESULT_ERR) {
                quit(99);
        }

        return (0);
}