Remove double slashes in _pdata->{_url} + Don't overwrite $self-portal if already set (#2594)
This commit is contained in:
parent
21f4ca1f35
commit
3f42113229
|
@ -128,7 +128,7 @@ sub _authAndTrace {
|
||||||
eval "require $type";
|
eval "require $type";
|
||||||
die $@ if ($@);
|
die $@ if ($@);
|
||||||
my ( $res, $session ) = $type->run( $req, $self->{rule} );
|
my ( $res, $session ) = $type->run( $req, $self->{rule} );
|
||||||
eval { $self->portal( $type->tsv->{portal}->() ) };
|
eval { $self->portal( $type->tsv->{portal}->() ) } unless $self->portal;
|
||||||
$self->logger->warn($@) if $@;
|
$self->logger->warn($@) if $@;
|
||||||
$req->userData($session) if ($session);
|
$req->userData($session) if ($session);
|
||||||
|
|
||||||
|
@ -201,7 +201,7 @@ sub userId {
|
||||||
my $userId =
|
my $userId =
|
||||||
$req->userData->{ $Lemonldap::NG::Handler::Main::tsv->{whatToTrace}
|
$req->userData->{ $Lemonldap::NG::Handler::Main::tsv->{whatToTrace}
|
||||||
|| '_whatToTrace' }
|
|| '_whatToTrace' }
|
||||||
|| $req->userData->{'_user'} # Fix 2377
|
|| $req->userData->{'_user'} # Fix 2377
|
||||||
|| 'anonymous';
|
|| 'anonymous';
|
||||||
|
|
||||||
$self->logger->debug("Returned userId: $userId");
|
$self->logger->debug("Returned userId: $userId");
|
||||||
|
|
|
@ -100,7 +100,7 @@ sub _redirect {
|
||||||
$self->logger->debug(
|
$self->logger->debug(
|
||||||
'Add ' . $self->ipath . ', ' . $self->ipath . 'Path in keepPdata' );
|
'Add ' . $self->ipath . ', ' . $self->ipath . 'Path in keepPdata' );
|
||||||
push @{ $req->pdata->{keepPdata} }, $self->ipath, $self->ipath . 'Path';
|
push @{ $req->pdata->{keepPdata} }, $self->ipath, $self->ipath . 'Path';
|
||||||
$req->{urldc} = $self->conf->{portal} . '/' . $self->path;
|
$req->{urldc} = $self->p->buildUrl( $self->path );
|
||||||
$req->pdata->{_url} = encode_base64( $req->urldc, '' );
|
$req->pdata->{_url} = encode_base64( $req->urldc, '' );
|
||||||
$req->pdata->{issuerTs} = time;
|
$req->pdata->{issuerTs} = time;
|
||||||
}
|
}
|
||||||
|
@ -128,7 +128,7 @@ sub _redirect {
|
||||||
$self->restoreRequest( $_[0], $ir );
|
$self->restoreRequest( $_[0], $ir );
|
||||||
$self->cleanPdata( $_[0] );
|
$self->cleanPdata( $_[0] );
|
||||||
return $self->run( @_, @path );
|
return $self->run( @_, @path );
|
||||||
}
|
}
|
||||||
: ()
|
: ()
|
||||||
)
|
)
|
||||||
]
|
]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user