#!/usr/bin/perl
#
# simple script to get the system load via uptime(1) and dump the value
# to mrtg
#
# Version: $Id: load-local,v 1.1 2001/06/26 11:40:18 als Exp $
#
# Author: Alexander Schreiber <als@thangorodrim.de>
#


#   2:48am  up 14 days, 12:14,  4 users,  load average: 0.04, 0.13, 0.10

my $command = '/usr/bin/uptime';
my $line;
my $load;

open (UPTIME, "$command 2>&1|");
$line = <UPTIME>;
close(UPTIME);
$line =~ /average(.?):(\s+)(\d+)\.(\d+)/;
$load = "$3.$4";
$load = $load * 100;
print "$load\n0\n0\n";
