/*      -*- linux-c -*-
 *
 * Copyright (c) 2003 by Intel Corp.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  This
 * file and program are licensed under a BSD style license.  See
 * the Copying file included with the OpenHPI distribution for
 * full licensing terms.
 *
 * Authors:
 *     Louis Zhuang <louis.zhuang@linux.intel.com>
 */

#include "ipmi.h"
#include <netdb.h>

/*
 * internally used structure for SEL time data
 **/
struct get_sel_time_cb_data {
	SaHpiTimeT	time;
	int		flag;
};

struct ohoi_set_sel_state_cb_data {
	int enable;
	int done;
};

struct ohoi_get_sel_state_cb_data {
	int enable;
	int done;
};
/*
 * SEL num. of entries callback function
 **/
static void get_sel_count(ipmi_mc_t *mc, void *cb_data)
{
	int *count = cb_data;
	
	*count = ipmi_mc_sel_entries_used(mc);
}

/**
 * ohoi_get_sel_count: Get IPMI number of SEL entries
 * @mc_id: management controller id used for OpenIPMI callback
 * @count: number of entries returned
 *
 * This function is called by ipmi.c
 * This function registers a callback with OpenIPMI's
 * ipmi_mc_pointer_cb, get's the MC associated with the ID
 * and calls our function back with the MC and fills in 
 * the number of SEL entries returned to caller.
 * 
 **/
void ohoi_get_sel_count(ipmi_mcid_t mc_id, int *count)
{
	int rv;	

	*count = -1;
	rv = ipmi_mc_pointer_cb(mc_id, get_sel_count, count);
	if (rv<0)
		err("Unable to convert MC id to a pointer");
}

static void get_sel_size(ipmi_mc_t *mc, void *cb_data)
{
	int *size = cb_data;
	
	*size = ipmi_mc_sel_get_free_bytes(mc);
}

void ohoi_get_sel_size(ipmi_mcid_t mc_id, int *size)
{
	int rv;	

	*size = -1;
	rv = ipmi_mc_pointer_cb(mc_id, get_sel_size, size);
	if (rv<0)
		err("Unable to convert MC id to a pointer");
}

/**
 * get_sel_time_cb: callback registered by get_sel_time
 * @mc: management controller pointer
 * @err: int error
 * @time: time returned from OpenIPMI
 * @cb_data: user requested data
 *
 *
 **/
static void get_sel_time_cb(ipmi_mc_t	*mc,
		int           		err,
		unsigned long 		time,
		void          		*cb_data)
{
	struct get_sel_time_cb_data *data = cb_data;
	data->flag = 1;
	data->time = time;
}

/**
 * get_sel_time: get IPMI SEL time
 * @mc: management controller id used for OpenIPMI callback
 * @cb_data: user passed in data
 *
 *
 **/
static void get_sel_time(ipmi_mc_t *mc, void *cb_data)
{
	ipmi_mc_get_current_sel_time(mc, get_sel_time_cb, cb_data);
}

void ohoi_get_sel_time(ipmi_mcid_t mc_id, SaHpiTimeT *time, void *cb_data)
{
	struct ohoi_handler *ipmi_handler = cb_data;
		
	struct get_sel_time_cb_data data;
	int rv;	

	memset(&data, 0, sizeof(data));
		
	rv = ipmi_mc_pointer_cb(mc_id, get_sel_time, &data); 
	if (rv) {
		err("Unable to convert domain id to a pointer");
		return;
	}

        rv = ohoi_loop(&data.flag, ipmi_handler);
        if (rv)
                err("Unable to get sel time: Timeout!");
        
        *time = (SaHpiTimeT)data.time*1000000000;
}

static void get_sel_update_timestamp(ipmi_mc_t *mc, void *cb_data)
{
        SaHpiTimeT *time = cb_data;
        
        *time = (SaHpiTimeT)ipmi_mc_sel_get_last_addition_timestamp(mc)*1000000000;
}

void ohoi_get_sel_updatetime(ipmi_mcid_t mc_id, SaHpiTimeT *time)
{
        int rv;

        rv = ipmi_mc_pointer_cb(mc_id, get_sel_update_timestamp, time);
        if (rv)
                err("Unable to convert domain id to a pointer");
}

static void get_sel_overflow(ipmi_mc_t *mc, void *cb_data)
{
	char *overflow = cb_data;
	*overflow =  ipmi_mc_sel_get_overflow(mc);
}

void ohoi_get_sel_overflow(ipmi_mcid_t mc_id, char *overflow)
{
	int rv;	

	rv = ipmi_mc_pointer_cb(mc_id, get_sel_overflow, overflow); 
	if (rv<0)
		err("Unable to convert domain id to a pointer");
	
}

static void get_sel_support_del(ipmi_mc_t *mc, void *cb_data)
{
	char *support_del = cb_data;

	*support_del = ipmi_mc_sel_get_supports_delete_sel(mc);
}

void ohoi_get_sel_support_del(ipmi_mcid_t mc_id, char *support_del)
{
	int rv;	

	rv = ipmi_mc_pointer_cb(mc_id, get_sel_support_del, support_del); 
	if (rv<0)
		err("Unable to convert domain id to a pointer");
}

static void set_sel_time_done(ipmi_mc_t	*mc,
		              int   	err,
		              void      *cb_data)
{
        int *flag = cb_data;
        *flag = 1;
	dbg("set_sel_time called, err: %d", err);
}

struct set_sel_time_cb_data {
        int flag;
        struct timeval time;
};

static void set_sel_time(ipmi_mc_t *mc, void *cb_data)
{
	struct set_sel_time_cb_data *data = cb_data;
	int rv;

	rv = ipmi_mc_set_current_sel_time(mc, &data->time, set_sel_time_done, &data->flag);
	if (rv) 
		err("Failed to set MC time");
}

void ohoi_set_sel_time(ipmi_mcid_t mc_id, const struct timeval *time, void *cb_data)
{
	struct ohoi_handler *ipmi_handler = cb_data;
		
	struct set_sel_time_cb_data data;
	int rv;
	
        data.flag = 0;
        data.time = *time;
		
	rv = ipmi_mc_pointer_cb(mc_id, set_sel_time, &data); 
        if (rv) {
		err("Unable to convert MC id to a pointer");
                return;
        }
                
        rv = ohoi_loop(&data.flag, ipmi_handler);
        if (rv) 
                err("Unable to set SEL time: Timeout!");
        
	return;
}

struct clear_sel_cb {
	SaErrorT err;
	struct ohoi_handler *ipmi_handler;
};

static void mc_clear_sel_done(ipmi_mc_t *mc, int err, void *cb_data)
{
	int *flag = cb_data;
	*flag = 1;

	dbg("MC sel clear done");
	return;
}


static void clear_sel(ipmi_mc_t *mc, void *cb_data)
{
	 struct clear_sel_cb *info = cb_data;     
	int rv;
	int done = 0;
#if 0     
	ipmi_event_t *event, *event2;
        event = ipmi_mc_first_event(mc);
        while (event) {
		event2 = event;
		event = ipmi_mc_next_event(mc, event);
                rv = ipmi_mc_del_event(mc, event2, NULL, NULL);
		if (rv != 0) {
			err("ipmi_mc_del_event = 0x%x", rv);
			info->err = SA_ERR_HPI_INVALID_CMD;
			return;
		}
                ipmi_event_free(event2);
        }

		/* we're done, now force an sel_reread so
		   delete takes effect */

	rv = ipmi_mc_reread_sel(mc, mc_clear_sel_done, &done);
	if (rv) {
		err("ipmi_mc_reread_sel failed");
			info->err = SA_ERR_HPI_INVALID_CMD;
			return;
	}
#endif
	rv = ipmi_mc_sel_clear(mc, NULL, mc_clear_sel_done, &done);
	if (rv) {
		err("ipmi_mc_reread_sel failed");
			info->err = SA_ERR_HPI_INVALID_CMD;
			return;
	}

	info->err = ohoi_loop(&done, info->ipmi_handler);
}
	

SaErrorT ohoi_clear_sel(ipmi_mcid_t mc_id, void *cb_data)
{
        char support_del = 0;
        int rv;
	struct clear_sel_cb info;

	info.ipmi_handler = cb_data;
        
        ohoi_get_sel_support_del(mc_id, &support_del);
        if (!support_del) {
                err("MC SEL doesn't support del");
//                return SA_ERR_HPI_INVALID_CMD;
        }
	info.err = 0;
        rv = ipmi_mc_pointer_cb(mc_id, clear_sel, &info);
        if (rv) {
                err("Unable to convert mcid to pointer: %d", rv);
		return SA_ERR_HPI_INVALID_CMD;
        }
        info.ipmi_handler->sel_clear_done = 1; // atavism
        return info.err;
}


static void get_sel_first_entry(ipmi_mc_t *mc, void *cb_data)
{
	ipmi_event_t **event = cb_data;

	*event = ipmi_mc_first_event(mc);
}

void ohoi_get_sel_first_entry(ipmi_mcid_t mc_id, ipmi_event_t **event)
{
	int rv;

	rv = ipmi_mc_pointer_cb(mc_id, get_sel_first_entry, event);

	if (rv)
		err("Unable to convert mcid to pointer");
}

static void get_sel_last_entry(ipmi_mc_t *mc, void *cb_data)
{
	ipmi_event_t **event = cb_data;

	*event = ipmi_mc_last_event(mc);
}

void ohoi_get_sel_last_entry(ipmi_mcid_t mc_id, ipmi_event_t **event)
{
	int rv;

	rv = ipmi_mc_pointer_cb(mc_id, get_sel_last_entry, event);

	if (rv)
		err("Unable to convert mcid to pointer");
}

static void get_sel_next_entry(ipmi_mc_t *mc, void *cb_data)
{
	ipmi_event_t **event = cb_data;

	*event = ipmi_mc_next_event(mc, *event);
}

void ohoi_get_sel_next_recid(ipmi_mcid_t mc_id, 
                             ipmi_event_t *event,
                             unsigned int *record_id)
{
        int rv;
        ipmi_event_t *te;

        te = event;

        rv = ipmi_mc_pointer_cb(mc_id, get_sel_next_entry, &te);
        if (rv) {
		err("unable to convert mcid to pointer");
                *record_id = SAHPI_NO_MORE_ENTRIES;
                return;
        }

        if (te)
                *record_id = ipmi_event_get_record_id(te);
        else
                *record_id = SAHPI_NO_MORE_ENTRIES;
}

static void get_sel_prev_entry(ipmi_mc_t *mc, void *cb_data)
{
	ipmi_event_t **event = cb_data;

	*event = ipmi_mc_prev_event(mc, *event);
}

void ohoi_get_sel_prev_recid(ipmi_mcid_t mc_id, 
                             ipmi_event_t *event, 
                             unsigned int *record_id)
{
	int rv;
        ipmi_event_t *te;

        te = event;
		
	rv = ipmi_mc_pointer_cb(mc_id, get_sel_prev_entry, &te);

	if (rv) {
		err("unable to convert mcid to pointer");
		*record_id = SAHPI_NO_MORE_ENTRIES;
		return;
        }
        
        if (te)
		*record_id = ipmi_event_get_record_id(te);
        else 
                *record_id = SAHPI_NO_MORE_ENTRIES;                
}

struct ohoi_get_event_by_recid_cb_data {
        unsigned int record_id;
        ipmi_event_t *event;
};

static void get_sel_by_recid(ipmi_mc_t *mc, void *cb_data)
{
	struct ohoi_get_event_by_recid_cb_data *data = cb_data; 

	data->event = ipmi_mc_event_by_recid(mc, data->record_id);
}

void ohoi_get_sel_by_recid(ipmi_mcid_t mc_id, SaHpiEventLogEntryIdT entry_id, ipmi_event_t **event)
{
	int rv;
        struct ohoi_get_event_by_recid_cb_data data;
        
	data.record_id  = entry_id;
        data.event      = NULL;

	rv = ipmi_mc_pointer_cb(mc_id, get_sel_by_recid, &data);
	if(rv) {
		err("failed to convert mc_id to pointer");
		*event = NULL;
		return;
        }

        *event = data.event;
}


static void set_sel_state_done(ipmi_mc_t *mc, int err, void *cb_data)
{
	int *done = cb_data;
	if (err == IPMI_IPMI_ERR_VAL(IPMI_INVALID_CMD_CC)) {
		err("looks like mc doesn't support state changing");
		*done = -2;
	} else if (err) {
		err("err = %d", err);
		*done = -1;
	} else {
		*done = 1;
	}
}


static void set_sel_state(ipmi_mc_t *mc, void *cb_data)
{
	struct ohoi_set_sel_state_cb_data *data = cb_data;
	int rv;
	
	rv = ipmi_mc_set_event_log_enable(mc, data->enable, set_sel_state_done , &data->done);
	if(rv) {
		if (rv == ENOSYS) {
			err("looks like mc doesn't support state changing");
			data->done = -2;
		} else {
			data->done = -1;
		}
		err("failed  set_sel_state = %x", rv);
        }
}


SaErrorT ohoi_set_sel_state(struct ohoi_handler *ipmi_handler, ipmi_mcid_t mc_id, int enable)
{
	int rv;
	struct ohoi_set_sel_state_cb_data data;
	
	data.done = 0;
	data.enable = enable;
		
	rv = ipmi_mc_pointer_cb(mc_id, set_sel_state, &data);
	if (rv) {
		err("failed to convert mc_id to pointer = %d", rv);
		return SA_ERR_HPI_INTERNAL_ERROR;
	}
	rv = ohoi_loop(&data.done, ipmi_handler);
	if (data.done == -2) {
		rv = SA_ERR_HPI_ERROR; 
	} else if (data.done < 0) {
		err("data.done = %d", data.done);
		rv = SA_ERR_HPI_INTERNAL_ERROR;
	}
	if(rv) {
		err("failed to set sel state to %d = %d", enable, rv);
        }
	return rv;
}


static void get_sel_state_done(ipmi_mc_t *mc, int err, int enable, void *cb_data)
{
	struct ohoi_get_sel_state_cb_data *data = cb_data;
	
	data->done = (err == 0) ? 1 : -1;
	data->enable = enable;
	
}


static void get_sel_state(ipmi_mc_t *mc, void *cb_data)
{
	struct ohoi_get_sel_state_cb_data *data = cb_data;
	int rv;
	
	rv = ipmi_mc_get_event_log_enable(mc, get_sel_state_done , data);
	if(rv) {
		if (rv == ENOSYS) {
			// ipmb doesn't support event generator
			data->done = -2;
		} else {
			data->done = -1;
		}
		err("failed  get_sel_state = %d", rv);
        }
}


SaErrorT ohoi_get_sel_state(struct ohoi_handler *ipmi_handler, ipmi_mcid_t mc_id, int *enable)
{
	int rv;
	struct ohoi_get_sel_state_cb_data data;
	
	data.done = 0;
		
	rv = ipmi_mc_pointer_cb(mc_id, get_sel_state, &data);
	if (rv) {
		err("failed to convert mc_id to pointer = %d", rv);
		return SA_ERR_HPI_INTERNAL_ERROR;
	}
	rv = ohoi_loop(&data.done, ipmi_handler);
	if (data.done == -2) {
		rv = SA_ERR_HPI_ERROR; 
	} else if (data.done < 0) {
		rv = SA_ERR_HPI_INTERNAL_ERROR;
	}
	if(rv) {
		err("failed to get sel state = %d", rv);
        } else {
		*enable = data.enable;
	}
	return rv;
}