package Ġorg . yt tr Ċ Ċ import Ġio . ktor . application . call Ċ import Ġio . ktor . features . BadRequest Exception Ċ import Ġio . ktor . request . receive Parameters Ċ import Ġio . ktor . response . respond Redirect Ċ import Ġio . ktor . routing . Route Ċ import Ġio . ktor . routing . get Ċ import Ġio . ktor . routing . post Ċ import Ġkotlinx . html . Button Type Ċ import Ġkotlinx . html . Form Method Ċ import Ġkotlinx . html . InputType Ċ import Ġkotlinx . html . a Ċ import Ġkotlinx . html . button Ċ import Ġkotlinx . html . div Ċ import Ġkotlinx . html . form Ċ import Ġkotlinx . html . h 1 Ċ import Ġkotlinx . html . input Ċ import Ġorg . jetbrains . ex posed . sql . transactions . experimental . new Sus pended Transaction Ċ import Ġorg . yt tr . database . Webhook Ċ import Ġorg . yt tr . database . Web hooks Ċ import Ġorg . yt tr . partial . respond Standard HTML Ċ Ċ /** Ċ Ġ* ĠWeb hook Ġ" mother ", Ġcreates Ġand Ġlists Ġweb hooks Ġ(" children ") Ċ Ġ*/ Ċ fun ĠRoute . mother () Ġ{ ĊĠĠĠ Ġget ("/") Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġweb hooks Ġ= Ġnew Sus pended Transaction Ġ{ ĠWeb hook . all (). sorted By Ġ{ ĠWeb hooks . id Ġ}. toList () Ġ} ĊĠĠĠĠĠĠĠ Ġcall . respond Standard HTML Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġh 1 Ġ{ Ġ+" Web hooks " Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġdiv (" list - group ") Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġweb hooks . forEach Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġa ("/ ${ it . slug }", Ġclasses Ġ= Ġ" list - group - item Ġlist - group - item - action ") Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ+ it . slug ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġform ( ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ"/ new ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġclasses Ġ= Ġ" list - group - item Ġlist - group - item - action ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġmethod Ġ= ĠForm Method . post ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġdiv (" input - group ") Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġinput ( InputType . text , Ġclasses Ġ= Ġ" form - control ", Ġname Ġ= Ġ" slug ") Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġplaceholder Ġ= Ġ" New Ġslug " ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġdiv (" input - group - append ") Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġbutton ( classes Ġ= Ġ" btn Ġbtn - primary ", Ġtype Ġ= ĠButton Type . submit ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ+" Create " ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġpost ("/ new ") Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġslug Ġ= Ġcall . receive Parameters ()[" slug "] ĊĠĠĠĠĠĠĠ Ġif Ġ( slug Ġ== Ġnull Ġ|| Ġslug Ġ== Ġ" new ") Ġthrow ĠBadRequest Exception (" Invalid Ġslug ") ĊĠĠĠĠĠĠĠ Ġnew Sus pended Transaction Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ ĠWeb hook . new Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġthis . slug Ġ= Ġslug ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġaction Ġ= Ġ" print Ġ' Hello Ġworld ! '" ĊĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠ Ġcall . respond Redirect ("/ $ slug ") ĊĠĠĠ Ġ} Ċ } Ċ