From 95ee902adceb03ccb19d0375e321ef8ae11c3356 Mon Sep 17 00:00:00 2001
From: Swapna Mohanan <smohanan@progress.com>
Date: Thu, 12 Dec 2024 06:24:55 -0500
Subject: [PATCH] 12.2.17 Release

---
 darest/get_roles.p | 72 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)
 create mode 100644 darest/get_roles.p

diff --git a/darest/get_roles.p b/darest/get_roles.p
new file mode 100644
index 00000000..cc9087d2
--- /dev/null
+++ b/darest/get_roles.p
@@ -0,0 +1,72 @@
+/*************************************************************/
+/* Copyright (c) 2024 by progress Software Corporation       */
+/* all rights reserved.  no part of this program or document */
+/* may be  reproduced in  any form  or by  any means without */
+/* permission in writing from progress Software Corporation. */
+/*************************************************************/
+/*------------------------------------------------------------------------
+    File        : get_roles.p
+    Purpose     : 
+    Syntax      :
+    Description : Fetch the roles & associated auth tags
+    Author(s)   : tmasood
+    Created     : Thu Aug 08 15:08:39 IST 2024
+    Notes       :
+  ----------------------------------------------------------------------*/
+
+/* ***************************  Definitions  ************************** */
+
+routine-level on error undo, throw.
+
+using Progress.Lang.Error.
+using OpenEdge.DataAdmin.DataAdminService.
+using OpenEdge.DataAdmin.Rest.IRestRequest.
+using OpenEdge.DataAdmin.Error.DataAdminErrorHandler.
+using OpenEdge.DataAdmin.IRole.
+using OpenEdge.DataAdmin.IRoleSet.
+using OpenEdge.DataAdmin.Error.NotFoundError.
+ 
+ /* old behavior - to be deprecated */
+{darest/restbase.i get roles}  
+
+procedure Execute:
+    define input  parameter restRequest as IRestRequest  no-undo.      
+    /* ***************************  Definitions  ************************** */
+    define variable oRole        as IRole                 no-undo.
+    define variable roleset      as IRoleSet              no-undo.
+    define variable service      as DataAdminService      no-undo.
+    define variable errorHandler as DataAdminErrorHandler no-undo.
+    define variable cRole        as character             no-undo.
+    /* ***************************  Main Block  *************************** */
+    restRequest:Validate().
+    service = new DataAdminService(restRequest:ConnectionName).
+    cRole = if restRequest:KeyValue[1] <> "" then restRequest:KeyValue[1] else "".
+   
+    service:URL = restRequest:ConnectionUrl.
+    
+    if cRole > "" then 
+    do:
+        oRole = service:GetRole(cRole).
+        if not valid-object(oRole) then
+            undo, throw new NotFoundError("Role '"  + cRole  + "' not found").
+         
+        oRole:Export(restRequest:OutFileName).
+    end.    
+    else do:
+       roleset = service:GetRoles().
+       roleset:Export(restRequest:OutFileName).
+    end.
+ 
+    catch e as Progress.Lang.Error :
+        if session:batch-mode then
+            errorHandler =  new DataAdminErrorHandler(restRequest:ErrorFileName).
+        else do:
+            errorHandler = new DataAdminErrorHandler().
+        end.
+        errorHandler:Error(e).      
+    end catch.
+    finally:
+        delete object service no-error.       		
+    end finally.
+    
+end.