-# $Id: Stats.pm,v 1.6 2007-01-24 09:28:02 mike Exp $
+# $Id: Stats.pm,v 1.7 2007-10-31 16:42:13 mike Exp $
package ZOOM::IRSpy::Stats;
$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.
+ }
}
}
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});
+ }
}
-%# $Id: stats.mc,v 1.6 2007-01-24 09:28:02 mike Exp $
+%# $Id: stats.mc,v 1.7 2007-10-31 16:42:26 mike Exp $
<%doc>
Here are the headings in the Z-Spy version:
The ten most commonly supported Bib-1 Use attributes
<& table, stats => $stats, data => "domains",
title => "Top Domains",
headings => [ "Top Domain"] &>
+<& table, stats => $stats, data => "implementation",
+ title => "Implementation",
+ headings => [ "Name" ] &>
%#
%#
<%def table>