From a9264efe4efe3c63cbeda1b481e98a5a149c9f1c Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 21 Jul 2010 19:13:17 +0100 Subject: [PATCH] calc_reliability_stats() uses only probes within last 60 days. --- lib/ZOOM/IRSpy/Utils.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy/Utils.pm b/lib/ZOOM/IRSpy/Utils.pm index 27df7c1..53e53fc 100644 --- a/lib/ZOOM/IRSpy/Utils.pm +++ b/lib/ZOOM/IRSpy/Utils.pm @@ -814,17 +814,21 @@ sub calc_reliability_string { sub calc_reliability_stats { my($xc) = @_; - my $now = isodate(time()); + my $sixtyDaysAgo = time() - 60*24*60*60; + my $iso60DA = isodate($sixtyDaysAgo); my @allpings = $xc->findnodes("i:status/i:probe"); - return (0, 0, 0) if @allpings == 0; my($nall, $nok) = (0, 0); foreach my $node (@allpings) { my $ok = $xc->findvalue('@ok', $node); + my $when = $node->to_literal(); + #warn "$when cmp $iso60DA == ", ($when cmp $iso60DA), "\n"; + next if $when lt $iso60DA; $nall++; $nok += !!$ok; } + return (0, 0, 0) if $nall == 0; my $percent = int(100*$nok/$nall + 0.5); return ($nok, $nall, $percent); } -- 1.7.10.4