AWStats can use a DNS cache file

diff --git a/wwwroot/cgi-bin/plugins/hashfiles.pm b/wwwroot/cgi-bin/plugins/hashfiles.pm
index c0d05b3e271f83b58b0121e303b26945d69cb47a..7ec4472eff38f53694f20b4f90fbee4e647f5ff0 100644 (file)
--- a/wwwroot/cgi-bin/plugins/hashfiles.pm
+++ b/wwwroot/cgi-bin/plugins/hashfiles.pm
@@ -10,6 +10,7 @@
 
 
 use Storable;
+use strict;no strict "refs";
 $Plugin_hashfiles=1;
 
 
@@ -74,7 +75,7 @@ sub SaveHash_hashfiles {
        my ($filetosave,$hashtosave,$testifuptodate,$nbmaxofelemtosave,$nbofelemsaved)=@_;
        if (! $testifuptodate || ! $hashfileuptodate) {
                $filetosave =~ s/(\.\w+)$//; $filetosave.=".hash";
-               debug(" Save data ".($nbofelemtosave?"($nbofelemtosave records max)":"(all records)")." into hash file $filetosave");
+               debug(" Save data ".($nbmaxofelemtosave?"($nbmaxofelemtosave records max)":"(all records)")." into hash file $filetosave");
                if (! $nbmaxofelemtosave || (scalar keys %$hashtosave <= $nbmaxofelemtosave)) {
                        # Save all hash array
                        eval('store(\%$hashtosave, "$filetosave");');