package Ġno . nav . oms org sp enger . routes Ċ Ċ import Ġio . ktor . application .* Ċ import Ġio . ktor . http .* Ċ import Ġio . ktor . response .* Ċ import Ġio . ktor . routing .* Ċ import Ġno . nav . oms org sp enger . Open Am Ċ import Ġno . nav . oms org sp enger . ldap . Ldap Service Ċ import Ġorg . json . JSONArray Ċ import Ġorg . json . JSONObject Ċ Ċ /** Ċ Ġ* ĠB ru ker Ġsam me Ġm Ã¸ n ster Ġsom Ġom Ġman Ġh enter Ġgr upper Ġf ra ĠGraphQL Ġfor Ċ Ġ* ĠEt ĠAzure Ġtoken . Ċ Ġ* Ġhttps :// docs . microsoft . com / en - us / graph / api / user - list - memberof Ċ Ġ*/ Ċ internal Ġfun ĠRoute . Active Directory Route ( ĊĠĠĠ Ġopen Am : ĠOpen Am , ĊĠĠĠ Ġldap Service : ĠL dap Service ) Ġ{ ĊĊĠĠĠ Ġget ("/ active - directory / me / member Of ") Ġ{ ĊĠĠĠĠĠĠĠ Ġval ĠuserInfo Ġ= Ġopen Am . ver if is ert UserInfo ( call ) ĊĠĠĠĠĠĠĠ Ġval Ġgr upper Ġ= Ġldap Service . h ent Gr upper ( userInfo . nav Ident ). map Ġ{ ĠJSONObject ( map Of ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" displayName " Ġto Ġit , ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ" id " Ġto Ġit ĊĠĠĠĠĠĠĠ Ġ)) }. let Ġ{ ĠJSONArray ( it ) Ġ} ĊĊĠĠĠĠĠĠĠ Ġval Ġresponse Ġ= ĠJSONObject (). also Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġit . put (" value ", Ġgr upper ) ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġcall . respond Text ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġstatus Ġ= ĠHttpStatusCode . OK , ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtext Ġ= Ġresponse . toString (), ĊĠĠĠĠĠĠĠĠĠĠĠ ĠcontentType Ġ= ĠContentType . Application . Json ĊĠĠĠĠĠĠĠ Ġ) ĊĠĠĠ Ġ} Ċ }