/*
 * 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 <string.h>
#include <syslog.h>
#include <errno.h>
#include <unistd.h>
#include <stropts.h>
#include <libdevinfo.h>

#include "mp_utils.h"


static int getOidList(di_node_t root_node,
                        MP_OID_LIST *pOidList,
                        char *pProductID,
                        char *pVendorID)
{
        int numNodes = 0;
        int pidSize = 0;
        int vidSize = 0;

        int haveList = (NULL != pOidList);

        char *pid = NULL;
        char *vid = NULL;

        di_node_t sv_node       = DI_NODE_NIL;
        di_node_t sv_child_node = DI_NODE_NIL;

        int instNum;
        int majorNum;
        MP_UINT64 osn;


        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) {

                (void) di_prop_lookup_strings(DDI_DEV_T_ANY, sv_child_node,
                    "inquiry-product-id", &pid);

                pidSize = strlen(pid);

                (void) di_prop_lookup_strings(DDI_DEV_T_ANY, sv_child_node,
                    "inquiry-vendor-id", &vid);

                vidSize = strlen(vid);

                if ((0 == strncmp(pProductID, pid, pidSize)) &&
                    (0 == strncmp(pVendorID, vid, vidSize))) {

                        instNum = di_instance(sv_child_node);
                        majorNum = di_driver_major(sv_child_node);

                        if (haveList && numNodes < pOidList->oidCount) {

                                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_GetMultipathLusDevProd(MP_OID oid, MP_OID_LIST **ppList)
{
        di_node_t root_node     = DI_NODE_NIL;

        MP_STATUS mpStatus      = MP_STATUS_SUCCESS;

        int numNodes = 0;
        int ioctlStatus = 0;
        int i = 0;

        mp_iocdata_t            mp_ioctl;
        mp_dev_prod_prop_t      devProdInfo;

        char inqProductID[256];
        char inqVendorID[256];


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

        log(LOG_INFO, "MP_GetMultipathLusDevProd()",
            "oid.objectSequenceNumber = %llx",
            oid.objectSequenceNumber);

        if (g_scsi_vhci_fd < 0) {
                log(LOG_INFO, "MP_GetMultipathLusDevProd()",
                    "invalid driver file handle");
                log(LOG_INFO, "MP_GetMultipathLusDevProd",
                    " - error exit");
                return (MP_STATUS_FAILED);
        }

        (void) memset(&mp_ioctl, 0, sizeof (mp_iocdata_t));
        (void) memset(&devProdInfo, 0, sizeof (mp_dev_prod_prop_t));

        mp_ioctl.mp_cmd  = MP_GET_DEV_PROD_PROP;
        mp_ioctl.mp_ibuf = (caddr_t)&oid.objectSequenceNumber;
        mp_ioctl.mp_ilen = sizeof (oid.objectSequenceNumber);
        mp_ioctl.mp_obuf = (caddr_t)&devProdInfo;
        mp_ioctl.mp_olen = sizeof (mp_dev_prod_prop_t);
        mp_ioctl.mp_xfer = MP_XFER_READ;

        ioctlStatus = ioctl(g_scsi_vhci_fd, MP_CMD, &mp_ioctl);

        log(LOG_INFO, "MP_GetMultipathLusDevProd()",
            " IOCTL call returned: %d", ioctlStatus);

        if (ioctlStatus < 0) {
                ioctlStatus = errno;
        }

        if (ioctlStatus != 0) {
                log(LOG_INFO, "MP_GetMultipathLusDevProd()",
                    "IOCTL call failed.  IOCTL error is: %d",
                    ioctlStatus);
                log(LOG_INFO, "MP_GetMultipathLusDevProd()",
                    "IOCTL call failed.  IOCTL error is: %s",
                    strerror(ioctlStatus));
                log(LOG_INFO, "MP_GetMultipathLusDevProd()",
                    "IOCTL call failed.  mp_ioctl.mp_errno: %x",
                    mp_ioctl.mp_errno);

                if (ENOTSUP == ioctlStatus) {
                        mpStatus = MP_STATUS_UNSUPPORTED;
                } else if (0 == mp_ioctl.mp_errno) {
                        mpStatus = MP_STATUS_FAILED;
                } else {
                        mpStatus = getStatus4ErrorCode(mp_ioctl.mp_errno);
                }

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

                return (mpStatus);
        }

        (void) strncpy(inqProductID, devProdInfo.prodInfo.product,
            sizeof (devProdInfo.prodInfo.product));

        (void) strncpy(inqVendorID, devProdInfo.prodInfo.vendor,
            sizeof (devProdInfo.prodInfo.vendor));

        log(LOG_INFO, "MP_GetMultipathLusDevProd()",
            " - inqProductID:  [%s]", inqProductID);
        log(LOG_INFO, "MP_GetMultipathLusDevProd()",
            " - inqVendorID:   [%s]", inqVendorID);

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

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

                return (MP_STATUS_FAILED);
        }

        numNodes = getOidList(root_node, NULL, inqProductID, inqVendorID);
        if (numNodes < 0) {

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

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

                di_fini(root_node);

                return (MP_STATUS_FAILED);
        }


        if (0 == numNodes) {

                *ppList = createOidList(1);
                if (NULL == *ppList) {

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

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

                        di_fini(root_node);

                        return (MP_STATUS_INSUFFICIENT_MEMORY);
                }

                (*ppList)->oids[0].objectType = MP_OBJECT_TYPE_MULTIPATH_LU;
                (*ppList)->oids[0].ownerId = g_pluginOwnerID;

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

                return (MP_STATUS_SUCCESS);
        }

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

        (*ppList)->oidCount = numNodes;

        numNodes = getOidList(root_node, *ppList, inqProductID, inqVendorID);

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

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


        di_fini(root_node);

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

        return (MP_STATUS_SUCCESS);

}