Manage headers (Closes: #1397)

lemonldap-ng-common/lib/Lemonldap/NG/Common/PSGI.pm

@@ -286,6 +286,7 @@ sub sendHtml {
 
 sub run {
     my ( $self, $args ) = @_;
+    $args //= {};
     unless ( ref $self ) {
         $self = $self->new($args);
         return $self->abort( $self->error ) unless ( $self->init($args) );

lemonldap-ng-handler/lib/Plack/Middleware/Auth/LemonldapNG.pm

@@ -31,7 +31,11 @@ sub call {
             return $res;
         }
     }
-    my $app = $self->app;
+    my $app  = $self->app;
+    my %hdrs = @{ $res->[1] };
+    foreach ( keys %hdrs ) {
+        $env->{$_} = 'HTTP_' . uc( $hdrs{$_} ) foreach ( keys %hdrs );
+    }
     @_ = $env;
     goto $app;
 }