Imported Upstream version 2.9.3upstream/2.9.3

1 files changed, 1153 insertions, 0 deletions

diff --git a/util/ihealth.c b/util/ihealth.c
new file mode 100644
index 0000000..6f6f0e1
--- /dev/null
+++ b/util/ihealth.c
@@ -0,0 +1,1153 @@
+/*
+ * ihealth.c (was bmchealth.c)
+ *
+ * This tool checks the health of the BMC via IPMI.
+ * 
+ * Author:  Andy Cress  arcress at users.sourceforge.net
+ * Copyright (c) 2006 Intel Corporation. 
+ * Copyright (c) 2009 Kontron America, Inc.
+ *
+ * 03/22/06 Andy Cress - created
+ * 06/20/06 Andy Cress 0.6 - more vendor strings, add ping_node() stub for now
+ * 10/20/06 Andy Cress 1.1 - added -g for guid
+ * 01/10/07 Andy Cress 1.4 - added product strings
+ * 02/25/07 Andy Cress 2.8 - added more Chassis Status decoding
+ */
+/*M*
+Copyright (c) 2006, Intel Corporation
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without 
+modification, are permitted provided that the following conditions are met:
+
+  a.. Redistributions of source code must retain the above copyright notice, 
+      this list of conditions and the following disclaimer. 
+  b.. Redistributions in binary form must reproduce the above copyright notice,
+      this list of conditions and the following disclaimer in the documentation 
+      and/or other materials provided with the distribution. 
+  c.. Neither the name of Intel Corporation nor the names of its contributors 
+      may be used to endorse or promote products derived from this software 
+      without specific prior written permission. 
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND 
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR 
+ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON 
+ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *M*/
+#ifdef WIN32
+#include <windows.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include "getopt.h"
+#elif defined(DOS)
+#include <dos.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include "getopt.h"
+#else
+#include <stdio.h>
+#include <stdlib.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#if defined(HPUX)
+/* getopt is defined in stdio.h */
+#elif defined(MACOS)
+/* getopt is defined in unistd.h */
+#include <unistd.h>
+#else
+#include <getopt.h>
+#endif
+#endif
+#include <string.h>
+#include "ipmicmd.h"
+#include "oem_intel.h"
+ 
+#define  SELFTEST_STATUS   0x04
+#define  GET_POWER_STATE   0x07
+extern int get_BiosVersion(char *str);
+extern int get_SystemGuid(uchar *guid);
+extern int GetSDR(int id, int *next, uchar *recdata, int srecdata, int *rlen);
+extern int get_device_guid(char *pbuf, int *sz); /*subs.c*/
+extern int oem_supermicro_get_health(char *pstr, int sz);  /*oem_supermicro.c*/
+extern int oem_supermicro_get_firmware_str(char *pstr, int sz); /*oem_supermicro.c*/
+
+/*
+ * Global variables 
+ */
+static char * progname  = "ihealth";
+static char * progver   = "2.93";
+static char   fdebug    = 0;
+static char   fipmilan  = 0;
+static char   fcanonical = 0;
+static char   do_hsc    = 0;
+static char   do_me     = 0;
+static char   do_frusdr = 0;
+static char   do_guid   = 0;
+static char   do_powerstate  = 1;
+static char   do_lanstats    = 0;
+static char   do_session     = 0;
+static char   do_systeminfo  = 0;
+static char   set_restore    = 0;
+static char   set_name       = 0;
+static char   set_os         = 0;
+static char   set_os2        = 0;
+static uchar  restore_policy = 0;
+static uchar  bChan     = 0x0e;
+static char   fmBMC     = 0;
+static char   bdelim    = '=';  /*delimiter to separate name/value pairs*/
+static char   bcomma    = ',';  /*comma delimiter, may change if CSV*/
+static char   lan_ch_restrict = 0;
+static int    kcs_loops = 0;
+static int    vend_id = 0;
+static int    prod_id = 0;
+static char  *pname = NULL;
+static char  *pos   = NULL;
+static char  *pos2  = NULL;
+static uchar  g_bus  = PUBLIC_BUS;
+static uchar  g_sa   = BMC_SA;
+static uchar  g_lun  = BMC_LUN;
+static uchar  g_addrtype = ADDR_SMI;
+
+
+int oem_get_health(char *pstr, int sz)
+{
+   int rv;
+   switch(vend_id) {
+   case VENDOR_PEPPERCON:
+   case VENDOR_SUPERMICRO:
+	rv = oem_supermicro_get_health(pstr, sz);
+	break;
+   case VENDOR_SUPERMICROX:
+	rv = oem_supermicro_get_firmware_str(pstr,sz);
+	break;
+   default:
+	rv = LAN_ERR_NOTSUPPORT;
+	break;
+   }
+   if (fdebug) printf("oem_get_health rv = %d\n",rv);
+   return rv;
+}
+
+int get_lan_stats(uchar chan)
+{
+   uchar idata[2];
+   uchar rdata[20];
+   int rlen, rv;
+   uchar cc;
+   ushort *rw;
+
+   /* get BMC LAN Statistics */
+   idata[0] = chan;
+   idata[1] = 0x00;  /*do not clear stats*/
+   rlen = sizeof(rdata);
+   rv = ipmi_cmd(GET_LAN_STATS, idata,2, rdata,&rlen, &cc, fdebug); 
+   if (fdebug) printf("get_lan_stats: rv = %d, cc = %02x\n",rv,cc);
+   if (rv == 0) {
+     if (cc == 0) {  /*success, show BMC LAN stats*/
+	rw = (ushort *)&rdata[0];
+	printf("IPMI LAN channel %d statistics: \n",chan);
+	printf(" \tReceived IP Packets      %c %d\n",bdelim,rw[0]);
+	printf(" \tRecvd IP Header errors   %c %d\n",bdelim,rw[1]);
+	printf(" \tRecvd IP Address errors  %c %d\n",bdelim,rw[2]);
+	printf(" \tRecvd IP Fragments       %c %d\n",bdelim,rw[3]);
+	printf(" \tTransmitted IP Packets   %c %d\n",bdelim,rw[4]);
+	printf(" \tReceived UDP Packets     %c %d\n",bdelim,rw[5]);
+	printf(" \tReceived Valid RMCP Pkts %c %d\n",bdelim,rw[6]);
+	printf(" \tReceived UDP Proxy Pkts  %c %d\n",bdelim,rw[7]);
+	printf(" \tDropped UDP Proxy Pkts   %c %d\n",bdelim,rw[8]);
+     } else if (cc == 0xc1) {
+	printf("IPMI LAN channel %d statistics: not supported\n",chan);
+     }
+   }
+   return(rv);
+}
+
+int get_session_info(uchar idx, int hnd, uchar *rdata, int *len)
+{
+   uchar idata[5];
+   int ilen, rlen, rv;
+   uchar cc;
+
+   ilen = 1;
+   idata[0] = idx;
+   if (idx == 0xFE) {
+      idata[1] = (uchar)hnd;
+      ilen = 2;
+   } else if (idx == 0xFF) {
+      idata[1] = (uchar)(hnd & 0x000000FF);
+      idata[2] = (uchar)((hnd & 0x0000FF00) >> 8);
+      idata[3] = (uchar)((hnd & 0x00FF0000) >> 16);
+      idata[4] = (uchar)((hnd & 0xFF000000) >> 24);
+      ilen = 5;
+   }
+   rlen = *len;
+   *len = 0;
+   rv = ipmi_cmdraw(CMD_GET_SESSION_INFO,NETFN_APP,
+                        g_sa, g_bus, g_lun,
+                        idata,ilen, rdata,&rlen,&cc, fdebug);
+   if (fdebug) printf("get_lan_stats: rv = %d, cc = %02x\n",rv,cc);
+   if (rv == 0) *len = rlen;
+   if ((rv == 0) && (cc != 0)) rv = cc;
+   return(rv); 
+}
+
+static char *sesstype_str(uchar c)
+{
+   uchar b;
+   char *s;
+   b = ((c & 0xf0) >> 4);
+   switch(b) {
+      case 0: s = "IPMIv1.5"; break;
+      case 1: s = "IPMIv2/RMCP+"; break;
+      default: s = "Other"; break;
+   }
+   return s;
+}
+      
+static void show_session_info(uchar idx, uchar *sinfo,int len)
+{
+   int i;
+   char lan_type = 1;
+   if (fdebug) {
+      printf("Raw Session Info[%d]: ",idx);
+      for (i = 0; i < len; i++) printf("%02x ",sinfo[i]);
+      printf("\n");
+   }
+
+   printf("Session Info[%d]:\n",idx);
+   printf("\tSession Handle      %c %d\n",bdelim,sinfo[0]);
+   printf("\tSession Slot Count  %c %d\n",bdelim,(sinfo[1] & 0x3f));
+   printf("\tActive Sessions     %c %d\n",bdelim,(sinfo[2] & 0x3f));
+   if (len <= 3) return;
+   printf("\tUser ID             %c %d\n",bdelim,(sinfo[3] & 0x3f));
+   printf("\tPrivilege Level     %c %d\n",bdelim,(sinfo[4] & 0x0f));
+   printf("\tSession Type        %c %s\n",bdelim,sesstype_str(sinfo[5]));
+   printf("\tChannel Number      %c %d\n",bdelim,(sinfo[5] & 0x0f));
+   if (len <= 6) return;
+   if (lan_type) {
+       printf("\tConsole IP          %c %d.%d.%d.%d\n",bdelim,
+			sinfo[6],sinfo[7],sinfo[8],sinfo[9]);
+       printf("\tConsole MAC         %c %02x:%02x:%02x:%02x:%02x:%02x\n",bdelim,
+			sinfo[10], sinfo[11], sinfo[12],
+			sinfo[13], sinfo[14], sinfo[15]);
+       printf("\tConsole Port        %c %d\n",bdelim,
+			sinfo[16]+ (sinfo[17] << 8));
+   }
+}
+
+int get_session_info_all(void)
+{
+   int rv, len, nslots, i;
+   uchar sinfo[24];
+   nslots = 1;
+   for (i = 1; i <= nslots; i++) {
+      len = sizeof(sinfo);
+      rv = get_session_info(i,0,sinfo,&len);
+      if (fdebug) printf("get_session_info(%d): rv = %d\n",i,rv);
+      if (rv != 0) {
+         if ((rv == 0xCB) || (rv == 0xCC)) {
+            if (len >= 3) show_session_info(i,sinfo,len);
+	    if (i > 1) rv = 0; /*no such idx, end */
+	 }
+         break;
+      }
+      nslots = (sinfo[1] & 0x3F);
+      show_session_info(i,sinfo,len);
+   }
+   return(rv); 
+}
+
+static int get_selftest_status(uchar *rdata, int rlen)
+{
+	uchar idata[4];
+	uchar ccode;
+	int ret;
+
+        ret = ipmi_cmdraw( SELFTEST_STATUS, NETFN_APP,
+                        g_sa, g_bus, g_lun,
+                        idata,0, rdata,&rlen,&ccode, fdebug);
+	if (ret == 0 && ccode != 0) ret = ccode;
+	return(ret);
+}  /*end get_selftest_status()*/
+
+static int get_last_selftest(uchar *val, int vlen)
+{
+   uchar idata[4]; 
+   uchar rdata[16]; 
+   int rlen;
+   uchar ccode;
+   int ret;
+
+   if (val == NULL) return(ERR_BAD_PARAM);
+   idata[0] = 0;  /*0=first, 1=next*/
+   memset(rdata,0xFF,2);  /*initial value = end-of-list*/
+   rlen = sizeof(rdata);
+   ret = ipmi_cmdraw( 0x16, 0x30, g_sa, g_bus, g_lun,
+                        idata,1, rdata,&rlen,&ccode, fdebug);
+   if (ret == 0 && ccode != 0) ret = ccode;
+   if (ret == 0) {
+      if (rlen <= 0) ret = LAN_ERR_BADLENGTH; 
+      else {
+        if (rlen > vlen) rlen = vlen;  /*truncate if too long*/
+        memcpy(val,rdata,rlen);
+      }
+   }
+   return(ret);
+}
+
+static int get_chassis_status(uchar *rdata, int *rsz)
+{
+	uchar idata[4];
+	uchar ccode;
+        int rlen;
+	int ret;
+
+	rlen = *rsz;
+        ret = ipmi_cmdraw( CHASSIS_STATUS, NETFN_CHAS,
+			g_sa, g_bus, g_lun,
+                        idata,0, rdata,&rlen,&ccode, fdebug);
+	if (ret == 0 && ccode != 0) ret = ccode;
+        if (ret == 0) *rsz = rlen;
+	return(ret);
+}  /*end chassis_status()*/
+
+static void show_chs_status(uchar *sbuf, int slen)
+{
+   char chs_strbuf[80];
+   char *pstr;
+   uchar state, b2, b3, b4;
+
+   pstr = &chs_strbuf[0];
+   state = sbuf[0] & 0x7f;
+   b2 = sbuf[1];
+   b3 = sbuf[2];
+   sprintf(pstr,"%s",(state & 0x01) ? "on" : "off");
+   printf("Chassis Status    %c %02x %02x %02x %02x (%s, see below)\n",
+		bdelim,state,sbuf[1],sbuf[2],sbuf[3],pstr);
+   sprintf(pstr,"\tchassis_power       %c ",bdelim);
+   if (state & 0x01) strcat(pstr,"on");
+   else strcat(pstr,"off");
+   if (state & 0x02) strcat(pstr,", overload");
+   if (state & 0x04) strcat(pstr,", interlock");
+   if (state & 0x08) strcat(pstr,", fault");
+   if (state & 0x10) strcat(pstr,", control error");
+   printf("%s\n",pstr);
+
+   sprintf(pstr,"\tpwr_restore_policy  %c ",bdelim);
+   if (state & 0x20) strcat(pstr,"last_state");
+   else if (state & 0x40) strcat(pstr,"turn_on");
+   else strcat(pstr,"stay_off");
+   printf("%s\n",pstr);
+
+   if (b2 != 0) {
+      sprintf(pstr,"\tlast_power_event    %c ",bdelim);
+      if (b2 & 0x10) strcat(pstr,"IPMI ");
+      if (b2 & 0x08) strcat(pstr,"fault ");
+      if (b2 & 0x04) strcat(pstr,"interlock ");
+      if (b2 & 0x02) strcat(pstr,"overload ");
+      if (b2 & 0x01) strcat(pstr,"ACfailed");
+      printf("%s\n",pstr);
+   }
+   printf("\tchassis_intrusion   %c %s\n", bdelim,
+		(b3 & 0x01) ? "active":"inactive");
+   printf("\tfront_panel_lockout %c %s\n", bdelim,
+		(b3 & 0x02) ? "active":"inactive"); 
+   printf("\tdrive_fault         %c %s\n", bdelim,
+		(b3 & 0x04) ? "true":"false"); 
+   printf("\tcooling_fan_fault   %c %s\n", bdelim,
+		(b3 & 0x08) ? "true":"false"); 
+   if (slen > 3) {
+      b4 = sbuf[3];
+      if (b4 & 0x80) {
+	  printf("\tFP sleep_button_disable %c allowed, button %s\n",bdelim,
+			(b4 & 0x08) ? "disabled":"enabled");
+      }
+      if (b4 & 0x40) {
+	  printf("\tFP diag_button_disable  %c allowed, button %s\n",bdelim,
+			(b4 & 0x04) ? "disabled":"enabled");
+      }
+      if (b4 & 0x20) {
+	  printf("\tFP reset_button_disable %c allowed, button %s\n",bdelim,
+			(b4 & 0x02) ? "disabled":"enabled");
+      }
+      if (b4 & 0x10) {
+	  printf("\tFP power_button_disable %c allowed, button %s\n",bdelim,
+			(b4 & 0x01) ? "disabled":"enabled");
+      }
+   }
+   return;
+}
+
+static int get_power_state(uchar *rdata, int rlen)
+{
+	uchar idata[4];
+	uchar ccode;
+	int ret;
+
+        ret = ipmi_cmdraw( GET_POWER_STATE, NETFN_APP,
+			g_sa, g_bus, g_lun,
+                        idata,0, rdata,&rlen,&ccode, fdebug);
+	if (ret == 0 && ccode != 0) ret = ccode;
+	return(ret);
+}  /*end get_power_state()*/
+
+static char *pwr_string(uchar pstate)
+{
+   char *pstr;
+   switch(pstate) {
+      case 0x00: pstr = "S0: working"; break; 
+      case 0x01: pstr = "S1: clock stopped, context ok"; break; 
+      case 0x02: pstr = "S2: clock stopped, context lost"; break; 
+      case 0x03: pstr = "S3: suspend-to-RAM"; break; 
+      case 0x04: pstr = "S4: suspend-to-Disk"; break; 
+      case 0x05: pstr = "S5: soft off"; break; 
+      case 0x06: pstr = "S4/S5: soft off, either S4 or S5"; break; 
+      case 0x07: pstr = "G3: mechanical off"; break; 
+      case 0x08: pstr = "S1-S3: sleeping"; break; 
+      case 0x09: pstr = "S1-S4: sleeping"; break; 
+      case 0x0A: pstr = "S5/o: soft off by override"; break; 
+      case 0x20: pstr = "legacy on"; break; 
+      case 0x21: pstr = "legacy soft-off"; break; 
+      case 0x2a:  /* not initialized or device lost track of state */
+      default:   pstr = "unknown"; break;
+   }
+   return(pstr);
+}
+
+#ifdef PING_OK
+extern int ping_bmc(char *node, char fdebug);
+
+static int ping_node(char *node)
+{
+   int rv = 0;
+   /* verify that the BMC LAN channel is configured & active */
+   /* send rmcp_ping to node's BMC */
+   rv = ping_bmc(node,fdebug);
+   return(rv);
+}
+#endif
+
+#define MIN_SDR_SZ  8
+static int get_frusdr_version(char *pver, int sver)
+{
+   ushort recid;
+   int recnext;
+   int ret, sz, i, len;
+   uchar sdr[MAX_BUFFER_SIZE];
+   char verstr[30];
+   char fIntel;
+   int verlen;
+
+   recid = 0;
+   verstr[0] = 0;
+   verlen = 0;
+   while (recid != 0xffff) 
+   {
+      memset(sdr,0,sizeof(sdr)); 
+      ret = GetSDR(recid,&recnext,sdr,sizeof(sdr),&sz);
+      if (fdebug)
+         printf("GetSDR[%04x]: ret = %x, next=%x\n",recid,ret,recnext);
+      if (ret != 0) {
+         if (ret > 0) {  /* ret is a completion code error */
+            if (fdebug)
+                printf("%04x GetSDR error 0x%02x %s, rlen=%d\n",recid,ret,
+			decode_cc((ushort)0,(uchar)ret),sz);
+         } else printf("%04x GetSDR error %d, rlen = %d\n", recid,ret,sz);
+         if (sz < MIN_SDR_SZ) {  /* don't have recnext, so abort */
+              break;
+         } /* else fall through & continue */
+      } else { /*got SDR */
+	 len = sdr[4] + 5;
+	 if (sdr[3] == 0xC0) {  /* OEM SDR */
+	     /* check for Intel mfg id  */
+	     if ((sdr[5] == 0x57) && (sdr[6] == 0x01) && (sdr[7] == 0x00))
+		fIntel = 1;
+	     else fIntel = 0;
+	     if (sdr[8] == 0x53) {  /*Intel OEM subtype, ASCII 'S' */
+		verlen = 0;
+		for (i = 8; i < len; i++) {
+		   if (sdr[i] == 0) break;
+		   if (i >= sizeof(verstr)) break;
+                   verstr[verlen++] = sdr[i];
+            	}
+                verstr[verlen] = 0;  /*stringify*/
+		/* continue on past SDR File, get SDR Package version */
+		// break;
+	     }
+         }  /*endif OEM SDR*/
+      }
+      if (recnext == recid) recid = 0xffff; /*break;*/
+      else recid = (ushort)recnext;
+   }
+   if (verlen > sver) verlen = sver;
+   if (fdebug) 
+	printf("get_frusdr_version: verstr=%s, verlen=%d\n",verstr,verlen);
+   strncpy(pver,verstr,verlen);
+   return(ret);
+}
+
+static int get_hsc_devid(uchar *rdata, int rlen)
+{
+	uchar ccode;
+	int ret;
+
+        ret = ipmi_cmdraw( 0x01, /*(GET_DEVICEID & 0x00ff)*/ 
+			NETFN_APP, 0xC0,PUBLIC_BUS,BMC_LUN,
+                        NULL,0, rdata,&rlen,&ccode, fdebug);
+	if (ret == 0 && ccode != 0) ret = ccode;
+	return(ret);
+}  /*end get_hsc_devid*/
+
+static int get_chan_auth(uchar chan, uchar *rdata, int rlen)
+{
+	uchar idata[4];
+	uchar ccode;
+	int ret;
+
+        idata[0] = chan; /*0x0e = this channel*/
+        idata[1] = 0x02; /*priv level = user*/
+        ret = ipmi_cmdraw( 0x38, NETFN_APP, /*CMD_GET_CHAN_AUTH_CAP*/ 
+			g_sa, g_bus, g_lun,
+                        idata,2, rdata,&rlen,&ccode, fdebug);
+	if (ret == 0 && ccode != 0) ret = ccode;
+	return(ret);
+}  /*end get_chan_auth*/
+
+void show_chan_auth(char *tag, uchar *rec, int srec)
+{
+   char pstr[40];
+   pstr[0] = 0;
+   if (rec[1] & 0x01) strcat(pstr,"None ");
+   if (rec[1] & 0x02) strcat(pstr,"MD2 ");
+   if (rec[1] & 0x04) strcat(pstr,"MD5 ");
+   if (rec[1] & 0x10) strcat(pstr,"Straight_Passwd ");
+   if (rec[1] & 0x20) strcat(pstr,"OEM ");
+   printf("Chan %d AuthTypes  %c %s\n",rec[0],bdelim,pstr);
+   if (do_hsc)  /*only show this if extra output*/
+     printf("Chan %d Status     %c %02x, OEM ID %02x%02x%02x OEM Aux %02x\n",
+            rec[0],bdelim,rec[2],rec[4],rec[5],rec[6],rec[7]);
+}
+
+#define BMC  1
+#define HSC  2
+
+#ifdef MOVED
+/* moved to subs.c*/
+#define N_MFG  41
+struct { int val; char *pstr; } mfgs[N_MFG] = { };
+char * get_iana_str(int mfg);
+#endif
+
+char * get_mfg_str(uchar *rgmfg, int *pmfg)
+{
+      char *mfgstr = "";
+      int mfg;
+      mfg  = rgmfg[0] + (rgmfg[1] << 8) + (rgmfg[2] << 16);
+      if (pmfg != NULL) *pmfg = mfg;  /*vend_id*/
+      mfgstr = get_iana_str(mfg);
+      return(mfgstr);
+}
+
+/* int get_system_info(uchar parm, char *pbuf, int *szbuf);  *see subs.c*/
+/* int set_system_info(uchar parm, uchar *pbuf, int *szbuf);  *see subs.c*/
+
+void show_devid_all(int dtype, uchar *devrec, int sdevrec)
+{
+   uchar ipmi_maj = 0;
+   uchar ipmi_min = 0;
+   char *tag; 
+   int mfg, prod;
+   char *mfgstr = "";
+   char *prodstr = "";
+   char prodoem[40];
+   char extraver[32];
+   int i, j, k, l, rv;
+
+      ipmi_maj = devrec[4] & 0x0f;
+      ipmi_min = devrec[4] >> 4;
+      prod = devrec[9] + (devrec[10] << 8);
+      mfgstr = get_mfg_str(&devrec[6],&mfg);
+      vend_id = mfg;
+      prod_id = prod;
+      extraver[0] = 0;
+      if (dtype == HSC) tag = "HSC";
+      else {
+	tag = "BMC";
+	/* The product ids below only apply to BMCs */
+	switch(mfg) {
+         case VENDOR_NSC:      /*=0x000322*/
+	     fmBMC = 1;
+             if (dtype == BMC) tag="mBMC";
+             if (prod == 0x4311) prodstr = "(TIGPT1U)"; /*Intel*/
+             break;
+         case VENDOR_SUN:      /*=0x00002a*/
+	     if (prod == 0x4701) prodstr = "(X4140)"; 
+             break;
+         case VENDOR_TYAN:      /*=0x0019fd*/
+             switch(prod) {     /* show product names for some */
+                 case 0x0b41:   prodstr = "(M3289)"; break;
+                 case 0x0f98:   prodstr = "(M3291)"; break;
+                 case 0x137d:   prodstr = "(S4989)"; break;
+                 case 0x13ee:   prodstr = "(S5102)"; break;
+                 case 0x14fc:   prodstr = "(S5372)"; break;
+                 default:       prodstr = ""; break;
+             }
+             break;
+         case VENDOR_FUJITSU:      /*=0x002880*/
+	     if (prod >= 0x200) prodstr = "(iRMC S2)"; 
+	     else prodstr = "";
+             break;
+         case VENDOR_CISCO:      /*=0x00168b*/
+	     if (prod == 0x0005) prodstr = "(UCS C200)"; 
+	     else prodstr = "";
+             if (fipmilan) lan_ch_restrict = 1; /*fw bug, gets 0xC1 on ipmilan*/
+             break;
+         case VENDOR_INTEL:     /*=0x000157*/
+	     if (do_hsc && (dtype == BMC)) /*if HSC option, also show extra*/
+	         sprintf(extraver," (Boot %x.%x PIA %x.%x)", /*BMC extra*/
+			devrec[11],devrec[12],devrec[13],devrec[14]);
+             switch(prod) {     /* show product names for some */
+                 case 0x000C:   prodstr = "(TSRLT2)";    /*SCB2*/
+                                bChan = 7;  break;
+                 case 0x001B:   prodstr = "(TIGPR2U)";   /*SWV2*/
+                                bChan = 7;  break;
+                 case 0x0022:   prodstr = "(TIGI2U)"; break;   /*SJR2*/
+                 case 0x0026:   prodstr = "(Bridgeport)"; break;
+                 case 0x0028:   prodstr = "(S5000PAL)"; break; /*Alcolu*/
+                 case 0x0029:   prodstr = "(S5000PSL)"; break; /*StarLake*/
+                 case 0x002B:   prodstr = "(S5000VSA)"; break; 
+                 case 0x002D:   prodstr = "(MFSYS25)"; break; /*ClearBay*/
+                 case 0x003E:   prodstr = "(S5520UR)";   /*CG2100 or NSN2U*/
+				do_me = 1; kcs_loops = URNLOOPS;
+                                bChan = 1;  break;
+                 case 0x0040:   prodstr = "(QSSC-S4R)";  /*Stoutland*/
+				do_me = 1; kcs_loops = URNLOOPS;
+                                bChan = 1;  break;
+                 case 0x0100:   prodstr = "(Tiger4)"; break;
+                 case 0x0103:   prodstr = "(McCarran)";  /*BladeCenter*/
+			do_powerstate = 0;   break; 
+                 case 0x0800:   prodstr = "(ZT5504)";    /*ZiaTech*/
+			do_powerstate = 0;   break; 
+                 case 0x0808:   prodstr = "(MPCBL0001)";   /*ATCA Blade*/
+			do_powerstate = 0;   break; 
+                 case 0x0841:   prodstr = "(MPCMM0001)";   /*ATCA CMM*/
+			do_powerstate = 0;   break; 
+                 case 0x0811:   prodstr = "(TIGW1U)";  break; /*S5000PHB*/
+                 case 0x4311:   prodstr = "(NSI2U)";     /*SE7520JR23*/
+				if (dtype == BMC) tag="mBMC";
+				fmBMC = 1; break;
+                 default:       prodstr = ""; break;
+             }
+	     if (is_romley(mfg,prod)) {
+		intel_romley_desc(mfg,prod,&prodstr);
+		snprintf(prodoem,sizeof(prodoem),"(%s)",prodstr);
+		prodstr = prodoem;
+		do_me = 1; kcs_loops = URNLOOPS; 
+		do_hsc = 1; /*the HSC is embedded, so not the same*/
+	        sprintf(extraver,".%d (Boot %x.%x)", /*BMC extra*/
+			(devrec[13] + (devrec[14] << 8)),devrec[11],devrec[12]);
+	     }
+             break;
+         case VENDOR_KONTRON:     /*=0x003A98=15000.*/
+	     i = devrec[11] + (devrec[12] << 8);
+	     j = devrec[13] + (devrec[14] << 8);
+	     k = 0; l = 0;
+	     { /* get Kontron firmware version with OEM cmd */
+		int rlen;
+		uchar idata[4];
+		uchar rdata[16];
+		uchar cc;
+                rlen = sizeof(rdata);
+	        idata[0] = 0;
+	        idata[1] = 0;
+	        idata[2] = 1;
+	        rv = ipmi_cmdraw(0x2f, 0x2c, g_sa, g_bus, g_lun,
+				   idata,3,rdata,&rlen,&cc,fdebug);
+                if (rv == 0 && cc == 0) {
+		   k = rdata[1];
+		   l = rdata[2];
+	        }
+	     }
+	     sprintf(extraver,".%02d.%02d (FW %x.%x)",i,j,k,l);
+             switch(prod) {     /* show product names for some */
+                 case 0x1590:   prodstr = "(KTC5520)";  break;
+                 default:       prodstr = ""; break;
+             }
+             break;
+         case VENDOR_PEPPERCON:  /*=0x0028c5 Peppercon/Raritan */
+	     if (prod == 0x0004) prodstr = "(AOC-IPMI20)"; /*SuperMicro*/
+	     else if (prod == 0x0007) prodstr = "(RMM2)";  /*Intel RMM2*/
+             break;
+         case VENDOR_HP:        /*=0x00000B*/
+             switch(prod) {     /* show product names for some */
+                 case 0x2000:   prodstr = "(Proliant ML/DL)"; break; /*DL380*/
+                 case 0x2020:   prodstr = "(Proliant BL)"; break;
+                 default:  if ((prod & 0xff00) == 0x8300) 
+				prodstr = "(Proliant SL)";
+			   else prodstr = ""; 
+			   break;
+             }
+	     do_powerstate = 0; /*HP does not support get_power_state cmd*/
+             break;
+         case VENDOR_DELL:        /*=0x0002A2*/
+             switch(prod) {     /* show product names for some */
+                 case 0x0100:   prodstr = "(PE R610)"; break;
+                 default:       prodstr = ""; break;
+             }
+             break;
+         case VENDOR_MAGNUM:     /* =5593. used by SuperMicro*/
+             switch(prod) {     /* show product names for some */
+		 case 6:	prodstr = "(X8DTL)"; break;
+                 default:       prodstr = ""; break;
+             }
+             break;
+         case VENDOR_SUPERMICRO:    /* =10876. used by SuperMicro*/
+         case VENDOR_SUPERMICROX:   /* =47488. used by Winbond/SuperMicro*/
+             switch(prod) {    /* decode some SuperMicro product ids */
+		 case 4:	prodstr = "(X7DBR)"; break;
+		 case 6:	prodstr = "(X8DTL)"; break;
+		 case 1037:     prodstr = "(X8SIE)"; break;
+		 case 1541:     prodstr = "(X8SIL)"; break;
+		 case 1547:	prodstr = "(X8SIA)"; break; /*0x060b*/
+		 case 1549:     prodstr = "(X8DTU)"; break;
+		 case 1551:     prodstr = "(X8DTN)"; break;
+		 case 1562:	prodstr = "(X8SIU-F)"; break; /*0x061a*/
+		 case 1572:     prodstr = "(X9SCM)"; break; /*or X9SCL*/
+		 case 1576:     prodstr = "(X9DRi)"; break; 
+		 case 1585:     prodstr = "(X9SCA)"; break;
+		 case 1603:     prodstr = "(X9SPU)"; break; /*0x0643*/
+		 case 1643:     prodstr = "(X9SRL)"; break; /*0x066b*/
+		 case 1797:	prodstr = "(X9DR7)"; break; /*0x0705*/
+		 case 43025:	prodstr = "(H8DGU)"; break;
+		 case 43707:	prodstr = "(X8DTH)"; break;
+                 default:       prodstr = ""; break;
+             }
+             if (!fipmilan) lan_ch_restrict = 1; /*fw bug, gets 0xd4 locally*/
+             break;
+         case VENDOR_QUANTA:    /*=7244.*/
+             switch(prod) {     /* show product names for some */
+                 case 21401:    prodstr = "(S99Q)"; break;
+                 default:       prodstr = ""; break;
+             }
+             break;
+         default:
+             prodstr = "";
+             break;
+	} /*end switch(prod)*/
+	if (kcs_loops != 0) set_max_kcs_loops(kcs_loops); 
+      } /*end-else BMC*/
+
+      printf("%s manufacturer  %c %06x (%s)%c product %c %04x %s\n",
+		tag, bdelim,mfg,mfgstr,bcomma,bdelim,prod,prodstr);
+      {  /* BMC version */
+         printf("%s version       %c %x.%02x%s%c IPMI v%d.%d\n", tag,bdelim,
+		devrec[2],devrec[3],extraver,bcomma,ipmi_maj,ipmi_min);
+      }
+      /* could show product rev, if available (sdevrec > 14) */
+      return;
+}
+
+int GetPowerOnHours(unsigned int *val)
+{
+   uchar resp[MAX_BUFFER_SIZE];
+   int sresp = MAX_BUFFER_SIZE;
+   uchar cc;
+   int rc = -1;
+   int i;
+   unsigned int hrs;
+
+   *val = 0;
+   if (fmBMC) return(rc);
+   sresp = MAX_BUFFER_SIZE;
+   memset(resp,0,6);  /* default response size is 5 */
+   rc = ipmi_cmd_mc(GET_POWERON_HOURS, NULL, 0, resp, &sresp, &cc, fdebug);
+   if (rc == 0 && cc == 0) {
+      /* show the hours (32-bits) */
+      hrs = resp[1] | (resp[2] << 8) | (resp[3] << 16) | (resp[4] << 24);
+      if (resp[0] == 60) /*normal*/ i = 1;
+      else {
+                i = 60 / resp[0];
+                hrs = hrs / i;
+      }
+      *val = hrs;
+   }
+   return(rc);
+}
+
+char *decode_selftest(int stat)
+{
+   uchar *s;
+   uchar b;
+   if (stat == 0x0055) s = "(OK)";
+   else {
+      s = "(Error)";
+      if ((stat & 0x00ff) == 0x0057) {
+         b = ((stat & 0xff00) >> 8);
+         if (b & 0x80) s = "(No SEL Access)"; 
+         if (b & 0x40) s = "(No SDR Access)"; 
+         if (b & 0x20) s = "(No FRU Access)"; 
+         if (b & 0x10) s = "(IPMB Error)"; 
+         if (b & 0x08) s = "(SDR Empty)"; 
+         if (b & 0x02) s = "(BootCode Corrupt)"; 
+         if (b & 0x01) s = "(OpCode Corrupt)"; 
+      }
+   }
+   return(s);
+}
+
+#ifdef METACOMMAND
+int i_health(int argc, char **argv)
+#else
+#ifdef WIN32
+int __cdecl
+#else
+int
+#endif
+main(int argc, char **argv)
+#endif
+{
+   int ret = 0;
+   int c;
+   uchar selfbuf[16];
+   uchar devrec[30];
+   char biosver[80];
+   uchar cc;
+   int selfstatus;
+   uchar pwr_state;
+   char selfstr[36];
+   char *s;
+   char *s1;
+   int i, sresp;
+   uint n;
+   int rlen, len;
+   uchar idata[4];
+   uchar rdata[16];
+
+   printf("%s ver %s\n", progname,progver);
+
+   while ( (c = getopt( argc, argv,"cfghiln:o:p:q:sT:V:J:YEF:P:N:R:U:Z:x?")) != EOF ) 
+      switch(c) {
+          case 'c': fcanonical = 1;
+		    bdelim = BDELIM;  break;  /* canonical output */
+          case 'f': do_frusdr = 1;  break;  /* check the FRUSDR too */
+          case 'g': do_guid = 1;    break;  /* get the System GUID also */
+          case 'h': do_hsc = 1;     break;  /* check the HSC too */
+          case 'i': do_systeminfo = 1;  break;  /* get system info too */
+          case 'l': do_lanstats = 1;  break;  /* get the LAN stats too */
+          case 'm': /* specific IPMB MC, 3-byte address, e.g. "409600" */
+                    g_bus = htoi(&optarg[0]);  /*bus/channel*/
+                    g_sa  = htoi(&optarg[2]);  /*device slave address*/
+                    g_lun = htoi(&optarg[4]);  /*LUN*/
+                    g_addrtype = ADDR_IPMB;
+                    if (optarg[6] == 's') {
+                             g_addrtype = ADDR_SMI;  s1 = "SMI";
+                    } else { g_addrtype = ADDR_IPMB; s1 = "IPMB"; }
+                    ipmi_set_mc(g_bus,g_sa,g_lun,g_addrtype);
+                    printf("Use MC at %s bus=%x sa=%x lun=%x\n",
+                            s1,g_bus,g_sa,g_lun);
+                    break;
+          case 'n': set_name = 1; 		/* set the system name*/
+		    pname = optarg;
+		    break; 
+          case 'o': set_os = 1; 		/* set the Operating System*/
+		    pos = optarg;
+		    break; 
+          case 'q': set_os2 = 1; 		/* set the Operating System*/
+		    pos2 = optarg;
+		    break; 
+          case 'p': set_restore = 1; 		/* set the restore policy */
+		    restore_policy = atob(optarg);
+		    if (restore_policy > 2) restore_policy = 1;
+		    break; 
+          case 's': do_session = 1;  break;  /* get session info too */
+          case 'x': fdebug = 1;     break;  /* debug messages */
+          case 'N':    /* nodename */
+          case 'U':    /* remote username */
+          case 'P':    /* remote password */
+          case 'R':    /* remote password */
+          case 'E':    /* get password from IPMI_PASSWORD environment var */
+          case 'F':    /* force driver type */
+          case 'T':    /* auth type */
+          case 'J':    /* cipher suite */ 
+          case 'V':    /* priv level */
+          case 'Y':    /* prompt for remote password */
+          case 'Z':    /* set local MC address */
+                parse_lan_options(c,optarg,fdebug);
+                break;
+	  default:
+                printf("Usage: %s [-cfghilnopsx -N node -U user -P/-R pswd -EFTVY]\n", progname);
+                printf(" where -x   show eXtra debug messages\n");
+                printf("       -c   canonical output\n");
+                printf("       -f   get the FRUSDR version also\n");
+                printf("       -g   get the System GUID also\n");
+                printf("       -h   check the HotSwap Controller also\n");
+                printf("       -i   get System Info also: Name and OS\n");
+                printf("       -l   get the IPMI LAN statistics also\n");
+		printf("       -n   set System Name to this string \n");
+		printf("       -o   set Operating System to this string\n");
+		printf("       -p1  set restore policy: 0=off, 1=last, 2=on\n");
+                printf("       -s   get the IPMI Session info also\n");
+		print_lan_opt_usage();
+		ret = ERR_USAGE;
+		goto health_end;
+      }
+
+   fipmilan = is_remote();
+   if (fipmilan && set_restore) 
+             parse_lan_options('V',"4",0);  /*if set, request admin priv*/
+	
+   ret = ipmi_getdeviceid(devrec,16,fdebug);
+   if (ret != 0) {
+	goto health_end;
+   } else {
+       show_devid_all(BMC,devrec,16);
+   }
+
+   if (!fipmilan) {  /*get local BIOS version*/
+	biosver[0] = 0;
+	ret = get_BiosVersion(biosver);
+	if (ret == 0) printf("BIOS Version      %c %s\n",bdelim,biosver);
+   }
+   if (do_me) {  /* ME version for Intel S5500 motherboards */
+        rlen = sizeof(rdata);
+        ret = ipmi_cmdraw((GET_DEVICE_ID & 0xff), NETFN_APP,ME_SA,ME_BUS,0x00,
+			  idata,0,rdata,&rlen,&cc,fdebug);
+        if (ret == 0 && cc != 0) ret = cc;
+	if (ret == 0) {
+		uchar m,n;
+		m = (rdata[3] & 0xf0) >> 4;
+		n = (rdata[3] & 0x0f);
+		printf("ME Firmware Ver   %c %02x.%02x.%02x.%02x%02x\n",bdelim,
+			     rdata[2],m,n,rdata[12],rdata[13]);
+		/* If rdata[2] has 0x80 bit on, ME is in update/recovery mode.
+		   That can be cleared by removing input power. */
+	} else 
+	   if (fdebug) printf("GetDeviceID(ME) error ret = %d\n",ret);
+   }
+
+   if (do_hsc) {
+      if (fmBMC) printf("No HSC present\n");
+      else {
+	 /* Get HSC status */
+	 if (is_romley(vend_id, prod_id)) {
+	    uchar maj, min;
+	    ret = get_hsbp_version_intel(&maj, &min);
+	    if (fdebug) printf("get_hsbp_version_intel ret = %d\n",ret);
+	    if (ret == 0) 
+               printf("HSC version       %c %d.%02d\n", bdelim,maj,min);
+	 } else {
+	    ret = get_hsc_devid(&devrec[0],sizeof(devrec));
+	    if (fdebug) printf("get_hsc_devid ret = %d\n",ret);
+	    if (ret == 0)   /* only if HSC is detected */
+               show_devid_all(HSC,devrec,14);
+	 }
+      }
+   }
+
+   i = get_driver_type();
+   printf("IPMI driver type  %c %d        (%s)\n",bdelim,i,show_driver_type(i));
+
+   if (do_powerstate) 
+   {  /* Some BMCs dont support get_power_state*/
+     ret = get_power_state(selfbuf,4);
+     if (ret != 0) {
+	printf("ipmi_getpowerstate error, ret = %d\n",ret);
+	goto health_end;
+     } else {
+        pwr_state = selfbuf[0] & 0x7f;
+	printf("Power State       %c %02x       (%s)\n",
+		bdelim,pwr_state,pwr_string(pwr_state));
+     }
+   }
+
+   ret = get_selftest_status(&selfbuf[0],sizeof(selfbuf));
+   if (ret != 0) {
+	printf("get_selftest_status error, ret = %x\n",ret);
+	goto health_end;
+   } else {
+        selfstatus = selfbuf[0] + (selfbuf[1] << 8);
+	s = decode_selftest(selfstatus);
+        if (fmBMC) {
+           sprintf(selfstr,"%s",s);
+	} else {
+	   ret = get_last_selftest(&selfbuf[0],sizeof(selfbuf));
+	   if (fdebug) printf("get_last_selftest ret = %x, %02x%02x\n",
+				ret, selfbuf[1],selfbuf[0]);
+	   if (ret == 0 && (selfbuf[0] != 0xFF)) {
+	      sprintf(selfstr,"%s, last = %02x%02x",s,selfbuf[1],selfbuf[0]);
+	   } else sprintf(selfstr,"%s",s);
+	   ret = 0;  /*ignore any errors with get_last_selftest*/
+	}
+	printf("Selftest status   %c %04x     %s\n",bdelim,selfstatus,selfstr);
+   }
+
+   ret = oem_get_health(&selfstr[0],sizeof(selfstr));
+   if (ret == 0) {
+	printf("%s\n",selfstr);
+   }
+
+   rlen = 4;
+   ret = get_chassis_status(selfbuf,&rlen);
+   if (ret != 0) {
+	printf("Cannot do get_chassis_status, ret = %d\n",ret);
+	goto health_end;
+   } else {
+        show_chs_status(selfbuf,rlen);
+   }
+
+   if (vend_id == VENDOR_INTEL) {
+      int pwr_delay = 0;
+      ret = get_power_restore_delay_intel(&pwr_delay);
+      if (fdebug) printf("get_power_restore_delay_intel ret = %d\n",ret);
+      if (ret == 0) {
+         printf("PowerRestoreDelay %c %d seconds\n",bdelim,pwr_delay);
+      } else ret = 0;
+   }
+
+   if (do_guid) {
+      sresp = sizeof(devrec);
+      ret = ipmi_cmd(GET_SYSTEM_GUID,NULL,0,devrec,&sresp,&cc,fdebug);
+      if (ret != 0) {
+	 if (!is_remote()) {  /* get UUID from SMBIOS */
+	    cc = 0;  sresp = 16;
+            ret = get_SystemGuid(devrec);
+         } else {
+	    cc = 0;
+            sresp = sizeof(devrec);
+            ret = get_device_guid(devrec,&sresp);
+         }
+      }
+      if (fdebug) printf("system_guid: ret = %d, cc = %x\n",ret,cc);
+      if (ret == 0 && cc == 0) {
+         printf("System GUID       %c ",bdelim);
+         for (i=0; i<16; i++) {
+            if ((i == 4) || (i == 6) || (i == 8) || (i == 10)) s = "-";
+            else s = "";
+            printf("%s%02x",s,devrec[i]);
+         }
+         printf("\n");
+      }
+   }
+
+   if (bChan != 7)  /* do not get first lan chan if set above */
+      ret = get_lan_channel(1,&bChan);
+
+   if (fmBMC == 0) {
+      ret = GetPowerOnHours(&n);
+      if (ret == 0) 
+	 printf("Power On Hours    %c %d hours (%d days)\n",bdelim,n,(n/24));
+      if (ret == 0xC1) ret = 0; /* not supporting poweron hours is ok. */
+
+      printf("BMC LAN Channels  %c ",bdelim);
+      for (i = 1; i<= 16; ) {
+         c = get_lan_channel(i,&cc);
+	 if (c != 0) break;
+	 printf("%d ",cc);
+	 i = cc+1;
+      }
+      printf("\n");
+
+      if (lan_ch_restrict) ;   /*skip if vendor fw bug*/
+      else {
+         ret = get_chan_auth(bChan,&devrec[0],sizeof(devrec));
+         if (ret == 0) 
+            show_chan_auth("Channel Auth Cap",devrec,8);
+         else 
+            printf("get_chan_auth error: ret = %x\n",ret);
+      }
+   }
+
+   if (do_systeminfo) {
+      char infostr[64];
+      len = sizeof(infostr);
+      ret = get_system_info(1,infostr,&len);  /*Firmware Version*/
+      len = sizeof(infostr);
+      ret = get_system_info(2,infostr,&len);  
+      if (ret == 0) {
+	 printf("System Name           %c %s\n",bdelim,infostr);
+         len = sizeof(infostr);
+         ret = get_system_info(3,infostr,&len);
+         if (ret == 0) printf("Pri Operating System  %c %s\n",bdelim,infostr);
+         len = sizeof(infostr);
+         ret = get_system_info(4,infostr,&len);
+         if (ret == 0) printf("Sec Operating System  %c %s\n",bdelim,infostr);
+      } else {  
+         if (ret == 0xC1) /*only supported on later IPMI 2.0 firmware */
+	    printf("GetSystemInfo not supported on this platform\n");
+      }
+   }
+
+   if (do_frusdr) {
+      ret = get_frusdr_version((char *)&devrec[0],sizeof(devrec));
+      if (ret == 0) printf("FRU/SDR Version   %c %s\n",bdelim,devrec);
+      else          printf("FRU/SDR Version   %c error %d\n",bdelim,ret);
+   }
+
+   if (do_lanstats) {
+	ret = get_lan_stats(bChan);
+   }
+
+   if (do_session) {
+	i = get_session_info_all();
+	if (i != 0) printf("get_session_info error %d, %s\n",i,decode_rv(i));
+   }
+
+#ifdef PING_OK
+   {
+     char *node;
+     /* Currently some problems with this:
+      * works first time, but locks up BMC LAN on subsequent attempts.
+      */
+     node = get_nodename();
+     ret = ping_node(node);
+     printf("ping_node(%s): ret = %d\n",node,ret);
+   }
+#endif
+
+   if (set_name) { 
+	len = (int)strlen(pname);
+        ret = set_system_info(2,pname,len);
+        printf("Set System Name to '%s', ret = %d\n",pname,ret);
+        if (ret == 0xC1) /*only supported on later IPMI 2.0 firmware */
+	    printf("SetSystemInfo not supported on this platform\n");
+   }
+
+   if (set_os) { 
+	len = (int)strlen(pos);
+        ret = set_system_info(3,pos,len);
+        printf("Set Pri Operating System to '%s', ret = %d\n",pos,ret);
+        if (ret == 0xC1) /*only supported on later IPMI 2.0 firmware */
+	    printf("SetSystemInfo not supported on this platform\n");
+   }
+
+   if (set_os2) { 
+	len = (int)strlen(pos2);
+        ret = set_system_info(4,pos2,len);
+        printf("Set Sec Operating System to '%s', ret = %d\n",pos2,ret);
+        if (ret == 0xC1) /*only supported on later IPMI 2.0 firmware */
+	    printf("SetSystemInfo not supported on this platform\n");
+   }
+
+   if (set_restore) {
+	idata[0] = restore_policy; /* 1=last_state, 2=turn_on, 0=stay_off*/
+        rlen = sizeof(rdata);
+        ret = ipmi_cmdraw(0x06 , NETFN_CHAS,  g_sa, g_bus, g_lun,
+			  idata,1,rdata,&rlen,&cc,fdebug);
+        if (ret == 0 && cc != 0) ret = cc;
+        printf("set_restore_policy(%x): ret = %d\n",restore_policy,ret);
+   }
+
+health_end:
+   ipmi_close_();
+   // show_outcome(progname,ret);  
+   return (ret);
+}  /* end main()*/
+
+/* end bmchealth.c */