Alter the web interface of the CRE to provide status.json and cache.json

joergen7 · Apr 17, 2018 · 70e12d9 · 70e12d9
1 parent 178348e
commit 70e12d9
Show file tree

Hide file tree

Showing 6 changed files with 113 additions and 434 deletions.
diff --git a/src/cre.erl b/src/cre.erl
@@ -92,7 +92,7 @@ start( _Type, _Args ) ->
   Dispatch =
     cowboy_router:compile(
       [{'_', [
-              {"/[index.html]", cre_index_handler, []},
+              {"/[status.json]", cre_status_handler, []},
               {"/cache.json", cre_cache_handler, []}
              ]}] ),
 

diff --git a/src/cre_cache_handler.erl b/src/cre_cache_handler.erl
@@ -38,10 +38,8 @@
 
 init( Req0, State ) ->
 
-  PairLst = cre_master:cache( cre_master ),
-  Cache = [#{ request => A, reply => Delta } || {A, Delta} <- PairLst],
-
-  Doc = jsone:encode( #{ cache => Cache } ),
+  CacheMap = cre_master:get_cache( cre_master ),
+  Doc = jsone:encode( CacheMap ),
 
   Reply =
     cowboy_req:reply(

diff --git a/src/cre_html.erl b/src/cre_html.erl
diff --git a/src/cre_index_handler.erl b/src/cre_index_handler.erl