Sub Handle (req As ServletRequest, resp As ServletResponse)
Request = req
Response = resp
Method = Request.Method.ToUpperCase
Dim FullElements() As String = WebApiUtils.GetUriElements(Request.RequestURI)
Elements = WebApiUtils.CropElements(FullElements, 3) ' 3 For Api handler
Select Method
Case "GET"
If ElementMatch("") Then ' /api/categories
GetCategories
Return
End If
If ElementMatch("id") Then ' /api/categories/1
GetCategoryById(ElementId)
Return
End If
Case "POST"
If ElementMatch("") Then ' /api/categories
PostCategory
Return
End If
Case Else
Log("Unsupported method: " & Method)
ReturnMethodNotAllow
Return
End Select
ReturnBadRequest
End Sub