ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/ihost/libstatgrab/load_stat.c
Revision: 1.6
Committed: Sat May 18 18:15:56 2002 UTC (22 years, 6 months ago) by tdb
Content type: text/plain
Branch: MAIN
Changes since 1.5: +19 -0 lines
Log Message:
i-scream is now licensed under the GPL. I've added the GPL headers to every
source file, and put a full copy of the license in the appropriate places.
I think I've covered everything. This is going to be a mad commit ;)

File Contents

# User Rev Content
1 tdb 1.6 /*
2     * i-scream central monitoring system
3     * Copyright (C) 2000-2002 i-scream
4     *
5     * This program is free software; you can redistribute it and/or
6     * modify it under the terms of the GNU General Public License
7     * as published by the Free Software Foundation; either version 2
8     * of the License, or (at your option) any later version.
9     *
10     * This program is distributed in the hope that it will be useful,
11     * but WITHOUT ANY WARRANTY; without even the implied warranty of
12     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13     * GNU General Public License for more details.
14     *
15     * You should have received a copy of the GNU General Public License
16     * along with this program; if not, write to the Free Software
17     * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
18     */
19    
20 pajs 1.1 #include <stdio.h>
21     #include <stdlib.h>
22 pajs 1.5 #ifdef SOLARIS
23     #include <sys/loadavg.h>
24     #endif
25 pajs 1.1 #include "ukcprog.h"
26    
27 tdb 1.2 char *get_load_stats(){
28 pajs 1.1
29     double loadav[3];
30     char *xml_load_out;
31     #ifdef OLDLINUX
32     FILE *f;
33     char *loadavg;
34     char *load_p;
35     #endif
36    
37     #ifdef OLDLINUX
38     if ((f=fopen("/proc/loadavg", "r" ))==NULL) {
39     errf("Failed to open load averages (%m)");
40     return NULL;
41     }
42    
43 pajs 1.3 if((fscanf(f,"%lf %lf %lf", &loadav[0], &loadav[1], &loadav[2])) != 3){
44     errf("Failed to read in sufficent loads");
45     return NULL;
46     }
47 pajs 1.1
48     if ((fclose(f)) != 0) {
49     errf("Failed to close file (%m).");
50     return NULL;
51     }
52     #else
53     if((getloadavg(loadav,3)) == -1){
54     errf("Failed to get load averages (%m)");
55     }
56     #endif
57    
58 tdb 1.4 xml_load_out=strf("<load><load1>%.2lf</load1><load5>%.2lf</load5><load15>%.2lf</load15></load>", loadav[0], loadav[1], loadav[2]);
59 pajs 1.1
60     return xml_load_out;
61     }