LEMONLDAP::NG : some stupid bugs...

build/lemonldap-ng/debian/README.Debian

@@ -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
 ---------------------------------------

modules/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Simple.pm

@@ -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;
 }
 

modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthSSL.pm

@@ -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;
     },