my($term) = @_;
$term =~ s/([""\\*?])/\\$1/g;
- $term = qq["$term"] if $term =~ /[\s""\/]/;
+ $term = qq["$term"] if $term =~ /[\s""\/\\]/;
return $term;
}
$id = $protocol;
}
- return "rec.id=" . cql_quote($id);
- #return "rec.id_raw=" . cql_quote($id);
+ return "rec.id==" . cql_quote($id);
}
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);
}