From c702ba763b29bdc72f4d05b8dd7ff864944be4fd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Oudot?= <clement@oodo.net>
Date: Wed, 15 Feb 2017 14:59:56 +0000
Subject: [PATCH] Export CAS request parameters in %ENV (#1158)

---
 .../lib/Lemonldap/NG/Portal/Issuer/CAS.pm       | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/CAS.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/CAS.pm
index ed3ded9fa..32993422f 100644
--- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/CAS.pm
+++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Issuer/CAS.pm
@@ -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;