normalize recordSyntaxes and domains

[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 af667dc..6a59c6b 100644 (file)
--- a/lib/ZOOM/IRSpy/Stats.pm
+++ b/lib/ZOOM/IRSpy/Stats.pm
@@ -1,10 +1,11 @@
-# $Id: Stats.pm,v 1.7 2007-10-31 16:42:13 mike Exp $
 
 package ZOOM::IRSpy::Stats;
 
 use 5.008;
 use strict;
 use warnings;
+
+use Scalar::Util;
 use ZOOM::IRSpy::Utils qw(irspy_xpath_context);
 
 =head1 NAME
@@ -112,7 +113,7 @@ sub _gather_stats {
 
        # 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
@@ -134,7 +135,7 @@ sub _gather_stats {
        # 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')) {