/*
 * 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 (c) 1989, 2010, Oracle and/or its affiliates. All rights reserved.
 */

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


#include <stdio.h>
#include <limits.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <fcntl.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <signal.h>
#include <errno.h>
#include <assert.h>
#include <pkgdev.h>
#include <pkginfo.h>
#include <pkglocs.h>
#include <locale.h>
#include <libintl.h>
#include <instzones_api.h>
#include <pkglib.h>
#include <install.h>
#include <libinst.h>
#include <libadm.h>
#include <messages.h>

static char *localeNames[] = {
        "LC_CTYPE",
        "LC_NUMERIC",
        "LC_TIME",
        "LC_COLLATE",
        "LC_MESSAGES",
        "LC_MONETARY",
        "LC_ALL",
        "LANG",
        "TZ",
        NULL
};

#define NUM_LOCALE_TYPES        100

static char     *envPtr[NUM_LOCALE_TYPES];

/*
 * extern declarations
 */

extern char     **environ;

/*
 * this is the initial and incremental allocation used to
 * populate the environment "environ"
 */

#define MALSIZ  64

void
putparam(char *param, char *value)
{
        char    *pt;
        int     ptlen;
        int     i, n;

        /*
         * If the environment is NULL, allocate space for the
         * character pointers.
         */
        if (environ == NULL) {
                environ = (char **)calloc(MALSIZ, sizeof (char *));
                if (environ == NULL) {
                        progerr(gettext(ERR_MEMORY), errno);
                        quit(99);
                }
        }

        /*
         * If this parameter is already in place and it has a different
         * value, clear the old value by freeing the memory previously
         * allocated. Otherwise, we leave well-enough alone.
         */
        n = strlen(param);
        for (i = 0; environ[i]; i++) {
                if (strncmp(environ[i], param, n) == 0 &&
                    (environ[i][n] == '=')) {
                        if (strcmp((environ[i]) + n + 1, value) == 0)
                                return;
                        else {
                                free(environ[i]);
                                break;
                        }
                }
        }

        /* Allocate space for the new environment entry. */
        ptlen = (strlen(param)+strlen(value)+2)*(sizeof (char));
        pt = (char *)calloc(strlen(param)+strlen(value)+2, sizeof (char));
        if (pt == NULL) {
                progerr(gettext(ERR_MEMORY), errno);
                quit(99);
        }

        /*
         * Put the statement into the allocated space and point the
         * environment entry at it.
         */
        (void) snprintf(pt, ptlen, "%s=%s", param, value);
        if (environ[i]) {
                environ[i] = pt;
                return;
        }

        /*
         * With this parameter in place, if we're at the end of the
         * allocated environment then allocate more space.
         */
        environ[i++] = pt;
        if ((i % MALSIZ) == 0) {
                environ = (char **)realloc((void *)environ,
                        (i+MALSIZ)*sizeof (char *));
                if (environ == NULL) {
                        progerr(gettext(ERR_MEMORY), errno);
                        quit(1);
                }
        }

        /* Terminate the environment properly. */
        environ[i] = (char *)NULL;
}

/* bugid 4279039 */
void
getuserlocale(void)
{
        int i;

        for (i = 0; (localeNames[i] != NULL) && (i < NUM_LOCALE_TYPES); i++) {
                envPtr[i] = getenv(localeNames[i]);
                if (envPtr[i]) {
                        putparam(localeNames[i], envPtr[i]);
                }
        }
}

/* bugid 4279039 */
void
putuserlocale(void)
{
        int i;

        for (i = 0; (localeNames[i] != NULL) && (i < NUM_LOCALE_TYPES); i++) {
                if (envPtr[i]) {
                        putparam(localeNames[i], envPtr[i]);
                }
        }
}

/*
 * Name:        putConditionInfo
 * Description: put parent "condition" information to environment
 * Arguments:   a_parentZoneName - name of the parent zone
 *                      == NULL - no name
 *              a_parentZoneType - parent zone "type"
 *                      == NULL - no type
 * Returns:     void
 */

void
putConditionInfo(char *a_parentZoneName, char *a_parentZoneType)
{
        char    *p;
        char    *pa;
        SML_TAG *tag = SML_TAG__NULL;
        SML_TAG *ntag;

        /* entry debugging info */

        echoDebug(DBG_PUTPARAM_PUTCONDINFO_ENTRY);

        /*
         * create tag to hold condition information:
         * <environmentConditionInformation>
         * <parentZone zoneName=<?> zoneType=<?>/>
         * <currentZone zoneName=<?> zoneType=<?>/>
         * </environmentConditionInformation>
         */

        tag = smlNewTag(TAG_COND_TOPLEVEL);

        /*
         * information about pkgadd or pkgrm environment
         * <parentZone zoneName=<?> zoneType=<?>/>
         */

        /* allocate tag for parent info */

        ntag = smlNewTag(TAG_COND_PARENT_ZONE);

        /* parent zone name */

        smlSetParam(ntag, TAG_COND_ZONE_NAME,
                a_parentZoneName ? a_parentZoneName : "");

        /* parent zone info */

        smlSetParam(ntag, TAG_COND_ZONE_TYPE,
                a_parentZoneType ? a_parentZoneType : "");

        /* add to top level tag */

        (void) smlAddTag(&tag, -1, ntag);
        free(ntag);

        /*
         * information about pkginstall or pkgremove environment
         * <currentZone zoneName=<?> zoneType=<?>/>
         */

        /* allocate tag for parent info */

        ntag = smlNewTag(TAG_COND_CURRENT_ZONE);

        /* current zone name */

        p = z_get_zonename();
        if ((p != NULL) && (*p != '\0')) {
                smlSetParam(ntag, TAG_COND_ZONE_NAME, p);
                free(p);
        }

        /* current zone type */

        smlSetParam(ntag, TAG_COND_ZONE_TYPE,
                z_running_in_global_zone() == B_TRUE ?
                        TAG_VALUE_GLOBAL_ZONE : TAG_VALUE_NONGLOBAL_ZONE);

        /* add to top level tag */

        (void) smlAddTag(&tag, -1, ntag);
        free(ntag);

        /*
         * done filling in tag - convert to string and place in environment
         */

        p = smlConvertTagToString(tag);

        /* convert all new-line characters to space */

        for (pa = p; *pa != '\0'; pa++) {
                if (*pa == '\n') {
                        *pa = ' ';
                }
        }

        echoDebug(DBG_PUTPARAM_PUTCONDINFO_EXIT, p);

        putparam(PKGCOND_GLOBAL_VARIABLE, p);
}