package Ġlt . pet us ka . hazelcast . explorer . service . entity Ċ Ċ import Ġio . ktor . client . request . delete Ċ import Ġio . ktor . client . request . get Ċ import Ġio . ktor . client . request . post Ċ import Ġio . ktor . client . request . put Ċ import Ġio . ktor . client . statement . Http Statement Ċ import Ġio . ktor . http . ContentType Ċ import Ġio . ktor . http . content . Text Content Ċ import Ġlt . pet us ka . hazelcast . explorer . domain . environment . Environment Ċ import Ġlt . pet us ka . hazelcast . explorer . domain . environment . target . Target Ċ import Ġlt . pet us ka . hazelcast . explorer . domain . environment . target . entity . Map Ċ import Ġlt . pet us ka . hazelcast . explorer . service . Fetch Service Ċ import Ġlt . pet us ka . hazelcast . explorer . util . promise Ċ Ċ object ĠMap Service Ġ: ĠFetch Service () Ġ{ ĊĠ Ġfun ĠgetAll Keys ( environment : ĠEnvironment , Ġtarget : ĠTarget , Ġmap : ĠMap ) Ġ= Ġpromise Ġ{ ĊĠĠĠ Ġval Ġurl Ġ= Ġ"/ api / entity /${ environment . name }/${ target . name }/ map /${ map . name }" ĊĠĠĠ ĠhttpClient . get < Http Statement >( url ). execute () ĊĠ Ġ} ĊĠĠĊĠ Ġfun ĠgetValue ( environment : ĠEnvironment , Ġtarget : ĠTarget , Ġmap : ĠMap , Ġkey : ĠString ?) Ġ= Ġpromise Ġ{ ĊĠĠĠ Ġval Ġurl Ġ= Ġ"/ api / entity /${ environment . name }/${ target . name }/ map /${ map . name }/ value /${ key !! }" ĊĠĠĠ ĠhttpClient . get < Http Statement >( url ). execute () ĊĠ Ġ} ĊĠĠĊĠ Ġfun Ġdelete Value ( environment : ĠEnvironment , Ġtarget : ĠTarget , Ġmap : ĠMap , Ġkey : ĠString ?) Ġ= Ġpromise Ġ{ ĊĠĠĠ Ġval Ġurl Ġ= Ġ"/ api / entity /${ environment . name }/${ target . name }/ map /${ map . name }/ value /${ key !! }" ĊĠĠĠ ĠhttpClient . delete < Http Statement >( url ). execute () ĊĠ Ġ} ĊĠĠĊĠ Ġfun Ġcreate Value ( environment : ĠEnvironment , Ġtarget : ĠTarget , Ġmap : ĠMap , Ġkey : ĠString ?, Ġvalue Json : ĠString ) Ġ= Ġpromise Ġ{ ĊĠĠĠ Ġval Ġurl Ġ= Ġ"/ api / entity /${ environment . name }/${ target . name }/ map /${ map . name }/ value /${ key !! }" ĊĠĠĠ ĠhttpClient . post < Http Statement >( url ) Ġ{ ĊĠĠĠĠĠ Ġbody Ġ= ĠText Content ( value Json , ĠContentType . Application . Json ) ĊĠĠĠ Ġ}. execute () ĊĠ Ġ} ĊĠĠĊĠ Ġfun Ġreplace Value ( environment : ĠEnvironment , Ġtarget : ĠTarget , Ġmap : ĠMap , Ġkey : ĠString ?, Ġvalue Json : ĠString ) Ġ= Ġpromise Ġ{ ĊĠĠĠ Ġval Ġurl Ġ= Ġ"/ api / entity /${ environment . name }/${ target . name }/ map /${ map . name }/ value /${ key !! }" ĊĠĠĠ ĠhttpClient . put < Http Statement >( url ) Ġ{ ĊĠĠĠĠĠ Ġbody Ġ= ĠText Content ( value Json , ĠContentType . Application . Json ) ĊĠĠĠ Ġ}. execute () ĊĠ Ġ} Ċ }