add optional session identifier to update existing session with a valid user via SOAP
This commit is contained in:
parent
1ba9f9ecf1
commit
a963e83dc2
@ -62,11 +62,17 @@ _RETURN $getCookiesResponse Response
|
|||||||
# This subroutine works only for portals working with user and password
|
# This subroutine works only for portals working with user and password
|
||||||
#@param user uid
|
#@param user uid
|
||||||
#@param password password
|
#@param password password
|
||||||
|
#@param sessionid optional session identifier
|
||||||
#@return session => { error => code , cookies => { cookieName1 => value ,... } }
|
#@return session => { error => code , cookies => { cookieName1 => value ,... } }
|
||||||
sub getCookies {
|
sub getCookies {
|
||||||
my $self = shift;
|
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->{error} = PE_OK;
|
||||||
( $self->{user}, $self->{password} ) = ( shift, shift );
|
|
||||||
$self->lmLog( "SOAP authentication request for $self->{user}", 'debug' );
|
$self->lmLog( "SOAP authentication request for $self->{user}", 'debug' );
|
||||||
unless ( $self->{user} && $self->{password} ) {
|
unless ( $self->{user} && $self->{password} ) {
|
||||||
$self->{error} = PE_FORMEMPTY;
|
$self->{error} = PE_FORMEMPTY;
|
||||||
|
Loading…
Reference in New Issue
Block a user