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

Export CAS request parameters in %ENV (#1158)

Browse Source
This commit is contained in:
Clément Oudot 2017-02-15 14:59:56 +00:00
parent 5a701ff366
commit c702ba763b
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/CAS.pm
View File

@ -16,6 +16,10 @@ our $VERSION = '2.0.0';
extends 'Lemonldap::NG::Portal::Main::Issuer',
'Lemonldap::NG::Portal::Lib::CAS';
# INTERFACE
sub beforeAuth { 'exportRequestParameters' }
# INITIALIZATION
sub init {
@ -624,4 +628,17 @@ sub _validate2 {
$casProxyGrantingTicketIOU, $proxies, $attributes );
}
# Store request parameters in %ENV
sub exportRequestParameters {
my ( $self, $req ) = @_;
foreach my $param (qw/service renew gateway/) {
if ( $req->param($param) ) {
$req->env->{ "llng_cas_" . $param } = $req->param($param);
}
}
return PE_OK;
}
1;