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