package Ġno . nav . hel se . op ps lag . sp ole Ċ Ċ import Ġarrow . core . Try Ċ import Ġcom . github . kit tin un f . fuel . http Get Ċ import Ġno . nav . hel se . dom ene . A kt Ã¸ r Id Ċ import Ġorg . json . JSONObject Ċ import Ġjava . time . LocalDate Ċ Ċ class ĠS pole Client ( private Ġval ĠbaseUrl : ĠString , Ġprivate Ġval Ġac ces sto ken Scope : ĠString , Ġprivate Ġval Ġazure Client : ĠAzure Client ) Ġ{ ĊĠĠĠ Ġfun Ġh ent Sy ke pen ge period er ( akt Ã¸ r Id : ĠA kt Ã¸ r Id ): ĠTry < Sy ke pen ge period er > Ġ{ ĊĠĠĠĠĠĠĠ Ġreturn ĠTry Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġ(_, Ġ_, Ġresult ) Ġ= Ġ"$ baseUrl / sy ke pen ge period er /${ akt Ã¸ r Id . ak tor }". http Get () ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. header ( map Of ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ" Authorization " Ġto Ġ" Bearer Ġ${ azure Client . getToken ( ac ces sto ken Scope ). accessToken }", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ" Accept " Ġto Ġ" application / json ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ" Nav - Call - Id " Ġto Ġ" anything " ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ)) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ. response String () ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġresponse Ġ= ĠJSONObject ( result . get ()) ĊĊĠĠĠĠĠĠĠĠĠĠĠ ĠSy ke pen ge period er ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġakt Ã¸ r Id Ġ= Ġresponse . getString (" akt Ã¸ r _ id "), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġperiod er Ġ= Ġresponse . get JSONArray (" period er "). map Ġ{ Ġit Ġ-> ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġit Ġas ĠJSONObject ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ}. map Ġ{ Ġper i ode Json Ġ-> ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠPer i ode ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġf om Ġ= ĠLocalDate . parse ( peri ode Json . getString (" f om ")), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġtom Ġ= ĠLocalDate . parse ( peri ode Json . getString (" tom ")), ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġgrad Ġ= Ġper i ode Json . getString (" grad ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ Ċ data Ġclass ĠSy ke pen ge period er ( val Ġakt Ã¸ r Id : ĠString , Ġval Ġperiod er : ĠList < Per i ode >) Ċ data Ġclass ĠPer i ode ( val Ġf om : ĠLocalDate , Ġval Ġtom : ĠLocalDate , Ġval Ġgrad : ĠString ) ĊĊ