/* lmSensors.c
 *
 * Sections of this code were derived from the published API's of 
 * some Sun products.  Hence, portions of the code may be copyright
 * Sun Microsystems.
 *
 * This component allows net-snmp to report sensor information.
 *
 * In order to use it, the ./configure invocation must include...
 *
 * --with-mib-modules="ucd-snmp/lmSensors"
 *
 * It uses one of three different methodologies.  Some platforms make
 * use of an lm_sensors driver to access the information on the
 * health monitoring hardware, such as the LM75 and LM78 chips.
 *
 * For further information see http://secure.netroedge.com/~lm78/
 *
 * The Solaris platform uses the other two methodologies.  Earlier
 * platforms such as the Enterprise 450 use kstat to report sensor
 * information.  Later platforms, such as the V880 use the picld
 * daemon to control system resources and report sensor information.
 * Picld is supported only on Solaris 2.8 and later.
 * 
 * KSTAT
 *
 * The code initializes the kstat variables, then does a specific inquiry
 * for what we're looking for.
 *
 * PICLD
 *
 * If picld is available on the platform, it tries to initialize picld.
 * If that works, it points itself to the top of the picld btree
 * and walks it way down recursively looking for sensors and child leafs.
 * If it finds a child, it goes in and works it way down recursively.
 * If it finds a sensor, it deals with it.
 *
 * Both these methodologies are implemented in a "read only" manner.
 * You cannot use this code to change anything eg. fan speeds.
 *
 * The lmSensors component delivers the information documented in the
 * LM-SENSORS-MIB.  The information is divided up as follows:
 *
 * -temperatures (Celsius)
 * -fans (rpm's)
 * -voltages
 * -other (switches, LEDs and  i2c's (things that use the i2c bus))
 * NOTE: This version does not support gpio's.  Still on the learning curve.
 *
 * Because the MIB only allows output of the datatype Gauge32 this
 * limits the amount of meaningful information that can be delivered
 * from "other" sensors.  Hence, the code does a certain amount of
 * translating.  See the source for individual sensor types.
 *
 * If an "other" sensor delivers a value 99, it means that it
 * is delivering a "status" that the code does not account for.
 * If you discover one of these, please pass it on and I'll
 * put it in.
 *
 * To see these messages, run the daemon as follows:
 * 
 * /usr/local/sbin/snmpd -f -L -Ducd-snmp/lmSensors
 *
 * or using gdb:
 *
 * gdb snmpd
 * run -f -L -Ducd-snmp/lmSensors
 *
 * The component can record up to 256 instances of each type.
 *
 * The following should always be included first before anything else 
 */

#include <net-snmp/net-snmp-config.h>
#include <net-snmp/net-snmp-includes.h>
#include <net-snmp/agent/net-snmp-agent-includes.h>

/*
 * minimal include directives 
 */

#include "util_funcs.h"
#include <time.h>

/*
 * Load required drivers and libraries.
 */

#ifdef solaris2
    #include <kstat.h>
    #ifdef HAVE_PICL_H 
        #include <picl.h> /* accesses the picld daemon */
    #endif 
    #include </usr/platform/sun4u/include/sys/envctrl.h> /*should this be more generic? */
#else
    #include <sensors/sensors.h>
    #define CONFIG_FILE_NAME "/etc/sensors.conf"
#endif

#include "lmSensors.h"

#define N_TYPES      (4)

#ifdef solaris2
    #define MAX_NAME     (256)
    #define MAX_SENSORS  (256) /* there's a lot of sensors on a v880 */
#else
    #define MAX_NAME     (64)
    #define MAX_SENSORS  (128)
#endif


/*
 * lmSensors_variables_oid:
 *   this is the top level oid that we want to register under.  This
 *   is essentially a prefix, with the suffix appearing in the
 *   variable below.
 */


oid             lmSensors_variables_oid[] =
    { 1, 3, 6, 1, 4, 1, 2021, 13, 16 };

/*
 * variable4 lmSensors_variables:
 *   this variable defines function callbacks and type return information 
 *   for the lmSensors mib section 
 */

struct variable4 lmSensors_variables[] = {
    /*
     * magic number        , variable type , ro/rw , callback fn  , L, oidsuffix 
     */
#define   LMTEMPSENSORSINDEX    3
    {LMTEMPSENSORSINDEX, ASN_INTEGER, RONLY, var_lmSensorsTable, 3,
     {2, 1, 1}},
#define   LMTEMPSENSORSDEVICE   4
    {LMTEMPSENSORSDEVICE, ASN_OCTET_STR, RONLY, var_lmSensorsTable, 3,
     {2, 1, 2}},
#define   LMTEMPSENSORSVALUE    5
    {LMTEMPSENSORSVALUE, ASN_GAUGE, RONLY, var_lmSensorsTable, 3,
     {2, 1, 3}},
#define   LMFANSENSORSINDEX     8
    {LMFANSENSORSINDEX, ASN_INTEGER, RONLY, var_lmSensorsTable, 3,
     {3, 1, 1}},
#define   LMFANSENSORSDEVICE    9
    {LMFANSENSORSDEVICE, ASN_OCTET_STR, RONLY, var_lmSensorsTable, 3,
     {3, 1, 2}},
#define   LMFANSENSORSVALUE     10
    {LMFANSENSORSVALUE, ASN_GAUGE, RONLY, var_lmSensorsTable, 3,
     {3, 1, 3}},
#define   LMVOLTSENSORSINDEX    13
    {LMVOLTSENSORSINDEX, ASN_INTEGER, RONLY, var_lmSensorsTable, 3,
     {4, 1, 1}},
#define   LMVOLTSENSORSDEVICE   14
    {LMVOLTSENSORSDEVICE, ASN_OCTET_STR, RONLY, var_lmSensorsTable, 3,
     {4, 1, 2}},
#define   LMVOLTSENSORSVALUE    15
    {LMVOLTSENSORSVALUE, ASN_GAUGE, RONLY, var_lmSensorsTable, 3,
     {4, 1, 3}},
#define   LMMISCSENSORSINDEX    18
    {LMMISCSENSORSINDEX, ASN_INTEGER, RONLY, var_lmSensorsTable, 3,
     {5, 1, 1}},
#define   LMMISCSENSORSDEVICE   19
    {LMMISCSENSORSDEVICE, ASN_OCTET_STR, RONLY, var_lmSensorsTable, 3,
     {5, 1, 2}},
#define   LMMISCSENSORSVALUE    20
    {LMMISCSENSORSVALUE, ASN_GAUGE, RONLY, var_lmSensorsTable, 3,
     {5, 1, 3}},
};

typedef struct {
#ifdef solaris2
    #ifdef HAVE_PICL_H
        char            name[PICL_PROPNAMELEN_MAX]; /*required for picld*/
        int             value;
    #else
       char            name[MAX_NAME];
       int             value;
    #endif
#else
    char            name[MAX_NAME];
    int             value;
#endif
} _sensor;

typedef struct {
    int             n;
    _sensor         sensor[MAX_SENSORS];
} _sensor_array;

static _sensor_array sensor_array[N_TYPES];
static clock_t  timestamp;

static int      sensor_init(void);
static void     sensor_load(void);
static void     _sensor_load(clock_t t);


/*
 * init_lmSensors():
 *   Initialization routine.  This is called when the agent starts up.
 *   At a minimum, registration of your variables should take place here.
 */
void
init_lmSensors(void)
{
   sensor_init(); 

    /*
     * register ourselves with the agent to handle our mib tree 
     */
    REGISTER_MIB("lmSensors", lmSensors_variables, variable4,
                 lmSensors_variables_oid);
}

/*
 * var_lmSensorsTable():
 *   Handle this table separately from the scalar value case.
 *   The workings of this are basically the same as for var_lmSensors above.
 */
unsigned char  *
var_lmSensorsTable(struct variable *vp,
                   oid * name,
                   size_t * length,
                   int exact,
                   size_t * var_len, WriteMethod ** write_method)
{
    static long     long_ret;
    static unsigned char string[SPRINT_MAX_LEN];

    int             s_index;
    int             s_type = -1;
    int             n_sensors;

    _sensor         s;

    sensor_load();

    switch (vp->magic) {
    case LMTEMPSENSORSINDEX:
    case LMTEMPSENSORSDEVICE:
    case LMTEMPSENSORSVALUE:
        s_type = 0;
        n_sensors = sensor_array[0].n;
        break;

    case LMFANSENSORSINDEX:
    case LMFANSENSORSDEVICE:
    case LMFANSENSORSVALUE:
        s_type = 1;
        n_sensors = sensor_array[1].n;
        break;

    case LMVOLTSENSORSINDEX:
    case LMVOLTSENSORSDEVICE:
    case LMVOLTSENSORSVALUE:
        s_type = 2;
        n_sensors = sensor_array[2].n;
        break;

    case LMMISCSENSORSINDEX:
    case LMMISCSENSORSDEVICE:
    case LMMISCSENSORSVALUE:
        s_type = 3;
        n_sensors = sensor_array[3].n;
        break;

    default:
        s_type = -1;
        n_sensors = 0;
    }

    if (header_simple_table(vp, name, length, exact,
                            var_len, write_method,
                            n_sensors) == MATCH_FAILED)
        return NULL;

    if (s_type < 0)
        return NULL;

    s_index = name[*length - 1] - 1;
    s = sensor_array[s_type].sensor[s_index];

    switch (vp->magic) {
    case LMTEMPSENSORSINDEX:
    case LMFANSENSORSINDEX:
    case LMVOLTSENSORSINDEX:
    case LMMISCSENSORSINDEX:
        long_ret = s_index;
        return (unsigned char *) &long_ret;

    case LMTEMPSENSORSDEVICE:
    case LMFANSENSORSDEVICE:
    case LMVOLTSENSORSDEVICE:
    case LMMISCSENSORSDEVICE:
        strncpy(string, s.name, SPRINT_MAX_LEN - 1);
        *var_len = strlen(string);
        return (unsigned char *) string;

    case LMTEMPSENSORSVALUE:
    case LMFANSENSORSVALUE:
    case LMVOLTSENSORSVALUE:
    case LMMISCSENSORSVALUE:
        long_ret = s.value;
        return (unsigned char *) &long_ret;

    default:
        ERROR_MSG("Unable to handle table request");
    }

    return NULL;
}

static int
sensor_init(void)
{
#ifndef solaris2
    int             res;
    char            filename[] = CONFIG_FILE_NAME;
    clock_t         t = clock();
    FILE           *fp = fopen(filename, "r");
    if (!fp)
        return 1;

    if ((res = sensors_init(fp)))
        return 2;

    _sensor_load(t); /* I'll let the linux people decide whether they want to load right away */
#endif
    return 0;
}

static void
sensor_load(void)
{
#ifdef solaris2
    clock_t         t = time(NULL);
#else
    clock_t	t = clock();
#endif

    if (t > timestamp + 6) /* this may require some tuning - currently 6 seconds*/
        _sensor_load(t);

    return;
}

/* This next code block includes all kstat and picld code for the Solaris platform.
 * If you're not compiling on a Solaris that supports picld, it won't be included.
 */

#ifdef solaris2
/* *******  picld sensor procedures * */
#ifdef HAVE_PICL_H

static void
process_individual_fan(picl_nodehdl_t childh, 
                     char propname[PICL_PROPNAMELEN_MAX])
{
    picl_nodehdl_t  sensorh;
    picl_propinfo_t sensor_info;

    int speed;
    int typ = 1; /*fan*/

    picl_errno_t    error_code,ec2;

    if (sensor_array[typ].n >= MAX_SENSORS){
        snmp_log(LOG_ERR, "There are too many sensors of type %d\n",typ);
        }
    else{
        error_code = (picl_get_propinfo_by_name(childh,
                         "AtoDSensorValue",&sensor_info,&sensorh));
        if (error_code == PICL_SUCCESS) {
             ec2 = picl_get_propval(sensorh,&speed,sizeof(speed));
             if (ec2 == PICL_SUCCESS){
                 sensor_array[typ].sensor[sensor_array[typ].n].value = speed;
                 snprintf(sensor_array[typ].sensor[sensor_array[typ].n].name,
                     (PICL_PROPNAMELEN_MAX - 1),"%s",propname);
                 sensor_array[typ].sensor[sensor_array[typ].n].
                     name[PICL_PROPNAMELEN_MAX - 1] = '\0';
                 sensor_array[typ].n++;
                 } /*end if ec2*/
             else
                 DEBUGMSGTL(("ucd-snmp/lmSensors", 
                     "sensor value read error code->%d\n",ec2));
            } /* end if */
        else
            DEBUGMSGTL(("ucd-snmp/lmSensors", 
                "sensor lookup failed  error code->%d\n",error_code));
        }
} /*process individual fan*/

static void
process_temperature_sensor(picl_nodehdl_t childh,
                               char propname[PICL_PROPNAMELEN_MAX])
{
    picl_nodehdl_t  sensorh;
    picl_propinfo_t sensor_info;

    int temp;
    int typ = 0; /*temperature*/

    picl_errno_t    error_code,ec2;

    if (sensor_array[typ].n >= MAX_SENSORS){
        snmp_log(LOG_ERR, "There are too many sensors of type %d\n",typ);
        }
    else{
        error_code = (picl_get_propinfo_by_name(childh,
                         "Temperature",&sensor_info,&sensorh));
        if (error_code == PICL_SUCCESS) {
             ec2 = picl_get_propval(sensorh,&temp,sizeof(temp));
             if (ec2 == PICL_SUCCESS){
                 sensor_array[typ].sensor[sensor_array[typ].n].value = temp;
                 snprintf(sensor_array[typ].sensor[sensor_array[typ].n].name,
                     (PICL_PROPNAMELEN_MAX - 1),"%s",propname);
                 sensor_array[typ].sensor[sensor_array[typ].n].
                     name[PICL_PROPNAMELEN_MAX - 1] = '\0';
                 sensor_array[typ].n++;
                 } /*end if ec2*/
             else
                 DEBUGMSGTL(("ucd-snmp/lmSensors", 
                               "sensor value read error code->%d\n",ec2));
            } /* end if */
        else
            DEBUGMSGTL(("ucd-snmp/lmSensors", 
                "sensor lookup failed  error code->%d\n",error_code));
        }
}  /* process temperature sensor */

static void
process_digital_sensor(picl_nodehdl_t childh,
                   char propname[PICL_PROPNAMELEN_MAX])
{
    picl_nodehdl_t  sensorh;
    picl_propinfo_t sensor_info;

    int temp; /*volts?*/
    int typ = 2; /*volts*/

    picl_errno_t    error_code,ec2;

    if (sensor_array[typ].n >= MAX_SENSORS){
        snmp_log(LOG_ERR, "There are too many sensors of type %d\n",typ);
        }
    else{
        error_code = (picl_get_propinfo_by_name(childh,
                          "AtoDSensorValue",&sensor_info,&sensorh));
        if (error_code == PICL_SUCCESS) {
             ec2 = picl_get_propval(sensorh,&temp,sizeof(temp));
             if (ec2 == PICL_SUCCESS){
                 sensor_array[typ].sensor[sensor_array[typ].n].value = temp;
                 snprintf(sensor_array[typ].sensor[sensor_array[typ].n].name,
                    (PICL_PROPNAMELEN_MAX - 1),"%s",propname);
                 sensor_array[typ].sensor[sensor_array[typ].n].
                      name[PICL_PROPNAMELEN_MAX - 1] = '\0';
                 sensor_array[typ].n++;
                 }
             else
                 DEBUGMSGTL(("ucd-snmp/lmSensors", 
                   "sensor value read error code->%d\n",ec2));
            } /* end if */
        else
            DEBUGMSGTL(("ucd-snmp/lmSensors", 
              "sensor lookup failed  error code->%d\n",error_code));
        }
}  /* process digital sensor */

static void
process_switch(picl_nodehdl_t childh,
                   char propname[PICL_PROPNAMELEN_MAX])
{
    picl_nodehdl_t  sensorh;
    picl_propinfo_t sensor_info;

    char state[32];
    int st_cnt;
    const char *switch_settings[]={"OFF","ON","NORMAL","LOCKED","UNKNOWN",
                                    "DIAG","SECURE"};
    u_int value;
    u_int found = 0;
    int max_key_posns = 7;
    int typ = 3; /*other*/

    if (sensor_array[typ].n >= MAX_SENSORS){
        snmp_log(LOG_ERR, "There are too many sensors of type %d\n",typ);
        }
    else{
        picl_errno_t    error_code,ec2;

        error_code = (picl_get_propinfo_by_name(childh,
                         "State",&sensor_info,&sensorh));
        if (error_code == PICL_SUCCESS) {
             ec2 = picl_get_propval(sensorh,&state,sensor_info.size);
             if (ec2 == PICL_SUCCESS){
                 for (st_cnt=0;st_cnt < max_key_posns;st_cnt++){
                     if (strncmp(state,switch_settings[st_cnt],
                           strlen(switch_settings[st_cnt])) == 0){
                         value = st_cnt;
                         found = 1;
                         break;
                         } /* end if */
                     } /* end for */
                 if (found==0)
                     value = 99;
                 sensor_array[typ].sensor[sensor_array[typ].n].value = value;
                 snprintf(sensor_array[typ].sensor[sensor_array[typ].n].name,
                     (PICL_PROPNAMELEN_MAX - 1),"%s",propname);
                 sensor_array[typ].sensor[sensor_array[typ].n].
                     name[PICL_PROPNAMELEN_MAX - 1] = '\0';
                 sensor_array[typ].n++;
                 } /*end if ec2*/
             else
                 DEBUGMSGTL(("ucd-snmp/lmSensors",
                     "sensor value read error code->%d\n",ec2));
            } /* end if */
        else
            DEBUGMSGTL(("ucd-snmp/lmSensors",
                "sensor lookup failed  error code->%d\n",error_code));
        }
} /*process switch*/

static void
process_led(picl_nodehdl_t childh,
                   char propname[PICL_PROPNAMELEN_MAX])
{
    picl_nodehdl_t  sensorh;
    picl_propinfo_t sensor_info;

    char state[32];
    int st_cnt;
    const char *led_settings[]={"OFF","ON","BLINK"};
    u_int value;
    u_int found = 0;
    int max_led_posns = 3;
    int typ = 3; 

    picl_errno_t    error_code,ec2;

    if (sensor_array[typ].n >= MAX_SENSORS){
        snmp_log(LOG_ERR, "There are too many sensors of type %d\n",typ);
        }
    else{
        error_code = (picl_get_propinfo_by_name(childh,
                         "State",&sensor_info,&sensorh));
        if (error_code == PICL_SUCCESS) {
             ec2 = picl_get_propval(sensorh,&state,sensor_info.size);
             if (ec2 == PICL_SUCCESS){
                 for (st_cnt=0; st_cnt < max_led_posns; st_cnt++){
                     if (strncmp(state,led_settings[st_cnt],
                           strlen(led_settings[st_cnt])) == 0){
                         value=st_cnt;
                         found = 1;
                         break;
                         } 
                     } 
                 if (found==0)
                     value = 99;
                 sensor_array[typ].sensor[sensor_array[typ].n].value = value;
                 snprintf(sensor_array[typ].sensor[sensor_array[typ].n].name,
                     (PICL_PROPNAMELEN_MAX - 1),"%s",propname);
                 sensor_array[typ].sensor[sensor_array[typ].n].
                     name[PICL_PROPNAMELEN_MAX - 1] = '\0';
                 sensor_array[typ].n++;
                 }
             else
                 DEBUGMSGTL(("ucd-snmp/lmSensors",
                     "sensor value read error code->%d\n",ec2));
            } 
        else
            DEBUGMSGTL(("ucd-snmp/lmSensors",
                "sensor lookup failed  error code->%d\n",error_code));
       }
} 

static void
process_i2c(picl_nodehdl_t childh,
                   char propname[PICL_PROPNAMELEN_MAX])
{
    picl_nodehdl_t  sensorh;
    picl_propinfo_t sensor_info;

    char state[32];
    int st_cnt;
    const char *i2c_settings[]={"OK"};
    u_int value;
    u_int found = 0;
    int max_i2c_posns = 1;
    int typ = 3; 

    picl_errno_t    error_code,ec2;

    if (sensor_array[typ].n >= MAX_SENSORS){
        snmp_log(LOG_ERR, "There are too many sensors of type %d\n",typ);
        }
    else{
        error_code = (picl_get_propinfo_by_name(childh,
                         "State",&sensor_info,&sensorh));
        if (error_code == PICL_SUCCESS) {
             DEBUGMSGTL(("ucd-snmp/lmSensors","Found i2c record size %d\n",sensor_info.size));
             ec2 = picl_get_propval(sensorh,&state,sensor_info.size);
             if (ec2 == PICL_SUCCESS){
                 for (st_cnt=0;st_cnt < max_i2c_posns;st_cnt++){
                     if (strncmp(state,i2c_settings[st_cnt],
                           strlen(i2c_settings[st_cnt])) == 0){
                         value=st_cnt;
                         found = 1;
                         break;
                         } 
                     } 
                 if (found==0)
                     value = 99;
                 sensor_array[typ].sensor[sensor_array[typ].n].value = value;
                 snprintf(sensor_array[typ].sensor[sensor_array[typ].n].name,
                     (PICL_PROPNAMELEN_MAX - 1),"%s",propname);
                 sensor_array[typ].sensor[sensor_array[typ].n].
                     name[PICL_PROPNAMELEN_MAX - 1] = '\0';
                 sensor_array[typ].n++;
                 } 
             else
                 DEBUGMSGTL(("ucd-snmp/lmSensors",
                     "sensor value read error code->%d\n",ec2));
            }
        else
            DEBUGMSGTL(("ucd-snmp/lmSensors",
                "sensor lookup failed  error code->%d\n",error_code));
        }
}

static int
process_sensors(int level, picl_nodehdl_t nodeh)
{
    picl_nodehdl_t  childh;

    char		propname[PICL_PROPNAMELEN_MAX];
    char		propclass[PICL_CLASSNAMELEN_MAX];
    picl_errno_t	error_code;
    picl_prophdl_t	prop_handle;
    picl_propinfo_t	prop_info;


    level++;
/*
    DEBUGMSGTL(("ucd-snmp/lmSensors","Processing sensors level %d\n",level));
*/

    error_code = picl_get_propval_by_name(nodeh, PICL_PROP_CLASSNAME, propclass,
                                        (PICL_PROPNAMELEN_MAX-1));
    if (error_code != PICL_SUCCESS) {
        DEBUGMSG(("ucd-snmp/lmSensors","Couldn't get propclass\n"));
                return (error_code);
    }

    error_code = picl_get_prop_by_name(nodeh, PICL_PROP_NAME, &prop_handle);

    if (error_code != PICL_SUCCESS) {
        DEBUGMSGTL(("ucd-snmp/lmSensors","Couldn't get prop_handle\n"));
        return (error_code);

    }

    error_code = picl_get_propinfo(prop_handle, &prop_info);

    if (error_code != PICL_SUCCESS) {
        DEBUGMSGTL(("ucd-snmp/lmSensors","Couldn't get prop information\n"));
        return (error_code);

    }

    error_code=picl_get_propval(prop_handle, propname, (PICL_PROPNAMELEN_MAX-1));

    DEBUGMSGTL(("ucd-snmp/lmSensors","found propname %s of class %s\n",propname, propclass));

    if (error_code != PICL_SUCCESS) {
        DEBUGMSGTL(("ucd-snmp/lmSensors","Couldn't get prop handle by name\n"));
        return (error_code);

    }

    if (strstr(propclass,"flashprom"))
       DEBUGMSGTL(("ucd-snmp/lmSensors","found a flashprom\n"));
    if (strstr(propclass,"fan-tachometer"))
        process_individual_fan(nodeh,propname);
    if (strstr(propclass,"temperature-sensor"))
        process_temperature_sensor(nodeh,propname);
    if (strstr(propclass,"digital-sensor"))
        process_digital_sensor(nodeh,propname);
    if (strstr(propclass,"switch"))
        process_switch(nodeh,propname);
    if (strstr(propclass,"led"))
        process_led(nodeh,propname);
    if (strstr(propclass,"i2c"))
        process_i2c(nodeh,propname);
/*
        if (strstr(propclass,"gpio"))
            process_gpio(prop_handle,propname); 
*/
    for (error_code = picl_get_propval_by_name(nodeh, PICL_PROP_CHILD,
          &childh, sizeof (picl_nodehdl_t)); 
          error_code != PICL_PROPNOTFOUND;
          error_code = picl_get_propval_by_name(childh, PICL_PROP_PEER,
           &childh, sizeof (picl_nodehdl_t))) {
       if (error_code != PICL_SUCCESS) {
            return (error_code);
          }

       /* call itself recursively */

       error_code = process_sensors(level,childh);

       if (error_code != PICL_SUCCESS)
           return (error_code);

       } /* end for */

    return (PICL_SUCCESS);


} /* process sensors */

#endif
/* ******** end of picld sensor procedures * */

#endif /* solaris2 */

static void
_sensor_load(clock_t t)
{
#ifdef solaris2
    int i,j;
    int typ;
    int temp;
    int other;
    const char *fantypes[]={"CPU","PWR","AFB"};
    kstat_ctl_t *kc;
    kstat_t *kp;
    envctrl_fan_t *fan_info;
    envctrl_ps_t *power_info;
    envctrl_encl_t *enc_info;

#ifdef HAVE_PICL_H
    int er_code;
    picl_errno_t     error_code;
    int level=0;
    picl_nodehdl_t  rooth;
#endif 

 DEBUGMSGTL(("ucd-snmp/lmSensors", "Reading the sensors\n")); 

/* initialize the array */
    for (i = 0; i < N_TYPES; i++){
        sensor_array[i].n = 0;
        for (j=0; j < MAX_SENSORS; j++){
            sensor_array[i].sensor[j].name[0] = '\0';
            sensor_array[i].sensor[j].value = 0;
             }
        } /*end for i*/

/* try picld (if supported), then try kstat */
#ifdef HAVE_PICL_H 

DEBUGMSGTL(("ucd-snmp/lmSensors","trying picld first\n"));

er_code = picl_initialize();

if (er_code == PICL_SUCCESS) {

    DEBUGMSGTL(("ucd-snmp/lmSensors","Got into picld\n"));

    error_code = picl_get_root(&rooth);

    if (error_code != PICL_SUCCESS) {
        DEBUGMSGTL(("ucd-snmp/lmSensors", "picld couldn't get root error code->%d\n",error_code));
        }
    else{
        DEBUGMSGTL(("ucd-snmp/lmSensors", "found root\n"));
        error_code = process_sensors(level, rooth);
       } /* end else */

    picl_shutdown();

}  /* end if err_code for picl_initialize */
else {
    DEBUGMSGTL(("ucd-snmp/lmSensors","No picld available\n"));

} /*end else picl_initialize */

#endif  /* end of picld section */
/* initialize kstat */

kc = kstat_open();
if (kc == 0) {
    DEBUGMSGTL(("ucd-snmp/lmSensors", "couldn't open kstat\n"));
    } /* endif kc */
else{
    DEBUGMSGTL(("ucd-snmp/lmSensors", "Opened kstat - looking for sensors\n"));
    kp = kstat_lookup(kc, ENVCTRL_MODULE_NAME, 0, ENVCTRL_KSTAT_FANSTAT);
    if (kp == 0) {
        DEBUGMSGTL(("ucd-snmp/lmSensors", "couldn't lookup fan kstat\n"));
        } /* endif lookup fans */
    else{
        if (kstat_read(kc, kp, 0) == -1) {
            DEBUGMSGTL(("ucd-snmp/lmSensors", "couldn't read fan kstat\n"));
            } /* endif kstatread fan */
        else{
            typ = 1;
            fan_info = (envctrl_fan_t *) kp->ks_data;
            sensor_array[typ].n = kp->ks_ndata;
            for (i=0; i < kp->ks_ndata; i++){
                DEBUGMSGTL(("ucd-snmp/lmSensors", "found instance %d fan type %d speed %d OK %d bustedfan %d\n",
                    fan_info->instance, fan_info->type,fan_info->fanspeed,fan_info->fans_ok,fan_info->fanflt_num));
                sensor_array[typ].sensor[i].value = fan_info->fanspeed;
                snprintf(sensor_array[typ].sensor[i].name,(MAX_NAME - 1),
                   "fan type %s number %d",fantypes[fan_info->type],fan_info->instance);
                sensor_array[typ].sensor[i].name[MAX_NAME - 1] = '\0';
                fan_info++;
                } /* end for fan_info */
            } /* end else kstatread fan */
        } /* end else lookup fans*/


    kp = kstat_lookup(kc, ENVCTRL_MODULE_NAME, 0, ENVCTRL_KSTAT_PSNAME);
    if (kp == 0) {
        DEBUGMSGTL(("ucd-snmp/lmSensors", "couldn't lookup power supply kstat\n"));
        } /* endif lookup power supply */
    else{
        if (kstat_read(kc, kp, 0) == -1) {
            DEBUGMSGTL(("ucd-snmp/lmSensors", "couldn't read power supply kstat\n"));
            } /* endif kstatread fan */
        else{
            typ = 2;
            power_info = (envctrl_ps_t *) kp->ks_data;
            sensor_array[typ].n = kp->ks_ndata;
            for (i=0; i < kp->ks_ndata; i++){
                DEBUGMSGTL(("ucd-snmp/lmSensors", "found instance %d psupply temp %d %dW OK %d share %d limit %d\n",
                    power_info->instance, power_info->ps_tempr,power_info->ps_rating,
                    power_info->ps_ok,power_info->curr_share_ok,power_info->limit_ok));
                sensor_array[typ].sensor[i].value = power_info->ps_tempr;
                snprintf(sensor_array[typ].sensor[i].name,(MAX_NAME-1),
                         "power supply %d",power_info->instance);
                sensor_array[typ].sensor[i].name[MAX_NAME - 1] = '\0';
                power_info++;
                } /* end for power_info */
            } /* end else kstatread power supply */
        } /* end else lookup power supplies*/

    kp = kstat_lookup(kc, ENVCTRL_MODULE_NAME, 0, ENVCTRL_KSTAT_ENCL);
    if (kp == 0) {
        DEBUGMSGTL(("ucd-snmp/lmSensors", "couldn't lookup enclosure kstat\n"));
        } /* endif lookup enclosure */
    else{
        if (kstat_read(kc, kp, 0) == -1) {
            DEBUGMSGTL(("ucd-snmp/lmSensors", "couldn't read enclosure kstat\n"));
            } /* endif kstatread enclosure */
        else{
            enc_info = (envctrl_encl_t *) kp->ks_data; 
            temp = 0;
            other = 0;
            for (i=0; i < kp->ks_ndata; i++){
               switch (enc_info->type){
               case ENVCTRL_ENCL_FSP:
                   DEBUGMSGTL(("ucd-snmp/lmSensors", "front panel value %d\n",enc_info->value));
                   typ = 3; /* misc */
                   sensor_array[typ].sensor[other].value = enc_info->value;
                   strncpy(sensor_array[typ].sensor[other].name,"FSP",MAX_NAME-1);
                   sensor_array[typ].sensor[other].name[MAX_NAME-1]='\0'; /* null terminate */
                   other++;
                   break;
               case ENVCTRL_ENCL_AMBTEMPR:
                   DEBUGMSGTL(("ucd-snmp/lmSensors", "ambient temp %d\n",enc_info->value));
                   typ = 0; /* temperature sensor */
                   sensor_array[typ].sensor[temp].value = enc_info->value;
                   strncpy(sensor_array[typ].sensor[temp].name,"Ambient",MAX_NAME-1);
                   sensor_array[typ].sensor[temp].name[MAX_NAME-1]='\0'; /* null terminate */
                   temp++;
                   break;
               case ENVCTRL_ENCL_BACKPLANE4:
                   DEBUGMSGTL(("ucd-snmp/lmSensors", "There is a backplane4\n"));
                   typ = 3; /* misc */
                   sensor_array[typ].sensor[other].value = enc_info->value;
                   strncpy(sensor_array[typ].sensor[other].name,"Backplane4",MAX_NAME-1);
                   sensor_array[typ].sensor[other].name[MAX_NAME-1]='\0'; /* null terminate */
                   other++;
                   break;
               case ENVCTRL_ENCL_BACKPLANE8:
                   DEBUGMSGTL(("ucd-snmp/lmSensors", "There is a backplane8\n"));
                   typ = 3; /* misc */
                   sensor_array[typ].sensor[other].value = enc_info->value;
                   strncpy(sensor_array[typ].sensor[other].name,"Backplane8",MAX_NAME-1);
                   sensor_array[typ].sensor[other].name[MAX_NAME-1]='\0'; /* null terminate */
                   other++;
                   break;
               case ENVCTRL_ENCL_CPUTEMPR:
                   DEBUGMSGTL(("ucd-snmp/lmSensors", "CPU%d temperature %d\n",enc_info->instance,enc_info->value));
                   typ = 0; /* temperature sensor */
                   sensor_array[typ].sensor[temp].value = enc_info->value;
                   snprintf(sensor_array[typ].sensor[temp].name,MAX_NAME,"CPU%d",enc_info->instance);
                   sensor_array[typ].sensor[other].name[MAX_NAME-1]='\0'; /* null terminate */
                   temp++;
                   break;
               default:
                   DEBUGMSGTL(("ucd-snmp/lmSensors", "unknown element instance &d type &d value %d\n",
                       enc_info->instance, enc_info->type, enc_info->value));
                   break;
               } /* end switch */
               enc_info++;
               } /* end for enc_info */
               sensor_array[3].n = other;
               sensor_array[0].n = temp;
            } /* end else kstatread enclosure */
        } /* end else lookup enclosure*/

    kstat_close(kc);


} /* end else kstat */
#else /* end solaris2 */

    const sensors_chip_name *chip;
    const sensors_feature_data *data;
    int             chip_nr = 0;

    int             i;
    for (i = 0; i < N_TYPES; i++)
        sensor_array[i].n = 0;

    while ((chip = sensors_get_detected_chips(&chip_nr))) {
	int             a = 0;
	int             b = 0;
        while ((data = sensors_get_all_features(*chip, &a, &b))) {
            char           *label = NULL;
            double          val;

            if ((data->mode & SENSORS_MODE_R) &&
                (data->mapping == SENSORS_NO_MAPPING) &&
                !sensors_get_label(*chip, data->number, &label) &&
                !sensors_get_feature(*chip, data->number, &val)) {
                int             type = -1;
                float           mul;
                _sensor_array  *array;


                if (strstr(label, "V")) {
                    type = 2;
                    mul = 1000.0;
                }
                if (strstr(label, "fan") || strstr(label, "Fan")) {
                    type = 1;
                    mul = 1.0;
                }
                if (strstr(label, "temp") || strstr(label, "Temp")) {
                    type = 0;
                    mul = 1000.0;
                }
                if (type == -1) {
                    type = 3;
                    mul = 1000.0;
                }

                array = &sensor_array[type];
                if (MAX_SENSORS <= array->n) {
                    snmp_log(LOG_ERR, "too many sensors. ignoring %s\n", label);
                    break;
                }
                strncpy(array->sensor[array->n].name, label, MAX_NAME);
                array->sensor[array->n].value = (int) (val * mul);
                DEBUGMSGTL(("ucd-snmp/lmSensors","sensor %d, value %d\n",
                            array->sensor[array->n].name,
                            array->sensor[array->n].value));
                array->n++;
            }
	    if (label) {
		free(label);
		label = NULL;
	    }
        }
    }
#endif /*else solaris2 */
    timestamp = t;
}
