1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
#!/usr/bin/perl
#*******************************************************************************
# Copyright (c) 2006-2011 Gluster, Inc. <http://www.gluster.com>
# This file is part of Gluster Management Gateway.
#
# Gluster Management Gateway 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 3 of the License, or (at your option) any later version.
#
# Gluster Management Gateway 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, see
# <http://www.gnu.org/licenses/>.
#*******************************************************************************
use RRDs;
my $rrdlog = '/var/lib/rrd';
my $graphs = '/var/lib/rrd';
updatecpudata();
#updatecpugraph('day');
#updatecpugraph('week');
#updatecpugraph('month');
#updatecpugraph('year');
sub updatecpugraph {
my $period = $_[0];
RRDs::graph ("$graphs/cpu-$period.png",
"--start", "-1$period", "-aPNG", "-i", "-z",
"--alt-y-grid", "-w 300", "-h 50", "-l 0", "-u 100", "-r",
"--color", "SHADEA#FFFFFF",
"--color", "SHADEB#FFFFFF",
"--color", "BACK#FFFFFF",
"-t cpu usage per $period",
"DEF:user=$rrdlog/cpu.rrd:user:AVERAGE",
"DEF:system=$rrdlog/cpu.rrd:system:AVERAGE",
"DEF:idle=$rrdlog/cpu.rrd:idle:AVERAGE",
"CDEF:total=user,system,idle,+,+",
"CDEF:userpct=100,user,total,/,*",
"CDEF:systempct=100,system,total,/,*",
"CDEF:idlepct=100,idle,total,/,*",
"AREA:userpct#0000FF:User cpu usage\\j",
"STACK:systempct#FF0000:system cpu usage\\j",
"STACK:idlepct#00FF00:idle cpu usage\\j");
# "GPRINT:userpct:MAX:maximal user cpu\\:%3.2lf%%",
# "GPRINT:userpct:AVERAGE:average user cpu\\:%3.2lf%%",
# "GPRINT:userpct:LAST:current user cpu\\:%3.2lf%%\\j",
# "GPRINT:systempct:MAX:maximal system cpu\\:%3.2lf%%",
# "GPRINT:systempct:AVERAGE:average system cpu\\:%3.2lf%%",
# "GPRINT:systempct:LAST:current system cpu\\:%3.2lf%%\\j",
# "GPRINT:idlepct:MAX:maximal idle cpu\\:%3.2lf%%",
# "GPRINT:idlepct:AVERAGE:average idle cpu\\:%3.2lf%%",
# "GPRINT:idlepct:LAST:current idle cpu\\:%3.2lf%%\\j");
$ERROR = RRDs::error;
print "Error in RRD::graph for cpu: $ERROR\n" if $ERROR;
}
sub updatecpudata {
if ( ! -e "$rrdlog/cpu.rrd") {
RRDs::create ("$rrdlog/cpu.rrd", "--step=300",
"DS:user:COUNTER:600:0:U",
"DS:system:COUNTER:600:0:U",
"DS:idle:COUNTER:600:0:U",
"RRA:AVERAGE:0.5:1:576",
"RRA:AVERAGE:0.5:6:672",
"RRA:AVERAGE:0.5:24:732",
"RRA:AVERAGE:0.5:144:1460");
$ERROR = RRDs::error;
print "Error in RRD::create for cpu: $ERROR\n" if $ERROR;
}
my ($cpu, $user, $nice, $system,$idle);
open STAT, "/proc/stat";
while(<STAT>) {
chomp;
/^cpu\s/ or next;
($cpu, $user, $nice, $system, $idle) = split /\s+/;
last;
}
close STAT;
$user += $nice;
RRDs::update ("$rrdlog/cpu.rrd",
"-t", "user:system:idle",
"N:$user:$system:$idle");
$ERROR = RRDs::error;
print "Error in RRD::update for cpu: $ERROR\n" if $ERROR;
#print "N:$user:$system:$idle\n";
}
|