[people/pmueller/ipfire-2.x.git] / config / cron / minutely / loadstat

#!/usr/bin/perl

use RRDs;
my $LOAD = '';
my $CMD = "awk '{print \$1\":\"\$2\":\"\$3}' < /proc/loadavg";
$LOAD=`$CMD`;
chomp($LOAD);
RRDs::update ("/var/log/rrd/load.rrd",
	"-t", "load1:load5:load15",
	"N:$LOAD");

my $ERROR = RRDs::error;
print "$ERROR\n" if $ERROR;
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;