Commit 85e7acad authored by Yadd's avatar Yadd
Browse files

LEMONLDAP::NG : some stupid bugs...

parent 8d7fc021
......@@ -36,6 +36,10 @@ liblemonldap-ng-handler-perl installs a file named MyHandler.pm in
/var/lib/lemonldap-ng/handler/. See handler-apache.conf or handler-apache2.conf
in /etc/lemonldap-ng/ to know how to use it.
You can also copy /usr/share/doc/lemonldap-ng/examples/test.pl into
/var/lib/lemonldap-ng/index.pl to see how to use Lemonldap::NG with a Perl or
PHP application.
IV - LEMONLDAP::NG CONFIGURATION STORAGE
---------------------------------------
......
......@@ -459,8 +459,8 @@ sub encodeUrl {
my ( $class, $url ) = @_;
my $portString = $port || $apacheRequest->get_server_port();
$portString =
( $https && $port == 443 ) ? ''
: ( !$https && $port == 80 ) ? ''
( $https && $portString == 443 ) ? ''
: ( !$https && $portString == 80 ) ? ''
: ':' . $portString;
my $u =
encode_base64( "http"
......@@ -482,9 +482,7 @@ sub goToPortal() {
'debug'
);
my $urlc_init = $class->encodeUrl ( $url );
$apacheRequest->headers_out->set(
'Location' => "$portal?url=$urlc_init" . ( $arg ? "&$arg" : "" )
);
lmSetHeaderOut( $apacheRequest, 'Location' => "$portal?url=$urlc_init" . ( $arg ? "&$arg" : "" ) );
return REDIRECT;
}
......
......@@ -14,7 +14,7 @@ our $OVERRIDE = {
# variable is present. Adapt it if you want
extractFormInfo => sub {
my $self = shift;
$self->{user} = $self->https( $self->{SSLVar} || 'SSL_CLIENT_S_DN_Email' );
$self->{user} = $self->https( $self->{SSLVar} || $ENV{'SSL_CLIENT_S_DN_Email'} );
return PE_BADCREDENTIALS unless ( $self->{user} );
PE_OK;
},
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment