Webmin System stats git

#!/usr/bin/perl -w
###############################################################################
#    Webmin Sysstats - load.pl
#
#    Webmin Sysstats Module
#    Copyright (C) 2002 by Eric Gerbier
#    Bug reports to: gerbier@users.sourceforge.net
#    $Id$
#
#    This program 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 2 of the License, or
#    (at your option) any later version.
#
#    This program 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.
#
###############################################################################

use strict;

# to be used alone or from sysstat.pl without warning
# because require verify the path
require '../../gen-lib.pl' if ( !exists $ENV{WEBMINSTAT_TEMP} );
use RRDs;

my $info = 'uptime';

###############################################################################
sub read_load() {
	my ( $load1, $load5, $load15 ) = ( 'U', 'U', 'U' );
	if ( open( INFO, "$info | " ) ) {
		while (<INFO>) {
			s/,//g;
			m/load averages?: (.*)/;
			( $load1, $load5, $load15 ) = split( ' ', $1 );
		}
		close(INFO);
	}
	else {
		warning("can not open $info : $!");
	}
	return ( $load1, $load5, $load15 );

}
###############################################################################

my %config;
read_file_cached( 'config', \%config );

my $param    = 'load';
my $load_num = 1;

my @t_load = read_load();

#return unless (@t_load);

#debug( "load1 = $t_load[0]");
#debug( "load5 = $t_load[1]");
#debug( "load15 = $t_load[2]");

my %h_load = (
	load1  => $t_load[0],
	load5  => $t_load[1],
	load15 => $t_load[2]
);

#foreach my $elem (keys %h_load) {
#	debug( "$elem -> $h_load{$elem}");
#}

while ( exists( $config{ $param . $load_num } ) ) {
	my @tab = split( /,/, $config{ $param . $load_num } );

	my $real_load_num = $tab[0];
	my $load          = $tab[1];
	my $load_name     = $tab[2];
	my $runstop       = $tab[4];

	#debug( "load = $load");

	my $total = 'U';

	if ( is_param_runstop($runstop) ) {
		if ( exists( $h_load{$load} ) ) {
			$total = $h_load{$load};
		}
		else {
			debug("load : can not find $load value");
		}
	}
	else {
		debug("load $load disable");
	}
	debug("load $load ($load_name $real_load_num): total=$total");

	my $rrdbase = $real_load_num . '.rrd';

	RRDs::update( $rrdbase, "N:$total" );
	my $ERR = RRDs::error();
	warning("ERROR while updating $rrdbase: $ERR") if $ERR;
	$load_num++;
}