projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ef61c14
)
calc_reliability_stats() uses only probes within last 60 days.
author
Mike Taylor
<mike@miketaylor.org.uk>
Wed, 21 Jul 2010 18:13:17 +0000
(19:13 +0100)
committer
Mike Taylor
<mike@miketaylor.org.uk>
Wed, 21 Jul 2010 18:13:17 +0000
(19:13 +0100)
lib/ZOOM/IRSpy/Utils.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy/Utils.pm
b/lib/ZOOM/IRSpy/Utils.pm
index
27df7c1
..
53e53fc
100644
(file)
--- 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) = @_;
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");
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($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;
}
$nall++;
$nok += !!$ok;
}
+ return (0, 0, 0) if $nall == 0;
my $percent = int(100*$nok/$nall + 0.5);
return ($nok, $nall, $percent);
}
my $percent = int(100*$nok/$nall + 0.5);
return ($nok, $nall, $percent);
}