dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixe #314458 - add url parameter in URL of CAS portal redirection

Browse Source
This commit is contained in:
Thomas CHEMINEAU 2009-11-05 14:25:55 +00:00
parent bc8d00970c
commit e2d47ce982
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthCAS.pm
View File

@ -9,7 +9,7 @@ use strict;
use Lemonldap::NG::Portal::Simple;
use AuthCAS;
our $VERSION = '0.11';
our $VERSION = '0.12';
## @apmethod int authInit()
# Does nothing.
@ -28,13 +28,23 @@ sub extractFormInfo {
casUrl => $self->{CAS_url},
CAFile => $self->{CAS_CAFile},
);
my $login_url = $cas->getServerLoginURL( $self->{CAS_loginUrl} );
my $casLoginUrl = $self->{CAS_loginUrl};
my $casValidationUrl = $self->{CAS_validationUrl};
if ($self->{_url})
{
my $url_param = 'url=' . $self->{_url};
$casLoginUrl .= ( $casLoginUrl =~ /\?/ ? '&' : '?' ) . $url_param;
$casValidationUrl .= ( $casValidationUrl =~ /\?/ ? '&' : '?' ) . $url_param;
}
my $login_url = $cas->getServerLoginURL( $casLoginUrl );
my $ticket = $self->param('ticket');
# Unless a ticket has been found, we redirect the user
unless ( $self->{user} =
$cas->validateST( $self->{CAS_validationUrl}, $ticket ) )
$cas->validateST( $casValidationUrl, $ticket ) )
{
print $self->redirect(
-uri => $login_url,