Added HTTP handlers for Count & History

Author: immidisa

src/compute_pool.erl

@@ -10,14 +10,24 @@
 -author("immidisa").
 
 %% API
--export([ start/0, compute/1]).
+-export([ start/0, compute/1, history_count/0, history/0]).
 
 
 start() ->
   compute_pool_sup:start_link(?MODULE).
 
-compute(Body) ->
-  wpool:call(?MODULE, {compute, Body}).
+compute(Input) ->
+  wpool:call(?MODULE, {compute, Input}).
+
+history_count() ->
+  wpool:call(?MODULE, count).
+
+history()->
+  wpool:call(?MODULE, history).
+
+
+
+
 
 %%%===================================================================
 %%% private functions

src/count_handler.erl

@@ -0,0 +1,37 @@
+%%%-------------------------------------------------------------------
+%%% @author immidisa
+%%% @copyright (C) 2019, <COMPANY>
+%%% @doc
+%%%
+%%% @end
+%%% Created : 28. Apr 2019 05:09
+%%%-------------------------------------------------------------------
+-module(count_handler).
+-author("immidisa").
+
+%% API
+-export([init/2]).
+-export([content_types_provided/2]).
+-export([content_types_accepted/2]).
+-export([allowed_methods/2]).
+-export([router/2]).
+
+init(Req, Opts) ->
+  {cowboy_rest, Req, Opts}.
+
+allowed_methods(Req, Opts) ->
+  {[ <<"GET">>], Req, Opts}.
+
+content_types_provided(Req, Opts) ->
+  {[{<<"application/json">>, router}], Req, Opts}.
+
+content_types_accepted(Req, Opts) ->
+  {[{<<"application/json">>, router}], Req, Opts}.
+
+router(Req, Opts) ->
+  Count=compute_pool:history_count(),
+  {ok, Req2} = cowboy_req:reply(200,
+    [{<<"content-type">>, <<"application/json">>}],jsx:encode(Count),
+    Req),
+  {ok, Req2, Opts}.
+

src/fibonacci_server_app.erl

@@ -18,7 +18,9 @@ start(_StartType, _StartArgs) ->
     Routes = [ {
         '_',
         [
-            {"/fibonacci/compute", compute_handler, []}
+            {"/fibonacci/compute", compute_handler, []},
+            {"/fibonacci/history_count", count_handler, []},
+            {"/fibonacci/history", history_handler, []}
         ]
     } ],
     Dispatch = cowboy_router:compile(Routes),

src/history_handler.erl

@@ -0,0 +1,36 @@
+%%%-------------------------------------------------------------------
+%%% @author immidisa
+%%% @copyright (C) 2019, <COMPANY>
+%%% @doc
+%%%
+%%% @end
+%%% Created : 28. Apr 2019 05:09
+%%%-------------------------------------------------------------------
+-module(history_handler).
+-author("immidisa").
+
+%% API
+-export([init/2]).
+-export([content_types_provided/2]).
+-export([content_types_accepted/2]).
+-export([allowed_methods/2]).
+-export([router/2]).
+
+init(Req, Opts) ->
+  {cowboy_rest, Req, Opts}.
+
+allowed_methods(Req, Opts) ->
+  {[ <<"GET">>], Req, Opts}.
+
+content_types_provided(Req, Opts) ->
+  {[{<<"application/json">>, router}], Req, Opts}.
+
+content_types_accepted(Req, Opts) ->
+  {[{<<"application/json">>, router}], Req, Opts}.
+
+router(Req, Opts) ->
+  History=compute_pool:history(),
+  {ok, Req2} = cowboy_req:reply(200,
+    [{<<"content-type">>, <<"application/json">>}],jsx:encode(History),
+    Req),
+  {ok, Req2, Opts}.