]>
Commit | Line | Data |
---|---|---|
207cc1cf MT |
1 | #!/usr/bin/perl |
2 | ||
3 | use RRDs; | |
4 | my $LOAD = ''; | |
5 | my $CMD = "awk '{print \$1\":\"\$2\":\"\$3}' < /proc/loadavg"; | |
6 | $LOAD=`$CMD`; | |
7 | chomp($LOAD); | |
8 | RRDs::update ("/var/log/rrd/load.rrd", | |
9 | "-t", "load1:load5:load15", | |
10 | "N:$LOAD"); | |
11 | ||
12 | my $ERROR = RRDs::error; | |
13 | print "$ERROR\n" if $ERROR; |