ewgi middleware example

ewgi-to_upper-middleware-example.erl

loop(Req, DocRoot) ->
    Mod = ewgi_mochiweb:new(fun ?MODULE:simple_stack/1),
    Mod:run(Req).

simple_stack(Ctx) ->
    to_upper(hello_app(Ctx)).
   
hello_app({ewgi_context, Request, _Response}) ->
    ResponseHeaders = [{"Content-type", "text/plain"}],
    Response = {ewgi_response, {200, "OK"}, ResponseHeaders,
                [<<"Hello world!">>], undefined},
    {ewgi_context, Request, Response}.

to_upper({ewgi_context, Request, Response}=Ctx) ->
    Body = ewgi_api:response_message_body(Ctx),
    Body1 = [string:to_upper(erlang:binary_to_list(B)) || B <- Body],
    ewgi_api:response_message_body(Body1, Ctx).