From 2b5de506140eeb0002a64c78e2a78529f493ef8b Mon Sep 17 00:00:00 2001
From: Xavier Guimard <xavier.guimard@laposte.net>
Date: Fri, 18 Oct 2013 04:42:56 +0000
Subject: [PATCH] Modify r2981 changes: now authenticate() launch
 extractFormInfo() if auth isn't done

---
 lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthSSL.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthSSL.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthSSL.pm
index 0d4978290..030f3f4c5 100644
--- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthSSL.pm
+++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthSSL.pm
@@ -61,7 +61,9 @@ sub setAuthSessionInfo {
 # @return Lemonldap::NG::Portal constant
 sub authenticate {
     my $self = shift;
-    return $ENV{ $self->{SSLVar} } ? PE_OK : PE_ERROR;
+    return ( $self->{user} and $ENV{ $self->{SSLVar} } )
+      ? PE_OK
+      : $self->extractFormInfo();
 }
 
 ## @method string getDisplayType