ihost/libstatgrab/load_stat.c

/* 
 * i-scream central monitoring system
 * http://www.i-scream.org.uk
 * Copyright (C) 2000-2002 i-scream
 * 
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 * 
 * 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., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <stdio.h>
#include <stdlib.h>
#ifdef SOLARIS
#include <sys/loadavg.h>
#endif
#include "ukcprog.h"

char *get_load_stats(){

        double loadav[3];
        char *xml_load_out;
#ifndef HAVE_GETLOADAVG
        FILE *f;
        char *loadavg;
        char *load_p;
#endif

#ifndef HAVE_GETLOADAVG
        if ((f=fopen("/proc/loadavg", "r" ))==NULL) {
                errf("Failed to open load averages (%m)");
                return NULL;
        }

        if((fscanf(f,"%lf %lf %lf", &loadav[0], &loadav[1], &loadav[2])) != 3){
                errf("Failed to read in sufficent loads");
                return NULL;
        }

        if ((fclose(f)) != 0) {
                errf("Failed to close file (%m).");
                return NULL;
        }
#else
        if((getloadavg(loadav,3)) == -1){
                errf("Failed to get load averages (%m)");
        }
#endif

        xml_load_out=strf("<load><load1>%.2lf</load1><load5>%.2lf</load5><load15>%.2lf</load15></load>", loadav[0], loadav[1], loadav[2]);

        return xml_load_out;
}
Revision:	1.8
Committed:	Wed May 29 19:41:59 2002 UTC (22 years, 6 months ago) by tdb
Content type:	text/plain
Branch:	MAIN
Changes since 1.7:	+6 -2 lines
Log Message:	This ihost now uses autoconf and automake to make a "normal" installation and distribution ;) It's now far easier to compile. To build from CVS :- aclocal autoheader autoconf automake -a -c Then for compiling (end users will only need to do this) :- ./configure make make install To build a distribution :- make dist
#	User	Rev	Content
1	tdb	1.6	/*
2			* i-scream central monitoring system
3	tdb	1.7	* http://www.i-scream.org.uk
4	tdb	1.6	* Copyright (C) 2000-2002 i-scream
5			*
6			* This program is free software; you can redistribute it and/or
7			* modify it under the terms of the GNU General Public License
8			* as published by the Free Software Foundation; either version 2
9			* of the License, or (at your option) any later version.
10			*
11			* This program is distributed in the hope that it will be useful,
12			* but WITHOUT ANY WARRANTY; without even the implied warranty of
13			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14			* GNU General Public License for more details.
15			*
16			* You should have received a copy of the GNU General Public License
17			* along with this program; if not, write to the Free Software
18			* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
19			*/
20
21	tdb	1.8	#ifdef HAVE_CONFIG_H
22			#include "config.h"
23			#endif
24
25	pajs	1.1	#include <stdio.h>
26			#include <stdlib.h>
27	pajs	1.5	#ifdef SOLARIS
28			#include <sys/loadavg.h>
29			#endif
30	pajs	1.1	#include "ukcprog.h"
31
32	tdb	1.2	char *get_load_stats(){
33	pajs	1.1
34			double loadav[3];
35			char *xml_load_out;
36	tdb	1.8	#ifndef HAVE_GETLOADAVG
37	pajs	1.1	FILE *f;
38			char *loadavg;
39			char *load_p;
40			#endif
41
42	tdb	1.8	#ifndef HAVE_GETLOADAVG
43	pajs	1.1	if ((f=fopen("/proc/loadavg", "r" ))==NULL) {
44			errf("Failed to open load averages (%m)");
45			return NULL;
46			}
47
48	pajs	1.3	if((fscanf(f,"%lf %lf %lf", &loadav[0], &loadav[1], &loadav[2])) != 3){
49			errf("Failed to read in sufficent loads");
50			return NULL;
51			}
52	pajs	1.1
53			if ((fclose(f)) != 0) {
54			errf("Failed to close file (%m).");
55			return NULL;
56			}
57			#else
58			if((getloadavg(loadav,3)) == -1){
59			errf("Failed to get load averages (%m)");
60			}
61			#endif
62
63	tdb	1.4	xml_load_out=strf("<load><load1>%.2lf</load1><load5>%.2lf</load5><load15>%.2lf</load15></load>", loadav[0], loadav[1], loadav[2]);
64	pajs	1.1
65			return xml_load_out;
66			}