1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
# Main FastCGI handler adapter for LLNG handler
#
# See https://lemonldap-ng.org/documentation/latest/handlerarch
package Lemonldap::NG::Handler::Server::Main;
use strict;
our $VERSION = '2.19.0';
use base 'Lemonldap::NG::Handler::PSGI::Main';
use constant defaultLogger => 'Lemonldap::NG::Common::Logger::Syslog';
$ENV{LLNG_DEFAULTLOGGER} ||= defaultLogger;
# In server mode, headers are not passed to a PSGI application but returned
# to the server
## @method void set_header_in(hash headers)
# sets or modifies request headers
# @param headers hash containing header names => header value
sub set_header_in {
my ( $class, $req, %headers ) = @_;
for my $k ( keys %headers ) {
$req->{env}->{ cgiName($k) } = $headers{$k};
}
push @{ $req->{respHeaders} }, %headers;
}
## @method void unset_header_in(array headers)
# deletes request headers and push headers that will be removed by LUA
# @param headers array containing header names
sub unset_header_in {
my ( $class, $req, @headers ) = @_;
$req->data->{deleteIndex} //= 1;
my $i = $req->data->{deleteIndex};
foreach my $header (@headers) {
$class->logger->debug("Delete header $header");
my $del = 0;
$req->{respHeaders} = [
map {
my @res;
if ($del) {
$del = 0;
}
elsif ( $_ and ( $_ eq $header or $_ eq cgiName($header) ) ) {
$del = 1;
}
else {
@res = ($_);
}
@res;
} @{ $req->{respHeaders} }
];
delete $req->{env}->{ cgiName($header) };
push @{ $req->{respHeaders} }, "Deleteheader$i", $header;
$i++;
push @{ $req->{respHeaders} }, "Deleteheader$i", cgiName($header);
$header =~ s/-/_/g;
delete $req->{env}->{$header};
$i++;
}
$req->data->{deleteIndex} = $i;
}
# Inheritence is broken in this case with Debian >= jessie
*checkType = *Lemonldap::NG::Handler::PSGI::Main::checkType;
*setServerSignature = *Lemonldap::NG::Handler::PSGI::Main::setServerSignature;
*thread_share = *Lemonldap::NG::Handler::PSGI::Main::thread_share;
*set_user = *Lemonldap::NG::Handler::PSGI::Main::set_user;
*set_custom = *Lemonldap::NG::Handler::PSGI::Main::set_custom;
*set_header_out = *Lemonldap::NG::Handler::PSGI::Main::set_header_out;
*is_initial_req = *Lemonldap::NG::Handler::PSGI::Main::is_initial_req;
*print = *Lemonldap::NG::Handler::PSGI::Main::print;
*addToHtmlHead = *Lemonldap::NG::Handler::PSGI::Main::addToHtmlHead;
*cgiName = *Lemonldap::NG::Handler::PSGI::Main::cgiName;
1;
|
