/*

 * Generic IPMI Interface

 * Copyright (C) 2011, Dell Inc.

 *

 * This program is free software; you can redistribute it and/or modify it

 * under the terms and conditions of the GNU General Public License,

 * version 2, as published by the Free Software Foundation.

 *

 * This program is distributed in the hope it will be useful, but WITHOUT

 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for

 * more details.

 *

 * You should have received a copy of the GNU General Public License along with

 * this program; if not, write to the Free Software Foundation, Inc.,

 * 51 Franklin St - Fifth Floor, Boston, MA 02110-1301 USA.

 *

 */

#include <errno.h>

#include <fcntl.h>

#include <limits.h>

#include <stdint.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <unistd.h>

#include <sys/ioctl.h>

#include <linux/ipmi.h>

#if _HAVE_DMALLOC_H

#include <dmalloc.h>

#endif

#include "utils.h"

#include "ipmi.h"

static int ipmi_open(void)

{

	int fd;

	fd = open("/dev/ipmi0", O_RDWR);

	if (fd >= 0)

		return fd;

	fd = open("/dev/ipmidev/0", O_RDWR);

	if (fd >= 0)

		return fd;

	fd = open("/dev/ipmidev0", O_RDWR);

	if (fd >= 0)

		return fd;

	fd = open("/dev/bmc", O_RDWR);

	if (fd >= 0)

		return fd;

	return -1;

}

int ipmicmd(int sa, int lun, int netfn, int cmd, int datalen, void *data,

	    int resplen, int *rlen, void *resp)

{

	static int msgid;

	struct ipmi_system_interface_addr saddr;

	struct ipmi_ipmb_addr iaddr;

	struct ipmi_addr raddr;

	struct ipmi_req req;

	struct ipmi_recv rcv;

	fd_set rfd;

	int fd, rc;

	uint8_t tresp[resplen + 1];

	fd = ipmi_open();

	if (fd < 0)

		return -1;

	memset(&req, 0, sizeof(req));

	memset(&rcv, 0, sizeof(rcv));

	if (sa == BMC_SA) {

		memset(&saddr, 0, sizeof(saddr));

		saddr.addr_type = IPMI_SYSTEM_INTERFACE_ADDR_TYPE;

		saddr.channel = IPMI_BMC_CHANNEL;

		saddr.lun = 0;

		req.addr = (void *)&saddr;

		req.addr_len = sizeof(saddr);

	} else {

		memset(&iaddr, 0, sizeof(iaddr));

		iaddr.addr_type = IPMI_IPMB_ADDR_TYPE;

		iaddr.channel = 0;

		iaddr.slave_addr = sa;

		iaddr.lun = lun;

		req.addr = (void *)&iaddr;

		req.addr_len = sizeof(iaddr);

	}

	/* Issue command */

	req.msgid = ++msgid;

	req.msg.netfn = netfn;

	req.msg.cmd = cmd;

	req.msg.data_len = datalen;

	req.msg.data = data;

	rc = ioctl(fd, IPMICTL_SEND_COMMAND, (void *)&req;;

	if (rc != 0) {

		perror("send");

		goto end;

	}

	/* Wait for Response */

	FD_ZERO(&rfd;;

	FD_SET(fd, &rfd;;

	rc = select(fd + 1, &rfd, NULL, NULL, NULL);

	if (rc < 0) {

		perror("select");

		goto end;

	}

	/* Get response */

	rcv.msg.data = tresp;

	rcv.msg.data_len = resplen + 1;

	rcv.addr = (void *)&radd;;

	rcv.addr_len = sizeof(raddr);

	rc = ioctl(fd, IPMICTL_RECEIVE_MSG_TRUNC, (void *)&rcv;;

	if (rc != 0 && errno == EMSGSIZE)

		log_info("too short..\n");

	if (rc != 0 && errno != EMSGSIZE) {

		log_info("%s\n", strerror(errno));

		goto end;

	}

	if (rcv.msg.data[0])

		log_info("IPMI Error: %.2x\n", rcv.msg.data[0]);

	rc = 0;

	*rlen = rcv.msg.data_len - 1;

	memcpy(resp, rcv.msg.data + 1, *rlen);

end:

	close(fd);

	return rc;

}