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

#include <syslog.h>
#include <errno.h>
#include <unistd.h>
#include <stropts.h>

#include "mp_utils.h"

#include <libdevinfo.h>

/*
 * Checks whether there is online path or not.
 *  - no path found returns -1.
 *  - online/standby path found returns 1.
 *  - path exists but no online/standby path found returns 0.
 */
static int checkAvailablePath(di_node_t node)
{
	di_path_t path;
	di_path_state_t state;

	if ((path = di_path_client_next_path(node, DI_PATH_NIL))
	    == DI_PATH_NIL) {
		log(LOG_INFO, "checkAvailalblePath()",
		    " - No path found");
		return (-1);
	}

	do {
		/* ignore the path that is neither online nor standby. */
		if (((state = di_path_state(path)) == DI_PATH_STATE_ONLINE) ||
		    (state == DI_PATH_STATE_STANDBY)) {
			return (1);
		}
	} while ((path = di_path_client_next_path(node, path)) != DI_PATH_NIL);

	/* return 0 for the case that there is no online path to the node. */
	log(LOG_INFO, "checkAvailalblePath()", " - No online path found");
	return (0);
}

static int getOidList(di_node_t root_node, MP_OID_LIST *pOidList)
{
	int numNodes = 0, state;

	int instNum;
	int majorNum;
	MP_UINT64 osn;

	di_node_t sv_node	= DI_NODE_NIL;
	di_node_t sv_child_node = DI_NODE_NIL;

	int haveList = (NULL != pOidList);


	log(LOG_INFO, "getOidList()", " - enter");


	sv_node = di_drv_first_node("scsi_vhci", root_node);
	if (DI_NODE_NIL == sv_node) {
		log(LOG_INFO, "getOidList()",
		    " - di_drv_first_node() failed");

		return (-1);
	}

	sv_child_node = di_child_node(sv_node);

	while (DI_NODE_NIL != sv_child_node) {

		/* skip the node which is offline, down or detached. */
		state = di_state(sv_child_node);
		if ((state & DI_DEVICE_DOWN) ||
		    (state & DI_DEVICE_OFFLINE)) {
			sv_child_node = di_sibling_node(sv_child_node);
			continue;
		}

		/*
		 * skip if the node doesn't have any path avaialble.
		 * If any path is found from the DINFOCACHE snaphost
		 * that means the driver keeps track of the path regadless
		 * of state.
		 */
		if (checkAvailablePath(sv_child_node) == -1) {
			sv_child_node = di_sibling_node(sv_child_node);
			continue;
		}

		if (haveList && (numNodes < pOidList->oidCount)) {
			instNum = di_instance(sv_child_node);
			majorNum = di_driver_major(sv_child_node);

			log(LOG_INFO, "getOidList()",
			    "instNum = %d", instNum);
			log(LOG_INFO, "getOidList()",
			    "majorNum = %d", majorNum);

			osn = 0;
			osn = MP_STORE_INST_TO_ID(instNum, osn);
			osn = MP_STORE_MAJOR_TO_ID(majorNum, osn);

			pOidList->oids[numNodes].objectType =
			    MP_OBJECT_TYPE_MULTIPATH_LU;

			pOidList->oids[numNodes].ownerId =
			    g_pluginOwnerID;

			pOidList->oids[numNodes].objectSequenceNumber =
			    osn;
		}

		++numNodes;

		sv_child_node = di_sibling_node(sv_child_node);
	}

	log(LOG_INFO,
	    "getOidList()",
	    " - numNodes: %d",
	    numNodes);



	log(LOG_INFO, "getOidList()", " - exit");

	return (numNodes);
}


MP_STATUS
MP_GetMultipathLusPlugin(MP_OID_LIST **ppList)
{
	di_node_t root_node	= DI_NODE_NIL;
	MP_OID_LIST *pOidList   = NULL;

	int numNodes = 0;
	int i = 0;

	log(LOG_INFO, "MP_GetMultipathLusPlugin()", " - enter");


	root_node = di_init("/", DINFOCACHE);
	if (DI_NODE_NIL == root_node) {
		log(LOG_INFO, "MP_GetMultipathLusPlugin()",
		    " - di_init() failed");

		return (MP_STATUS_FAILED);
	}

	numNodes = getOidList(root_node, NULL);

	if (numNodes < 0) {

		log(LOG_INFO,
		    "MP_GetMultipathLusPlugin()",
		    " - unable to get OID list.");

		log(LOG_INFO, "MP_GetMultipathLusPlugin()",
		    " - error exit");

		di_fini(root_node);

		return (MP_STATUS_FAILED);
	}

	if (0 == numNodes) {

		pOidList = createOidList(1);
		if (NULL == pOidList) {

			log(LOG_INFO,
			    "MP_GetMultipathLusPlugin()",
			    " - unable to create OID list.");

			di_fini(root_node);

			return (MP_STATUS_INSUFFICIENT_MEMORY);
		}

		pOidList->oids[0].objectType =
		    MP_OBJECT_TYPE_MULTIPATH_LU;

		pOidList->oids[0].ownerId =
		    g_pluginOwnerID;

		*ppList = pOidList;

		log(LOG_INFO, "MP_GetMultipathLusPlugin()",
		    " - returning empty list.");

		di_fini(root_node);

		return (MP_STATUS_SUCCESS);
	}

	*ppList = createOidList(numNodes);
	if (NULL == *ppList) {
		log(LOG_INFO, "MP_GetMultipathLusPlugin()",
		    "no memory for *ppList");
		log(LOG_INFO, "MP_GetMultipathLusPlugin()",
		    " - error exit");
		return (MP_STATUS_INSUFFICIENT_MEMORY);
	}

	(*ppList)->oidCount = numNodes;

	numNodes = getOidList(root_node, *ppList);

	for (i = 0; i < (*ppList)->oidCount; i++) {

		log(LOG_INFO, "MP_GetMultipathLusPlugin()",
		    "(*ppList)->oids[%d].objectType           = %d",
		    i, (*ppList)->oids[i].objectType);
		log(LOG_INFO, "MP_GetMultipathLusPlugin()",
		    "(*ppList)->oids[%d].ownerId              = %d",
		    i, (*ppList)->oids[i].ownerId);
		log(LOG_INFO, "MP_GetMultipathLusPlugin()",
		    "(*ppList)->oids[%d].objectSequenceNumber = %llx",
		    i, (*ppList)->oids[i].objectSequenceNumber);
	}


	di_fini(root_node);

	log(LOG_INFO, "MP_GetMultipathLusPlugin()", " - exit");

	return (MP_STATUS_SUCCESS);

}