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
Register the "irspy_data" log-level.
[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
f701740
..
6a59c6b
100644
(file)
--- a/
lib/ZOOM/IRSpy/Stats.pm
+++ b/
lib/ZOOM/IRSpy/Stats.pm
@@
-1,4
+1,3
@@
-# $Id: Stats.pm,v 1.7 2007-10-31 16:42:13 mike Exp $
package ZOOM::IRSpy::Stats;
package ZOOM::IRSpy::Stats;
@@
-114,7
+113,7
@@
sub _gather_stats {
# Record syntax support by database
foreach my $node ($xc->findnodes('e:recordInfo/e:recordSyntax/@name')) {
# Record syntax support by database
foreach my $node ($xc->findnodes('e:recordInfo/e:recordSyntax/@name')) {
- $this->{recordSyntaxes}->{$node->findvalue(".")}++;
+ $this->{recordSyntaxes}->{lc($node->findvalue("."))}++;
}
# Explain support
}
# Explain support
@@
-136,7
+135,7
@@
sub _gather_stats {
# Top Domains
my $host = $xc->findvalue('e:serverInfo/e:host');
$host =~ s/.*\.//;
# Top Domains
my $host = $xc->findvalue('e:serverInfo/e:host');
$host =~ s/.*\.//;
- $this->{domains}->{$host}++;
+ $this->{domains}->{lc($host)}++;
# Implementation
foreach my $node ($xc->findnodes('i:status/i:serverImplementationName/@value')) {
# Implementation
foreach my $node ($xc->findnodes('i:status/i:serverImplementationName/@value')) {