Share My Creation [Project Template] [Web] EndsMeet (beta)

Public Sub RouteApi
    Select Request.Method
        Case "GET"
            Dim RequestMap As Map = EndsMeetUtils.GetRequestElements(Request.RequestURI, Main.BaseElements)
            If RequestMap.ContainsKey("First") Then
                Dim Person As String = RequestMap.Get("First")
                GetGreet(Person)
            Else
                GetJSON
            End If
        Case Else
            Log("Unsupported method: " & Request.Method)
            EndsMeetUtils.ReturnMethodNotAllow(HRM, Response)
    End Select
End Sub

Private Sub GetGreet (Name As String)
    #region Documentation
    ' #Version = v1
    ' #Desc = Return greeting message
    #End region
    Model.ReturnGreetingApi(Name)
End Sub

Public Sub ReturnGreetingApi (Person As String)
    Dim m1 As Map
    m1.Initialize
    m1.Put("greeting", $"Merry Xmas, ${Person}!"$)
    HRM.ResponseObject = m1
    EndsMeetUtils.ReturnHttpResponse(HRM, Response)
End Sub

Public Sub Render
    Dim strHtml As String = $"<center>
        <a href="${Main.ROOT_PATH}hello">Go to Hello page</a><br/>
        <p><a href="${Main.ROOT_PATH}api/v1/hello">Get Hello API</a></p>
        <p><a href="${Main.ROOT_PATH}api/v1/hello/B4X">Get Greeting API</a></p>
        </center>"$
    EndsMeetUtils.ReturnHtml(strHtml, Response)
End Sub

Sub Class_Globals
    Private Response As ServletResponse
End Sub

Public Sub Initialize (req As ServletRequest, resp As ServletResponse)
    Response = resp
End Sub

Public Sub Render
    Dim strHtml As String = $"<center>   
        <button hx-put="/demo/messages" style="padding: 10px">
            Put To Messages
        </button>
        <p>
        <input type="text" name="q"
        hx-get="/demo/trigger_delay"
        hx-trigger="keyup changed delay:500ms"
        hx-target="#search-results"
        placeholder="Search...">
        <div id="search-results" style="margin-top: 60px">No result</div>
        </p>
        </center>
        
        <script src="https://unpkg.com/htmx.org@2.0.0" integrity="sha384-wS5l5IKJBvK6sPTKa2WZ1js3d947pvWXbPJ1OmWfEuxLgeHcEbjUUA5i9V5ZkpCw" crossorigin="anonymous"></script>
        "$
    EndsMeetUtils.ReturnHtml(strHtml, Response)
End Sub

Sub Class_Globals
    Private Request As ServletRequest
    Private Response As ServletResponse
End Sub

Public Sub Initialize

End Sub

Sub Handle (req As ServletRequest, resp As ServletResponse)
    Request = req
    Response = resp
    ProcessRequest
End Sub

Private Sub ProcessRequest
    Log($"[${Request.Method}] ${Request.RequestURI}"$)   
    If EndsMeetUtils.isWebRequest(Request.RequestURI, Main.BaseElements) = False Then
        Response.SendError(400, "Bad Request")
        Return
    End If
    
    Dim RequestMap As Map = EndsMeetUtils.GetRequestElements(Request.RequestURI, Main.BaseElements)
    Dim Path As String = RequestMap.Get("Path")
    If Path.EqualsIgnoreCase(Main.BaseElements.Path.Element) = False Then
        Response.SendError(400, "Bad Request")
        Return
    End If
    
    Select RequestMap.Size
        Case 1 ' root
            Log(RequestMap)
        Case 2 ' path (demo)
            Dim Index As IndexView
            Index.Initialize(Request, Response)
            Index.Render
            Return
        Case Else
            Dim Controller As String = RequestMap.Get("Controller")
            Select Controller
                Case "hello"
                    Dim Hello As HelloController
                    Hello.Initialize(Request, Response)
                    Hello.RouteWeb
                    Return
                Case "messages"
                    DateTime.DateFormat = "dd/MM/yyyy HH:mm:ssa"
                    Response.Write(DateTime.Date(DateTime.Now))
                    Return
                Case "trigger_delay"
                    Dim q As String = Request.GetParameter("q")
                    If q = "" Then
                        Response.Write("No result")
                    Else
                        Response.Write(q)
                    End If
                    Return
            End Select
    End Select
    Response.SendError(400, "Bad Request")
End Sub