/*

 * 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) 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 <signal.h>

#include <errno.h>

#include <fcntl.h>

#include <sys/stat.h>

#include <sys/types.h>

#include <pkgstrct.h>

#include <pkginfo.h>

#include <pkglocs.h>

#include <locale.h>

#include <libintl.h>

#include <assert.h>

#include <cfext.h>

#include <instzones_api.h>

#include <pkglib.h>

#include <install.h>

#include <libinst.h>

#include <libadm.h>

#include <messages.h>

struct cfent **eptlist;

extern int	eptnum;

extern char	*pkgdir;

extern char	**environ;

/* quit.c */

extern sighdlrFunc_t	*quitGetTrapHandler(void);

extern void		quitSetSilentExit(boolean_t a_silentExit);

extern void		quitSetZoneName(char *a_zoneName);

/* check.c */

extern void	rcksetPreremoveCheck(boolean_t);

extern void	rcksetZoneName(char *);

extern int	rckpriv(void);

extern int	rckdepend(void);

extern int	rckrunlevel(void);

/* predepend.c */

extern void	predepend(char *oldpkg);

/* delmap.c */

extern int delmap(int flag, char *pkginst, PKGserver *server, VFP_T **tfp);

#define	DEFPATH		"/sbin:/usr/sbin:/usr/bin"

#ifdef	ALLOW_EXCEPTION_PKG_LIST

#define	SCRIPT	0	/* Tells exception_pkg() which pkg list to use */

#define	LINK	1

#endif

#if !defined(TEXT_DOMAIN)	/* Should be defined by cc -D */

#define	TEXT_DOMAIN "SYS_TEST"

#endif

/* This is the text for the "-O parent-zone-name=" option */

#define	PARENTZONENAME	"parent-zone-name="

#define	PARENTZONENAME_LEN	((sizeof (PARENTZONENAME))-1)

/* This is the text for the "-O parent-zone-type=" option */

#define	PARENTZONETYPE	"parent-zone-type="

#define	PARENTZONETYPE_LEN	((sizeof (PARENTZONETYPE))-1)

struct	admin adm; 	/* holds info about installation admin */

int	dreboot; 	/* non-zero if reboot required after installation */

int	ireboot;	/* non-zero if immediate reboot required */

int	failflag;	/* non-zero if fatal error has occurred */

int	warnflag;	/* non-zero if non-fatal error has occurred */

int	pkgverbose;	/* non-zero if verbose mode is selected */

int	started;

int	nocnflct = 0; 	/* pkgdbmerg needs this defined */

int	nosetuid = 0; 	/* pkgdbmerg needs this defined */

char	*pkginst; 	/* current package (source) instance to process */

int	dbchg;

char	*msgtext;

char	pkgloc[PATH_MAX];

/*

 * The following variable is the name of the device to which stdin

 * is connected during execution of a procedure script. /dev/null is

 * correct for all ABI compliant packages. For non-ABI-compliant

 * packages, the '-o' command line switch changes this to /dev/tty

 * to allow user interaction during these scripts. -- JST

 */

static char 	*script_in = PROC_STDIN;	/* assume ABI compliance */

static char	*client_mntdir; 	/* mount point for client's basedir */

static char	pkgbin[PATH_MAX],

		rlockfile[PATH_MAX],

		*admnfile, 		/* file to use for installation admin */

		*tmpdir; 		/* location to place temporary files */

static boolean_t	path_valid(char *path);

static void		ckreturn(int retcode, char *msg);

static void		rmclass(char *aclass, int rm_remote, char *a_zoneName);

static void		usage(void);

/*

 * Set by -O debug: debug output is enabled?

 */

static boolean_t	debugFlag = B_FALSE;

/*

 * Set by -O preremovecheck: do remove dependency checking only

 */

static boolean_t	preremoveCheck = B_FALSE;

/* Set by -O parent-zone-name= */

static char		*parentZoneName = (char *)NULL;

/* Set by -O parent-zone-type= */

static char		*parentZoneType = (char *)NULL;

static int	nointeract;	/* != 0 no interaction with user should occur */

int

main(int argc, char *argv[])

{

	FILE		*fp;

	char		*abi_comp_ptr;

	char		*abi_sym_ptr;

	char		*p;

	char		*prog_full_name = NULL;

	char		*pt;

	char		*value;

	char		*vfstab_file = NULL;

	char		*zoneName = (char *)NULL;

	char		cmdbin[PATH_MAX];

	char		param[MAX_PKG_PARAM_LENGTH];

	char		path[PATH_MAX];

	char		script[PATH_MAX];

	int		c;

	int		err;

	int		fd;

	int		i;

	int		map_client = 1;

	int		n;

	int		nodelete = 0; 	/* do not delete file or run scripts */

	int		pkgrmremote = 0;	/* dont remove remote objects */

	struct sigaction	nact;

	struct sigaction	oact;

	PKGserver	pkgserver = NULL;

	VFP_T		*tmpfp;

	/* reset contents of all default paths */

	(void) memset(cmdbin, '\0', sizeof (cmdbin));

	/* initialize locale environment */

	(void) setlocale(LC_ALL, "");

	(void) textdomain(TEXT_DOMAIN);

	/* initialize program name */

	prog_full_name = argv[0];

	(void) set_prog_name(argv[0]);

	/* tell spmi zones interface how to access package output functions */

	z_set_output_functions(echo, echoDebug, progerr);

	/* exit if not root */

	if (getuid()) {

		progerr(ERR_NOT_ROOT, get_prog_name());

		exit(1);

		/* NOTREACHED */

	}

	/* Read PKG_INSTALL_ROOT from the environment, if it's there. */

	if (!set_inst_root(getenv("PKG_INSTALL_ROOT"))) {

		progerr(ERR_ROOT_SET);

		exit(1);

	}

	pkgserversetmode(DEFAULTMODE);

	/* parse command line options */

	while ((c = getopt(argc, argv, "?Aa:b:FMN:nO:oR:V:vy")) != EOF) {

		switch (c) {

		/*

		 * Same as pkgrm: Allow admin to remove package objects from

		 * a shared area from a reference client.

		 */

		case 'A':

		    pkgrmremote++;

		    break;

		/*

		 * Same as pkgrm: Use the installation

		 * administration file, admin, in place of the

		 * default admin file. pkgrm first looks in the

		 * current working directory for the administration

		 * file.  If the specified administration file is not

		 * in the current working directory, pkgrm looks in

		 * the /var/sadm/install/admin directory for the

		 * administration file.

		 */

		case 'a':

		    admnfile = flex_device(optarg, 0);

		    break;

		/*

		 * Same as pkgrm: location where package executables

		 * can be found - default is /usr/sadm/install/bin.

		 */

		case 'b':

			if (!path_valid(optarg)) {

				progerr(ERR_PATH, optarg);

				exit(1);

			}

			if (isdir(optarg) != 0) {

				char *p = strerror(errno);

				progerr(ERR_CANNOT_USE_DIR, optarg, p);

				exit(1);

			}

			(void) strlcpy(cmdbin, optarg, sizeof (cmdbin));

			break;

		/*

		 * Same as pkgrm: suppresses the removal of any

		 * files and any class action scripts, and suppresses

		 * the running of any class action scripts.  The

		 * package files remain but the package looks like it

		 * is not installed. This is mainly for use by the

		 * upgrade process.

		 */

		case 'F':

		    nodelete++;

		    break;

		/*

		 * Same as pkgrm: Instruct pkgrm not to use the

		 * $root_path/etc/vfstab file for determining the

		 * client's mount points. This option assumes the

		 * mount points are correct on the server and it

		 * behaves consistently with Solaris 2.5 and earlier

		 * releases.

		 */

		case 'M':

		    map_client = 0;

		    break;

		/*

		 * Different from pkgrm: specify program name to use

		 * for messages.

		 */

		case 'N':

		    (void) set_prog_name(optarg);

		    break;

		/*

		 * Same as pkgrm: package removal occurs in

		 * non-interactive mode.  Suppress output of the list of

		 * removed files. The default mode is interactive.

		 */

		case 'n':

		    nointeract++;

		    (void) echoSetFlag(B_FALSE);

		    break;

		/*

		 * Almost same as pkgrm: the -O option allows the behavior

		 * of the package tools to be modified. Recognized options:

		 * -> debug

		 * ---> enable debugging output

		 * -> preremovecheck

		 * ---> perform a "pre removal" check of the specified

		 * ---> package - suppress all regular output and cause a

		 * ---> series of one or more "name=value" pair format lines

		 * ---> to be output that describes the "removability" of

		 * ---> the specified package

		 * -> enable-hollow-package-support

		 * --> Enable hollow package support. When specified, for any

		 * --> package that has SUNW_PKG_HOLLOW=true:

		 * --> Do not calculate and verify package size against target

		 * --> Do not run any package procedure or class action scripts

		 * --> Do not create or remove any target directories

		 * --> Do not perform any script locking

		 * --> Do not install or uninstall any components of any package

		 * --> Do not output any status or database update messages

		 */

		case 'O':

			for (p = strtok(optarg, ","); p != (char *)NULL;

				p = strtok(NULL, ",")) {

				/* process debug option */

				if (strcmp(p, "debug") == 0) {

					/* set debug flag/enable debug output */

					debugFlag = B_TRUE;

					(void) echoDebugSetFlag(debugFlag);

					/* debug info on arguments to pkgadd */

					for (n = 0; n < argc && argv[n]; n++) {

						echoDebug(DBG_ARG, n, argv[n]);

					}

					continue;

				}

				/* process enable-hollow-package-support opt */

				if (strcmp(p,

					"enable-hollow-package-support") == 0) {

					set_depend_pkginfo_DB(B_TRUE);

					continue;

				}

				/* process preremovecheck option */

				if (strcmp(p, "preremovecheck") == 0) {

					preremoveCheck = B_TRUE;

					nointeract++;	/* -n */

					nodelete++;	/* -F */

					quitSetSilentExit(B_TRUE);

					continue;

				}

				/* process addzonename option */

				if (strcmp(p, "addzonename") == 0) {

					zoneName = z_get_zonename();

					quitSetZoneName(zoneName);

					continue;

				}

				/* process parent-zone-name option */

				if (strncmp(p, PARENTZONENAME,

						PARENTZONENAME_LEN) == 0) {

					parentZoneName = p+PARENTZONENAME_LEN;

					continue;

				}

				/* process parent-zone-type option */

				if (strncmp(p, PARENTZONETYPE,

						PARENTZONETYPE_LEN) == 0) {

					parentZoneType = p+PARENTZONETYPE_LEN;

					continue;

				}

				if (strncmp(p, PKGSERV_MODE,

				    PKGSERV_MODE_LEN) == 0) {

					pkgserversetmode(pkgparsemode(p +

					    PKGSERV_MODE_LEN));

					continue;

				}

				/* option not recognized - issue warning */

				progerr(ERR_INVALID_O_OPTION, p);

				continue;

			}

			break;

		/*

		 * Different from pkgrm: This is an old non-ABI package

		 */

		case 'o':

		    script_in = PROC_XSTDIN;

		    break;

		/*

		 * Same as pkgrm: defines the full path name of a

		 * directory to use as the root_path.  All files,

		 * including package system information files, are

		 * relocated to a directory tree starting in the

		 * specified root_path.

		 */

		case 'R':

		    if (!set_inst_root(optarg)) {

			    progerr(ERR_ROOT_CMD);

			    exit(1);

		    }

		    break;

		/*

		 * Same as pkgrm: allow admin to establish the client

		 * filesystem using a vfstab-like file of stable format.

		 */

		case 'V':

		    vfstab_file = flex_device(optarg, 2);

		    map_client = 1;

		    break;

		/*

		 * Same as pkgrm: trace all of the scripts that

		 * get executed by pkgrm, located in the

		 * pkginst/install directory. This option is used for

		 * debugging the procedural and non-procedural

		 * scripts.

		 */

		case 'v':

		    pkgverbose++;

		    break;

		/*

		 * Different from pkgrm: process this package using

		 * old non-ABI symlinks

		 */

		case 'y':

		    set_nonABI_symlinks();

		    break;

		default:

		    usage();

		    /*NOTREACHED*/

		    /*

		     * Although usage() calls a noreturn function,

		     * needed to add return (1);  so that main() would

		     * pass compilation checks. The statement below

   		     * should never be executed.

		     */

		    return (1);

		}

	}

	/*

	 * ********************************************************************

	 * validate command line options

	 * ********************************************************************

	 */

	(void) echoDebugSetFlag(debugFlag);

	(void) log_set_verbose(debugFlag);

	if (z_running_in_global_zone()) {

		echoDebug(DBG_ENTRY_IN_GZ, prog_full_name);

	} else {

		echoDebug(DBG_ENTRY_IN_LZ, prog_full_name, getzoneid(),

			z_get_zonename());

	}

	/* establish cmdbin path */

	if (cmdbin[0] == '\0') {

		(void) strlcpy(cmdbin, PKGBIN, sizeof (cmdbin));

	}

	/* Read the mount table */

	if (get_mntinfo(map_client, vfstab_file)) {

		quit(99);

	}

	/*

	 * This function defines the standard /var/... directories used later

	 * to construct the paths to the various databases.

	 */

	set_PKGpaths(get_inst_root());

	/*

	 * If this is being removed from a client whose /var filesystem is

	 * mounted in some odd way, remap the administrative paths to the

	 * real filesystem. This could be avoided by simply mounting up the

	 * client now; but we aren't yet to the point in the process where

	 * modification of the filesystem is permitted.

	 */

	if (is_an_inst_root()) {

		int fsys_value;

		fsys_value = fsys(get_PKGLOC());

		if (use_srvr_map_n(fsys_value))

			set_PKGLOC(server_map(get_PKGLOC(), fsys_value));

		fsys_value = fsys(get_PKGADM());

		if (use_srvr_map_n(fsys_value))

			set_PKGADM(server_map(get_PKGADM(), fsys_value));

	} else {

		pkgrmremote = 0;	/* Makes no sense on local host. */

	}

	/*

	 * hook SIGINT and SIGHUP interrupts into quit.c's trap handler

	 */

	/* hold SIGINT/SIGHUP interrupts */