Step 4: Process the request

Despite having variables in the m_reqInfo record, four additional STRING variables are defined to hold the method, the URL, the query, and the output format. In addition, an INTEGER variable is defined to hold an index value, used by some of the custom processing functions.

DEFINE method STRING 
DEFINE url STRING
DEFINE qry STRING
DEFINE acc STRING
DEFINE idx INT

With the record populated, the server application then populates the additional variables.

# Get the type of method
LET method = m_reqInfo.method
# Get the request path
LET url = m_reqInfo.path
# Get the query string
LET qry = m_reqInfo.query
# Get the output format
LET acc = m_reqInfo.outformat

In the demo server application, the CASE statement only tests for the GET method.

CASE method
    WHEN "GET"
      ... processing instructions
    OTHERWISE
      CALL setError("Unknown request:\n" || url || "\n" || method)
      LET err.code = -3
      LET err.desc = ERR_METHOD
      CALL req.sendTextResponse(200,"OK",util.JSON.stringify(err))
END CASE

For the remainder of the processing code, the demo server application:

• Determines whether the request is for addition, subtraction, multiplication, or division
• Retrieves the values for the variables a and b
• Handles errors appropriately

For example, the source code that would process an addition request:

IF url.getIndexOf("/add?",1) > 0 THEN
    LET idx = getParameterIndex("a") 
    IF idx = 0 THEN
        LET add_out.status.code = -1
        LET add_out.status.desc = ERR_PARAM_A
        CALL req.setResponseHeader("Content-Type","application/json")
        CALL req.sendTextResponse(200, "OK", util.JSON.stringify(add_out))
        EXIT CASE
    ELSE
        LET add_in.a = getParameterValue(idx)
    END IF
    LET idx = getParameterIndex("b")
    IF idx = 0 THEN
        LET add_out.status.code = -1
        LET add_out.status.desc = ERR_PARAM_B
        CALL req.setResponseHeader("Content-Type","application/json")
        CALL req.sendTextResponse(200, "OK", util.JSON.stringify(add_out))
        EXIT CASE
    ELSE
        LET add_in.b = getParameterValue(idx)
    END IF
    CALL add()
    ... send response
END IF