63 lines
1.2 KiB
Perl
63 lines
1.2 KiB
Perl
package Lemonldap::NG::Handler::API::Nginx;
|
|
|
|
our $VERSION = '1.4.0';
|
|
our ( %EXPORT_TAGS, @EXPORT_OK, @EXPORT );
|
|
|
|
|
|
|
|
## @method void thread_share(string $variable)
|
|
# share or not the variable (if authorized by specific module)
|
|
# @param $variable the name of the variable to share
|
|
sub thread_share {
|
|
my ($class, $variable) = @_;
|
|
# nothing to do in Nginx
|
|
}
|
|
|
|
sub set_user {
|
|
my ( $class, $r, $user ) = @_;
|
|
|
|
# Nginx perl API does not (yet ?) allow to set $remote_user var
|
|
# So one tries to set the variable $user instead
|
|
$r->variable( "user", $user )
|
|
if ( defined $r->variable("user") );
|
|
}
|
|
|
|
sub header_in {
|
|
my ( $class, $r, $header ) = @_;
|
|
return $r->header_in($header);
|
|
}
|
|
|
|
sub set_header_in {
|
|
my ( $class, $r, %headers ) = @_;
|
|
while ( my ( $h, $v ) = each %headers ) {
|
|
|
|
# TODO
|
|
}
|
|
}
|
|
|
|
sub unset_header_in {
|
|
my ( $class, $r, @headers ) = @_;
|
|
foreach my $h (@headers) {
|
|
|
|
# TODO
|
|
}
|
|
}
|
|
|
|
sub set_header_out {
|
|
my ( $class, $r, %headers ) = @_;
|
|
while ( my ( $h, $v ) = each %headers ) {
|
|
|
|
# TODO
|
|
}
|
|
}
|
|
|
|
sub set_err_header_out {
|
|
my ( $class, $r, %headers ) = @_;
|
|
while ( my ( $h, $v ) = each %headers ) {
|
|
|
|
# TODO
|
|
}
|
|
}
|
|
|
|
1;
|