From a63c7a7d4a8a103590a135af011662d71208dbde Mon Sep 17 00:00:00 2001
From: Xavier Guimard <xavier.guimard@laposte.net>
Date: Thu, 13 Apr 2017 07:28:17 +0000
Subject: [PATCH] Display CAS exportedVars (#1183)

---
 .../Lemonldap/NG/Common/Conf/RESTServer.pm    | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/RESTServer.pm b/lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/RESTServer.pm
index 6d523e2dd..3f4dc911e 100644
--- a/lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/RESTServer.pm
+++ b/lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf/RESTServer.pm
@@ -473,6 +473,25 @@ sub _casMetaDataNodes {
 
     my ( $id, $resp ) = ( 1, [] );
 
+    # Return all exported attributes if asked
+    if ( $query =~
+        /^(?:cas${type}MetaDataExportedVars)$/
+      )
+    {
+        my $pk = eval { $self->getConfKey( $req, $query )->{$partner} } // {};
+        return $self->sendError( $req, undef, 400 ) if ( $req->error );
+        foreach my $h ( sort keys %$pk ) {
+            push @$resp,
+              {
+                id    => "cas${type}MetaDataNodes/$partner/$query/" . $id++,
+                title => $h,
+                data  => $pk->{$h},
+                type  => 'keyText',
+              };
+        }
+        return $self->sendJSONresponse( $req, $resp );
+    }
+
     # Options
     if (
         $query =~ {