tyler.durden/squidanalyzer
1
0
Fork 0
mirror of https://github.com/darold/squidanalyzer.git synced 2025-07-31 01:44:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Change underscore used to replace space in username bi the special string _SPC_ so that undescore will not be wrongly replaced on HTML output.

Browse Source
This commit is contained in:
Darold Gilles 2013-11-03 22:26:02 +01:00
parent 873f188fdd
commit 63432e3748
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
SquidAnalyzer.pm
View File

@ -2137,7 +2137,7 @@ sub _print_user_stat
last; last;
} }
} }
$show =~ s/_/ /g; $show =~ s/_SPC_/ /g;
my $url = &escape($usr); my $url = &escape($usr);
my $comma_bytes = $self->format_bytes($user_stat{$usr}{bytes}); my $comma_bytes = $self->format_bytes($user_stat{$usr}{bytes});
if ($self->{UrlReport}) { if ($self->{UrlReport}) {
@ -2312,6 +2312,7 @@ sub _print_netuser_stat
last; last;
} }
} }
$show =~ s/_SPC_/ /g;
my $url = &escape($usr); my $url = &escape($usr);
my $comma_bytes = $self->format_bytes($netuser_stat{$usr}{bytes}); my $comma_bytes = $self->format_bytes($netuser_stat{$usr}{bytes});
if ($self->{UrlReport}) { if ($self->{UrlReport}) {
@ -3071,7 +3072,7 @@ sub parse_user_aliases
$i++; $i++;
next if (!$l || ($l =~ /^[\s\t]*#/)); next if (!$l || ($l =~ /^[\s\t]*#/));
my @data = split(/\t+/, $l, 2); my @data = split(/\t+/, $l, 2);
$data[0] =~ s/\s+/_/g; # Replace space, they are not allowed $data[0] =~ s/\s+/_SPC_/g; # Replace space, they are not allowed
if ($#data == 1) { if ($#data == 1) {
my @rg = split(/(?<!\{\d)[\s,;\t](?!\d+\})/, $data[1]); my @rg = split(/(?<!\{\d)[\s,;\t](?!\d+\})/, $data[1]);
foreach my $r (@rg) { foreach my $r (@rg) {