source: ProjectBuilder/projects/pins/pins.c@ 1974

/*
 * pins - Print iLO Network Settings
 *
 * This utility program queries HP Proliant server's iLO processor nework settings,
 * and prints them in an XML stream on standard output.
 *
 * (c) Copyright 2012 Hewlett-Packard Development Company, L.P.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of version 2 of the GNU General Public License as 
 * published by the Free Software Foundation.
 *
 * 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.  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
 */

 /*
 * Dependencies : pins requires presence of the "hpilo" driver in host system.
 *
 * Arguments : <none>
 *
 * Release history
 * - 1.0a, 11-Nov-2011, created.
 */

#include <unistd.h>
#include <fcntl.h>
#include <sys/types.h>
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include <string.h>

#define SLEEP nanosleep(&st, NULL);

int main()
{
    int fd, status, len;
    struct timespec st;
    int step, eof;
    char *c1, *c2;
    int trace;
  
/* xml commands */
    unsigned char h1[8]  = {0x0,0x0,0x0,0x0,0x02,0x0,0x0,0x0};
    unsigned char h2[12] = {0x0,0x0,0x0,0x0,0x50,0x0,0x0,0x0,0x04,0x0,0x0,0x0};
    unsigned char h3[12] = {0x0,0x0,0x0,0x0,0x50,0x0,0x0,0x0,0x05,0x0,0x0,0x0};
    unsigned char h4[12] = {0x0,0x0,0x0,0x0,0x50,0x0,0x0,0x0,0x06,0x0,0x0,0x0};
    unsigned char h5[8]  = {0x0,0x0,0x0,0x0,0x67,0x0,0x0,0x0};
    unsigned char h6[8]  = {0x0,0x0,0x0,0x0,0x43,0x0,0x0,0x0};
    unsigned char h7[8]  = {0x0,0x0,0x01,0x0,0x43,0x0,0x0,0x0};
    unsigned char h8[8]  = {0x0,0x0,0x02,0x0,0x43,0x0,0x0,0x0};
    unsigned char h9[8]  = {0x0,0x0,0x03,0x0,0x43,0x0,0x0,0x0};
    char xml6[] = "<?xml version=\"1.0\"?>\r\n";
    char xml7[] = "<LOCFG VERSION=\"2.24\">";
    char xml8[] = "<RIBCL VERSION=\"2.0\"><LOGIN USER_LOGIN=\"anyBody\" PASSWORD=\"anyThing\"><RIB_INFO MODE=\"read\"><GET_NETWORK_SETTINGS/></RIB_INFO></LOGIN></RIBCL>\r\n";

    struct {
        unsigned char header[8];    /* header[0:1] = iLO command length , header included */
        char xml[4088];
    } wBuf;
    struct {
        unsigned char header[12];   /* header[0:1] = iLO response length , header included */
        char xml[4084];
    } rBuf;
  
    char xmlOutput[8192];
    char *xml;

    /* initialize */
    
    trace = 0;
    
    st.tv_sec = 0;
    st.tv_nsec = 1000000;
    
    bzero(&xmlOutput, sizeof(xmlOutput));
    xml = &xmlOutput[0];
    
    /* open iLO channel */
    fd = open("/dev/hpilo/d0ccb0", O_RDWR|O_EXCL);
    if (fd < 0) {
        perror("iLO device open failed");
        exit(1);
    }
    SLEEP

    /* T1 - no xml */
    step = 10;
    bzero(&wBuf, sizeof(wBuf));
    bcopy(&h1, &wBuf.header, sizeof(h1));
    len = sizeof(h1);
    *(unsigned short *)&wBuf.header[0] = (unsigned short) len;
    if ((status = write(fd, &wBuf, len))!= len) goto write_error;
    SLEEP
    if ((len = read(fd, &rBuf, 72))< 0) goto read_error;
    if(trace) printf("%s%d%s\n","t1: ", len," bytes read");
    SLEEP

    /* T2 - no xml, but 4 extra-header bytes */
    step = 20;
    bzero(&wBuf, sizeof(wBuf));
    bcopy(&h2, &wBuf.header, sizeof(h2));
    len = sizeof(h2);
    *(unsigned short *)&wBuf.header[0] = (unsigned short) len;
    if ((status = write(fd, &wBuf, len))!= len) goto write_error;
    SLEEP
    if ((len = read(fd, &rBuf, 189))< 0) goto read_error;
    if(trace) printf("%s%d%s\n","t2: ", len," bytes read");
    SLEEP   

    /* T3 - no xml, but 4 extra-header bytes */
    step = 30;
    bzero(&wBuf, sizeof(wBuf));
    bcopy(&h3, &wBuf.header, sizeof(h3));
    len = sizeof(h3);
    *(unsigned short *)&wBuf.header[0] = (unsigned short) len;
    if ((status = write(fd, &wBuf, len))!= len) goto write_error;
    SLEEP
    if ((len = read(fd, &rBuf, 189))< 0) goto read_error;
    if(trace) printf("%s%d%s\n","t3: ", len," bytes read");
    SLEEP       

    /* T4 - no xml, but 4 extra-header bytes */
    step = 40;
    bzero(&wBuf, sizeof(wBuf));
    bcopy(&h4, &wBuf.header, sizeof(h4));
    len = sizeof(h4);
    *(unsigned short *)&wBuf.header[0] = (unsigned short) len;
    if ((status = write(fd, &wBuf, len))!= len) goto write_error;
    SLEEP
    if ((len = read(fd, &rBuf, 189))< 0) goto read_error;
    if(trace) printf("%s%d%s\n","t4: ", len," bytes read");
    SLEEP       

    /* T5 - no xml */
    step = 50;
    bzero(&wBuf, sizeof(wBuf));
    bcopy(&h5, &wBuf.header, sizeof(h5));
    len = sizeof(h5);
    *(unsigned short *)&wBuf.header[0] = (unsigned short) len;
    if ((status = write(fd, &wBuf, len))!= len) goto write_error;
    SLEEP
    if ((len = read(fd, &rBuf, 104))< 0) goto read_error;
    if(trace) printf("%s%d%s\n","t5: ", len," bytes read");
    SLEEP           

    /* T6- xml */
    step = 60;
    bzero(&wBuf, sizeof(wBuf));
    bcopy(&h6, &wBuf.header, sizeof(h6));
    bcopy(&xml6, &wBuf.xml, sizeof(xml6)-1);
    len = sizeof(wBuf.header) + (sizeof(xml6)-1);
    *(unsigned short *)&wBuf.header[0] = (unsigned short) len;
    if ((status = write(fd, &wBuf, len))!= len) goto write_error;
    SLEEP
    bzero(&wBuf, sizeof(wBuf));
    do {
        step++;
        if ((len = read(fd, &rBuf, 2176))< 0) goto read_error;
        if(trace) printf("%s%d%s%d%s\n","t",step,": ", len," bytes read");
        SLEEP
        eof = *(unsigned int *)&rBuf.header[8];
        /* if(eof == 0) printf("%s\n",&rBuf.xml); */
    } while(eof == 0);

    /* T7 - xml */
    step = 70;
    bzero(&wBuf, sizeof(wBuf));
    bcopy(&h7, &wBuf.header, sizeof(h7));
    bcopy(&xml7, &wBuf.xml, sizeof(xml7)-1);
    len = sizeof(wBuf.header) + (sizeof(xml7)-1);
    *(unsigned short *)&wBuf.header[0] = (unsigned short) len;
    if ((status = write(fd, &wBuf, len))!= len) goto write_error;
    SLEEP
    bzero(&wBuf, sizeof(wBuf));
    do {
        step++;
        if ((len = read(fd, &rBuf, 2176))< 0) goto read_error;
        if(trace) printf("%s%d%s%d%s\n","t",step,": ", len," bytes read");
        SLEEP
        eof = *(unsigned int *)&rBuf.header[8];
        /* if(eof == 0) printf("%s\n",&rBuf.xml); */
    } while(eof == 0);  

    /* T8 - xml */
    step = 80;
    bzero(&wBuf, sizeof(wBuf));
    bcopy(&h8, &wBuf.header, sizeof(h8));
    bcopy(&xml8, &wBuf.xml, sizeof(xml8)-1);
    len = sizeof(wBuf.header) + (sizeof(xml8)-1);
    *(unsigned short *)&wBuf.header[0] = (unsigned short) len;
    if ((status = write(fd, &wBuf, len))!= len) goto write_error;
    SLEEP
    bzero(&wBuf, sizeof(wBuf));
    do {
        step++;
        if ((len = read(fd, &rBuf, 2176))< 0) goto read_error;
        if (trace) printf("%s%d%s%d%s\n","t",step,": ", len," bytes read");
        SLEEP
        eof = *(unsigned int *)&rBuf.header[8];
        if(eof == 0) xml += sprintf(xml,"%s",&rBuf.xml);
    } while(eof == 0);
    
    c1 = strstr(xmlOutput, "<GET_NETWORK_SETTINGS>");
    c2 = strstr(xmlOutput, "</GET_NETWORK_SETTINGS>");
    *(c2+sizeof("</GET_NETWORK_SETTINGS>")+1) = 0;
    printf("%s\n", c1);

    /* T9 - no xml - last command to iLO, no response expected) */
    step = 9;
    bzero(&wBuf, sizeof(wBuf));
    bcopy(&h9, &wBuf.header, sizeof(h9));
    len = sizeof(h9);
    *(unsigned short *)&wBuf.header[0] = (unsigned short) len;
    if ((status = write(fd, &wBuf, len))!= len) goto write_error;
    SLEEP
    goto finish;

write_error : 
    printf("%s%d\n", "iLO channel write failed in step", step);
    goto finish;
read_error : 
    printf("%s%d\n", "iLO channel read failed in step", step);
    goto finish;
finish :
    close(fd);
    printf("%s\n","finished.");
}