projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
_rewrite_record() renamed more explicitly to _rewrite_irspy_record()
[irspy-moved-to-github.git]
/
lib
/
ZOOM
/
IRSpy
/
Stats.pm
diff --git
a/lib/ZOOM/IRSpy/Stats.pm
b/lib/ZOOM/IRSpy/Stats.pm
index
c7780f4
..
af667dc
100644
(file)
--- a/
lib/ZOOM/IRSpy/Stats.pm
+++ b/
lib/ZOOM/IRSpy/Stats.pm
@@
-1,4
+1,4
@@
-# $Id: Stats.pm,v 1.5 2006-12-18 15:34:27 mike Exp $
+# $Id: Stats.pm,v 1.7 2007-10-31 16:42:13 mike Exp $
package ZOOM::IRSpy::Stats;
package ZOOM::IRSpy::Stats;
@@
-49,7
+49,7
@@
Either one or two arguments are required:
An indication of the IRSpy database that statistics are required for.
This may be in the form of a C<ZOOM::Connection> object or a
An indication of the IRSpy database that statistics are required for.
This may be in the form of a C<ZOOM::Connection> object or a
-database-name string such as C<localhost:3313/IR-Explain---1>.
+database-name string such as C<localhost:8018/IR-Explain---1>.
=item $query (optional)
=item $query (optional)
@@
-137,7
+137,13
@@
sub _gather_stats {
$this->{domains}->{$host}++;
# Implementation
$this->{domains}->{$host}++;
# Implementation
- ### Requires XSLT fix
+ foreach my $node ($xc->findnodes('i:status/i:serverImplementationName/@value')) {
+ $this->{implementation}->{$node->findvalue(".")}++;
+ last; # This is because many of the records are still
+ # polluted with multiple implementationName elements
+ # from back then XSLT stylesheet that generated
+ # ZeeRex records was wrong.
+ }
}
}
}
}
@@
-199,6
+205,14
@@
sub print {
print sprintf("%-26s%5d (%d%%)\n",
$key, $hr->{$key}, 100*$hr->{$key}/$this->{n});
}
print sprintf("%-26s%5d (%d%%)\n",
$key, $hr->{$key}, 100*$hr->{$key}/$this->{n});
}
+
+ print "\nIMPLEMENTATIONS\n";
+ $hr = $this->{implementation};
+ foreach my $key (sort { $hr->{$b} <=> $hr->{$a}
+ || $a cmp $b } keys %$hr) {
+ print sprintf("%-26s%5d (%d%%)\n",
+ $key, $hr->{$key}, 100*$hr->{$key}/$this->{n});
+ }
}
}