nagios/check_rrd/bin/average_rrd - diff

Return to average_rrd CVS log

Up to [local] / nagios / check_rrd / bin

version 1.1, 2006/05/08 20:52:53

version 1.2, 2006/05/08 23:22:19

Line 1

#!/usr/bin/perl -T

# $RedRiver$

# $RedRiver: average_rrd,v 1.1 2006/05/08 19:52:53 andrew Exp $

use strict;

use warnings;

Line 56

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];

}