tyler.durden
/
squidanalyzer
mirror of https://github.com/darold/squidanalyzer.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Try to fix performances issue in URL exclusion.

This commit is contained in:
Gilles Darold 2019-03-08 09:49:26 +01:00
parent f5753865db
commit abd1ef84df
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
SquidAnalyzer.pm
View File

@ -1095,13 +1095,11 @@ sub check_exclusions
# check for URL exclusion
if (exists $self->{Exclude}{uris} && $url) {
return 1 if (grep(/^$url$/i, @{ $self->{UrlExcludeCache} }));
foreach my $e (@{$self->{Exclude}{uris}}) {
if ($url =~ m#^$e$#i) {
push(@{ $self->{UrlExcludeCache} }, $url);
return 1;
}
if (exists $self->{UrlExcludeCache}{$url}) {
%{ $self->{UrlExcludeCache} } = () if (scalar keys %{ $self->{UrlExcludeCache} } > 10000);
return 1;
}
map { return 1 if ($url =~ m#^\Q$_\E$#i); } @{$self->{Exclude}{uris}};
}
return 0;
@ -1697,7 +1695,7 @@ sub _init
%{$self->{UrlAliasCache}} = ();
@{$self->{UserExcludeCache}} = ();
@{$self->{ClientExcludeCache}} = ();
@{$self->{UrlExcludeCache}} = ();
%{$self->{UrlExcludeCache}} = ();
@{$self->{UserIncludeCache}} = ();
@{$self->{ClientIncludeCache}} = ();
$self->{has_network_alias} = scalar keys %{$self->{NetworkAlias}};