Implementing a shim for battlemap state loading...

1 files changed, 27 insertions, 0 deletions

diff --git a/src/battlemap_load_state.erl b/src/battlemap_load_state.erl
new file mode 100644
index 0000000..3ebdd8b
--- /dev/null
+++ b/src/battlemap_load_state.erl
@@ -0,0 +1,27 @@
+-module(battlemap_load_state).
+
+-export(
+   [
+      handle/1
+   ]
+).
+
+handle (Req) ->
+   JSONReqMap = jiffy:decode(Req, [return_maps]),
+   BattlemapID = maps:get(<<"battlemap_id">>, JSONReqMap),
+   io:format("~nLoading Battlemap ~p...", [BattlemapID]),
+   Battlemap = timed_cache_object:fetch(battlemaps_db, BattlemapID, 60000),
+%%   ok = users_manager:ping(UserToken),
+   jiffy:encode(
+      {
+         [
+            {<<"types">>, [<<"STATE">>]},
+            {
+               <<"data">>,
+               [
+                  battlemap_battlemap:encode_to_json(Battlemap)
+               ]
+            }
+         ]
+      }
+   ).