/*
 * 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.
 */


/*
 * Wrapper function to implement reboot w/ arguments on x86
 * platforms. Extract reboot arguments and place them in
 * in a transient entry in /[stub]boot/grub/menu.lst
 * All other commands are passed through.
 */
#include "lint.h"
#include "mtlib.h"
#include <fcntl.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/uadmin.h>
#include <unistd.h>
#include <strings.h>
#include <pthread.h>
#include <zone.h>
#include <libscf.h>
#include <thread.h>
#include <dlfcn.h>
#include <atomic.h>

/*
 * Pull in the following three interfaces from libscf without introducing
 * a dependency on it, which since libscf depends on libc would be circular:
 *
 * scf_simple_prop_get
 * scf_simple_prop_next_boolean
 * scf_simple_prop_free
 */
typedef scf_simple_prop_t *(*scf_simple_prop_get_t)(scf_handle_t *,
    const char *, const char *, const char *);
static scf_simple_prop_get_t real_scf_simple_prop_get = NULL;
typedef uint8_t *(*scf_simple_prop_next_boolean_t)(scf_simple_prop_t *);
static scf_simple_prop_next_boolean_t real_scf_simple_prop_next_boolean = NULL;
typedef void (*scf_simple_prop_free_t)(scf_simple_prop_t *);
static scf_simple_prop_free_t real_scf_simple_prop_free = NULL;
static mutex_t scf_lock = DEFAULTMUTEX;

static void
load_scf(void)
{
	void *scf_handle = dlopen("libscf.so.1", RTLD_LAZY);
	scf_simple_prop_get_t scf_simple_prop_get = (scf_handle == NULL)? NULL :
	    (scf_simple_prop_get_t)dlsym(scf_handle, "scf_simple_prop_get");
	scf_simple_prop_next_boolean_t scf_simple_prop_next_boolean =
	    (scf_handle == NULL)? NULL :
	    (scf_simple_prop_next_boolean_t)dlsym(scf_handle,
	    "scf_simple_prop_next_boolean");
	scf_simple_prop_free_t scf_simple_prop_free =
	    (scf_handle == NULL)? NULL :
	    (scf_simple_prop_free_t)dlsym(scf_handle, "scf_simple_prop_free");

	lmutex_lock(&scf_lock);
	if (real_scf_simple_prop_get == NULL ||
	    real_scf_simple_prop_next_boolean == NULL ||
	    real_scf_simple_prop_free == NULL) {
		if (scf_simple_prop_get == NULL)
			real_scf_simple_prop_get = (scf_simple_prop_get_t)(-1);
		else {
			real_scf_simple_prop_get = scf_simple_prop_get;
			scf_handle = NULL;	/* don't dlclose it */
		}
		if (scf_simple_prop_next_boolean == NULL)
			real_scf_simple_prop_next_boolean =
			    (scf_simple_prop_next_boolean_t)(-1);
		else {
			real_scf_simple_prop_next_boolean =
			    scf_simple_prop_next_boolean;
			scf_handle = NULL;	/* don't dlclose it */
		}
		if (scf_simple_prop_free == NULL)
			real_scf_simple_prop_free =
			    (scf_simple_prop_free_t)(-1);
		else {
			real_scf_simple_prop_free = scf_simple_prop_free;
			scf_handle = NULL;	/* don't dlclose it */
		}
		membar_producer();
	}
	lmutex_unlock(&scf_lock);

	if (scf_handle)
		(void) dlclose(scf_handle);
}

static void
check_archive_update(void)
{
	scf_simple_prop_t *prop = NULL;
	boolean_t update_flag = B_FALSE;
	char *fmri = "svc:/system/boot-config:default";
	uint8_t *ret_val = NULL;

	if (real_scf_simple_prop_get == NULL ||
	    real_scf_simple_prop_next_boolean == NULL ||
	    real_scf_simple_prop_free == NULL) {
		load_scf();
	}
	if (real_scf_simple_prop_get == (scf_simple_prop_get_t)(-1) ||
	    real_scf_simple_prop_next_boolean ==
	    (scf_simple_prop_next_boolean_t)(-1) ||
	    real_scf_simple_prop_free == (scf_simple_prop_free_t)(-1)) {
		return;
	}

	prop = real_scf_simple_prop_get(NULL, fmri, "config",
	    "uadmin_boot_archive_sync");
	if (prop) {
		if ((ret_val = real_scf_simple_prop_next_boolean(prop)) !=
		    NULL)
			update_flag = (*ret_val == 0) ? B_FALSE :
			    B_TRUE;
		real_scf_simple_prop_free(prop);
	}

	if (update_flag == B_TRUE)
		(void) system("/sbin/bootadm update-archive");
}

static int
legal_arg(char *bargs)
{
	int i;

	for (i = 0; i < BOOTARGS_MAX; i++, bargs++) {
		if (*bargs == 0 && i > 0)
			return (i);
		if (!isprint(*bargs))
			break;
	}
	return (-1);
}

static char quote[] = "\'";

int
uadmin(int cmd, int fcn, uintptr_t mdep)
{
	extern int __uadmin(int cmd, int fcn, uintptr_t mdep);
	char *bargs, cmdbuf[256];
	struct stat sbuf;
	char *altroot;

	bargs = (char *)mdep;

	if (geteuid() == 0 && getzoneid() == GLOBAL_ZONEID &&
	    (cmd == A_SHUTDOWN || cmd == A_REBOOT)) {
		int off = 0;

		switch (fcn) {
		case AD_IBOOT:
		case AD_SBOOT:
		case AD_SIBOOT:
			/*
			 * These functions fabricate appropriate bootargs.
			 * If bootargs are passed in, map these functions
			 * to AD_BOOT.
			 */
			if (bargs == 0) {
				switch (fcn) {
				case AD_IBOOT:
					bargs = "-a";
					break;
				case AD_SBOOT:
					bargs = "-s";
					break;
				case AD_SIBOOT:
					bargs = "-sa";
					break;
				}
			}
			/*FALLTHROUGH*/
		case AD_BOOT:
		case AD_FASTREBOOT:
			if (bargs == 0)
				break;	/* no args */
			if (legal_arg(bargs) < 0)
				break;	/* bad args */

			/* avoid cancellation in system() */
			(void) pthread_setcancelstate(PTHREAD_CANCEL_DISABLE,
			    NULL);

			/* check for /stubboot */
			if (stat("/stubboot/boot/grub/menu.lst", &sbuf) == 0) {
				altroot = "-R /stubboot ";
			} else {
				altroot = "";
			}

			if (fcn == AD_FASTREBOOT) {
				char *newarg, *head;
				char bargs_scratch[BOOTARGS_MAX];

				bzero(bargs_scratch, BOOTARGS_MAX);

				bcopy(bargs, bargs_scratch, strlen(bargs));
				head = bargs_scratch;
				newarg = strtok(bargs_scratch, " ");

				if (newarg == NULL || newarg[0] == '-')
					break;

				/* First argument is rootdir */
				if (strncmp(&newarg[strlen(newarg)-4],
				    "unix", 4) != 0) {
					newarg = strtok(NULL, " ");
					off = newarg - head;
				}

				/*
				 * If we are using alternate root via
				 * mountpoint or a different BE, don't
				 * bother to update the temp menu entry.
				 */
				if (off > 0)
					break;
			}

			/* are we rebooting to a GRUB menu entry? */
			if (isdigit(bargs[0])) {
				int entry = strtol(bargs, NULL, 10);
				(void) snprintf(cmdbuf, sizeof (cmdbuf),
				    "/sbin/bootadm set-menu %sdefault=%d",
				    altroot, entry);
			} else {
				(void) snprintf(cmdbuf, sizeof (cmdbuf),
				    "/sbin/bootadm -m update_temp %s"
				    "-o %s%s%s", altroot, quote,
				    &bargs[off], quote);
			}
			(void) system(cmdbuf);
		}
		check_archive_update();
	}
	return (__uadmin(cmd, fcn, mdep));
}