Sub b4jHandle(req As ServletRequest, resp As ServletResponse)
Dim cBody As String
Dim cAPIKey As String
resp.ContentType = "application/json"
Try
Dim data() As Byte = Bit.InputStreamToBytes(req.InputStream)
Dim cJSON As String = BytesToString(data, 0, data.Length, "UTF8")
Dim Json As JSONParser
Dim Map1 As Map
Json.Initialize(cJSON)
Map1 = Json.NextObject
cAPIKey = Map1.Get("apikey")
Catch
Log(LastException.Message)
End Try
cBody = "{""value"":""" & cAPIKey & """}"
resp.Write(cBody)
End Sub