Handler: Move remaining functions of Main::Headers into Main (#630)
This commit is contained in:
parent
899b9899bd
commit
056d6cacf2
|
@ -13,7 +13,6 @@ lib/Lemonldap/NG/Handler/API/Nginx.pm
|
||||||
lib/Lemonldap/NG/Handler/CGI.pm
|
lib/Lemonldap/NG/Handler/CGI.pm
|
||||||
lib/Lemonldap/NG/Handler/Reload.pm
|
lib/Lemonldap/NG/Handler/Reload.pm
|
||||||
lib/Lemonldap/NG/Handler/Main.pm
|
lib/Lemonldap/NG/Handler/Main.pm
|
||||||
lib/Lemonldap/NG/Handler/Main/Headers.pm
|
|
||||||
lib/Lemonldap/NG/Handler/Main/Jail.pm
|
lib/Lemonldap/NG/Handler/Main/Jail.pm
|
||||||
lib/Lemonldap/NG/Handler/Main/Logger.pm
|
lib/Lemonldap/NG/Handler/Main/Logger.pm
|
||||||
lib/Lemonldap/NG/Handler/Main/PostForm.pm
|
lib/Lemonldap/NG/Handler/Main/PostForm.pm
|
||||||
|
|
|
@ -61,7 +61,6 @@ BEGIN {
|
||||||
|
|
||||||
use Lemonldap::NG::Handler::Reload;
|
use Lemonldap::NG::Handler::Reload;
|
||||||
use Lemonldap::NG::Handler::Main::Jail;
|
use Lemonldap::NG::Handler::Main::Jail;
|
||||||
use Lemonldap::NG::Handler::Main::Headers;
|
|
||||||
use Lemonldap::NG::Handler::Main::PostForm;
|
use Lemonldap::NG::Handler::Main::PostForm;
|
||||||
use Lemonldap::NG::Handler::Main::Logger;
|
use Lemonldap::NG::Handler::Main::Logger;
|
||||||
|
|
||||||
|
@ -315,8 +314,7 @@ sub run ($$) {
|
||||||
'debug', $r );
|
'debug', $r );
|
||||||
$class->updateStatus( $r, 'SKIP' );
|
$class->updateStatus( $r, 'SKIP' );
|
||||||
$class->hideCookie($r);
|
$class->hideCookie($r);
|
||||||
Lemonldap::NG::Handler::Main::Headers->cleanHeaders( $r,
|
$class->cleanHeaders($r);
|
||||||
$tsv->{forgeHeaders}, $tsv->{headerList} );
|
|
||||||
return OK;
|
return OK;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -342,8 +340,7 @@ sub run ($$) {
|
||||||
$class->updateStatus( $r, 'OK', $datas->{ $tsv->{whatToTrace} } );
|
$class->updateStatus( $r, 'OK', $datas->{ $tsv->{whatToTrace} } );
|
||||||
|
|
||||||
# ACCOUNTING (2. Inform remote application)
|
# ACCOUNTING (2. Inform remote application)
|
||||||
Lemonldap::NG::Handler::Main::Headers->sendHeaders( $r,
|
$class->sendHeaders( $r );
|
||||||
$tsv->{forgeHeaders} );
|
|
||||||
|
|
||||||
# Store local macros
|
# Store local macros
|
||||||
if ( keys %$datas > $kc and $tsv->{sessionCache} ) {
|
if ( keys %$datas > $kc and $tsv->{sessionCache} ) {
|
||||||
|
@ -377,8 +374,7 @@ sub run ($$) {
|
||||||
'debug', $r );
|
'debug', $r );
|
||||||
$class->updateStatus( $r, 'UNPROTECT' );
|
$class->updateStatus( $r, 'UNPROTECT' );
|
||||||
$class->hideCookie($r);
|
$class->hideCookie($r);
|
||||||
Lemonldap::NG::Handler::Main::Headers->cleanHeaders( $r,
|
$class->cleanHeaders($r);
|
||||||
$tsv->{forgeHeaders}, $tsv->{headerList} );
|
|
||||||
return OK;
|
return OK;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -607,4 +603,26 @@ sub isUnprotected {
|
||||||
return $tsv->{defaultProtection}->{$vhost};
|
return $tsv->{defaultProtection}->{$vhost};
|
||||||
}
|
}
|
||||||
|
|
||||||
|
## @rmethod void sendHeaders()
|
||||||
|
# Launch function compiled by forgeHeadersInit() for the current virtual host
|
||||||
|
sub sendHeaders {
|
||||||
|
my ( $class, $r ) = @_;
|
||||||
|
my $vhost = Lemonldap::NG::Handler::API->hostname($r);
|
||||||
|
if ( defined( $tsv->{forgeHeaders}->{$vhost} ) ) {
|
||||||
|
Lemonldap::NG::Handler::API->set_header_in( $r,
|
||||||
|
&{ $tsv->{forgeHeaders}->{$vhost} } );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
## @rmethod void cleanHeaders()
|
||||||
|
# Unset HTTP headers, when sendHeaders is skipped
|
||||||
|
sub cleanHeaders {
|
||||||
|
my ( $class, $r ) = @_;
|
||||||
|
my $vhost = Lemonldap::NG::Handler::API->hostname($r);
|
||||||
|
if ( defined( $tsv->{headerList}->{$vhost} ) ) {
|
||||||
|
Lemonldap::NG::Handler::API->unset_header_in( $r,
|
||||||
|
@{ $tsv->{headerList}->{$vhost} } );
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
|
|
@ -1,33 +0,0 @@
|
||||||
package Lemonldap::NG::Handler::Main::Headers;
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
|
|
||||||
use Lemonldap::NG::Handler::API qw( :httpCodes ); # for importing MP function
|
|
||||||
use Lemonldap::NG::Handler::Main::Logger;
|
|
||||||
|
|
||||||
our $VERSION = '1.4.0';
|
|
||||||
|
|
||||||
|
|
||||||
## @rmethod void sendHeaders()
|
|
||||||
# Launch function compiled by forgeHeadersInit() for the current virtual host
|
|
||||||
sub sendHeaders {
|
|
||||||
my ( $class, $r, $forgeHeaders ) = splice @_;
|
|
||||||
my $vhost = Lemonldap::NG::Handler::API->hostname($r);
|
|
||||||
if ( defined( $forgeHeaders->{$vhost} ) ) {
|
|
||||||
Lemonldap::NG::Handler::API->set_header_in( $r,
|
|
||||||
&{ $forgeHeaders->{$vhost} } );
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
## @rmethod void cleanHeaders()
|
|
||||||
# Unset HTTP headers for the current virtual host, when sendHeaders is skipped
|
|
||||||
sub cleanHeaders {
|
|
||||||
my ( $class, $r, $forgeHeaders, $headerList ) = splice @_;
|
|
||||||
my $vhost = Lemonldap::NG::Handler::API->hostname($r);
|
|
||||||
if ( defined( $forgeHeaders->{$vhost} ) ) {
|
|
||||||
Lemonldap::NG::Handler::API->unset_header_in( $r,
|
|
||||||
@{ $headerList->{$vhost} } );
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
Loading…
Reference in New Issue
Block a user