diff --git a/README b/README index fdce3bf..e850f6f 100644 --- a/README +++ b/README @@ -427,6 +427,10 @@ CONFIGURATION Used to set the number of top url and second level domain to show. Default is top 100. + TopDenied number + Used to set the number of top denied url to show. Default is top + 100. + TopStorage number Top number of url to preserve on each data file sorted by OrderUrl. On huge access log it will improve a lot the performances but you diff --git a/SquidAnalyzer.pm b/SquidAnalyzer.pm index af85aad..65ed355 100644 --- a/SquidAnalyzer.pm +++ b/SquidAnalyzer.pm @@ -1707,6 +1707,7 @@ sub _init $self->{CostPrice} = $options{CostPrice} || 0; $self->{Currency} = $options{Currency} || '€'; $self->{TopNumber} = $options{TopNumber} || 10; + $self->{TopDenied} = $options{TopDenied} || 10; $self->{TopStorage} = $options{TopStorage} || 0; $self->{TransfertUnit} = $options{TransfertUnit} || 'BYTES'; if (!grep(/^$self->{TransfertUnit}$/i, 'BYTES', 'KB', 'MB', 'GB')) { @@ -5102,7 +5103,6 @@ sub _print_user_denied_detail } - sub _print_top_url_stat { my ($self, $outdir, $year, $month, $day, $week) = @_; @@ -5517,7 +5517,7 @@ sub _print_top_denied_stat } my $t1 = $Translate{"Url_Hits_title"}; - $t1 =~ s/\%d/$self->{TopNumber}/; + $t1 =~ s/\%d/$self->{TopDenied}/; print $out $self->_print_title($t1, $stat_date, $week); print $out qq{ @@ -5599,7 +5599,7 @@ sub _print_top_denied_stat