dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Hide valued headers only (#2398)

Browse Source
This commit is contained in:
Christophe Maudoux 2020-11-28 11:46:17 +01:00
parent 6a2be8fecf
commit 421929d081
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Plugins/CheckUser.pm
View File

@ -496,17 +496,21 @@ sub _headers {
if ( $keysToRemove eq '__all__' ) {
$self->logger->debug(
"Remove for VirtualHost: $vhost ALL header(s)...");
$headers = [];
"Overwrite for VirtualHost: $vhost ALL valued header(s)...");
@$headers = map {
$_->{value} =~ /\w+/
? { key => $_->{key}, value => '******' }
: $_
} @$headers;
}
else {
$self->logger->debug(
"Mask hidden header(s) for VirtualHost: $vhost");
my $hash = { map { $_->{key} => $_->{value} } @$headers };
$hash = $self->_removeKeys( $hash, $keysToRemove,
"Overwrite \"$keysToRemove\" header(s)...", 1 );
"Overwrite valued \"$keysToRemove\" header(s)...", 1 );
@$headers = (
map { { 'key' => $_, 'value' => $hash->{$_} } }
map { { key => $_, value => $hash->{$_} } }
sort keys %$hash
);
}
@ -612,7 +616,7 @@ sub _removeKeys {
if ($mask) {
$self->userLogger->info('Hide some headers');
foreach (@keys) {
$attrs->{$_} = '******';
$attrs->{$_} = '******' if $attrs->{$_} =~ /\w+/;
}
}
else {