From a963e83dc26f662d3d8f43a187fcbac1fadd5a2c Mon Sep 17 00:00:00 2001
From: Thomas CHEMINEAU <thomas.chemineau@gmail.com>
Date: Mon, 3 May 2010 16:49:57 +0000
Subject: [PATCH] add optional session identifier to update existing session
 with a valid user via SOAP

---
 .../lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_SOAP.pm  | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_SOAP.pm b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_SOAP.pm
index 850915412..fb746d4ab 100644
--- a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_SOAP.pm
+++ b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_SOAP.pm
@@ -62,11 +62,17 @@ _RETURN $getCookiesResponse Response
 # This subroutine works only for portals working with user and password
 #@param user uid
 #@param password password
+#@param sessionid optional session identifier
 #@return session => { error => code , cookies => { cookieName1 => value ,... } }
 sub getCookies {
     my $self = shift;
+    my $user      = shift;
+    my $password  = shift;
+    my $sessionid = shift;
+    $self->{user}     = $user;
+    $self->{password} = $password;
+    $self->{id}       = $sessionid if ( defined($sessionid) && $sessionid );
     $self->{error} = PE_OK;
-    ( $self->{user}, $self->{password} ) = ( shift, shift );
     $self->lmLog( "SOAP authentication request for $self->{user}", 'debug' );
     unless ( $self->{user} && $self->{password} ) {
         $self->{error} = PE_FORMEMPTY;