From fde7249bb3b185f2447585e9406775f351133632 Mon Sep 17 00:00:00 2001
From: nsensfel <SpamShield0@noot-noot.org>
Date: Thu, 9 Nov 2017 17:23:34 +0100
Subject: Implementing a shim for battlemap state loading...

---
 src/timed_caches_manager.erl | 48 ++++++++++++++++++++++++++------------------
 1 file changed, 28 insertions(+), 20 deletions(-)

(limited to 'src/timed_caches_manager.erl')

diff --git a/src/timed_caches_manager.erl b/src/timed_caches_manager.erl
index a2c95f3..c1c1363 100644
--- a/src/timed_caches_manager.erl
+++ b/src/timed_caches_manager.erl
@@ -19,7 +19,8 @@
    [
       add_cache/3,
       inherit_cache/3,
-      delete_cache/2
+      delete_cache/2,
+      get_timeout/1
    ]
 )
 .
@@ -43,25 +44,6 @@ add_cache (DB, Heir) ->
       ]
    ).
 
-delete_cache (CacheList, DB) ->
-   case lists:member(DB, CacheList) of
-      true ->
-         delete_cache(DB),
-         lists:delete(DB, CacheList);
-      false ->
-         CacheList
-   end.
-
-add_cache (CacheList, DB, Heir) ->
-   case lists:member(DB, CacheList) of
-      true ->
-         ets:setopts(DB, {heir, Heir, DB}),
-         CacheList;
-
-      false ->
-         add_cache(DB, Heir),
-         [DB|CacheList]
-   end.
 
 inherit_cache (CacheList, DB, Heir) ->
    case lists:member(DB, CacheList) of
@@ -113,3 +95,29 @@ format_status (_, [_, State]) ->
 
 handle_info(_, State) ->
    {noreply, State}.
+
+%%%% actual interface
+delete_cache (CacheList, DB) ->
+   case lists:member(DB, CacheList) of
+      true ->
+         delete_cache(DB),
+         lists:delete(DB, CacheList);
+      false ->
+         CacheList
+   end.
+
+add_cache (CacheList, DB, Heir) ->
+   case lists:member(DB, CacheList) of
+      true ->
+         ets:setopts(DB, {heir, Heir, DB}),
+         CacheList;
+
+      false ->
+         add_cache(DB, Heir),
+         [DB|CacheList]
+   end.
+
+get_timeout(battlemaps_db) ->
+   60000;
+get_timeout(_) ->
+   60000.
-- 
cgit v1.2.3-70-g09d2