=================================================================== RCS file: /cvs/nagios/check_rrd/bin/average_rrd,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- nagios/check_rrd/bin/average_rrd 2006/05/08 20:52:53 1.1 +++ nagios/check_rrd/bin/average_rrd 2006/05/08 23:22:19 1.2 @@ -1,5 +1,5 @@ #!/usr/bin/perl -T -# $RedRiver$ +# $RedRiver: average_rrd,v 1.1 2006/05/08 19:52:53 andrew Exp $ use strict; use warnings; @@ -56,8 +56,17 @@ next unless defined $line->[$i]; foreach my $key (keys %TIMES) { if ($end - $TIMES{$key} < $start) { + foreach ('max', 'min') { + $totals{ $names->[$i] }{$key}{$_} = $line->[$i] + unless defined $totals{ $names->[$i] }{$key}{$_}; + } + no warnings q/uninitialized/; $totals{ $names->[$i] }{$key}{'count'}++; $totals{ $names->[$i] }{$key}{'total'} += $line->[$i]; + $totals{ $names->[$i] }{$key}{'max'} = $line->[$i] + if $totals{ $names->[$i] }{$key}{'max'} < $line->[$i]; + $totals{ $names->[$i] }{$key}{'min'} = $line->[$i] + if $totals{ $names->[$i] }{$key}{'min'} > $line->[$i]; } } }