Finalize #1002 backport

environments/ppa-mbqj77/deployments/1
Xavier Guimard 9 years ago
parent beabc6b979
commit a4892485b3
  1. 5
      lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm

@ -482,9 +482,10 @@ sub isUnprotected {
sub sendHeaders {
my $class = shift;
my $vhost = $class->resolveAlias;
if ( defined( my %headers = $class->tsv->{forgeHeaders}->{$vhost}->() ) ) {
if ( defined $class->tsv->{forgeHeaders}->{$vhost} ) {
# Log headers in debug mode
my %headers = $class->tsv->{forgeHeaders}->{$vhost}->();
foreach my $h ( sort keys %headers ) {
if ( defined( my $v = $headers{$h} ) ) {
$class->lmLog( "Send header $h with value $v", 'debug' );
@ -493,7 +494,7 @@ sub sendHeaders {
$class->lmLog( "Send header $h with empty value", 'debug' );
}
}
$class->set_header_in( %headers );
$class->set_header_in(%headers);
}
}

Loading…
Cancel
Save