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);
}