package Ġno . nav . sy fo . dialog meld ing . api Ċ Ċ import Ġio . ktor . server . application .* Ċ import Ġio . ktor . http .* Ċ import Ġio . ktor . server . request .* Ċ import Ġio . ktor . server . response .* Ċ import Ġio . ktor . server . routing .* Ċ import Ġio . ktor . server . util .* Ċ import Ġno . nav . sy fo . dialog meld ing . Dialog meld ing Service Ċ import Ġno . nav . sy fo . dialog meld ing . model . Dialog meld ing Type Ċ import Ġno . nav . sy fo . dialog meld ing . model . Opp rett Dialog meld ing Request Ċ import Ġno . nav . sy fo . log Ċ import Ġno . nav . sy fo . model . Person Ident Ċ import Ġjava . util .* Ċ Ċ object ĠO pp rett Dialog meld ing Request Parameters Ġ{ ĊĠĠĠ Ġconst Ġval Ġtype Ġ= Ġ" type " ĊĠĠĠ Ġconst Ġval Ġpas ient Fn r Ġ= Ġ" pas ient Fn r " ĊĠĠĠ Ġconst Ġval Ġle ge Fn r Ġ= Ġ" lege Fn r " ĊĠĠĠ Ġconst Ġval Ġnot at Ġ= Ġ" not at " ĊĠĠĠ Ġconst Ġval Ġref To Parent Ġ= Ġ" ref To Parent " ĊĠĠĠ Ġconst Ġval Ġref To Conversation Ġ= Ġ" ref To Conversation " Ċ } Ċ Ċ fun ĠRoute . register Dialog meld ing Api ( dialog meld ing Service : ĠDialog meld ing Service ) Ġ{ ĊĠĠĠ Ġpost ("/ dialog meld ing / op prett ") Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġform Parameters Ġ= Ġcall . receive Parameters () ĊĠĠĠĠĠĠĠ Ġval Ġmsg Id Ġ= ĠUUID . randomUUID (). toString () ĊĠĠĠĠĠĠĠ Ġval Ġrequest Ġ= ĠO pp rett Dialog meld ing Request ( ĊĠĠĠĠĠĠĠĠĠĠĠ Ġmsg Id Ġ= Ġmsg Id , ĊĠĠĠĠĠĠĠĠĠĠĠ Ġtype Ġ= ĠDialog meld ing Type . valueOf ( form Parameters . get OrFail ( Opp rett Dialog meld ing Request Parameters . type )), ĊĠĠĠĠĠĠĠĠĠĠĠ Ġpas ient Fn r Ġ= ĠPerson Ident ( form Parameters . get OrFail ( Opp rett Dialog meld ing Request Parameters . pas ient Fn r )), ĊĠĠĠĠĠĠĠĠĠĠĠ Ġle ge Fn r Ġ= ĠPerson Ident ( form Parameters . get OrFail ( Opp rett Dialog meld ing Request Parameters . lege Fn r )), ĊĠĠĠĠĠĠĠĠĠĠĠ Ġnot at Ġ= Ġform Parameters [ Opp rett Dialog meld ing Request Parameters . not at ], ĊĠĠĠĠĠĠĠĠĠĠĠ Ġref To Parent Ġ= Ġform Parameters [ Opp rett Dialog meld ing Request Parameters . ref To Parent ], ĊĠĠĠĠĠĠĠĠĠĠĠ Ġref To Conversation Ġ= Ġform Parameters [ Opp rett Dialog meld ing Request Parameters . ref To Conversation ], ĊĠĠĠĠĠĠĠ Ġ) ĊĊĠĠĠĠĠĠĠ Ġdialog meld ing Service . op prett Dialog meld ing ( request ) ĊĊĠĠĠĠĠĠĠ Ġval Ġmessage Ġ= Ġ" Dialog meld ing Ġmed Ġmsg Id Ġ$ msg Id Ġopp rett et Ġog Ġsend t Ġtil Ġpad m 2 " ĊĠĠĠĠĠĠĠ Ġlog . info ( message ) ĊĠĠĠĠĠĠĠ Ġcall . respond ( HttpStatusCode . OK , Ġmessage ) ĊĠĠĠ Ġ} Ċ } Ċ